.exe soll Kopie von sich selbst erstellen

[Viktorii]

Moin.

Wie der Titel schon sagt, soll eine .exe eine Kopie von sich selbst erstellen. Das ist mein Lösungsansatz:

Delphi-Quellcode:

  //--- Datei öffnen und einlesen
  FileHandle := FileOpen(Application.ExeName, fmShareDenyNone);
  FileLength := FileSeek(FileHandle,0,2);
  FileSeek(FileHandle,0,0);
  Buffer := PChar(AllocMem(FileLength + 1));
  BytesRead := FileRead(FileHandle, Buffer^, FileLength);
  FileClose(FileHandle);

  //--- Neue Datei schreiben
  FileHandle := FileCreate(ExtractFilePath(Application.ExeName) + '\Copy.exe', fmCreate);
  BytesWritten := FileWrite(FileHandle, Buffer, FileLength);
  FileClose(FileHandle);

Es wird zwar eine Datei erstellt, aber diese ist 0 Byte groß.

Wenn ich mir den Inhalt meiner lokalen Variablen anschauen, sehe ich, dass FileWrite schief geht:

Code:

Name des Ausdrucks   Wert
BytesRead   5762995
FileLength   5762995
BytesWritten   -1

Die Frage ist nur warum?

[WM_CLOSE]

Was sagt denn SysErrorMessage((GetLastError))?
[edit]
Assert(GetLastError()=0, SysErrorMessage(GetLastError()) nach jeder zeile, die die API aufruft.
[/edit]

[himitsu]

OpenFile, FileSeek, FileCreate, ReadFile und WriteFile liefern Fehlerwerte als Result, wie z.B. INVALID_HANDLE_VALUE und INVALID_SET_FILE_POINTER
und GetLastError funktioniert da auch.


PS: CopyFile oder ein schöner TFileStream?

Zitat:

Assert(GetLatError()=0, SysErrorMessage(GetLastError());

Nein.
GetLastError gibt den "letzten Fehlercode" zurück.
Es sagt nicht, ob der "letzte Befehl" erfolgreich war.
Also wenn schon, dann so Assert(FileHandle <> INVALID_HANDLE_VALUE, SysErrorMessage(GetLastError); .

[Viktorii]

Er meldet das hier

Zitat:

---------------------------
Benachrichtigung über Debugger-Exception
---------------------------
Im Projekt Update.exe ist eine Exception der Klasse EAssertionFailed mit der Meldung 'Der angegebene Benutzerpuffer ist für den angeforderten Vorgang nicht zulässig (D:\Eigene Dateien\RAD Studio\Projekte\Update\Controller\Updater.pas, Zeile 68)' aufgetreten.
---------------------------
Anhalten Fortsetzen Hilfe
---------------------------

Hilft das weiter? Mir hilft es nicht weiter...


@himitsu: CopyFile funktioniert gut und ist mit einer Zeile auch einfacher...

[WM_CLOSE]

Geht es denn mit einer andern Datei?
Ich vemute nämlich, dass sich eine exe datei nicht selbt lesen oder schreiben kann.
Vielleicht mal als readonly öffnen.

PS:welches ist den die Zeile 68?

[himitsu]

Das hilft soweit, daß du dir jetzt mal den Puffer anschaust.

Delphi-Quellcode:

FileRead(FileHandle, Buffer^, FileLength);
FileWrite(FileHandle, Buffer, FileLength);

. . . . . . . . . . . . . ^^^ und zwar hier

PS: PChar ... warum nicht Pointer?

[Viktorii]

Zeile 68 ist das assert nach FileWrite...

Das lesen der Datei scheint zu funktionieren. In dem Buffer sind auch die richtigen Daten (habe die ersten paar Bytes überflogen).

@himitsu: PChar, weil Delphi mir das per Refactoring vorgeschlagen hat. Habe ich nicht drüber nachgedacht und einfach weiter gedrückt... Pointer bringt aber keine Änderung...

[himitsu]

Hast du dir meinen Post ganz genau angesehn?
Was ist der Unterschied zwischen den beiden Befehlen? (abgesehn vom Funktionsnamen)

Zitat von Viktorii:

@himitsu: PChar, weil Delphi mir das per Refactoring vorgeschlagen hat. Habe ich nicht drüber nachgedacht und einfach weiter gedrückt... Pointer bringt aber keine Änderung...

Du hast da eher ein Byte-Array, mit der Länge von FileLength Bytes.
PChar ist bei dir aber ein WideChar-Array, also 2 Byte pro Zeichen.
Und ja, von der Funktion deines Programms her ist es vollkommen egal ... es ist halt ein logisches Problemchen, wo Pointer oder PByte oder notfalls PAnsiChar logischer wären.

[Aphton]

ExtractFilePath liefert einen String mit "\" am Schluss, deshalb gehört da kein + '\..' hin.
Ich schätze mal, es liegt daran!
Schau dir mal den Inhalt der Variable FileHandle an!
Dürfte nämlich den Wert INVALID_HANDLE_VALUE haben!

[p80286]

Zitat von himitsu:

Hast du dir meinen Post ganz genau angesehn?
Was ist der Unterschied zwischen den beiden Befehlen? (abgesehn vom Funktionsnamen)

Wer lesen kann ist klar im Vorteil!
Ich dachte schon Du hättest Dich vertippt.

Gruß
K-H