Need help with Synapse and https
lazarus / 38-Networking and Web Programming

----------------------------------------------------------------------
stab · 2013-10-30 15:58

Can someone explain how to use synapse and https.

I'm trying to connect to a site that requires requests with https and
have read:
http://synapse.ararat.cz/doku.php/public:howto:sslplugin

but I don't understand how I activate OpenSSL.
Made a small test-app and placed libeay32.dll and ssleay32.dll in app-
directory.
Below is the code.

Code: [Select]procedure TfrmHttpsTestMain.btnConnectHttpsClick(Sender:
TObject);
var
  Socket : TTCPBlockSocket;
  DLL1, DLL2 : THandle;
  lastError : integer;
  tempList : TStringList;
  libName, urldata : string;
begin
  DLL1 := LoadLibrary('libeay32.dll');
  DLL2 := LoadLibrary('ssleay32.dll');
  Socket := TTCPBlockSocket.Create;
  tempList := TStringList.Create;
  try
    Socket.Connect('www.arcgis.com', '443'); // connect to the host
    libName := Socket.SSL.LibName;
    Socket.SSLDoConnect; // start SSL connection; only server has a
certificate

    lastError := Socket.LastError;
    if Socket.LastError = 0 then
    begin
      urldata :=
      '/sharing/generateToken?referer=http://localhost/&expiration=15&
f=json';
      Socket.SendString('GET' + urldata + CRLF); // request GET method
      tempList.Text := Socket.RecvBufferStr(1024, 1000); // receive
1024 bytes
      tempList.SaveToFile('EsriAutenticering.txt');
    end;
  finally
    FreeAndNil(tempList);
    FreeAndNil(Socket);
    FreeLibrary(DLL1);
    FreeLibrary(DLL2);
  end;
end;

libName returns: ssl_none and lastError: 10092, so apparently I
haven't succeeded to load sll-support.

How should this be done?

Regards
stab

----------------------------------------------------------------------
theo · 2013-10-30 17:58

It think this should just work. (I'm not an expert)

Code: [Select]uses ssl_openssl, httpsend;
...

procedure TForm1.Button1Click(Sender: TObject);
begin
   HttpGetText('https://sslcheck.globalsign.com/de',Memo1.Lines);
end;

----------------------------------------------------------------------
stab · 2013-10-30 19:23

Thanks for your reply, but no luck.