Ich will eine JPG-Datei auslesen, sie dann verändern und unter anderem Namen abspeichern.
Es werden aber nie alle Zeichen ausgelesen... Zum verzweifeln... Ich hoffe ihr wisst rat:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var infile,outfile:textfile;
ch:char;
begin
AssignFile(infile,'c:\elle.jpg');
reset(infile);
AssignFile(outfile,'c:\elle2.jpg');
rewrite(outfile);
while not eof(infile) do begin
read(infile,ch);
write(outfile,ch);
end;
CloseFile(infile);
CloseFile(outfile);
end;