INNO TROUBLESHOOT - Questions Here

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