indy的问题(50分)

  • 主题发起人 主题发起人 jiegong_swpi
  • 开始时间 开始时间
J

jiegong_swpi

Unregistered / Unconfirmed
GUEST, unregistred user!
我初次用indy,听说挺牛的,但是我发现我用了一个tindytcpserver,和tindyclient控件,设置了一些参数,但是根本就不能连上,为什么,那位大虾给一个例子看看。
 
我这有TIndyUDPClient和TIndyUDPServer的例子,你可以参考。
主要是设定好各自的端口。
server只要设置defaultPort并把Active打开.
client只要设置Host和port.
Client.Send('ddd');
就可以在server的OnUDPRead里收了.
procedure TForm1.Button1Click(Sender: TObject);
begin
IdUDPClient1.Send('sss');
end;

procedure TForm1.IdUDPServer1UDPRead(Sender: TObject;
AData: TStream;
ABinding: TIdSocketHandle);
var
s: string;
begin
SetLength(s, AData.Size);
AData.Read(s[1], AData.Size);
ShowMessage(s)
end;

 
接受答案了.
 
后退
顶部