Also die Datenmenge stimmt zu 100%.
Der fehler an der sache ist TmemoryStream.
Ich habe getestet :
Delphi-Quellcode:
str := TMemoryStream.Create;
str.LoadFromFile('C:\mt.exe');
str.Position :=0;
lcm := nil;
bow := 0;
outf := CreateFile('C:\Temp\mt-test.exe',GENERIC_WRITE,0,
@Security,CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0);
WriteFile( outf, str.memory, str.Size, bow, nil);
Und das klappt schon mal nicht. Also es liegt erstmal nicht an den Tape selbst,
es liegt daran die daten von TMemoryStream mittels WriteFile zu speichern.
Da muss ich noch dran feilen.
gruss
seba