老是出错!

fighter5d 2006-04-20 10:53:52
d7下的用UDP收发的一个小程序。但是一运行就出错老是说我没有声明undeclared identifier'tidsockethandel'
到底什么怎么了哦?。第一次接触indy;谢谢!

type
TForm1 = class(TForm)
IdUDPClient1: TIdUDPClient;
IdUDPServer1: TIdUDPServer;
CheckBox1: TCheckBox;
Edit1: TEdit;
Memo1: TMemo;
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure IdUDPServer1UDPRead(Sender: TObject; AData: TStream;
ABinding: TIdSocketHandle);///错就在这里,undeclared identifier'tidsockethandel'
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
bf:TMemoryStream;
begin
IdUDPClient1.Host:='127.0.0.1';
IdUDPClient1.Port:=9090;
IdUDPClient1.Active:=True;
if CheckBox1.Checked then
begin
IdUDPClient1.Send(Edit1.Text);
bf.Clear;
bf.Position:=0;
bf.LoadFromFile('test.bmp');
IdUDPClient1.SendBuffer(bf,bf.Size);
end;

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
IdUDPServer1.DefaultPort:=9090;
IdUDPServer1.Active:=True;
end;

procedure TForm1.IdUDPServer1UDPRead(Sender: TObject; AData: TStream;
ABinding: TIdSocketHandle);
var
tempstream:TStringStream;
begin
tempstream:=TStringStream.Create('');
tempstream.CopyFrom(AData,AData.Size);
Memo1.Lines.Add(tempstream.DataString);
tempstream.Free;

end;

end.
...全文
69 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
cuteant 2006-04-20
  • 打赏
  • 举报
回复
uses IdSocketHandle;
luckyboy97 2006-04-20
  • 打赏
  • 举报
回复
undeclared identifier'tidsockethandel'
意思是尚未定义的变量或者对象 ,仔细检查一下你的变量是否定义
fighter5d 2006-04-20
  • 打赏
  • 举报
回复
ding~~~~`

1,593

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 网络通信/分布式开发
社区管理员
  • 网络通信/分布式开发社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧