代码:
unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, IdBaseComponent, IdComponent, IdUDPBase, IdUDPServer , IdSocketHandle;type
TForm1 = class(TForm)
IdUDPServer1: TIdUDPServer;
procedure IdUDPServer1UDPRead(Sender: TObject; AData: TStream;
ABinding: TIdSocketHandle);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.IdUDPServer1UDPRead(Sender: TObject; AData: TStream;
ABinding: TIdSocketHandle);
begin
self.IdUDPServer1.
showmessage('teststr') ;
end;
end.
遇到的情况是:
在一台WIN2000机子上安装并启动上述service1服务。同时在当前机子上也运行一个带idupdclient的窗口程序,send目标IP设置为127.0.0.1或局域网IP192.168.0.1 发送时,都有反应的。
可是当在另一台192.168.0.2上运行带idupdclient的窗口程序,目标IP设置为192.168.0.1发送消息时,却没反应。
高手帮帮忙啊!!!
unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, IdBaseComponent, IdComponent, IdUDPBase, IdUDPServer , IdSocketHandle;type
TForm1 = class(TForm)
IdUDPServer1: TIdUDPServer;
procedure IdUDPServer1UDPRead(Sender: TObject; AData: TStream;
ABinding: TIdSocketHandle);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.IdUDPServer1UDPRead(Sender: TObject; AData: TStream;
ABinding: TIdSocketHandle);
begin
self.IdUDPServer1.
showmessage('teststr') ;
end;
end.
遇到的情况是:
在一台WIN2000机子上安装并启动上述service1服务。同时在当前机子上也运行一个带idupdclient的窗口程序,send目标IP设置为127.0.0.1或局域网IP192.168.0.1 发送时,都有反应的。
可是当在另一台192.168.0.2上运行带idupdclient的窗口程序,目标IP设置为192.168.0.1发送消息时,却没反应。
高手帮帮忙啊!!!
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货