; if socket.SendBuf(s_Pack,SizeOf(s_Pack)) <>SizeOf(s_Pack) then
memo1.Lines.Add(''''send SGIP_Bind_Resp Error'''')
else
memo1.Lines.Add(''''Send SGIP_bind_Resp'''');
memo1.Lines.Add(ReReport.UserNumber);
memo1.Lines.Add(inttostr(ReReport.State));
end;
end;
procedure TForm1.ServerSocket1ClientError(Sender: TObject;
Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
var ErrorCode: Integer);
var
errorMsg:string;
begin
case ErrorEvent of
eeGeneral: errorMsg:=''''eeGeneral'''';
eeSend: errorMsg:=''''eeSend'''';
eeReceive: errorMsg:=''''eeReceive'''';
eeConnect: errorMsg:=''''eeConnect'''';
eeDisconnect: errorMsg:=''''eeDisconnect'''';
eeAccept: errorMsg:=''''eeAccept'''';
end;
ErrorCode:=0;
Memo1.Lines.Add(''''Socket Error:''''+errorMsg);
end;
end.
上一页 [1] [2] [3] [4] [5] |
