04/11/23 14:53:57
>>95
procedure TForm1.IdTCPServer1NoCommandHandler(
ASender: TIdTCPServer;
const AData: String;
AThread: TIdPeerThread);
begin
try
// AData で各種コマンド処理
except
ShowMessage('例外発生');
end;
end;
コマンドハンドラ使わずに、こんな感じで処理するのは
どうかな、という話だったんだけどね。ま、好きな方を選んでくれっす。