type
  R = record
    A: string[10];
    B: string[20];
    i: integer;
    x: Single;
  end;var
  R1: R;procedure Send;
begin
  ClientSocket1.Socket.SendBuf(R1, SizeOf(R1));
end;procedure Receive;
begin
  ClientSocket1.Socket.ReceiveBuf(R1, SizeOf(R1));
end;

解决方案 »

  1.   

    这样需要建立连接
    我想不用建立连接就给发送,有点感觉是对某一台机器发送一个IP包
    不要用这种办法还有,接收到的IP要对包进行分析
      

  2.   

    你自己写UDP层吧,就可以实现了,不过不知道怎么植入系统。
      

  3.   

    thanks mshawk
    go on
    up
      

  4.   

    直接用TNMUDP控件就可以了,我做过的
      

  5.   

    楼主的意思是不是要自己写ip报文?自己填充ip包头的34个字节?
    调用winsock api,则微软帮你包装了ip协议
    使用winsock控件,则宝蓝帮你包装了winsock api
      

  6.   

    socket好像做不到这么底层吧?在下去是协议栈的问题了,就是系统的实现了
    你好像要的效果不是和udp一样么?为什么要要求发ip包呢?