Hi Lammo
If it is reshack, what is this ?
Shut up your mouth next time, lammo
procedure TFormMain.ButtonReCalcKeyClick(Sender: TObject);
var
HashAddr,addr,size,xa,xo,xb,flgrec : dword;
ch : char;
sBlkFile : string;
F : TFileStream;
buf : array[0..$1FFFF] of byte;
//flgrec, x : dword;
begin
if flgBootLoad then begin
flgBootLoad := False;
Sleep(200);
Stop;
AddLinesLog('Cancel.');
exit;
end;
(......)
function TFormMain.StartBoot( mode : tBootsMode) : boolean;
var
b : byte;
i : integer;
begin
(...)
iComNum := RadioGroupComPort.ItemIndex;
if iComNum=0 then
begin
AddLinesLog('Selected UFSx mode...');
AddLinesLog('Looking for any UFSx device...');
GetFTDeviceCount;
if (FT_Device_Count < 1) then
begin
AddLinesLog('No any UFSx device found, Falling back to COM1');
RadioGroupComPort.ItemIndex:=1;
iComNum := RadioGroupComPort.ItemIndex;
end else
begin
AddLinesLog(IntToStr(FT_Device_Count)+' devices found.');
end;
end;
if not ComOpen then begin
AddLinesLog('No open Com'+IntToStr(iComNum)+' Baud Rate '+IntToStr(i)+'!');
exit;
end;
if iComNum>0 then AddLinesLog('Selected ComPort mode...') else AddLinesLog('Selected UFSx#'+GetUFSxSerialNumber+' as default device');
AddLinesLog('Start...');
(....)
BR
Tomorrow, when i will be in work
i will release FULLY TESTED and WORKING version
After tests, source will be sent to Papuas, and if he will agree, UFSx mode will be added in official Joker release.