دوستان سلام
مي خوام ببينم چه جوري مي شه هنگام نصب برنامه نوشته شده در دلفي. بانك اطلاعاتي رو هم نصب كرد و ديگه نيازي به رفتن به برنامة Bdeadmin و دادن مسير ديتا بيس به اون نباشه. خودكار مسير ديتابيس رو تشخيص بده. ممنونم
:10:
Printable View
دوستان سلام
مي خوام ببينم چه جوري مي شه هنگام نصب برنامه نوشته شده در دلفي. بانك اطلاعاتي رو هم نصب كرد و ديگه نيازي به رفتن به برنامة Bdeadmin و دادن مسير ديتا بيس به اون نباشه. خودكار مسير ديتابيس رو تشخيص بده. ممنونم
:10:
متاسفانه متوجه سوالتون نشدم.
ولي يك سري توضيح ميدم و اميدوارم كه به دردتون بخوره.
1. توي BDE بايد يك سري مشخصات بدي. ولي اگه تيكه مسير رو " . "(نقطه) بزني و فايل رو كنار فايل EXE بزاري و اسم فايلو بدون مسير تايپ كني درست كار ميكنه.
2. توي ADO برا بخش ADOConnection بايد استرينگ رو كپي كني توي برنامه و مسير فايلو به صورتي كه ميخواي بهش بدي.
اينجوري اونم درست كار ميكنه.
حالا اگه توضيحاتم به دردت خورد بگو.
وگرنه توضيحات بيشتر بده.
نوع ديتابيس و كانكشنت رو حتما بنويس
با سلام
میتونی از برنامه های نصاب استفاده کنی مانند : InstallShield
سلام دوست عزيزنقل قول:
چطوري ميشه از InstallShield استفاده كرد. توي كدوم قسمتش.
مرد مباح عزيز بازم سلامنقل قول:
نوع بانك اطلاعاتي من Prodex7 هستش و كانكشنم هم از نوع Table هست. ببنيد وقتي يك برنامه مي نويسين كه تو اون ديتابيس استفاده كردين. حالا مي خواين برنامه رو روي يك كامپيوتر ديگه اجرا كنيد. وقتي اينكار رو مي خواين بدين برنامه Error ميده و ميگه كه ديتا بيس برنامه نصب نشده. لذا بايد ديتا بيس رو با برنامة BDEADMIN نصب كنيد. اونم بصورت دستي. حالا من مي خوام وقتي كه برنامه رو نصب مي كنيم ديتابيس هم نصب بشه. اگه بتونيد كمكم كنيد ممنون ميشم.
سلام
يك راه سريع براي نصب BDE :
از مسير زير فايل BDEINST.DLL را از داخل فايل BDEINST.CAB بيرون بكشيد :
C:\Program Files\Borland\Common Files\BDE>EXTRACT /E BDEINST.CAB
بعد اونو رجيستر كنيد :
REGSVR32.EXE /S CABINST.DLL
به همين سادگي!
در ضمن ديتابيس نصب نميشه، BDE را بايد نصب كنيد.
اين هم دو روش براي فهميدن نصب بودن يا نبودن BDE و استخراج نسخه BDE :
کد:uses
BDE;
function CheckBDEInstalled: Boolean;
begin
Result := (dbiInit(nil) = DBIERR_NONE)
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if CheckBDEInstalled then
ShowMessage('BDE is installed.')
else
ShowMessage('BDE is not installed.')
end;
کد:uses
BDE;
{Without the Registry:}
procedure TForm1.Button1Click(Sender: TObject);
var
ThisVersion: SYSVersion;
begin
DbiGetSysVersion(ThisVersion);
ShowMessage('BORLAND DATABASE ENGINE VERSION = ' + IntToStr(ThisVersion.iVersion));
end;
{With the Registry:}
function GetBDEVersion: string;
var
h: hwnd;
ptr: Pointer;
proc: TSYSVerProc;
ver: SYSVersion;
idapi: string;
reg: TRegistry;
begin
try
reg.RootKey := HKEY_CLASSES_ROOT;
reg.OpenKey('CLSID\{FB99D710-18B9-11D0-A4CF-00A024C91936}\InProcServer32', False);
idapi := reg.ReadString('');
reg.CloseKey;
finally
reg.Free;
end;
Result := '<BDE Bulunamadi>';
h := LoadLibrary(PChar(idapi));
if h <> 0 then
try
ptr := GetProcAddress(h, 'DbiGetSysVersion');
if ptr <> nil then
begin
proc := ptr;
Proc(Ver);
Result := IntToStr(ver.iVersion);
Insert('.', Result, 2);
end;
finally
FreeLibrary(h);
end;
end;
اینستال شیلد یه ماژول برای نصب BDE دارهنقل قول:
يك راه سريع براي نصب BDE :
در ضمن شما میتونید از متغیرهای داخلی InstallShield در هنگام نصب استفاده کنید و مثلا مسیر نصب دیتابیس رو در رجیستری ذخیره کنید و تو برنامه از اون استفاده کنید.
دوست عزيز سلام.نقل قول:
هر چي ميگردم اين فايل CAB رو پيدا نمي كنم. اصلا ندارمش. اخه مگه ميشه؟ چه جورياست؟ فكر نكنم نسخه اي كه نصب كردم ناقص باشه؟
سلامنقل قول:
از اينجا ميتونيد بگيريد :
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
حجم : 3.5 مگابايت
بهتره كامپيوتر خودتون رو يه جستجو بكنيد. اگر BDE نصب شده باشد، اين فايل بايد روي سيستم شما وجود داشته باشد.
روي بعضي سيستم ها بخاطر رخ دادن يك خطاي Overflow مربوط به فضاي خالي ديسك، ممكن است خطاي نبود فضاي خالي كافي را دريافت كنيد، بهتر از قبل از منتظر كردن اين فايل ، بوسيله اين فايل آن مشكل را رفع كنيد :
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
اين فايل را در كنار فايل dll قرار دهيد و يكبار اجرا كنيد.
سلام عزیزنقل قول:
اصلا ندارمش. اخه مگه ميشه؟ چه جورياست؟ فكر نكنم نسخه اي كه نصب كردم ناقص باشه؟
من از این آدرس پیداش کردم
C:\Program Files\Common Files\Borland Shared\BDE\bdeinst.cab
خوب یه نگاهی بکن پیداش میکنی. سرچ هم کنی که خیلی سریع تر پیداش میکنی.
راستی برای نصب خودکار هم نانفرس جان گفتند. اول چک کن ببین داریش یا نه
بعد میتونی اگر نبود نصبش کنی. میتونی همین دستورات نصب رو با دلفی اجرا کنی
به جای your Command همون دستور های نصب رو بگزارید.کد:Winexec ('cmd /c (your Command)',SW_shownormal);
موفق باشی.
دوستان عزيز سلام
ممنون. فايل رو پيدا كردم. از كمكتون ممنون
[php]بعد اونو ريجستر كنيد[/php]
دوست عزيز من همين جور كه گفتم فايل رو پيدا كردم. ولي اينكه اونو بايد ريجستر كنم يعني چي؟ چه جوري مي شه اين كار رو كرد. بازم ممنون از همه شما نوابغ!!!
سلامنقل قول:
لطفا پستها را به دقت بخوانيد. فكر كنم توضيح كامل در اين مورد داده شده است.