【Delphi】 Indyコンポーネント【C++Builder】

【Delphi】 Indyコンポーネント【C++Builder】 at TECH

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

600:デフォルトの名無しさん
 06/04/17 01:57:31 
>>596 
ttp://members.chello.be/ws36637/ の TidCGIRunnerはどうよ？

601:デフォルトの名無しさん
 06/04/30 14:05:57 
ちょっと別の掲示板で投稿したのですが答えが得られないのでこちらに　こちらにマルチポストすいません 
TIdTCPServerでソケット通信をおこなっているのですが 
コネクトをして、メッセージの送受信まではうまくいっているのですが 
実際に送受信するメッセージは短文なのですぐに切断をサーバ側からしようとしています。 
それでDisconnectイベントの中でThreadをFreeしようとしているのですが 
エラーもでずにそこでだんまりになってしまいます。 
スレッド数に上限を設定していないので新たに接続しようとすれば再び新規スレッドで接続するので処理自体はおこなえるのですが 
Freeできないまま残ったスレッドが　たまってどんどんメモリを圧迫していきます。 
具体的には以下のようにしているのですがなぜFreeできないのか、どのようにすべきなのかがわかりません 
procedure TServerFrmMain.ServerConnect(AThread: TIdPeerThread); 
begin 
  LogList.Lines.Add(TimeToStr(Time)+' SQLリクエストを受け付けました'); 
end; 
procedure TServerFrmMain.ServerExecute(AThread: TIdPeerThread); 
begin 
  // なにもせず　ただ切断 
  AThread.Connection.Disconnect; 
end; 
procedure TServerFrmMain.ServerDisconnect(AThread: TIdPeerThread); 
begin 
  AThread.Free; 
  // ここまで処理がきません 
  LogList.Lines.Add (TimeToStr(Time)+' リクエストを完了しました'); 
end; 
よろしくお願いします 
------------------------------------------------ 
動作環境：Win2K Pro.　Delphi6pro. Up4　indy 9.0.18

次ページ