大家好，刚学，有个问题请教，如何在线程里收发udp数据？就象在窗体上放一个控件一样，可以产生数据到达事件的！

[个人网站美丽无瑕]

谢谢先！在线等待！

[个人网站美丽无瑕]

不好，还是不行

[个人网站美丽无瑕]

你好我试了你的方法，可是到了
if not Assigned(CltSck) then
错误 -> AUDP:=TNMUDP.Create(self);
这里就出错了
[Error] Unit_DataRecv.pas(39): Incompatible types: 'TComponent' and 'DataRecv'
DataRecv是我的线程的名字,请指教，谢谢先！

[hiflower]

type
TYourThread=class(TThread)
AUDP:TUDPSocket;//或 TNMUDP
procedure Execute;override;
procedure AUDPReceive(Sender: TObject; buf: pchar; var datalen: integer);
...
end;

implementation
procedure TYourThread.Execute;
begin
if not Assigned(AUDP) then
AUDP:=TUDPSocket.Create(self);
with AUDP do
begin
OnReceive:=AUDPReceive;
LocalHost:=..
LocalPort:=...
RemoteHost:=..
RemotePort:=...
Open;
end;
while not Terminated do
;do nothing

AUDP.Free;
end;
procedure TYourThread.AUDPReceive(Sender: TObject; buf: pchar; var datalen: integer);
begin
// your receive code here
end;