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?