我正在使用Synapse 库，今天我想知道如何通过 post 请求将字符串发送到使用 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。