درصورتی که از دیتابیس فاکس پرو در داس استفاده کنید برای استفاده از ان در ویندوز کاراکتر ها به هم ریخته و ناخوانا میشوند .توابع زیر در دلفی این مشکل را حل میکنند
ادامه مطلب ...
کامپوننت Ttable روی فرم بندازین
خصوصیت Tabletype رو روی ttFoxPro قرار بدین
خصوصیت Table name نام فایل dbf به همراه مسیرش رو بدین
Active رو True کنید .
با استفاده از کد زیر شما می توانید یک رشته را با دو الگوریتم SAH1 , MD5 که به طور همزمان استفاده میشوند Hash نمایید همچنین با تغییر در برنامه قادر خواهید بود فایل را نیز hash کنید تنها کافی است به جای HashStringAsHex از دستور HashStreamAsHex استفاده کنید .
uses idhash,idhashsha, IdHashMessageDigest
procedure hash(Code:string):string;
var idmd5: TIdHashMessageDigest5;
sthash: TIdHashSHA1;
str:string;
begin
idmd5 := TIdHashMessageDigest5.Create;
sthash := TIdHashSHA1.Create;
try
str := idmd5.HashStringAsHex(Code);
result:=sthash.HashStringAsHex(str);
finally
idmd5.Free;
sthash.Free;
end;
end;