高分求教：用structure结构自定义数据接口与Delphi接口通讯问题。分不够再加

使用VB.net程序，通过Socket按字节发送结构与Delphi程序通讯，经调试可以运行的给100分，其他有帮助的也有分，分不够我将在揭帖时追加,Delphi数据接口结构如下：
Type SendDataType =Record
     aa:String[20];
     bb      :TDateTime;
     cc :array[0..60] of single;
     dd:string[60];
  end;

欢迎讨论。

13 个解决方案

#1

.net 用 char[21] 来处理 aa 字段，bb 用 Single。

Delphi 的 String 是一个 byte + char[n] 的数组。

可以看看对应的 Delphi 文档，有各种数据类型所站用的字节数。

#2

好象有点不对吧？
21无论如何都是不对的啦，应该是19吧？
Delphi的String对应VB的Char吗？忘了，好像也不是吧？（呵呵，真的忘了）
那个TDateTime很可能是一个Float64的OleDateTime的东东，如果你看Delphi文档说TDateTime是用某种浮点格式保存的，或者由某种转换到（转换自）浮点类型数据的方法，那么很可能就是我说的那个意思了。这样的话可以是一下定义为double，然后通过DateTime.FromOADate这个函数转换成DateTime。
array[0..60] of single 就是 As Single[60]

#3

详细点，好吗？

#4

我好久没有用Delphi了，机子上也没有Delphi，基本上我把TDateTime这个比较难的问题给你解释了一下，其他的你就需要自己去尝试了。每个人都是摸索过来的，试一下吧。

#5

还有人吗?

#6

没有人解答，我怎么揭帖啊？100分没有人要？

#7

能够提供线索者有分！

#8

delphi:
Type SendDataType =packed Record//加上"packed"
     aa:String[20];
     bb      :TDateTime;//vb里面是double
     cc :array[0..60] of single;
     dd:string[60];
  end;

#9

我已经看过此部分的Delphi、VB.NET相关内容，可是还想与大家讨论一下，要不这100怎么分啊，没有我想要的答案，这分只好散了，参与讨论的有份。

#10

回者有分

#11

你到底怎么通讯法？用DLL还是COM？一个“通讯”和没说一样。
我以前已经说过了，VB不支持固定长度字符串，也不能用Char的数组，因为.NET的数祖地址是动态的。而且Char与Delphi的字符长度也不一样。
可选择的方法包括
1、采用Byte树组代替Char数组，这样可以控制长度（但其实很难）
2、调用DLL或COM的方法通讯，还可以用<MarshalAs>进行封送，它可以保证对非托管的兼容（特别是它支持Delphi类型的字符串）。

此外，VB的结构里不支持定长数组，解决的方法就是在与Delphi通讯前进行初始化。
Redim s.cc(60)

最后，VB里的结构体必需加上<StructLayout>元属性（具体看帮助），否则结构体没有经过对齐，到了dephi里就会出错

#12

sorry，我看见你说是Socket通讯了。那可以通过序列化的功能。
以VB向Delphi为例。定义结构体前加<Serilizable>。先初始化结构，让所有字段长度符合要求。然后用System.Runtime.Serilization中的相关类性让结构体的变量SOAP序列化（成一个流）。然后通过Socket传送此流。到了Delphi中接受此流，然后通过解析XML，获取其中的数据。
这是处理两种差异很大的平台常用的方法，Delphi7中有完善的对于SOAP的支持。

#13

是这样的，已经有一个由Delphi写的Server程序，数据接口结构与上面的结构类似，我想用VB.NET写一个程序向它发送数据，但试验多次并不成功。我的方法是：先定义一个数据结构体（见下面），然后将结构体转换为字节数组，以流的方式通过Socket向server（Delphi程序）发送，可是接收不到全部数据，只会接收到开头的字符串，我比较了一下标准接口数据长度，与我定义的数据流长度有差别  328 byte（我定义的），344 byte(标准长度）不知问题出在什么地方。应该还是数据类型定义上，可是真的该怎么定义呢？


    '      *********************************  定义结构体  *****************

    <StructLayoutAttribute(LayoutKind.Sequential, CharSet:=CharSet.Ansi, pack:=1)> _
    Public Structure SendDataType                             '接口数据结构
        <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=20)> Dim aa As String


          Dim bb As Double                'Delphi的日期在VB里是Double

        <MarshalAs(UnmanagedType.ByValArray, SizeConst:=60)> Dim cc() As Single

        <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=60)> Dim cc As String
    End Structure

'***********************************************

'      **************************构体与字节数组转换*****************
    Private Function StructureToByteArray(ByVal tag As SendDataType) As Byte()
        Dim iSize As Integer = Marshal.SizeOf(tag)
        Dim ptr As IntPtr = Marshal.AllocHGlobal(iSize)

        Marshal.StructureToPtr(tag, ptr, True)

        Dim ba(iSize - 1) As Byte

        Marshal.Copy(ptr, ba, 0, ba.Length)

        Marshal.FreeHGlobal(ptr)

        Return ba
    End Function

    Private Sub ByteArrayToStructure(ByVal ba() As Byte, ByRef tag As SendDataType)
        Dim ptr As IntPtr = Marshal.UnsafeAddrOfPinnedArrayElement(ba, 0)
        tag = Marshal.PtrToStructure(ptr, tag.GetType)
    End Sub

    '      ************************构体与字节数组转换结束*****************

'      *********************************定义对象*****************

Class StateObject
    ' Client socket.
    Public workSocket As Socket = Nothing
    ' Size of receive buffer.
    Public BufferSize As Integer = 512
    ' Receive buffer.
    Public buffer(512) As Byte
    ' Received data string.
    Public sb As New StringBuilder
End Class 'StateObject

'      *********************************定义对象结束*****************

#1