LongDirtyAnimAlf / fpcupdeluxe

A GUI based installer for FPC and Lazarus
476 stars 88 forks source link

Accelerated download of fixed code #680

Open ty154g opened 2 months ago

ty154g commented 2 months ago

When I built the cross-build environment, GFW restrictions for China caused problems with completing the cross-kit download. When there was an accelerated mirror site during the manual download, I modified the fpcupdeluxemainform.pas file to add the code for inserting the image address before the download work began. Now I can finally build a cross-compilation environment with fpcupdeluxe quickly and easily.

fpcupdeluxe.ini: [GitProxySet] purl=https://gh.dddlc.top/

fpcupdeluxemainform.pas: 2492: function TForm1.ProcessCrossCompiler(Sender: TObject):boolean; var BinsFileName,LibsFileName,BaseBinsURL,BaseLibsURL,BinPath,LibPath:string; 2495: ToolTargetPath,ToolTargetFile,UnZipper,s, {} t {} :string; warning,success,verbose:boolean; IncludeLCL,ZipFile:boolean; aList: TStringList;

...

3362: // 地址修正 t := IniPropStorageApp.IniSection; IniPropStorageApp.IniSection := 'GitProxySet'; //.Active then IniPropStorageApp.Active := true; IniPropStorageApp.WriteString('purl', IniPropStorageApp.ReadString('purl', 'https://gh.ddlc.top/')); BaseBinsURL := IniPropStorageApp.ReadString('purl', 'https://gh.ddlc.top/')+BaseBinsURL; IniPropStorageApp.IniSection := t; 3369: if success then begin

...

3389: // 地址修正 t := IniPropStorageApp.IniSection; IniPropStorageApp.IniSection := 'GitProxySet'; //.Active then IniPropStorageApp.Active := true; IniPropStorageApp.WriteString('purl', IniPropStorageApp.ReadString('purl', 'https://gh.ddlc.top/')); BaseLibsURL := IniPropStorageApp.ReadString('purl', 'https://gh.ddlc.top/')+BaseLibsURL; IniPropStorageApp.IniSection := t; 3396: if success then begin

LongDirtyAnimAlf commented 2 months ago

This is a good feature. Will try to find some time to implement this according to your proposal. Thanks.