Question

我正在使用Synapse Library，今天我想知道如何通过邮寄请求将字符串发送到使用ssl的网络服务器。

这是我现有的代码：

procedure TForm1.syn;
var
  Position: Integer;
  URL, Params: string;
  Response: TMemoryStream;
  SynHttp: THTTPSend;
  Socket: TTCPBlockSocket;
begin
  Response := TMemoryStream.Create;
  Socket := TTCPBlockSocket.Create;
  SynHttp := THTTPSend.Create;
  URL := 'https://gitlab.com';

  try
       Position := Pos('https', URL);
       if Position <> 0 then begin //
         SynHttp.Sock.CreateWithSSL(TSSLOpenSSL);
         SynHttp.Sock.SSLDoConnect;
         // Here i wanna do a Postrequest to the ssl webserver
       end
       else
       // Here i wanna do a Postrequest to the non-ssl webserver
  finally
    Socket.Free;
    Response.Free;
    SynHttp.Free;
  end;
end;

我想连接到ssl网络服务器，如果我连接成功，我想对网络服务器执行POST。

Answer 1

你可以使用

SendString

例程，从他们的例子Using Tcp With Ssl On Tcp Client

开始

LE：从评论OP帖子中我相信一个好的开始就是这个问题

How to establish a secure connection by using Synapse?

如何使用Synapse lib通过ssl发布字符串？

1 个答案: