HTPPS Problems
lazarus / 38-Networking and Web Programming

----------------------------------------------------------------------
JLWest · 2019-11-09 17:59

I'm missing something at line 32. Don't know what it is?
Can Someone take a look.

Thanks.


Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i  Uses ..
 fpopenssl,  openssl;     function TForm1.ReverseGeoCodeQuery(APRINT :
 String; ALAT : String;  ALON : String) : String; Var  Prefix       :
String = 'https://api.opencagedata.com/geocode/v1/json?q=';  QParmLat
   : String = '' ;  LatLonSpacer : String = '%2C+';  QParmLon     :
String = '';  KeySpacer    : String = '&key=';  Key          : String
= 'MYKEY';  PrettySpacer : String = '&pretty=';  PrettyValue  : String
= '';  HTTPSCall    : String = '';  Answer       : String =
''; begin;    { Not sure of this SSL initialization  Have tried it
both ways}//   InitSSLInterface;    PrettyValue := APRINT;   QPARMLat
:= ALat;   QPARMLon := ALon;   QPARMLat :=
FormatLatLont2SixPlaces(QPARMLat);   QPARMLon :=
FormatLatLont2SixPlaces(QPARMLon);   HTTPSCall := Prefix +  QParmLat +
LatLonSpacer + QParmLon + KeySpacer + Key + PrettySpacer +
PrettyValue;  //  HttpGetText('https://api.opencagedata.com/geocode/v1
/json?q=-22.6792%2C+14.5272&key=MYKEY&pretty=1',Memo1.Lines);//  
Answer   := HTTPSCall;//   Answer := 'https://api.opencagedata.com/geo
code/v1/json?q=-22.6792%2C+14.5272&key=MYKEY=1';  Result   :=
Answer;end;

----------------------------------------------------------------------
Thaddy · 2019-11-09 18:25

depends on version: from 3.2.0 onwards you will need to add
opensslsockets instead of openssl..

----------------------------------------------------------------------
JLWest · 2019-11-09 18:33

Changed the uses clause as follows. Now I get the following error.

uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls,
  StrUtils, opensslsockets;      // fpopenssl,  openssl;

           
Compile Project, Target: ReverseGeoCodeDemo.exe: Exit code 1, Errors:
1
unit1.pas(9,13) Fatal: Cannot find opensslsockets used by Unit1 of the
Project Inspector.

----------------------------------------------------------------------
Thaddy · 2019-11-09 18:37

you still need fpopenssl.....but not openssl, but opensslsockets.
These things are different, you removed too much!

I ran into that while testing some code by Marcus Fernström here:
https://medium.com/@marcusfernstrm/create-rest-apis-with-
freepascal-441e4aa447b7 this week and wanted to use that code on a
real https connection.

----------------------------------------------------------------------
JLWest · 2019-11-09 18:52

My use clause looks like this and I'm getting. Does this mean I don't
have opensslsockets loaded?

Compile Project, Target: ReverseGeoCodeDemo.exe: Exit code 1, Errors:
1
unit1.pas(9,13) Fatal: Cannot find opensslsockets used by Unit1 of the
Project Inspector.

uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls,
  StrUtils, opensslsockets, fpopenssl; //  openssl;

----------------------------------------------------------------------
Thaddy · 2019-11-09 19:09

Did you read my remark about fpc version 3.2.0?

----------------------------------------------------------------------
JLWest · 2019-11-09 19:21

Yes I did.

"depends on version: from 3.2.0 onwards you will need to add
opensslsockets instead of openssl.."

I assumed that meant add opensslsockets to the use clause in the unit1
of my project.

Am I wrong and it has to be added to as a .LDK