paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-06 23:38:02 +02:00
Code Issues Packages Projects Releases Wiki Activity

pas2js: fixed compile with fpc 3.3.1

Browse Source
This commit is contained in:
mattias 2024-10-18 00:54:42 +02:00
parent 0d1a157aba
commit 2c5f51f2b7
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/pas2js/frmpas2jsinstaller.pas
View File

@ -23,7 +23,7 @@ interface
uses
Classes, SysUtils, fphttpclient, Zipper,
{$IFDEF HasSSL}
opensslsockets, // opensslsockets is needed for https download on windows
opensslsockets, ssockets, sslsockets, // opensslsockets is needed for https download on windows
{$ENDIF}
LazFileUtils, FPCAdds, LazLoggerBase, FileUtil,
Forms, Controls, Graphics, Dialogs, StdCtrls, ExtCtrls, ComCtrls,
@ -228,9 +228,9 @@ begin
FHTTPClient.OnHeaders:=@OnWorkerHeaders;
FHTTPClient.IOTimeout:=30000;
FHTTPClient.ConnectTimeout:=60000;
Client.VerifySSlCertificate:=True;
Client.OnVerifySSLCertificate:=@DoVerifyCertificate;
Client.AfterSocketHandlerCreate:=@DoHaveSocketHandler;
FHTTPClient.VerifySSlCertificate:=True;
FHTTPClient.OnVerifySSLCertificate:=@DoVerifyCertificate;
FHTTPClient.AfterSocketHandlerCreate:=@DoHaveSocketHandler;
try
HttpClient.Get(URL,Stream);