INNO TROUBLESHOOT - Questions Here

[Ele]

Originally Posted by Cesar82

It has other libraries like cmdout.dll (by Ele) but I don't know if it's public.

Yes, it wasn't a public Lib. I only use it on my personal projects. If anyone finds it useful, here it is.
Tested with: Inno 5.5.1.ee2(unicode) Enhanced and Inno 6.2.0(unicode).

Note: There're two separate libraries here. One is for Inno and the other is for Delphi.


Preview:

[Masquerade]

@Ele, thanks your plugin works great in my tests. I tried the dll by BLACKFIRE69 however I could not get it to work.

Is there a way to stop my memo from echoing the same thing twice?

Currently I have it set to echo the file currently being extracted however this means it echoes the same file over and over again until it moves onto the next file.

Here's the current code:

function ProgressCallback(OveralPct, CurrentPct: Integer; CurrentFile, TimeStr1, TimeStr2, TimeStr3: PAnsiChar): LongWord;
var
  CurTick: DWORD;
begin
    Memo.Lines.Add('Unpacking: ' + CurrentFile);

I thought maybe I could make a temporary string variable and comparing it with the current file and if so, skip echoing the current file, I am interested if anyone has any thoughts on this.

[DiCaPrIo]

Originally Posted by Masquerade

@Ele, thanks your plugin works great in my tests. I tried the dll by BLACKFIRE69 however I could not get it to work.

Is there a way to stop my memo from echoing the same thing twice?

Currently I have it set to echo the file currently being extracted however this means it echoes the same file over and over again until it moves onto the next file.

Here's the current code:

function ProgressCallback(OveralPct, CurrentPct: Integer; CurrentFile, TimeStr1, TimeStr2, TimeStr3: PAnsiChar): LongWord;
var
  CurTick: DWORD;
begin
    Memo.Lines.Add('Unpacking: ' + CurrentFile);

I thought maybe I could make a temporary string variable and comparing it with the current file and if so, skip echoing the current file, I am interested if anyone has any thoughts on this.

if not Memo.Lines.IndexOf('Unpacking: ' + CurrentFile) > -1 then
Memo.Lines.Add('Unpacking: ' + CurrentFile);

[Cesar82]

Originally Posted by Masquerade

function ProgressCallback(OveralPct, CurrentPct: Integer; CurrentFile, TimeStr1, TimeStr2, TimeStr3: PAnsiChar): LongWord;
var
  CurTick: DWORD;
begin
    Memo.Lines.Add('Unpacking: ' + CurrentFile);

I thought maybe I could make a temporary string variable and comparing it with the current file and if so, skip echoing the current file, I am interested if anyone has any thoughts on this.

Another option is to use it this way.
I don't know if the filenames are partially cut off or not.
Let's say you have 2 files with same names in somewhat similar paths then the second file will also be displayed.

Example:
1) Data1.bin destination {app}\bin
FileName = Bin32\File1.txt
FileName = Bin32\File2.txt
2) Data2.bin destination {app}\
FileName = Bin\Bin32\File1.txt
FileName = Bin\File3.txt

In this case there are similar names as long as it is not the same name as the previous line, it will be added.

if (Memo.Lines.Count = 0) or (CompareText(Memo.Lines.Strings[Memo.Lines.Count - 1], 'Unpacking: ' + CurrentFile) <> 0) then
  Memo.Lines.Add('Unpacking: ' + CurrentFile);

[Carldric Clement]

Originally Posted by Ele

Yes, it wasn't a public Lib. I only use it on my personal projects. If anyone finds it useful, here it is.
Tested with: Inno 5.5.1.ee2(unicode) Enhanced and Inno 6.2.0(unicode).

Note: There're two separate libraries here. One is for Inno and the other is for Delphi.


Preview:

Idk if it works with Delphi XE 10 I guess. But my problem is the ISCmdInit doesn't support the latest version of Delphi XE because I'm using FMX.