Zitat von
SirThornberry:
das geht mit stream auch (und ist vor allem objectorientierter als "file of char" etc.
Delphi-Quellcode:
var LStream1, LStream2: TStream;
LCount: Integer;
LBuffer: Char;
begin
LStream1 := TFileStream.Create('c:\elle1.jpg', fmOpenRead);
LStream2 := TFileStream.Create('c:\elle2.jpg', fmCreate);
for LCount := 0 to LStream1.Size - 1 do
begin
LStream1.Read(LBuffer, 1);
//jetzt eventuell noch "LBuffer" verändern
LStream2.Write(LBuffer, 2);
end;
LStream2.Free;
LStream1.Free;
end;
hab ich soweit schon verstanden... der haken ist nur, die ausgabedatei ist doppelt so groß wie die eingabedatei und wird nicht angezeigt
[edit] aaaah, es muss LStream2.Write(LBuffer, 1); heißen! Wenn jetzt noch was nicht klappt, meld ich mich nochmal! Aber schonmal vielen Dank an Euch
