私は送信と受信のtestappを持っています。送信者は TIdHTTP を使用します。
IdHTTP.ProxyParams.ProxyServer := '127.0.0.1';
IdHTTP.ProxyParams.ProxyPort := 8888;
IdHTTP.Request.ContentType := 'application/json';
..
lResponse := IdHTTP.Post('http://127.0.0.1:8085/ttposttest',lRequest); // Or localhost:8085
問題: Fiddler では、受信側からの応答が表示されますが、受信側への要求は表示されません。
受信アプリにもプロキシを設定する必要がありますか?
もしそうなら、コードのどこに?
Receiver は TWebModule 上の TWebAction であり、次のハンドラーがあります。
procedure TWebModuleWebServices.WebModuleWebServicesTTPostTestAction(
Sender: TObject; Request: TWebRequest; Response: TWebResponse;
var Handled: Boolean);
var S: String;
begin
S := Request.Content;
Handled := true;
end;
TIdHTTPWebBrokerBridge を使用します。
FWebBrokerBridge := TIdHTTPWebBrokerBridge.Create(Self);
// Register web module class.
FWebBrokerBridge.RegisterWebModuleClass(TWebModuleWebServices);
// Settings:
FWebBrokerBridge.DefaultPort := 8085;