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;
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;
我想不用建立连接就给发送,有点感觉是对某一台机器发送一个IP包
不要用这种办法还有,接收到的IP要对包进行分析
go on
up
调用winsock api,则微软帮你包装了ip协议
使用winsock控件,则宝蓝帮你包装了winsock api
你好像要的效果不是和udp一样么?为什么要要求发ip包呢?