TIdHTTPとTIdSSLIOHandlerSocketOpenSSLを削除し、IdHTTPのIOHandlerをSSLハンドラーに設定し、TIdSSLIOHandlerSocketOpenSSLのモードをsllmClientに設定しました。そして、下にボタンクリックイベントを追加しました。初めてこのエラーがWhichFailedToLoadから発生しました。
表示されますが、2回目にボタンを押すと機能します。ssldllは.exeディレクトリにあります。
このサービスはブラウザから正常に動作し、本番環境にあります。なぜ初めて動作しないのですか?
procedure TForm32.Button1Click(Sender: TObject);
var
output : TMemoryStream;
begin
output:=TMemoryStream.Create;
// IdOpenSSLSetLibPath(
try
IdHTTP1.get('https://localhost:444/Folder/service.svc',output);
output.position := 0;
memo1.lines.LoadFromStream(output);
except
on exception do
ShowMessage(WhichFailedToLoad());
end;
end;
tia