DELPHI7 INTERNET 控件集中的 TUdpSocket控件的用法，给个例子[100分]

wellwelcome 2003-09-10 02:00:25

DELPHI7 INTERNET 控件集中的 TUdpSocket控件的用法，给个例子[100分]

主要是数据发送接受问题

顺便讨论一下，qq文件传送的机制
如果有高手能解决 3000分奉上

...全文

252 26 打赏收藏转发到动态举报

写回复

用AI写文章

26 条回复

切换为时间正序

请发表友善的回复…

发表回复

yanxi 2004-01-10

打赏
举报

indy 的好很多，速度方面好很多

mol 2004-01-06

打赏
举报

mo_ling@21cn.com
也能给我一份吗？

夜o猫 2003-12-11

打赏
举报

弄好了!刚才是端口设置有问题!

夜o猫 2003-12-10

打赏
举报

为什么接收不到？是不是端口设置有问题？有谁可以提供一份完整实例源代码？

夜o猫 2003-12-10

打赏
举报

怎么会提示TIdSocketHandle未定义呢？

summax 2003-11-06

打赏
举报

var
DataStringStream: TStringStream;
s: String;
begin
DataStringStream := TStringStream.Create('');
try
DataStringStream.CopyFrom(AData, AData.Size);
UDPMemo.Lines.Add('Received "' + DataStringStream.DataString + '" from ' + ABinding.PeerIP + ' on port ' + IntToStr(ABinding.PeerPort));
s := 'Replied from ' + UDPServer.LocalName + ' to "' + DataStringStream.DataString + '"';
ABinding.SendTo(ABinding.PeerIP, ABinding.PeerPort, s[1], Length(s));
finally
DataStringStream.Free;
end;
end;

bengan 2003-11-05

打赏
举报

楼上的可以给个例子我吗？
590511@21cn.com

vagerent 2003-11-04

打赏
举报

我有indy udp例子阿，留下email
qq是通过第三方服务器的，不可能两台非公网机子直接相连。

liunini 2003-11-04

打赏
举报

一定可以
不过要给分忧！

liunini 2003-11-04

打赏
举报

var data:TStringStream
begin
Data:=TStringStream.create('');
try
data.copyFrom(AData,AData.size);
finally
data.free;
end;
end;

wind8bell 2003-11-03

打赏
举报

procedure TForm1.btn1Click(Sender: TObject);
begin
idudpclient1.Send(memo2.text);
end;

procedure TForm1.IdUDPServer1UDPRead(Sender: TObject; AData: TStream;
ABinding: TIdSocketHandle);
begin

//这里怎么写？？？？怎么接收数据啊？

end;

liunini 2003-11-03