1,594
社区成员
发帖
与我相关
我的任务
分享关于Socket的问题
我在服务器端的OnAccept事件里写
procedure TForm1.ServerSocketAccept(Sender: TObject;
Socket: TCustomWinSocket);
begin
IsServer := True;
Statusbar1.Panels[0].Text := 'Accept connection from:' + Socket.RemoteAddress ;
end;
为什么出现[Error] Unit1.pas(98): Undeclared identifier: 'IsServer'
请帮帮忙
procedure TForm1.ServerSocketAccept(Sender: TObject;
Socket: TCustomWinSocket);
begin
IsServer := True;
Statusbar1.Panels[0].Text := 'Accept connection from:' + Socket.RemoteAddress ;
end;
为什么出现[Error] Unit1.pas(98): Undeclared identifier: 'IsServer'
请帮帮忙
...全文
请发表友善的回复…
发表回复
CoolDesigner 2003-01-16
- 打赏
- 举报
你没定义变量！
bosidon 2003-01-13
- 打赏
- 举报
isServer 是what
ahpei 2003-01-13
- 打赏
- 举报
理由是没有定义标志符.
ahpei 2003-01-13
- 打赏
- 举报
var
isServer:Boolean;
....
isServer:Boolean;
....
