Quasi so?
Delphi-Quellcode:
procedure TForm1.Test;
var
str,str2: TMemoryStream;
fs: TFileStream;
bla: TStringStream;
begin
fs:=TFileStream.Create('U:\blubber.big',fmCreate);
bla:=TStringStream.Create;
bla.WriteString('13');
str:=TMemoryStream.Create;
str.LoadFromFile('C:\test.png');
str.Position:=0;
str2:=TMemoryStream.Create;
str2.LoadFromFile('C:\test2.png');
str2.Position:=0;
fs.CopyFrom(bla,bla.Size); //hier
fs.CopyFrom(str,str.Size);
fs.CopyFrom(str2,str2.Size);
str.Free;
str2.Free;
bla.Free;
fs.Free;
end;
Wenn du das so gemeint hast, dann funzt das immer noch nicht
//Edit: Wenn ich die markierte stelle auskommentiere gehts ohne fehler ...