里面的程序类似
TP2PMakeHole = packed record//Server指挥PeerB打洞(s2c)
name: array [0..20] of char;//PeerA的信息
ip: u_long;
port: Integer;
end;
TP2PMakeHolePack = packed record
head: TP2PHead;
body: TP2PMakeHole;
end; {下面的都是P2P之间的数据包结构,与服务器无关}
TP2PHole = packed record//P2P之间的打洞信息
end;
TP2PHolePack = packed record
head: TP2PHead;
body: TP2PHole;
end;
TP2PMessage = packed record//P2P之间的文本聊天数据包
name: array [0..20] of char;//发起人
Text: array [0..1000] of char;
end;
TP2PMessagePack = packed record
head: TP2PHead;
body: TP2PMessage;
end;
请问如何发送数据结构,谢谢,
TP2PMakeHole = packed record//Server指挥PeerB打洞(s2c)
name: array [0..20] of char;//PeerA的信息
ip: u_long;
port: Integer;
end;
TP2PMakeHolePack = packed record
head: TP2PHead;
body: TP2PMakeHole;
end; {下面的都是P2P之间的数据包结构,与服务器无关}
TP2PHole = packed record//P2P之间的打洞信息
end;
TP2PHolePack = packed record
head: TP2PHead;
body: TP2PHole;
end;
TP2PMessage = packed record//P2P之间的文本聊天数据包
name: array [0..20] of char;//发起人
Text: array [0..1000] of char;
end;
TP2PMessagePack = packed record
head: TP2PHead;
body: TP2PMessage;
end;
请问如何发送数据结构,谢谢,
解决方案 »
- 请问禁止鼠标左右键单击?
- 招人困惑,大家帮忙出出注意!
- 发送图片到ASP问题
- 自定义控件画边缘色的问题
- D7连Oracle 8.1.7报错ORA 0ra-00911,说是无效的字符。
- 请教ehlib中的grid下拉列表中下来字段的具体用法
- 困扰我很久的画斜线问题
- 摩托此刻delphi板块专家分为8888 庆祝一下 @@@@@@@@@@@@
- 129分问编写多线程的网络程序需要注意什么,最好有代码例子!
- cxGrid中,在编辑状态下,当焦点离开某列时,要触发某件事,应当如何编写?例如:当焦点离开品种名称列时,要触发某件事!
- 求socket完成例程的简单例子,支持多连接,带 WSASend 的使用,谢谢!!!
- Delphi中怎样不遗漏对消息的处理并正确执行处理过程?
MsgcWhisper.msghead.MsgType:=CSWhisper;
strpcopy(MsgcWhisper.CWhisper.toname,touser);
strpcopy(MsgcWhisper.CWhisper.phonemessage,phonemessage);
strpcopy(MsgcWhisper.CWhisper.messageID,messageid);
//发送
mstream:=Tmemorystream.create;
mstream.Write(MsgcWhisper,sizeof(TMsgCWhisper1));
mstream.Position:=0;
cs.Socket.SendStream(mstream);
P2PMsgPack: TP2PMessagePack;
...
begin
...
SendResult := SendTo(SocketHandle,P2PMsgPack,sizeof(P2PMsgPack),0,PeerAddr(*对端地址*),sizeof(PeerAddr));//请注意各参数的声明)
...
end;