自己写的Delphi UDP 传输模块源代码

[Future_OK]

具有内网穿透功能，对于大段数据可以分包传输，在算法上对数据的正确性做了一定的保证。具有连接管理的功能，对于可以管理多组连接，如果远端上时间无想要可以将连接删除。模块独立性教强，接口函数较完备。Server 和 Clinet可以共用一个基类。只是Client要createConnection即可。不过水平有限，错漏难免，请多指教。
http://download.csdn.net/download/future_ok/4090832

[helyna]

标记，用到的时候下载

[代码跳动]

对我有用

[一剑飘雪]

下载下来我看看
谢谢分享

[funxu]

话说要的积分好高，我身边没环境，有人编译了么？为什么感觉代码不全呢？

[Future_OK]

做了一版更新，修正了里面的几个Bug，现在看起来已经可以比较好的工作了。更新的代码在这里
http://download.csdn.net/detail/future_ok/4110604

这里有一个Server端的范例代码：
unit Server;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, IUdpComm, StdCtrls;

type
TForm1 = class(TForm)
memRcv: TMemo;
txtIP: TEdit;
txtPort: TEdit;
memSend: TEdit;
Button1: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
procedure receiveStr(AMsg : string ; IP : string; Port : Integer);
procedure receiveFile(AFile : string ; IP : string; Port : Integer);
public
{ Public declarations }
end;

var
Form1: TForm1;
userver : TUdpCommBase;
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
userver := TUdpCommBase.Create;
userver.Start(9902);
userver.receiveString := receiveStr; // Callback function for string receive
userver.receiveFile := receiveFile; // Callback function for file receive
end;
//
procedure TForm1.receiveStr(AMsg : string; IP : string; Port : Integer);
begin
memRcv.Lines.Append(IP + ':'+ IntToStr(Port) + ' ' + AMsg);
if (AMsg = 'connect') then
begin
userver.sendString('ok', IP, Port);
end
else
begin

end;
end;

procedure TForm1.receiveFile(AFile : string; IP : string; Port : Integer);
begin
memRcv.Lines.Append(IP + ':'+ IntToStr(Port) + ' receive file : ' + AFile);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
msg : string;
IP : string;
Port: Integer;
begin
msg := memSend.Text;
IP := txtIP.Text;
Port := StrToInt(txtPort.Text);
userver.sendString(msg, IP, Port);
memSend.Clear;
end;

end.

[Quote=引用楼主 future_ok 的回复:]
具有内网穿透功能，对于大段数据可以分包传输，在算法上对数据的正确性做了一定的保证。具有连接管理的功能，对于可以管理多组连接，如果远端上时间无想要可以将连接删除。模块独立性教强，接口函数较完备。Server 和 Clinet可以共用一个基类。只是Client要createConnection即可。不过水平有限，错漏难免，请多指教。
http://download.csdn.net/download……
[/Quote]

[Future_OK]

Client 端的代码大同小异，因为共用一个基类, 几个CallBack函数可以参考SourceCode中的定义
unit Client;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, IUdpComm, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
fIP : string;
fPort : Integer;
public
{ Public declarations }
end;

var
Form1: TForm1;
client : TUdpCommBase;
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
client := TUdpCommBase.Create;
client.Start(9902); // local Port
fIP := '127.0.0.1';
fPort := 9901
client.createConnection(fIP, fPort);
end;

procedure TForm1.Button1Click(Sender: TObject);

begin
client.sendString('Hello World', fIP, fPort);
end;

end.

[sz100wwb]

您的范例代码里少了回调函数 LoseConnection 造成程序20分钟不到就会崩溃。

麻烦楼主补全一下 初学者 不知道回调函数 LoseConnection 中该处理些什么。

[sz100wwb]

代码里存在Bug 应该是出在delete[index]处

list index out of bounds