نصب خودكار بانك اطلاعاتي

دوستان سلام
مي خوام ببينم چه جوري مي شه هنگام نصب برنامه نوشته شده در دلفي. بانك اطلاعاتي رو هم نصب كرد و ديگه نيازي به رفتن به برنامة Bdeadmin و دادن مسير ديتا بيس به اون نباشه. خودكار مسير ديتابيس رو تشخيص بده. ممنونم
:10:

متاسفانه متوجه سوالتون نشدم.
ولي يك سري توضيح ميدم و اميدوارم كه به دردتون بخوره.
1. توي BDE بايد يك سري مشخصات بدي. ولي اگه تيكه مسير رو " . "(نقطه) بزني و فايل رو كنار فايل EXE بزاري و اسم فايلو بدون مسير تايپ كني درست كار ميكنه.
2. توي ADO برا بخش ADOConnection بايد استرينگ رو كپي كني توي برنامه و مسير فايلو به صورتي كه ميخواي بهش بدي.
اينجوري اونم درست كار ميكنه.

حالا اگه توضيحاتم به دردت خورد بگو.
وگرنه توضيحات بيشتر بده.
نوع ديتابيس و كانكشنت رو حتما بنويس

با سلام

میتونی از برنامه های نصاب استفاده کنی مانند : InstallShield

نقل قول:

---

نوشته شده توسط Mavix [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

با سلام

میتونی از برنامه های نصاب استفاده کنی مانند : InstallShield

---

سلام دوست عزيز
چطوري ميشه از InstallShield استفاده كرد. توي كدوم قسمتش.

نقل قول:

---

نوشته شده توسط مرد مباح [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

متاسفانه متوجه سوالتون نشدم.
ولي يك سري توضيح ميدم و اميدوارم كه به دردتون بخوره.
1. توي BDE بايد يك سري مشخصات بدي. ولي اگه تيكه مسير رو " . "(نقطه) بزني و فايل رو كنار فايل EXE بزاري و اسم فايلو بدون مسير تايپ كني درست كار ميكنه.
2. توي ADO برا بخش ADOConnection بايد استرينگ رو كپي كني توي برنامه و مسير فايلو به صورتي كه ميخواي بهش بدي.
اينجوري اونم درست كار ميكنه.

حالا اگه توضيحاتم به دردت خورد بگو.
وگرنه توضيحات بيشتر بده.
نوع ديتابيس و كانكشنت رو حتما بنويس

---

مرد مباح عزيز بازم سلام
نوع بانك اطلاعاتي من 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 در هنگام نصب استفاده کنید و مثلا مسیر نصب دیتابیس رو در رجیستری ذخیره کنید و تو برنامه از اون استفاده کنید.

نقل قول:

---

نوشته شده توسط NoneForce [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

سلام
يك راه سريع براي نصب 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;

---

---

دوست عزيز سلام.
هر چي ميگردم اين فايل CAB رو پيدا نمي كنم. اصلا ندارمش. اخه مگه ميشه؟ چه جورياست؟ فكر نكنم نسخه اي كه نصب كردم ناقص باشه؟

نقل قول:

---

نوشته شده توسط romixery [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

دوست عزيز سلام.
هر چي ميگردم اين فايل CAB رو پيدا نمي كنم. اصلا ندارمش. اخه مگه ميشه؟ چه جورياست؟ فكر نكنم نسخه اي كه نصب كردم ناقص باشه؟

---

سلام
از اينجا ميتونيد بگيريد :

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

حجم : 3.5 مگابايت

بهتره كامپيوتر خودتون رو يه جستجو بكنيد. اگر BDE نصب شده باشد، اين فايل بايد روي سيستم شما وجود داشته باشد.

روي بعضي سيستم ها بخاطر رخ دادن يك خطاي Overflow مربوط به فضاي خالي ديسك، ممكن است خطاي نبود فضاي خالي كافي را دريافت كنيد، بهتر از قبل از منتظر كردن اين فايل ، بوسيله اين فايل آن مشكل را رفع كنيد :

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

اين فايل را در كنار فايل dll قرار دهيد و يكبار اجرا كنيد.

نقل قول:

---

اصلا ندارمش. اخه مگه ميشه؟ چه جورياست؟ فكر نكنم نسخه اي كه نصب كردم ناقص باشه؟

---

سلام عزیز

من از این آدرس پیداش کردم

C:\Program Files\Common Files\Borland Shared\BDE\bdeinst.cab

خوب یه نگاهی بکن پیداش میکنی. سرچ هم کنی که خیلی سریع تر پیداش میکنی.

راستی برای نصب خودکار هم نانفرس جان گفتند. اول چک کن ببین داریش یا نه

بعد میتونی اگر نبود نصبش کنی. میتونی همین دستورات نصب رو با دلفی اجرا کنی

کد:

---

Winexec ('cmd /c (your Command)',SW_shownormal);

---

به جای your Command همون دستور های نصب رو بگزارید.

موفق باشی.