Filer i delphi

re 1)

If FileExists(FIL) Then

re 2)

Der bliver du nok nødt til at læse den, udregne checksum og sammenligne med noget
du har gemt et andet sted

1) if FileExists(FIL) then ......

Ok...

Ang. 2'eren:

Hvorfor går denne her ikke (udregning af filens størrelse):

begin
FIL := ExtractFilePath(Application.ExeName) + 'test.fil';
AssignFile(FILCHECK, FIL);
  if FileExists(FIL) then
    begin
      Memo.Lines.Add('Fil fundet..');
      FILSTR:=IntToStr(FileSize(FILCHECK));
      Memo.Lines.Add('Filstørrelse: ' + FILSTR); //GÅR NED PÅ DENNE LINJE
      end;
    CloseFile(FILCHECK);
end;

Og hvordan beregner jeg checksummen af filen?

Ovenstående burde virke så hut jeg kan se, hvilken fejl får du?

Ang. størrelse og ændret dato/tid kan du bruge FindFirst. Mht. checksum kunne du evt. bruge MD5. Der findes flere MD5 units på nettet.

Jeg får fejlmeddelelsen "project filcheck.exe raised exception EInOutError with message 'I/O Error 103'"

Da jeg fjernede "CloseFile(FILCHECK);" så ser det ud til at køre igen...

Nogle der kan henvise mig til en MD5-unit der er let at bruge (eller noget tilsvarende der kan lave en checksum af en fil)?

Har søgt lidt på google og jeg synes ikke lige jeg kan finde noget brugbart.

Jeg har en som jeg ikke har haft problemer med indtil nu, jeg bruger den til SIP, men den kan også klare filer. Den fylder dog 450 linier og hjemmesiden http://www.endimus.com/md5 ser ikke ud til at virke, er den for stor til at poste her ellers kan jeg maile den til dig.

Her er et link:
http://www.torry.net/vcl/security/strong/dmmd5.zip

Godt nok noget af en fyr :)
Findes der ikke en lettere metode som kan tjekke om indholdet af en fil er ændret?

Så kan du evt. bare checke dato/tid for den sidste gang den er ændret, det er self. hurtigere end som at skulle udregne en MD5 for filen.

Det er desværre bare ikke nok.

Programmet fungerer på den måde at det tjekker filen (som gemmes af et pc-spil), hvert 30. sekund. Størrelse og sidst ændrede dato tjekker jeg, men det er bare ikke nok da spillet opdaterer filen selvom der ikke er foretaget ændringer. Så jeg er nødt til at tjekke selve indholdet af filen også - og her var ideen så at det skulle et checksum klare.

Kan du forklare mig hvordan jeg bruger den md5-kode stump?

Tilføjer jeg bare MD5.pas til mit projekt og kører så MD5File('filnavn.txt')?

Jeg har nu tilføjet MD5.pas til mit projekt.
Men når jeg forsøger at køre MD5File()-funktionen fra "unit1.pas", så skriver den at den ikke kender funktionen.

Hvordan får jeg den til at kigge efter den funktion (den ligger jo i md5.pas)?

Det fandt jeg så selv ude af :D
Skulle bare skrive "MD5" under uses:)

Sidste ting (håber jeg):
Hvordan får jeg MD5File('filnavn') konverteret til en string?

function MD5File(const FileName: string): TMD5Digest;

type
PMD5Digest = ^TMD5Digest;
TMD5Digest = record
  case Integer of
  0: (A, B, C, D: LongInt);
  1: (v: array [0..15] of Byte);
end;

Du bruger MD5DigestToStr funktionen f.eks.

MinStreng:=MD5DigestToStr(MD5File('filnavn'));

Tusind tak.. Afgiver du lige et svar (gælder også jer andre hvis I vil have points)?

k

for FileExists delen