19-06-2015, 04:07 PM
19-06-2015, 04:21 PM
20-06-2015, 05:54 PM
كلها معقده وغير مفهومه علما اني بحثت من قبل في جنبات المنتدى ولم اتوصل لحل
آمل منكم ضرب مثال بسيط ولكم الشكر
لان لي مده ابحث من غير جدوى
آمل منكم ضرب مثال بسيط ولكم الشكر
لان لي مده ابحث من غير جدوى
20-06-2015, 06:37 PM
PHP كود :
uses IdGlobal, IdHash, IdHashMessageDigest;
function md5(str:string):string;
begin
with TIdHashMessageDigest5.Create do
try
Result := LowerCase(TIdHash128.AsHex(HashValue(str)));
finally
Free;
end;
end;
20-06-2015, 06:46 PM
وجدت الحل والحمدلله
اضافة الوحده md5.pas الموجوده في احد الراوبط
ثم استدعاء البرسيجر من برنامجي
جزيت خيراً
اضافة الوحده md5.pas الموجوده في احد الراوبط
ثم استدعاء البرسيجر من برنامجي
PHP كود :
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
edit2.TexT:=MD5Print(MD5String(Edit1.Text));
end;
جزيت خيراً