procedure TForm1.Button1Click(Sender: TObject);
var
  s: TNMUDP;
begin
  s:=TNMUDP.Create(nil);
  showmessage(inttostr(s.ThisSocket));
  s.Free;
end;

解决方案 »

  1.   

    在uses里别忘记加
    NMUDP这句
      

  2.   

    zgpsblxkj(学生)
    你也在线?
      

  3.   

    我只是写个小例子
    代码如下:放在哪里都一样var 
    s: TNMUDP; 
    begin 
    s:=TNMUDP.Create(nil); 
    showmessage(inttostr(s.ThisSocket)); 
    s.Free;
      

  4.   

    showmessage(inttostr(s.ThisSocket)); 是什么意思
      

  5.   

    没窗体
    那你 用WIN SERVICES吧
    这个都一样
    我只是给你贴出了
    动态生成的例子而已
      

  6.   

    它的OnDataReceived事件怎么使用