socket如何发送结构体数据:::

tomtom1983

socket如何发送结构体数据:::

如我定义了一个结构体,怎么通过socket发送了????

  TChargeSet = record
    Name : string;            { 收费方式      }
    FreeTime :Integer;        { 免费时间,分钟 }
    SetTime :Integer;         { 时间单位,分钟 }
    SetCost :Single;          { 收费金额,元   }
    HintStr :string;          { 收费提示      }
  end;

  TChargeMsg = record
    IpAddress :string;
    CardNo :string;
    Flag :Integer;                 {状态字}
    OpenTime :TDatetime;
    ChargeTime :TDatetime;         {下一次收费时间}
    UseTime :Integer;
    ChargeSet :TChargeSet;         {收费规则}
    Cost :Single;                  {总收费}
    Blance :Single;                {余额}
    NewOpen :Integer;
    Memos :string;
  end;

var
  TChargeMsg :TChargeMsg;

悲歌人生

SOCKET发送的是一块内存中的数据.至于这数据是什么你自己确定了.
对于结构体中的对象,因为仅是保存了一个指针,所以要将它持久化后才可以发送.

STRING 在DELPHI中也是一个对象.所以你不能直接使用,要定义成字符数组的格式.

tomtom1983

感谢  悲歌人生

能不能给些代码，实例！

drakecat

tool = packed record
        mindex  : array [0..3]  of char;   //Ë÷Òý±àºÅ
        mcname  : array [0..6]  of char;   //Ãû³Æ
        mcpic   : array [0..50] of char;   //ĬÈÏͼƬµØÖ·
        cx      : array [0..3]  of char;   //¼Ç¼ĬÈÏ¿í¶È
        cy      : array [0..3]  of char;   //¼Ç¼ĬÈϸ߶È
        cmemo   : array [0..3]  of char;   //¼Ç¼±¸×¢
    end;

定义成这样
在sengbuf 就可以

悲歌人生

tool = packed record
        mindex  : array [0..3]  of char;  
        mcname  : array [0..6]  of char;   
end;

楼上这样定义就可以.

gzfp2006

buf <-structobj
size->sizeof(struct)

oldragon

sdk:
send or sendto
buf填结构体指针，len结构体大小。

TCustomWinSocket::SendBuf
buf填结构体指针 Count填结构体大小