Dosyaların md5'ine bakmak sıkıntı var.

[Shou]

Merhabalar şimdi ben güncelleme sistemi için md5 kontrolu yaptırıcam php da dosyanın md5'ine şöyle bakıyorum sorun yok :

Kod: Tümünü seç

<?php
$file = "deneme.zip"; // dosya.
ECHO md5_file($file);
?>

deneme.zip adlı dosyanın md5'i şu şekil :

Kod: Tümünü seç

ad08fe53a5e484ea568d60544ef3f05c

ama delphi 7 de şunları denedım yapamadım yada başka md5 bilgi verior aynısı çıkmıyor neden olabilir bakınız :

http://stackoverflow.com/questions/4479 ... 5-checksum
http://stackoverflow.com/questions/1952 ... e-function

fonksiyon :

Kod: Tümünü seç

function MD5(const fileName : string) : string;
var
  idmd5 : TIdHashMessageDigest5;
  fs : TFileStream;
begin
  idmd5 := TIdHashMessageDigest5.Create;
  fs := TFileStream.Create(fileName, fmOpenRead OR fmShareDenyWrite) ;
  try
    result := idmd5.AsHex(idmd5.HashValue(fs)) ;
  finally
    fs.Free;
    idmd5.Free;
  end;
end;

yardımcı olursanız çok sevinirim.

[Battosai]

Sizin kullandığınız kod file hash için... Aradığınız kodlar aşağıdaki linkte
http://www.koders.com/delphi/fid5A4F925 ... 5615E.aspx

[Shou]

Abi bu verdiğini nasıl kullanıcam .pas olarak verior örnek proje yaparmısın sana zahmet ?

[Shou]

yokmu yardımcı olacak dosyaların md5 ine nasıl bakıcam bu kodlarla?

[SimaWB]

Aslında linki verilen dosyada çok basit 2 komut var. GetMD5 ve StrMD5. Bunun için örnek proje istemeniz çok garip. O yüzden cevap yazmıyordum ama sonunda dayanamadım
PHP ile aynı MD5 bilgisini alırmısınız bilmem ama yapmanız gereken yaklaşık şu şekilde birşeyler

Kod: Tümünü seç

procedure TForm2.Button1Click(Sender: TObject);
var
  FS: TFileStream;
  Data: string;
begin
  FS := TFileStream.Create('Test.txt', fmOpenRead);
  try
    SetLength(Data, FS.Size);
    FS.Read(Data[1], FS.Size);
    Edit1.Text := StrMD5(Data);
  finally
   FS.Free;
  end;
end;

Ayrıca burayı okumanızı tavsiye ederim.

[Shou]

çok teşekkür ederim, fakat bir problem var hemen söylüyüm

php de verilen değer : 7e584b1b47d14a4142b41b4e53d8223d

delphide verilen : 7E584B1B47D14A4142B41B4E53D8223D

delphide büyük harf verıor neden aynısı vermesi için ne yapmam gerekıyor??

[unicorn64]

dönen değer aslında hex olduğu için sayısal anlamda bir farklılığı yok...
LowerCase ile küçük harfe çevirebilirsiniz...

[Shou]

çok teşekkür ederim dediğin gibi yaptım oldu çok sağolun