Reflate

[Simorq]

Bilawal Reflate ISdone test

[danswano]

Dear razor,
I've tried to figure out how to unpack using ISDone and CLS but i'm unable to find what to add to my Inno project
Can you guide me please?
Thanks

[Bilawal]

update

-1.00
progress showing done
optimized compressor
no more cls

[ShadowEagle]

How to decompress using inno setup?

[Razor12911]

Originally Posted by ShadowEagle

How to decompress using inno setup?

How lazy can some people get,

just add arc.ini and reflate.exe under [Files] then extracttemporaryfile, done.

[ShadowEagle]

Sorry Razor12911, i`m not lazy But i didn`t thought it`s so easy. Focused on "show progress while reflating" - this was what i thought, it`s not possible without CLS.

[Razor12911]

It is, as long as there is stdin and stdout in arc.ini, cls is not really needed, srep itself can work without cls.

[AHMED SAMI]

Test Is Done But Very Slow In Inno Setup !

[danswano]

@AHMED SAMI
What did you use other than reflate and srep to get such low size with "Act of Agression"? did you add msc or precomp?
can you provide your compression bat please?
Thanks.

[danswano]

@Bilawal
The CLS-reflate.dll is not working with the new refalte version Refl8v100.rar
Do you have an updated dll for Inno?
Thanks.

[Razor12911]

Originally Posted by danswano

@Bilawal
The CLS-reflate.dll is not working with the new refalte version Refl8v100.rar
Do you have an updated dll for Inno?
Thanks.

Originally Posted by Bilawal

update

Originally Posted by Razor12911

It is, as long as there is stdin and stdout in arc.ini, cls is not really needed, srep itself can work without cls.

CLS is not needed.

[danswano]

Thanks razor for you kind reply.
I've added this to my arc.ini
"[External compressor:reflate]
packcmd = reflate -c $$arcdatafile$$.tmp $$arcpackedfile$$.tmp
unpackcmd = reflate -d - - <stdin> <stdout>"
but i'm getting unknown method error.

Can you please give a proper arc.ini to include in my inno output.

[Razor12911]

This is the arc.ini

[External compressor:reflate]
header = 0
packcmd = reflate -c $$arcdatafile$$.tmp $$arcpackedfile$$.tmp
unpackcmd = reflate -d - - <stdin> <stdout>

From your end, make sure:
arc.ini, reflate.exe are extracted to the setup's temp directory.
All your IsArcExtract, must all have:
if not ISArcExtract (Component, Progress, ArchiveSource, Destination, '', false, Password, ExpandConstant('{tmp}\arc.ini'), True/False) then break;

[danswano]

Thanks razor, i did the missing part but got new error:
"Unable to write data to the disk" although theres a space and the setup.exe is run as admin :/

[ShadowEagle]

I`m using recent script from Yener90.

I only found these lines:

if (GetValStrES('FreeArcFile' + IntToStr(i)) <> '') and (MyError = False) then begin
            repeat
              Arcs:=ArcDecode(GetValStrES('FreeArcFile' + IntToStr(i)))
              if ((Arcs[4] = '') or (UpperCaser(Arcs[4]) = ActLangShort)) and (ComponentsCheckFA(Arcs[5])) then begin
                if not FileExists(PathEdit.Text + '\' + Arcs[0]) then
                  ShowRDForm;
                if MyError = False then begin
                  if Arcs[3] = '0' then begin
                    if not ISArcExtract ( 0, 0, PathEdit.Text + '\' + Arcs[0], Arcs[1], '', false, Arcs[6], ExpandConstant('{tmp}\arc.ini'), Arcs[1], false) then MyError := True;
                  end else begin
                    if not ISArcExtract ( 0, 0, PathEdit.Text + '\' + Arcs[0], Arcs[1], '', false, Arcs[6], '', Arcs[1], false) then MyError := True;
                    if MyError = True then break;
                    if not ISSRepExtract   ( 0, 0, Arcs[1] + '\' + Copy (ExtractFileName(PathEdit.Text + '\' + Arcs[0]), 0, Pos('.', ExtractFileName(PathEdit.Text + '\' + Arcs[0]))) + 'srep',Arcs[1] + '\' + Copy (ExtractFileName(PathEdit.Text + '\' + Arcs[0]), 0, Pos('.', ExtractFileName(PathEdit.Text + '\' + Arcs[0]))) + 'pcf', true) then  MyError := True ;
                    if MyError = True then break;
                    if not ISPrecompExtract( 0, 0, Arcs[1] + '\' + Copy (ExtractFileName(PathEdit.Text + '\' + Arcs[0]), 0, Pos('.', ExtractFileName(PathEdit.Text + '\' + Arcs[0]))) + 'pcf',Arcs[1] + '\' + Copy (ExtractFileName(PathEdit.Text + '\' + Arcs[0]), 0, Pos('.', ExtractFileName(PathEdit.Text + '\' + Arcs[0]))) + 'arc', true) then MyError := True ;
                    if MyError = True then break;
                    if not ISArcExtract ( 0, 0,  Arcs[1] + '\'  + Copy (ExtractFileName(PathEdit.Text + '\' + Arcs[0]), 0, Pos('.', ExtractFileName(PathEdit.Text + '\' + Arcs[0]))) + 'arc', Arcs[1], '', true, Arcs[6], '', Arcs[1], false) then MyError := True;
                  end;
                end;
              end;
              if MyError = True then break ;
              i:= i + 1
            until GetValStrES('FreeArcFile' + IntToStr(i)) = ''
          end;

How to modify these to get relfate working? Thanks in advance Razor.