Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Accelerated download of fixed code #680

Open
ty154g opened this issue May 13, 2024 · 1 comment
Open

Accelerated download of fixed code #680

ty154g opened this issue May 13, 2024 · 1 comment

Comments

@ty154g
Copy link

ty154g commented May 13, 2024

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
Copy link
Owner

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

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
Projects
None yet
Development

No branches or pull requests

2 participants