Probleme mit File Of Byte/Char

[J Kadison]

Hallöle!
Ich hab da ein kleines Problem und zwar möchte ich Dateien verschlüsseln. Das wäre acuh nicht mein problem, aber wie bekomm ich denn die Dateien am besten eingelesen?
Ich hab zwar rausgeunden, dass ich das mit file of byte machen kann also:

Delphi-Quellcode:

var
  xy,
  m : File of Byte;
  x : integer;
begin
  Pfad := Edit1.Text;

  AssignFile(xy,pfad);
  reset(xy);

  rewrite(m,'C:\MeineDat.exe');
  reset(m);

  for x := 0 to FileSize(xy)-1 do begin

    read(xy,zz);
    write(m,zz);

  end;

  closefile(xy);
  closefile(m);
end;

Das hier ist absolut kein Problem. Ich bekommen genau die gleiche Datei.
Aber sobald ich das Ganze jetzt irgendwo zwischenspecihern möchte, geht das schief:

Delphi-Quellcode:

var
  l     : Array of Byte;
  xy,
  m     : File of Byte;
  x     : integer;
  Pfad,
  Pfad1 : String; 
begin
  Pfad  := Edit1.Text;
  Pfad1 := Edit2.Text;

  AssignFile(xy,pfad);
  reset(xy);

  rewrite(m,Pfad1);
  reset(m);

  SetLength(l, Filesize(xy));
  for x := 0 to FileSize(xy)-1 do begin
    read(xy,l[x]);
    // Hier hab ich noch was um den Fortschirtt anzuzeigen
  end;
  for x := 0 to Length(l) do begin
    write(m,l[x]);
    // Hier hab ich noch was um den Fortschirtt anzuzeigen
  end;
  closefile(xy);
  closefile(m);
end;

Kann mir jetzt irgendjemand sagen, wo hier der Fehler ist?
wenn ich kleine TXT dateien wähle werden die zwar noch nichtig angezeigt aber die dateigröße der beiden ist unterschiedlich. Sobald ich EXE dateien oder ähnliches nehme weichen diese verdammt arg ab und funktionieren uach nichtmehr!
Was mach ich denn Falsch
(kann ja nur ne kleinigkeit sein oder?)
Ich komm aber auch nach stundenlanger fehlersuche nicht drauf!

Kann ich das Gaze auch gleich als File of char öffnen (wenn ich dann den QT so anpasse damit es keine Fehler mehr gibt) oder kann ich deswegen auch wieder probleme mit den Dateien bekommen?

[taaktaak]

Zitat:

rewrite(m,Pfad1);
reset(m);

Was soll denn das?
Sollte das rewrite() nicht ein assignfile() sein?!

[Reinhard Kern]

Zitat von J Kadison:

Delphi-Quellcode:

  AssignFile(xy,pfad);
  reset(xy);

  rewrite(m,Pfad1);
  reset(m);

Das dürfte eigentlich nicht ohne Fehlermeldung übersetzt werden, da der (optionale) 2. Parameter von rewrite kein String ist. Rewrite wird genauso benutzt wie reset, aber ANSTELLE von reset. Also:

Delphi-Quellcode:

  AssignFile(m,Pfad1);
  rewrite(m);

Hier wird 1 Byte zuviel geschrieben:
  for x := 0 to Length(l) do begin

Zitat von J Kadison:

Kann ich das Gaze auch gleich als File of char öffnen (wenn ich dann den QT so anpasse damit es keine Fehler mehr gibt) oder kann ich deswegen auch wieder probleme mit den Dateien bekommen?

Besser nicht, wenn es keine Char sind - wahrscheinlich macht es aber keinen Unterschied, da Char nicht speziell behandelt werden, das ist nur beim Filetyp Text der Fall (soweit aus der Hilfe dazu was zu entnehmen ist). Ist auch zukunftssicherer, falls mal Unicode als Standard kommt.

Gruss Reinhard

[J Kadison]

Hallo Danke für die schnellen Antworten.
Bin grad leider nur auf durchmarsch.
Probiere es heute abend aus aber ihr meint, mit

Delphi-Quellcode:

var 
  l     : Array of Byte; 
  xy, 
  m     : File of Byte; 
  x     : integer; 
  Pfad, 
  Pfad1 : String; 
begin 
  Pfad  := Edit1.Text; 
  Pfad1 := Edit2.Text; 

  AssignFile(xy,pfad); 
  reset(xy); 

  
  //DAS HIER IST GEÄNDERT
  AssignFile(m,Pfad1); 
  rewrite(m);
  //BIS HIER

  SetLength(l, Filesize(xy)); 
  for x := 0 to FileSize(xy)-1 do begin 
    read(xy,l[x]); 
    // Hier hab ich noch was um den Fortschirtt anzuzeigen 
  end; 
  for x := 0 to Length(l)-1 {DAS IST AUCH GEÄNDERT} do begin 
    write(m,l[x]); 
    // Hier hab ich noch was um den Fortschirtt anzuzeigen 
  end; 
  closefile(xy); 
  closefile(m); 
end;

solte es gehen?! oder ist da ncoh was falsch ?

Aber kann das Length(1) zu einem größenunterschied von ~ 300KB führen?!?

[J Kadison]

Ja konnte es xD
Okay damit hat sich das Thema auch erledigt