先定义一个TYourThread的Procedure,实现如下:procedure TYourThread.NMUDP1DataReceived(Sender: TComponent; NumberBytes: Integer; FromIP: String; Port: Integer);
begin
//your code
end;使用的时候:
procedure TYourThread.Create(...);
begin
UDP1 := TNMDUP.Create(Self);
UDP1.OnDataReceived := NMUDP1DataReceived;
...
end;
begin
//your code
end;使用的时候:
procedure TYourThread.Create(...);
begin
UDP1 := TNMDUP.Create(Self);
UDP1.OnDataReceived := NMUDP1DataReceived;
...
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货