TIdHTTPServerは、DUnitテストで起動時にEThreadエラー6を発生させます。

Question

ユニットテストにローカルHTTPサーバーが必要です。

私はSetUpでTIdHTTPServerをアクティブ化しようとすると、それはETHREADメッセージで失敗します。

"Thread Error: descriptor not valid (6)"

これは私がそれを初期化する方法である：

type 
    TestMyUnit = class(TTestCase) 
... 
procedure TestMyUnit.SetUp; 
begin 
    FServer := TIdHTTPServer.Create(nil); 
    FServer.OnCommandGet := HTTPServerCommandGet; 
    FServer.Active := True; // <---- This will cause error 
end; 

はたぶんDUnitのとインディのTIdHTTPServerを使用して、いくつかの制限がありますフレームワーク？

• デルファイ2010
• インディ10

例外は、しかし、私は深くそれをトレースすることはできませんTIdListenerThread.Run PROC（IdCustomTCPServerユニット）

LIOHandler := Server.IOHandler.Accept(Binding, Self, LYarn); 

にこの行の後にどこかに投げられましたどうしてか分かりません。

Answer 1

を解決しました。私は自分自身で設計されたコンポーネントを持つ私自身のDPKを持っています（このユニットテストで使用されています）、Indyへの参照を持つユニットが1つありました。そのパッケージを再構築した後、コンパイラはIndyコンポーネントに新しいDCCReferenceを追加するように提案しました。パッケージを再インストールした後、単体テストのエラーが消えました。

私は因果関係を想像することはできませんが、今は大丈夫です。

Answer 2

ファイアウォールの設定でコントロールパネル> Windowsファイアウォール>詳細設定>インバウンドルールを実行するには、DUnit実行可能ファイルを許可する必要があります。

通常、実行可能ファイルが最初にポートを開こうとするとウィンドウが表示されますが、とにかくそこにルールがあることを確認します。

編集：「有効な記述ではない」

ちょうど、エラーをもう少し情報を追加するには、Winsockエラーのように見え、そしてあなたのコードは、ポートを開くことができないためである可能性があります。それはファイアウォールでブロックされている可能性があります（上記のように）、またはあなたがそのポートを開いている別のプログラムを持っている可能性があります...おそらくIISのような？私はどこか1024以上のポートを選択し、それを使用するようにWebサーバーを設定します（そして明らかにクライアント）。

編集2：私のTIdHttpServerを設定するための

私のコードは次のとおりです。

FServer := TIdHttpServer.Create(nil); 
FServer.DefaultPort := 7777; 
FServer.AutoStartSession := True; 
FServer.OnCommandGet := ServerCommandGet; 
FServer.OnCreatePostStream := ServerCreatePostStream; 

FServer.Active := True;