FileForums - Reflate

FileForums (https://fileforums.com/index.php)

- Conversion Tutorials (https://fileforums.com/forumdisplay.php?f=55)

- - Reflate (https://fileforums.com/showthread.php?t=97339)

Bilawal Reflate ISdone test

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 :)

update

Quote:

-1.00
progress showing done
optimized compressor
no more cls

How to decompress using inno setup?

Quote:

Originally Posted by ShadowEagle (Post 448998)

How to decompress using inno setup?

How lazy can some people get,

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

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.

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

Test Is Done But Very Slow In Inno Setup !

@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.

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

Quote:

Originally Posted by danswano (Post 449221)

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

Quote:

Originally Posted by Bilawal (Post 448975)

update

Quote:

Originally Posted by Razor12911 (Post 449009)

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.

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.

This is the arc.ini

Quote:

[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;

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 :/

I`m using recent script from Yener90.

I only found these lines:

Code:

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.