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

[wellwelcome]

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

主要是数据发送接受问题


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

[rwdx]

最好不要用那个控件，tcpserver和udpserver控件好像不没有完善

[wellwelcome]

楼上高手对qq那种udp文件传输有研究嘛

特别是当两个qq用户都没有公网ip的时候是怎么实现的

[XXSingle]

看看demos里有没有例题喔...........

[yanxi]

看过了，没有udpsocket的例子，
其它的有，但100m网卡加普通交换机的速度,收发响应很慢的，看样子要换控件了。

[glfwyz]

不清楚 ,帮你UP吧

[aznhunan]

等一会我试试，然后告诉你………

[Pillian]

千万不要使用TUdpSocket组件，这个东西有问题，最好使用使用Indy中的Udp组件。

[wind8bell]

那么Indy中的Udp组件怎么用呢？

[liunini]

Indy中的UdpClient设置host和port以及Active属性再active就可以了send信息了

Server设置同样的端口，再OnUdpRead事件中处理

[wind8bell]

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

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

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

end;

[liunini]

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

[liunini]

一定可以
不过要给分忧！

[vagerent]

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

[bengan]

楼上的可以给个例子我吗？
[e-mail]

[summax]

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;

[夜o猫]

怎么会提示TIdSocketHandle未定义呢？

[夜o猫]

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

[夜o猫]

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

[mol]

[e-mail]
也能给我一份吗？

[yanxi]

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