#16
|
||||
|
||||
![]()
XHashNext + ChecksumXNext - Updates:
Code:
What's new * Added some new error codes. * Updated file search. * Some improvements. latest version added to first post. , |
Sponsored Links |
#18
|
||||
|
||||
Nothing happen to see the Memo and also the Label which is quite on progressing hash generated on Delphi FMX. But the result works fine.
![]() Generate with the directory Code:
function GenerateHashMultiCallback(FileName: WideString; FileSize: extended; FileProgress, TotalProgress, TotalFiles, FileCounted, StatusCode: Integer): Boolean; begin Form5.Label9.Text := Format(XH_FILENAME, [ExtractFileName(FileName)]); Form5.Label10.Text := Format(XH_FILEPOSITION, [ByteOrTb((FileSize * FileProgress) / 100), ByteOrTb(FileSize)]); Form5.Label11.Text := Format(XH_PERCENTAGE, [FileProgress]); Form5.Label12.Text := Format(XH_PERCENTAGE, [TotalProgress]); Form5.ProgressBar1.Value := TotalProgress; case StatusCode of H_FILE_HASHING_DONE: Form5.Memo1.Lines.Add(FileName + ' ... Done!'); -1,-4,-5,-6,-7,-8,-9,-10,-12,-13: Form5.Memo1.Lines.Add('>>> Error code: ' + IntToStr(StatusCode)); end; Form5.Label14.Text := Format(XH_GENERATESTATUS, [FileCounted, TotalFiles]); ProcessMessages; Result := CancelAll; end; Last edited by Carldric Clement; 14-01-2023 at 09:11. |
#19
|
||||
|
||||
Quote:
XHashNext lib for Inno does not work on Delphi. ![]() try this one. PS: i haven't implemented error levels(StatusCode) in the callback functions for this example. you can add them to your project later. . Last edited by BLACKFIRE69; 03-04-2023 at 15:05. |
The Following User Says Thank You to BLACKFIRE69 For This Useful Post: | ||
Carldric Clement (14-01-2023) |
#20
|
||||
|
||||
Quote:
sorry, i forgot to mention that you can also use the Inno library for Delphi if the callback functions are method pointers. this is the example... . |
The Following User Says Thank You to BLACKFIRE69 For This Useful Post: | ||
Carldric Clement (15-01-2023) |
#22
|
||||
|
||||
Quote:
![]() and second, though I've tried many times to make it works with Unit 2. But unfortunately, some labels and progress bar doesn't work on unit 2 using Inno Library which case Form 2 or something that are callback functions. So I'll be hanging these DLLs cause works with a few Forms that I've made before. |
#23
|
|||
|
|||
code for inno script, for newbie
Quote:
Hello, this addon is very nice. I'm a little newbie, and I wanted to know if you could provide the code to display this screen, like the one attached to this post, so I can add it to my installer. thank you and a big hug from this Brazilian. |
#24
|
||||
|
||||
![]()
Update available!
Code:
* Updated file search. (Thanks to Cesar82) * Minor improvements. Check out the first post. , |
#25
|
||||
|
||||
__________________
¤ Life good be a Dream ¤ Last edited by Lord.Freddy; 31-07-2023 at 12:41. |
The Following User Says Thank You to Lord.Freddy For This Useful Post: | ||
BLACKFIRE69 (02-08-2023) |
![]() |
Thread Tools | |
Display Modes | |
|
|
![]() |
||||
Thread | Thread Starter | Forum | Replies | Last Post |
Best Compression For Archiving | brispuss | PC Games | 13 | 06-09-2023 06:49 |
Creating a compressed.bat and uncompressed.bat for game files | red01 | PC Games | 14 | 10-03-2019 07:01 |
Frontlines: Fuel of War | DCore | PC Games - CD/DVD Conversions | 6 | 31-05-2008 19:14 |
WHat is the point??!!! | Quertas of Atlantis | General Gaming | 6 | 27-05-2006 23:35 |