我做了个UDP送string的程序，可是当点button1时，form1的caption什么都没有显示，这是为什么？我应该怎么改我的程序？ 以下是我写的程序源代码： unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, IdUDPClient, IdBaseComponent, IdComponent, IdUDPBase, IdUDPServer,IdSocketHandle; type TForm1 = class(TForm) IdUDPServer1: TIdUDPServer; IdUDPClient1: TIdUDPClient; Button1: TButton; procedure Button1Click(Sender: TObject); procedure IdUDPServer1UDPRead(Sender: TObject; AData: TStream; ABinding: TIdSocketHandle); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin IdUDPClient1.Host := '127.0.0.1'; IdUDPClient1.Port := 6000; IdUDPClient1.ReceiveTimeout := 50;

不好意思，刚刚那个不全。 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, IdUDPClient, IdBaseComponent, IdComponent, IdUDPBase, IdUDPServer,IdSocketHandle; type TForm1 = class(TForm) IdUDPServer1: TIdUDPServer; IdUDPClient1: TIdUDPClient; Button1: TButton; procedure Button1Click(Sender: TObject); procedure IdUDPServer1UDPRead(Sender: TObject; AData: TStream; ABinding: TIdSocketHandle); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin IdUDPClient1.Host := '127.0.0.1'; IdUDPClient1.Port := 6000; IdUDPClient1.ReceiveTimeout := 50; IdUDPServer1.DefaultPort := 6000; IdUDPServer1.Active := True; IdUDPClient1.Send('123'); end; procedure TForm1.IdUDPServer1UDPRead(Sender: TObject; AData: TStream; ABinding: TIdSocketHandle); begin form1.Caption:=IdUDPServer1.ReceiveString(50); end; end.

試試 :

procedure TForm1.Button1Click(Sender: TObject);
begin
IdUDPServer1.DefaultPort := 6000;
IdUDPServer1.Active := True;
IdUDPClient1.Send('127.0.0.1',6000,'123');
end;    procedure TForm1.IdUDPServer1UDPRead(Sender: TObject; AData: TStream;
  ABinding: TIdSocketHandle);
var s: string;
begin
  SetLength(s, AData.Size);
  AData.Read(s[1], AData.Size);
  form1.Caption:=s;
end;    

引言: 試試 :

procedure TForm1.Button1Click(Sender: TObject);
begin
IdUDPServer1.DefaultPort := 6000;
IdUDPServer1.Active := True;
IdUDPClient1.Send('127.0.0.1',6000,'123');
end;    procedure TForm1.IdUDPServer1UDPRead(Sender: TObject; AData: TStream;
  ABinding: TIdSocketHandle);
var s: string;
begin
  SetLength(s, AData.Size);
  AData.Read(s[1], AData.Size);
  form1.Caption:=s;
end;    

多谢，TStream是什么类？以前还真没有注意到。

TStream 運用很廣喔,Delphi Help 有清楚的說明.

提問者您好:


以上回應是否已得到滿意的答覆？


若已得到滿意的答覆，請在一週內結案，否則請在一週內回覆還有什麼未盡事宜，不然，
將由版主(尚無版主之區域將由副站長或站長)採自由心證,選擇較合適之解答予以結案處理，
被選上之答題者同樣會有加分獎勵，同時發問者將受到扣 1 分的處分。不便之處，請見諒。


有問有答有結案，才能有良性的互動，良好的討論環境需要大家共同維護，感謝您的配合。

------
我是機器人,我不接受簡訊.