Hallo zusammen,
ich habe ein Problem. Und zwar möchte ich verschiedene Dateien anhand einer Md5Checksumme vergleichen. Wenn die Summen nicht übereinstimmen, sollen die Dateien ausgetauscht werden.
Diese Dateien werden vom Server über eine Get-Methode der
Indy-Komponenten runtergeladen. So liegt meine neue Datei erstmal als string in meinem Programm vor.
Ich hatte mir überlegt diesen string in eine Stringlist zu konvertieren und diese dann mit selben Namen der vorherigen Datei zu speichern.
Das klappt auch soweit, das Problem an der ganzen Sache ist, dass die Stringlist mir am Ende der Datei noch eine zusätzliche leer-Zeile speichert. Daher ist die Checksumme der neuen Datei immer noch anders als die Originaldatei und das soll natürlich nicht sein.
Deshalb hab ich mir überlegt die Funktion FileCreate und FileWrite zu benutzten. Aber das klappt auch nicht, weil die Funktionen in die Datei irgendwelche komischen Zeilen speichert, nur nicht den richtigen Inhalt. Aber vielleicht mache ich ja auch was falsch, also hier mal der Code:
Delphi-Quellcode:
var
handle: Integer;
begin
handle := FileCreate('
IrgendeineDatei.txt');
FileWrite(
handle, dateiInhalt, Length(dateiInhalt));
end;
'dateiInhalt' ist mein string, den ich per Get vom Server geholt habe und an diese Funktion übergebe.
Ich hoffe Ihr habt ein paar Tips für mich
Danke schonmal
Grüße Moonlight