PDA

View Full Version : How to decompress an arc file if i selected a determinate component?


nizcoz
31-03-2017, 07:49
How to decompress an arc file if i selected a determinate component (from components list) when i use a isdone (ini) script?? (custom ISDone by dante1995).

shazzla
31-03-2017, 12:59
I want to know that,too.

EzzEldin16
31-03-2017, 13:29
I have a question on a game old one (Test drive : ferrari legend)
this game i tried every data scanner to know what kind of data streams are in there nothing gave anything no deflate no zlib no lz4 so what is it
bff extension inside pak folder

felice2011
31-03-2017, 14:42
I have a question on a game old one (Test drive : ferrari legend)
this game i tried every data scanner to know what kind of data streams are in there nothing gave anything no deflate no zlib no lz4 so what is it
bff extension inside pak folder

The BFF files are used for data backups as well as for creating software distribution packages, format similar to the archives "*.tar"
Compress with lzma or nz.

nizcoz
31-03-2017, 18:13
How to decompress an arc file if i selected a determinate component (from components list) when i use a isdone (ini) script?? (custom ISDone by dante1995).

nizcoz
01-04-2017, 04:38
This is part of code (important):


ISDoneError:=false;
i:=1;
if (GetIniString('FreearcFile' + IntToStr(i),'Archive','',ExpandConstant('{tmp}\Set up.ini')) <> '') then
begin
WizardForm.ProgressGauge.Max:=0;
repeat
WizardForm.ProgressGauge.Max:= WizardForm.ProgressGauge.Max + 1000;
i:= i + 1;
until (GetIniString('FreearcFile' + IntToStr(i),'Archive','',ExpandConstant('{tmp}\Set up.ini')) = '');
end;
if ISDoneInit(ExpandConstant('{tmp}\records.inf'), $F777, 0,0,0, MainForm.Handle, 512, @ProgressCallback) then begin
repeat
ChangeLanguage('English');
if not SrepInit('',512,0) then ISDoneError := True;
if not PrecompInit('',128,0) then ISDoneError := True;
if not FileSearchInit(true) then ISDoneError := True;
i:=1;
if (GetIniString('FreearcFile' + IntToStr(i),'Archive','',ExpandConstant('{tmp}\Set up.ini')) <> '') then
begin
SetArrayLength(Arc1,4);
SetArrayLength(Arc2,4);
repeat
Arc1[0]:=ExpandConstant(GetIniString('FreearcFile' + IntToStr(i),'Archive','',ExpandConstant('{tmp}\Set up.ini')));
Arc1[1]:=ExpandConstant(GetIniString('FreearcFile' + IntToStr(i),'Output','',ExpandConstant('{tmp}\Setu p.ini')));
Arc1[2]:=ExpandConstant(GetIniString('FreearcFile' + IntToStr(i),'Disk','1',ExpandConstant('{tmp}\Setup .ini')));
if Arc1[0] <> '' then
begin
if not FileExists(Arc1[0]) then
begin
if MsgBox(SetupMessage(msgChangeDiskTitle) +' '+'( '+ Arc1[2]+' )', mbError, MB_OKCANCEL) = IDCANCEL then ISDoneError := True;
end else begin
if not ISArcExtract( 0, 0, Arc1[0], Arc1[1], '', false, Arc1[3], ExpandConstant('{tmp}\arc.ini'), ExpandConstant('{app}'), False) then ISDoneError := True;
i:= i + 1;
end;
end;
until ((GetIniString('FreearcFile' + IntToStr(i),'Archive','',ExpandConstant('{tmp}\Set up.ini')) = '') or (ISDoneError = True));
end;
until true;
ISDoneStop;
end;
AllCancel;
HideControls;
WizardForm.ProgressGauge.Hide;
end;
if (CurStep=ssPostInstall) and ISDoneError then begin
Exec(ExpandConstant('{uninstallexe}'), '/SILENT','', sw_Hide, ewNoWait, ResultCode);
end;
end;



How to decompress an arc file if i selected a determinate component (from components list) when i use a isdone (ini) script??



And.... How to decompress 2 files but at a certain percentage each one? Similar to this but for my code (ISDone(ini) by dante1995):



if not ISArcExtract ( 0, 40, ExpandConstant('{src}\video1.arc'), ExpandConstant('{app}'), '', false, '', '', ExpandConstant('{app}'), notPCFonFLY {PCFonFLY}) then break;

if not ISArcExtract ( 0, 60, ExpandConstant('{src}\video2.arc'), ExpandConstant('{app}'), '', false, '', '', ExpandConstant('{app}'), notPCFonFLY {PCFonFLY}) then break;