Fehlerhafte JPG Dateien Reparieren?

[Dirkmswt]

Hallo Liebe Delphi Entwickler,
Seit geraumer Zeit habe ich mehrere JPG Bilder die mal durch einen Virus beschädigt wurden.
Seit längerem probiere ich den Datei-Header wieder zu Rekonstruieren.
Jetzt meine Frage:
Wie könnte ich die Dateien mit Delphi erstellten Anwendung Analysieren und den fehlerhaften Header neu in die Datei schreiben?
Habe im Netz entsprechende Software gefunden aber möchte sowas gerne selbst Realisieren.
Gruß Dirk

[Sunlight7]

Hallo, guck mal hier, vielleicht hilft Dir das etwas weiter:
Die ersten paar bytes einer Datei überschreiben

[Dirkmswt]

Idee ist ganz ok,aber hab prompt einen fehler gefunden
Count wurde nicht angegeben.
Habe es mit Werten und Variablen probiert aber bringt immer einen Fehler in Delphi 7!

[Sunlight7]

Nix verstehen.

Meinst Du Count bei meinem Quelltext oder bei Deinem, welche Fehler meinst Du?

[Dirkmswt]

Ich meine das der Quelltext so nicht übersetzt wird mit Delphi7
Borland hat wohl etwas geändert,wobei die struktur ok ist
Habe eine ähnliche Funktion zum Shreddern einer Datei die auch mit Blockwrite arbeitet und auch nur 3 Parameter benötigt,der Quelletext des Beispiels funktioniert leider nicht.
Hier mal mein Beispiel was ich meine.

Hier ein kleiner Teil meiner shredder funktion

BlockWrite(f, FillBuffer[j], Buffer);

Funktioniert ohne fehler!!!!


Der Teil bricht mit der Compilermeldung variable required ab

BlockWrite(F, PChar(Header), Length(Header));

Lustig oder?

[Sunlight7]

Versuch halt den 4. (optionalen) Parameter anzugeben.

BlockWrite(F, FillBuffer[j], BufferSize, NumWritten); Oder direkt die API aufrufen (CreateFile & WriteFile)

Was ist FillBuffer für ein Typ?

[Dirkmswt]

mit dem 4. operator klappt das auch nicht
Buffer hat bei mir den Wert 1024 als Konstante
Die funktion hat aber nur als Beispile gedient,mich Interessiert wie ich nur den Datei-Header bearbeiten kann und nicht wie ich eine Datei mit verschiedenen Strings vor Rekunstruktion schütze denn das weis ich schon

[shmia]

Delphi-Quellcode:

procedure WriteHeader(const FileName: string; const Header: AnsiString);
var
  fs: TFileStream;
begin
  fs := TFileStream.Create(FileName, fmOpenReadWrite);
  try
      fs.WriteBuffer(Header[1], Length(Header));
  finally
    fs.Free;
  end;
end;

Der korrekten Header lädst du am Besten aus einer Datei:

Delphi-Quellcode:

function FileToString(const FileName: string): AnsiString;
var
  fs: TFileStream;
  Len: Integer;
begin
  fs := TFileStream.Create(FileName, fmOpenRead or fmShareDenyWrite);
  try
    Len := fs.Size;
    SetLength(Result, Len);
    if Len > 0 then
      fs.ReadBuffer(Result[1], Len);
  finally
    fs.Free;
  end;
end;

Delphi-Quellcode:

var
   header : string;
begin
   header := FileToString('header.dat');
   WriteHeader('kaputt.jpeg', header);

[Dirkmswt]

Coole Sache,funktioniert ohne Fehler.
Danke.