1573
社区成员
网络编程经验的高手看进来，请教问题(极具挑战性，请求帮助)
大家好，我最近在搞一个P2P的课题，要求用DELPHI开发，我以前没有相关网络编程经验。所以遇到很大的问题。
请教！！！
我有不懂的地方是：
1最基本的通讯协议实现UDP，TCP。Socket的传送，数据帧的组织。
2文件如何传输，如何跨网，如何绕防火墙
3信息如何发送，如何通过服务器中转，采用什么方式，如何扩充为语音，视频如何处理。
4好友如何管理，在客户端、服务器端要怎么处理，在线好友如何查询、更新、维护
5怎么使用SOCK 5代理和HTTP代理用在程序中。
大家都是程序员，请求大家帮帮忙，因为时间实在太短，要求在一个月内做完。现在开发文档还没写，因为我实在理解不了P2P，实在缺乏网络编程的经验。。。唉。
恳求各位老鸟有力出力，写写你们的思路，贴上你们的代码看看好吗？
声明：我不会把代码作为商用，仅作参考而已。因为这个课题可能会实际中使用，性能要求高一点。
请教！！！
我有不懂的地方是：
1最基本的通讯协议实现UDP，TCP。Socket的传送，数据帧的组织。
2文件如何传输，如何跨网，如何绕防火墙
3信息如何发送，如何通过服务器中转，采用什么方式，如何扩充为语音，视频如何处理。
4好友如何管理，在客户端、服务器端要怎么处理，在线好友如何查询、更新、维护
5怎么使用SOCK 5代理和HTTP代理用在程序中。
大家都是程序员，请求大家帮帮忙，因为时间实在太短，要求在一个月内做完。现在开发文档还没写，因为我实在理解不了P2P，实在缺乏网络编程的经验。。。唉。
恳求各位老鸟有力出力，写写你们的思路，贴上你们的代码看看好吗？
声明：我不会把代码作为商用，仅作参考而已。因为这个课题可能会实际中使用，性能要求高一点。
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
猛禽 2003-09-08
请教sevencat(七猫)兄
如果网络开发不是DELPHI的强项，那什么才是？
用得最多的FTP服务端：SERV-U都是用DELPHI写的。
P2P没做过，8过网上可以找到BT的源码（是用PYTHON写的），可以参考一下
如果网络开发不是DELPHI的强项，那什么才是？
用得最多的FTP服务端：SERV-U都是用DELPHI写的。
P2P没做过，8过网上可以找到BT的源码（是用PYTHON写的），可以参考一下
zawload 2003-09-08
libra01 (龙卷风)
你好,你的E_mail是?
我给你一个相关例子,可能对你有点帮助,采用的是UDP(使用Indy控件组).
你好,你的E_mail是?
我给你一个相关例子,可能对你有点帮助,采用的是UDP(使用Indy控件组).
libra01 2003-09-07
继续关注！
sxzxz 2003-07-19
是啊不知道其中很多的问题啊
solonet 2003-07-19
可怜天下程序员，一个月时间，哪有这么快！
UP
UP
e5022 2003-07-19
1个月，太强求了
libra01 2003-07-19
时间太短，不用delphi用什么？？？
sevencat 2003-07-18
老大，这种东西用DELPHI开发太累了，搞不懂，明明不是DELPHI的强项，
libra01 2003-07-18
顶
daniel2008 2003-07-17
我也不懂.up
baibaichen 2003-07-17
用Indy吧，你可以到www.51delphi.Com上找到一本，Indy in Depth的电子书。
另外，Indy的Demo很多。
另外，Indy的Demo很多。
libra01 2003-07-16
请继续跟贴。
协议部分的处理？？？
协议部分的处理？？？
libra01 2003-07-16
谢谢各位，
请教DelphiBoy2003(一朵梨花压海棠,玉树临风胜潘安) 的联系方式。
我的联系方式是：QQ:3569555
请教DelphiBoy2003(一朵梨花压海棠,玉树临风胜潘安) 的联系方式。
我的联系方式是：QQ:3569555
ilymtics 2003-07-16
//这个类可以连接sock5代理, 不完整,只有与sock5通讯的部分
unit Sockets;
interface
uses
Windows, Messages, Winsock,lzrw1kh,YkPub,irpServer,pubclass,myMars;
resourceString
err_CanntInitSockDll ='不能初始化wsock32.dll库';
err_canntCreateSocket ='不能创建Socket';
err_canntConnectServer= '连接服务器失败';
err_canntConnectProxyServer= '连接代理服务器失败';
err_unkownServer = '给定的主机名或者IP地址不正确';
err_timeout ='Socket操作超时，可能连接已经被中断';
err_proxyVer = '代理服务器版本不对';
const
SD_BOTH = $02;
port_access = 'access';
port_config = 'config';
port_publish = 'publish';
type
//与socks5代理服务器连接所需要的结构
Tsock5req1 = record
Ver :byte;
nMethods:byte;
Methods :array [1..255]of byte;
end;
Tsock5ans1 = record
Ver :byte;
Method :byte;
end;
Tsock5req2 = record
Ver :byte;
Cmd :byte;
Rsv :byte;
Atyp :byte;
other :array [1..255] of byte;
end;
Tsock5ans2 = record
Ver :byte;
Rep :byte;
Rsv :byte;
Atyp :byte;
other :array [1..255] of byte;
end;
Tauthreq = record
Ver :byte;
Ulen :byte;
Name :array [1..255] of byte;
PLen :byte;
Pass :array [1..255] of byte;
end;
Tauthans = record
Ver :byte;
Status:byte;
end;
//
TBlockSocket= class;
TSockEventType = (ST_WRITE,ST_READ,ST_COM,ST_DECOM);
TSockEvent = procedure(sender:TBlockSocket;event:TSockEventType;param:Pointer); stdCall;
TBlockSocket = class(TObject)
private
Fcancel :boolean;
FconInfo :TConnectInfo;
protected
TimeOut : DWORD;
m_SockAddr: TSockAddr;
Handle : TSocket;
hwnd : HWND;
FBlock : boolean;
waitEvent : integer;
FError : WORD;
procedure DoReceive(Buffer: Pointer; ReceiveLen: LongInt);Dynamic;
procedure DoSend(Buffer: Pointer; SendLen: LongInt);Dynamic;
procedure doSockMessage(var Message: TMessage);
procedure processMessage();
function WaitFor(event: Integer): Boolean;
procedure negotiate_Socks5();
public
p1,p2,p3 :pointer;
onSockEvent :Pointer;
onObjSockEvent :procedure(event:TSockEventType;param:Pointer)of object;
procedure doSockEvent(event:TSockEventType;param:Pointer);
procedure Cancel;
procedure continue;
procedure setBlock(value :boolean);
constructor Create;
destructor Destroy;override;
function getConnectInfo():TConnectInfo;
function ErrorTest(Evaluation: LongInt): LongInt;
function isIp(ipOrServerName: String):boolean;
procedure DoClose;
procedure DoConnect(ci :TConnectInfo);
function isActive():boolean;
procedure setSoTimeout(value :DWORD);
function getSockAddr(ipOrServerName:String;port:word):TSockAddr;
procedure setCloseWait(value :boolean);
function ErrToStr(Err: LongInt): String;
end;
implementation
{ TBlockSocket }
procedure TBlockSocket.negotiate_Socks5;
var
sock5req1 :Tsock5req1;
sock5ans1 :Tsock5ans1;
sock5req2 :Tsock5req2;
sock5ans2 :Tsock5ans2;
authreq :Tauthreq;
authans :Tauthans;
ip :Cardinal;
needSendLen :integer;
Port :word ;
begin
////与socks5代理服务器通话
sock5req1.Ver := 5 ;
sock5req1.nMethods := 2;
sock5req1.Methods[1] := 0;
sock5req1.Methods[2] := 2;{-------------------------->|X'00' NO AUTHENTICATION REQUIRED}
doSend(@sock5req1,4); {| X'01' GSSAPI}
DoReceive(@sock5ans1,2); {| X'02' USERNAME/PASSWORD}
if sock5ans1.Ver<>5 then {| X'03' to X'7F' IANA ASSIGNED}
raise Exception.Create(err_proxyVer); {| X'80' to X'FE' RESERVED FOR PRIVATE METHODS}
if (sock5ans1.Method<>0)and(sock5ans1.Method<>2)then {| X'FF' NO ACCEPTABLE METHODS}
raise Exception.Create('代理服务器不支持所需的功能');
if sock5ans1.Method=2 then//需要用户验证
begin
authreq.Ver := 5;
authreq.Ulen := length(FconInfo.proxyUser);
authreq.PLen := length(FConInfo.proxyPass);
strCopy(@authreq.Name[1],Pchar(FconInfo.proxyUser));
strCopy(@authreq.Pass[1],Pchar(FconInfo.proxyPass));
doSend(@authreq,SizeOf(authreq));
doReceive(@authans,sizeOf(authans));
if authans.Status<>0 then
raise Exception.Create('代理服务器用户验证不成功!');
end;
sock5req2.Ver := 5;
sock5req2.Cmd := 1;// CONNECT X'01' BIND X'02' UDP ASSOCIATE X'03'
sock5req2.Rsv := 0;//保留
ip := INet_Addr(PChar(FconInfo.ip));
Port := htons(FconInfo.port);
if (ip<>INADDR_NONE)and(ip<>0) then {地址类型}//IP V4 address: X'01' DOMAINNAME: X'03' IP V6 address: X'04'
begin
sock5req2.Atyp := 1;
copyMemory(@sock5req2.other[1],@ip,4);
copyMemory(@sock5req2.other[5],@Port,2);
needSendLen := 4 + 4 + 2;{ver cmd rsv atyp + ip + port}
end else
begin
sock5req2.Atyp := 3;
copyMemory(@sock5req2.other[1],Pchar(FconInfo.ip),Length(FconInfo.ip));
copyMemory(@sock5req2.other[1+Length(FconInfo.ip)],@port,2);
needSendLen := 4 + Length(FconInfo.ip) + 2;{ver cmd rsv atyp + ip + port}
end;
doSend(@sock5req2,needSendlen);
doReceive(@sock5ans2,needSendLen);
if sock5ans2.ver <> 5 then
raise Exception.Create(err_proxyVer);
case sock5ans2.Rep of
0 :;//success.
1 :raise Exception.Create('general SOCKS server failure');
2 :raise Exception.Create('connection not allowed by ruleset');
3 :raise Exception.Create('Network unreachable');
4 :raise Exception.Create('Host unreachable');
5 :raise Exception.Create('Connection refused');
6 :raise Exception.Create('TTL expired');
7 :raise Exception.Create('Command not supported');
8 :raise Exception.Create('Address type not supported');
{o X'00' succeeded
o X'01' general SOCKS server failure
o X'02' connection not allowed by ruleset
o X'03' Network unreachable
o X'04' Host unreachable
o X'05' Connection refused
o X'06' TTL expired
o X'07' Command not supported
o X'08' Address type not supported
o X'09' to X'FF' unassigned}
end;
end;
initialization
wm_msgsock := RegisterWindowMessage('yukun socket message');
if wm_msgsock = 0 then wm_msgsock := wm_user +1000;
finalization
end.
unit Sockets;
interface
uses
Windows, Messages, Winsock,lzrw1kh,YkPub,irpServer,pubclass,myMars;
resourceString
err_CanntInitSockDll ='不能初始化wsock32.dll库';
err_canntCreateSocket ='不能创建Socket';
err_canntConnectServer= '连接服务器失败';
err_canntConnectProxyServer= '连接代理服务器失败';
err_unkownServer = '给定的主机名或者IP地址不正确';
err_timeout ='Socket操作超时，可能连接已经被中断';
err_proxyVer = '代理服务器版本不对';
const
SD_BOTH = $02;
port_access = 'access';
port_config = 'config';
port_publish = 'publish';
type
//与socks5代理服务器连接所需要的结构
Tsock5req1 = record
Ver :byte;
nMethods:byte;
Methods :array [1..255]of byte;
end;
Tsock5ans1 = record
Ver :byte;
Method :byte;
end;
Tsock5req2 = record
Ver :byte;
Cmd :byte;
Rsv :byte;
Atyp :byte;
other :array [1..255] of byte;
end;
Tsock5ans2 = record
Ver :byte;
Rep :byte;
Rsv :byte;
Atyp :byte;
other :array [1..255] of byte;
end;
Tauthreq = record
Ver :byte;
Ulen :byte;
Name :array [1..255] of byte;
PLen :byte;
Pass :array [1..255] of byte;
end;
Tauthans = record
Ver :byte;
Status:byte;
end;
//
TBlockSocket= class;
TSockEventType = (ST_WRITE,ST_READ,ST_COM,ST_DECOM);
TSockEvent = procedure(sender:TBlockSocket;event:TSockEventType;param:Pointer); stdCall;
TBlockSocket = class(TObject)
private
Fcancel :boolean;
FconInfo :TConnectInfo;
protected
TimeOut : DWORD;
m_SockAddr: TSockAddr;
Handle : TSocket;
hwnd : HWND;
FBlock : boolean;
waitEvent : integer;
FError : WORD;
procedure DoReceive(Buffer: Pointer; ReceiveLen: LongInt);Dynamic;
procedure DoSend(Buffer: Pointer; SendLen: LongInt);Dynamic;
procedure doSockMessage(var Message: TMessage);
procedure processMessage();
function WaitFor(event: Integer): Boolean;
procedure negotiate_Socks5();
public
p1,p2,p3 :pointer;
onSockEvent :Pointer;
onObjSockEvent :procedure(event:TSockEventType;param:Pointer)of object;
procedure doSockEvent(event:TSockEventType;param:Pointer);
procedure Cancel;
procedure continue;
procedure setBlock(value :boolean);
constructor Create;
destructor Destroy;override;
function getConnectInfo():TConnectInfo;
function ErrorTest(Evaluation: LongInt): LongInt;
function isIp(ipOrServerName: String):boolean;
procedure DoClose;
procedure DoConnect(ci :TConnectInfo);
function isActive():boolean;
procedure setSoTimeout(value :DWORD);
function getSockAddr(ipOrServerName:String;port:word):TSockAddr;
procedure setCloseWait(value :boolean);
function ErrToStr(Err: LongInt): String;
end;
implementation
{ TBlockSocket }
procedure TBlockSocket.negotiate_Socks5;
var
sock5req1 :Tsock5req1;
sock5ans1 :Tsock5ans1;
sock5req2 :Tsock5req2;
sock5ans2 :Tsock5ans2;
authreq :Tauthreq;
authans :Tauthans;
ip :Cardinal;
needSendLen :integer;
Port :word ;
begin
////与socks5代理服务器通话
sock5req1.Ver := 5 ;
sock5req1.nMethods := 2;
sock5req1.Methods[1] := 0;
sock5req1.Methods[2] := 2;{-------------------------->|X'00' NO AUTHENTICATION REQUIRED}
doSend(@sock5req1,4); {| X'01' GSSAPI}
DoReceive(@sock5ans1,2); {| X'02' USERNAME/PASSWORD}
if sock5ans1.Ver<>5 then {| X'03' to X'7F' IANA ASSIGNED}
raise Exception.Create(err_proxyVer); {| X'80' to X'FE' RESERVED FOR PRIVATE METHODS}
if (sock5ans1.Method<>0)and(sock5ans1.Method<>2)then {| X'FF' NO ACCEPTABLE METHODS}
raise Exception.Create('代理服务器不支持所需的功能');
if sock5ans1.Method=2 then//需要用户验证
begin
authreq.Ver := 5;
authreq.Ulen := length(FconInfo.proxyUser);
authreq.PLen := length(FConInfo.proxyPass);
strCopy(@authreq.Name[1],Pchar(FconInfo.proxyUser));
strCopy(@authreq.Pass[1],Pchar(FconInfo.proxyPass));
doSend(@authreq,SizeOf(authreq));
doReceive(@authans,sizeOf(authans));
if authans.Status<>0 then
raise Exception.Create('代理服务器用户验证不成功!');
end;
sock5req2.Ver := 5;
sock5req2.Cmd := 1;// CONNECT X'01' BIND X'02' UDP ASSOCIATE X'03'
sock5req2.Rsv := 0;//保留
ip := INet_Addr(PChar(FconInfo.ip));
Port := htons(FconInfo.port);
if (ip<>INADDR_NONE)and(ip<>0) then {地址类型}//IP V4 address: X'01' DOMAINNAME: X'03' IP V6 address: X'04'
begin
sock5req2.Atyp := 1;
copyMemory(@sock5req2.other[1],@ip,4);
copyMemory(@sock5req2.other[5],@Port,2);
needSendLen := 4 + 4 + 2;{ver cmd rsv atyp + ip + port}
end else
begin
sock5req2.Atyp := 3;
copyMemory(@sock5req2.other[1],Pchar(FconInfo.ip),Length(FconInfo.ip));
copyMemory(@sock5req2.other[1+Length(FconInfo.ip)],@port,2);
needSendLen := 4 + Length(FconInfo.ip) + 2;{ver cmd rsv atyp + ip + port}
end;
doSend(@sock5req2,needSendlen);
doReceive(@sock5ans2,needSendLen);
if sock5ans2.ver <> 5 then
raise Exception.Create(err_proxyVer);
case sock5ans2.Rep of
0 :;//success.
1 :raise Exception.Create('general SOCKS server failure');
2 :raise Exception.Create('connection not allowed by ruleset');
3 :raise Exception.Create('Network unreachable');
4 :raise Exception.Create('Host unreachable');
5 :raise Exception.Create('Connection refused');
6 :raise Exception.Create('TTL expired');
7 :raise Exception.Create('Command not supported');
8 :raise Exception.Create('Address type not supported');
{o X'00' succeeded
o X'01' general SOCKS server failure
o X'02' connection not allowed by ruleset
o X'03' Network unreachable
o X'04' Host unreachable
o X'05' Connection refused
o X'06' TTL expired
o X'07' Command not supported
o X'08' Address type not supported
o X'09' to X'FF' unassigned}
end;
end;
initialization
wm_msgsock := RegisterWindowMessage('yukun socket message');
if wm_msgsock = 0 then wm_msgsock := wm_user +1000;
finalization
end.
DelphiBoy2003 2003-07-15
根本不需要绕过防火墙，如果你的程序是合法的，那么用户自然会允许你的程序访问网络，那么这样还需要绕过防火墙吗？
其他的都很容易，使用Indy控件组完全搞定
其他的都很容易，使用Indy控件组完全搞定
copy_paste 2003-07-15
1：说不清
2: 你到VC的网络版那里，找找UDP怎么进行P2P的资源。
3：信息如何发送，就是最基本的: send, sendto。语音也好，视频也好，说白了，就是数据流，信息怎么发送的，它们就怎么发送。
4：好友，数据库程序中表里总是会记录一些如：生日，男女，什么的，你不会加个字段：好友。
5：不懂，好像jingtao发过一篇文章，你到DFW找找。
2: 你到VC的网络版那里，找找UDP怎么进行P2P的资源。
3：信息如何发送，就是最基本的: send, sendto。语音也好，视频也好，说白了，就是数据流，信息怎么发送的，它们就怎么发送。
4：好友，数据库程序中表里总是会记录一些如：生日，男女，什么的，你不会加个字段：好友。
5：不懂，好像jingtao发过一篇文章，你到DFW找找。
whxhz80 2003-07-15
关注
whxhz80 2003-07-15
又是穿越防火墙啊，很多讨论都没有结果啊
【工作感悟】java编程规范pdf下载 如果你想进大厂，一定是要求自身技术栈能达到企业的需求甚至超过企业的需求，关于技术如何提升的问题，一直以来都备受关注，IT行业发展的很快，程序员要保持不断学习，因此，就算是相同起点的人，经过几年的工作或...
Java开发必须掌握！java面试没问技术问题 760940986 群内提供 高可用，高并发，spring源码，mybatis源码，JVM，大数据，Netty等多个技术知识的架构视频资料 还有大把大牛在群内交流以及解答面试指导，问题答疑 要进来和大牛交流学习提升提升自己吗~~ 4....
修炼一名程序员的职业水准 _署名原创) 作者：林庆忠，1990年毕业于昆明工学院计算机软件专业，后又于1999年毕业在南京大学 完成软件工程专业硕士的学习，现供职于CNPC旗下的一个行业软件研发中心，因为在网上看了许多有经验的各路软件开发人员...
计算机网络协议 | 只有程序员才能读懂的西游记 | 让我这样学习简直就是一种享受~ 这是一个有关计算机网络协议的故事。 一、我佛造经传极乐 话说我佛如来为度化天下苍生，有三藏真经，可劝人为善。 就如图中所示，真经所藏之处，在于云端。佛祖所管辖之下，有四个区域Region，称为四大部洲，...
关于智能化、精准化测试的一切，这50个问题我们帮你整理好了！ 胡继 腾讯资深测试开发工程师 在 DevOps工程效能提升背景下，腾讯内部各BG积极推进，越来越多的移动端项目在流水线中集成自动化测试，对移动端云测试平台稳定性和灵活性提出很大挑战。本次分享主要介绍腾讯内是如何...
编程珠玑番外篇 的时候我非要用 goto, 结果人家都说我是 unstructured programming (没结构的编程), 现在我要提出一个叫做 literate programming 的东西, 你要是不跟着我混, 人家就会叫你 illiterate programming (没文化的编程)....
C编程精粹 编程精粹 ─── Microsoft编写优质无错C程序秘诀 Writing Clean Code ─── Microsoft Techniques for DevelopingBug-free C Programs Steve ...
微服务架构·基础篇 因此，如何提高系统的可靠性、降低因网络引起的故障率，是系统构建的一大挑战。 异步： 异步通信大大增加了功能实现的复杂度，并且伴随着定位难、调试难等问题。 数据一致性： 要保证分布式系统的数据强一致性，成本...
王垠：怎样尊重一个程序员？ 我想大家都看出来这里的问题了吧。这样的低级命令不但逻辑不清楚，而且是对另一个人的智力的严重侮辱。你当我是什么啊？猴子？如果这位Googler表明自己的高级意图，就会很容易在心理上和逻辑上让人接受，比如她可以...
修炼一名程序员的职业水准(林庆忠__署名原创) _署名原创) 作者：林庆忠，1990年毕业于昆明工学院计算机软件专业，后又于1999年毕业在南京大学 完成软件工程专业硕士的学习，现供职于CNPC旗下的一个行业软件研发中心，因为在网上看了许多有经验的各路软件开发人员...
JNI 编程文库 Chap 3：javah命令帮助信息... 16 Chap 4：用javah产生一个.h文件... 17 Chap5:jni教程(very very good) 19 Chap6: JNI传递返回值... 26 15.2.2.3 传递字符串... 28 15.2.2.4 传递整型数组 ... 29 15
自学编程的六点技巧 有一天，我的一个在学编程的朋友问我：“我想快速学习编程，你有什么好的推荐吗？我曾在上大学的时候自学过编程，这么多年过去了，我意识到我或许...“快速”对于“如何快速学习编程”这个问题，其实我真的不知道何...
领域驱动战略设计实践 国内关于领域驱动设计（Domain Driven Design，DDD）的原创书籍少之又少，甚至可以说没有，作者结合十余年实践领域驱动设计的经验与心得，并糅合了 DDD 社区最新发展的理论知识与最佳实践，策划了《领域驱动设计实践...
顶会论文，怎么就成了申博的必要条件？ 3 月，我在「distill.pub」平台上作为唯一作者发表了论文「Visualizing memorization in RNNs」，说明了针对自然语言处理任务，如何通过一种交互式的显著性可视化技术，证明两个准确率几乎一样的模型具有差异极大的...
修炼一名程序员的职业水准(值得看看) _署名原创) 作者：林庆忠，1990年毕业于昆明工学院计算机软件专业，后又于1999年毕业在南京大学 完成软件工程专业硕士的学习，现供职于CNPC旗下的一个行业软件研发中心，因为在网上看了许多有经验的各路软件开发人员...
WordZ:Word终结者,基于Google API的文档自动化 电子合同发票流水账单线上集成方案 WordZ: Word终结者， 基于Google API... 工作了那么多年，我在闲暇之余经常思考这样一个问题，作为一名软件开发人员，我的工作，我的研发价值，真的只存在于产品经理所规划出的这几个业务中吗？ 开始这项研究的...
