paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-21 05:01:50 +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 26c9e04c8e
commit 2dbbea1bbd
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 uses
Classes, SysUtils, fphttpclient, Zipper, Classes, SysUtils, fphttpclient, Zipper,
{$IFDEF HasSSL} {$IFDEF HasSSL}
opensslsockets, // opensslsockets is needed for https download on windows opensslsockets, ssockets, sslsockets, // opensslsockets is needed for https download on windows
{$ENDIF} {$ENDIF}
LazFileUtils, FPCAdds, LazLoggerBase, FileUtil, LazFileUtils, FPCAdds, LazLoggerBase, FileUtil,
Forms, Controls, Graphics, Dialogs, StdCtrls, ExtCtrls, ComCtrls, Forms, Controls, Graphics, Dialogs, StdCtrls, ExtCtrls, ComCtrls,
@ -228,9 +228,9 @@ begin
FHTTPClient.OnHeaders:=@OnWorkerHeaders; FHTTPClient.OnHeaders:=@OnWorkerHeaders;
FHTTPClient.IOTimeout:=30000; FHTTPClient.IOTimeout:=30000;
FHTTPClient.ConnectTimeout:=60000; FHTTPClient.ConnectTimeout:=60000;
Client.VerifySSlCertificate:=True; FHTTPClient.VerifySSlCertificate:=True;
Client.OnVerifySSLCertificate:=@DoVerifyCertificate; FHTTPClient.OnVerifySSLCertificate:=@DoVerifyCertificate;
Client.AfterSocketHandlerCreate:=@DoHaveSocketHandler; FHTTPClient.AfterSocketHandlerCreate:=@DoHaveSocketHandler;
try try
HttpClient.Get(URL,Stream); HttpClient.Get(URL,Stream);