Dateien,vor allem Bilder lassen sich nicht komplett auslesen

[Lenny-k]

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