我已经删除了一个 TIdHTTP 和一个 TIdSSLIOHandlerSocketOpenSSL,将 IdHTTP 的 IOHandler 设置为 SSL 处理程序,将 TIdSSLIOHandlerSocketOpenSSL 的模式设置为 sllmClient。然后在下面添加了按钮单击事件。我第一次从 WhichFailedToLoad 收到此错误。
显示,我第二次按下它的按钮。ssl dll 位于 .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;
蒂亚