Note that there are some explanatory texts on larger screens.

plurals
  1. PO
    primarykey
    data
    text
    <p>Yes it is; you can use one of <a href="http://www.ararat.cz/synapse/doku.php/public%3ahowto%3asslplugin" rel="nofollow">the plugins</a> shipped with Synapse. As it's also mentioned there, the best is to use the <a href="http://synapse.ararat.cz/doc/help/ssl_openssl.html" rel="nofollow">ssl_openssl.pas</a>. If you decide to follow this one you will need except <a href="http://synapse.ararat.cz/doku.php/start" rel="nofollow">Sysapse</a> also the <a href="http://www.openssl.org/" rel="nofollow">OpenSSL library</a>. Author recommends <a href="ftp://ftp.openssl.org/source/openssl-0.9.7m.tar.gz" rel="nofollow">OpenSSL 0.9.7</a> but as he said on our local forum it seems to works also with OpenSSL 1.0.0d.</p> <p>Note if you are using D2009 up you will need a Unicode support which is not fully supported in version. Download the <a href="http://synalist.svn.sourceforge.net/viewvc/synalist/trunk.tar.gz?view=tar" rel="nofollow">latest version</a> instead.</p> <p>The following sample code receives first 1024 bytes as a response to the <code>HTTP GET</code> method of a secured website using SSL encryption. I've used for it <a href="http://sourceforge.net/projects/gnuwin32/files/openssl/0.9.8h/openssl-0.9.8h-bin.zip/download" rel="nofollow">OpenSSL 0.9.8h</a> with the <a href="http://synalist.svn.sourceforge.net/viewvc/synalist/trunk.tar.gz?view=tar" rel="nofollow">latest version of Synapse</a>. Note you need to put <code>libssl32.dll</code> and <code>libeay32.dll</code> from the <code>OpenSSL</code> package into your output directory to make it work properly. Let's have a form with a button and memo where we receive a result.</p> <pre><code>uses blcksock, synautil, synsock, ssl_openssl, ssl_openssl_lib; procedure TForm1.Button1Click(Sender: TObject); var Socket: TTCPBlockSocket; begin Socket := TTCPBlockSocket.Create; try Socket.Connect('www.yousendit.com', '443'); // connect to the host Socket.SSLDoConnect; // start SSL connection; only server has a certificate if Socket.LastError = 0 then begin Socket.SendString('GET' + CRLF); // request GET method Memo1.Text := Socket.RecvBufferStr(1024, 1000); // receive 1024 bytes end; finally Socket.Free; end; end; </code></pre>
    singulars
    1. This table or related slice is empty.
    1. This table or related slice is empty.
    1. This table or related slice is empty.
    plurals
    1. This table or related slice is empty.
    1. This table or related slice is empty.
    1. This table or related slice is empty.
    1. VO
      singulars
      1. This table or related slice is empty.
    2. VO
      singulars
      1. This table or related slice is empty.
    3. VO
      singulars
      1. This table or related slice is empty.
 

Querying!

 
Guidance

SQuiL has stopped working due to an internal error.

If you are curious you may find further information in the browser console, which is accessible through the devtools (F12).

Reload