Moin,
leider scheint er bei flgendem Code absolut nichts bei FIleRead einzulesen
Delphi-Quellcode:
const
SzaSize=488960;
fsSize=80896;
{...}
function extractExe: boolean;
var
aHdl,bHdl,t: Integer;
SzaBuf: Array[1..SzaSize] of byte;
fsBuf: Array[1..fsSize] of byte;
aHdl:=FileOpen(Application.ExeName, fmShareDenyNone or fmOpenRead);
bHdl:=FileCreate(FMDir+'Stadia.tex\7za.exe');
t:=FileSeek(aHdl, SzaSize+fsSize, 2);
t:=FileRead(aHdl, SzaBuf, SizeOf(SzaBuf));
t:=SizeOf(SzaBuf);
t:=FileWrite(bHdl, SzaBuf, SizeOf(SzaBuf));
FileClose(bHdl);
Irgendwelche Ideen, was falsch gelaufen sein könnte?
Kann Delphi evtl. nur einen FileStream zur zeit bedienen (wobei dann der Sinn von handles wohl in Frage gestellt wäre
) ?