عضویت العربیة English
امام صادق علیه‌السلام: صله رحم و نیکى، حساب (قیامت) را آسان و از گناهان جلوگیرى مى‌کند. کافى، ج2، ص157

بدست آوردن مسير جاري بانك اطلاعاتي با استفاده از تابع

بدست آوردن مسير جاري بانك اطلاعاتي با استفاده از تابع
دوشنبه 2 اسفند 1389  10:42 ق.ظ

بدست آوردن مسير جاري بانك اطلاعاتي با استفاده از تابع

 GetDataBaseDir

uses DbiProcs, DBiTypes;

function GetDataBaseDir(const Alias: string): string;
{* Will return the directory of the database given the alias
(without trailing backslash) *}
var
sp:PChar;
Res:pDBDesc;
begin
try
New(Res);
sp := StrAlloc(length(Alias) + 1);
StrPCopy(sp,Alias);
if DbiGetDatabaseDesc(sp,Res) = 0 then
Result := StrPas(Res^.szPhyName)
else
Result := '';
finally
StrDispose(sp);
Dispose(Res);
end;
end;
 


 

کریمی که جهان پاینده دارد               تواند حجتی را زنده دارد

 

دانلود پروژه و کارآموزی و کارافرینی

mohamadaminsh

mohamadaminsh
کاربر طلایی1
تاریخ عضویت : دی 1389 
تعداد پست ها : 25772
محل سکونت : خوزستان
دسترسی سریع به انجمن ها