Ok dann frage ich ma:
Delphi-Quellcode:
var
lStream: TStream;
lStartPos: Int64;
lDataSize: Cardinal;
begin
lStream := TFileStream.Create(YourFileName, fmCreate); //stream erstellen?
try
// Memo speichern
lStartPos := 0; //wozu die Position heraus finden?
lStream.Position := lStream.Position + sizeof(lDataSize); //was wird hier gemacht?
YourMemo.Lines.SaveToStream(lStream); //is klar wird gespeichert
lDataSize := lStream.Position - lStartPos - sizeof(lDataSize); //was wird hier gemacht`?
lStream.Position := lStartPos; //warum den Zeiger verstellen?
lStream.Write(lDataSize, sizeof(lDataSize)); //was wird hier reingeschrieben?
// JPG speichern
lStartPos := lStream.Size; //größe setzen wo der stream begginnt?
lStream.Position := lStream.Position + sizeof(lDataSize); //was wird hier gemacht?
YourJPG.SaveToStream(lStream); // Speichern is klar
lDataSize := lStream.Position - lStartPos - sizeof(lDataSize); //??
lStream.Position := lStartPos; //Warum den Zeiger Verstellen?
lStream.Write(lDataSize, sizeof(lDataSize)); //was wird hier gemacht
finally
lStream.Free; //is klar
end;
Warum ich so viele Fragen habe, ich habe noch nie mit streams gearbeitet
