mORMot Open Source

  lTCPClient: TIdTCPClient;
  lSSLIOHandler : TIdSSLIOHandlerSocketOpenSSL;
begin
  //create and configure TCPclient and SSL handler
  lSSLIOHandler := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
  lSSLIOHandler.OnStatus := OnSSLStatus;
  lSSLIOHandler.OnStatusInfo := OnSSLStatusInfo;
  lSSLIOHandler.OnStatusInfoEx := OnSSLStatusInfoEx;
  lTCPClient := TIdTCPClient.Create(nil);
  lTCPClient.IOHandler := lSSLIOHandler;
  lSSLIOHandler.SSLOptions.SSLVersions := [sslvSSLv3, sslvSSLv2, sslvTLSv1, sslvTLSv1_1, sslvTLSv1_2];
  lSSLIOHandler.SSLOptions.Mode := sslmClient;
  lSSLIOHandler.SSLOptions.Method := sslvSSLv23;
  lTCPClient.Host := edtServer.Text;
  lTCPClient.Port := StrToUInt(edtPort.Text);
  lSSLIOHandler.Host := edtServer.Text;
  lSSLIOHandler.Port := StrToUInt(edtPort.Text);

  //connect is established succesfuly
  lTCPClient.Connect;

  //write HTTP request (copy from other mORMot client http log)
  lTCPClient.IOHandler.WriteLn('GET /Companies/Timestamp HTTP/1.1');
  lTCPClient.IOHandler.WriteLn('Cache-Control: no-cache');
  lTCPClient.IOHandler.WriteLn('Connection: Keep-Alive');
  lTCPClient.IOHandler.WriteLn('Pragma: no-cache');
  lTCPClient.IOHandler.WriteLn('Content-Type: application/json; charset=UTF-8');
  lTCPClient.IOHandler.WriteLn('Accept: */*');
  lTCPClient.IOHandler.WriteLn('User-Agent: Mozilla/5.0 (Windows; mORMot 1.18 TWinINet)');
  lTCPClient.IOHandler.WriteLn('Host: ' + edtServer.Text + ':' + edtPort.Text);
  lTCPClient.IOHandler.WriteLn('Accept-Encoding: gzip, deflate');

 //read data from server... waiting to end of timeout, response size is zero bytes
  lReadData := lTCPClient.IOHandler.AllData;

SSL StatusInfoEx SSL version: TLS1.2; type: [Handshake Done], Msg: [SSL negotiation finished successfully]; _type: [SSL_ST_CONNECT]
SSL StatusInfo, msg:: SSL status: "SSL negotiation finished successfully"
SSL StatusInfo, msg:: Cipher: name = ECDHE-RSA-AES256-GCM-SHA384; description = ECDHE-RSA-AES256-GCM-SHA384 TLSv1.2 Kx=ECDH     Au=RSA  Enc=AESGCM(256) Mac=AEAD
; bits = 256; version = TLSv1/SSLv3; 

procedure TFileDownloadUploadRest.Upload(Ctxt: TSQLRestServerURIContext);
var
  aFileName: string;
  aFilePath: string;
begin
    case Ctxt.Method of
    mPOST,mPUT:
    begin
      aFileName := 'R:\test.bin';
      FileFromString(Ctxt.Call.InBody, aFileName);
      Ctxt.Success;
    end;
end;

-----------------------------7e12762010838
Content-Disposition: form-data; name="fileToUpload"; filename="C:\Users\Jacek\Downloads\file.bin"
Content-Type: application/octet-stream

MZP      ˙˙  ¸       @                                     ş ´	Í!¸LÍ!This program must be run under Win32
$7