ssl httpserver 抛出“地址 00000000 的访问冲突。读取地址 00000000”错误

Question

此代码在运行时引发“地址 00000000 的访问冲突。读取地址 00000000”错误。我试图让服务器接受 ssl 请求，但遇到了真正的麻烦。

我还在调试文件夹中保存了 ssleay32.dll 和 libeay32.dll。任何帮助表示赞赏：

ServerIOHandler := TIdServerIOHandlerSSLOpenSSL.Create;

ServerIOHandler.SSLOptions.Method := sslvSSLv23;
ServerIOHandler.SSLOptions.Mode := sslmClient;
ServerIOHandler.SSLOptions.VerifyMode := [];
ServerIOHandler.SSLOptions.VerifyDepth := 0;

server:=TIdHTTPServer.Create;
server.IOHandler := ServerIOHandler;       
server.DefaultPort:=port;              
server.Bindings.DefaultPort:=port;

server.OnQuerySSLPort(8092, newBool);     //this is the line that throws the error

server.AutoStartSession:=true;
server.OnCommandGet:=idhttpserver1commandget;
server.SessionTimeOut:=360;
server.Active:=True;

Answer 1

您收到此错误的原因是OnQuerySSLPort 是一个事件，您尚未为其分配处理程序。

OnQuerySSLPort 的重点是你 应该编写一个方法，然后将其分配给TIdHTTPServer 对象的这个属性。 那么这个方法（你写的）将在每次触发事件时执行：

procedure TForm5.MyHandler(APort: TIdPort; var VUseSSL: Boolean);
begin
  // Do something
end;

procedure TForm5.FormCreate(Sender: TObject);
begin
  server := TIdHTTPServer.Create;
  server.OnQuerySSLPort := MyHandler;
  ...
end;

您可能更熟悉其他事件，例如 TForm.OnCreate、TTimer.OnExecute 等。它们的工作方式相同：您编写一段代码，然后对象在适当的时候执行来了。