откуда и как инсталировать BDE

← →
FAS (2003-01-18 01:12) [0]

у меня Delphi6 при работе на моем компьютере все нормально, но на клиентском компьютере программа не работает нужна BDE где ее можно взять и как инсталировать?

← →
Johnmen (2003-01-18 01:31) [1]

Оттуда же, откуда брал для своего компа...:)))

← →
Pat (2003-01-18 11:33) [2]

Вариант 1: Install Shield, делай дистрибутив.
Вариант 2:
Кинь в папку с exe"шником:
BANTAM.DLL
CHARSET.CVB
IDAPI32.DLL
IDBAT32.DLL
IDDBAS32.DLL
IDODBC32.DLL
idpdx32.dll
IDR20009.DLL
IDSQL32.DLL
OTHER.BTL

Правда, если используешь alias"ы, придется подключаться через TDatabase (добавится 1 строчка в код :-))) или во всех таблицах писать DatabaseName = <путь к базе>

P.S. Не забудь сжать DLL"ки UPX"ом :-))

← →
Ahmad K (2003-01-20 02:21) [3]

> Вариант 1: Install Shield, делай дистрибутив.
> Вариант 2:
> Кинь в папку с exe"шником:
> BANTAM.DLL
> CHARSET.CVB
> IDAPI32.DLL
> IDBAT32.DLL
> IDDBAS32.DLL
> IDODBC32.DLL
> idpdx32.dll
> IDR20009.DLL
> IDSQL32.DLL
> OTHER.BTL
>
> Правда, если используешь alias"ы, придется подключаться
> через TDatabase (добавится 1 строчка в код :-))) или во
> всех таблицах писать DatabaseName = <путь к базе>
>
> P.S. Не забудь сжать DLL"ки UPX"ом :-))

НЕ КАТИТ! не первое не второе...
ЧТО ДЕЛАТЬ???
КАК БЫТЬ???

← →
Pat (2003-01-20 03:39) [4]

>Ahmad K (20.01.03 02:21)
куда, кто и что не катит?

неужели даже с IS не получилось?

← →
Troy (2003-01-20 07:55) [5]

Найди у себя в дистрибутиве Дельфи файл BdeInst.dll (она примерно 3.8 мега) и на компе клиента зарегистрируй её как COM-сервер.
regsvr32.exe BdeInst.dll /i
И установится BDE.

← →
BorisUK (2003-01-20 09:39) [6]

> НЕ КАТИТ! не первое не второе...

Создавай программы не испольшующие BDE.
ИМХО - так даже правильнее.

← →
koks (2003-01-20 09:47) [7]

Я в свое время много экспериментировал с установкой BDE. Пришел к выводу, что самые верняковый вариант это:
- Ставишь Delphi на клиентскую машину с BDE
- Сносишь Delphi, оставляя BDE.

Ну а если устанавливаешь удаленно - тогда только Installshield

← →
Identifikator Borna (2003-01-20 09:48) [8]

>> BorisUK © (20.01.03 09:39)
Согласен. Была у меня аналогичная ситуация, переделал программу на работу через компоненты ADO за день, и считаю что не зря, нет проблем с BDE, и дистрибутив поменьше :)))

← →
Anatoly Podgoretsky (2003-01-20 11:03) [9]

koks © (20.01.03 09:47)
Если уэ такой дикий способ, может тогда не ставить Дельфи, что бы не сносить, а ставить только BDE?

← →
Anatoly Podgoretsky (2003-01-20 11:07) [10]

Identifikator Borna (20.01.03 09:48)
Да ты что, посмотрим на твое поменьше, когда будешь инсталлировать на компьютер где нет адо или части ее компонент или не та версия, что ты тогда скажешь про ее размер, я думаю взвоешь.

ЗЫ: против использования самого АДО возражений нет, правда если бы не Парадокс, он без БДЕ не работает, его придется ставить или самому или в послледних версиях АДО это сделает сам.

← →
Troy (2003-01-20 12:10) [11]

Для добавления алиаса можешь использовать следующий код. Хотелось бы предупредить, для добавления алиаса для Interbase необходимо скописровать дополнительный файл SqlInt32.dll в директорию BDE и внести следующие данные в реестр

<---- Cut from here ---->
REGEDIT4

[HKEY_LOCAL_MACHINE\SOFTWARE\Borland\Database Engine\Settings\DRIVERS\INTRBASE]

[HKEY_LOCAL_MACHINE\SOFTWARE\Borland\Database Engine\Settings\DRIVERS\INTRBASE\DB OPEN]
"SERVER NAME"="IB_SERVER:/PATH/DATABASE.GDB"
"USER NAME"="MYNAME"
"OPEN MODE"="READ/WRITE"
"SCHEMA CACHE SIZE"="8"
"LANGDRIVER"=""
"SQLQRYMODE"=""
"SQLPASSTHRU MODE"="SHARED AUTOCOMMIT"
"SCHEMA CACHE TIME"="-1"
"MAX ROWS"="-1"
"BATCH COUNT"="200"
"ENABLE SCHEMA CACHE"="FALSE"
"SCHEMA CACHE DIR"=""
"ENABLE BCD"="FALSE"
"BLOBS TO CACHE"="64"
"BLOB SIZE"="32"
"WAIT ON LOCKS"="FALSE"
"COMMIT RETAIN"="FALSE"
"ROLE NAME"=""

[HKEY_LOCAL_MACHINE\SOFTWARE\Borland\Database Engine\Settings\DRIVERS\INTRBASE\INIT]
"VERSION"="4.0"
"TYPE"="SERVER"
"DLL32"="SQLINT32.DLL"
"DRIVER FLAGS"=""
"TRACE MODE"="0"
<---- Cut to here ---->

Сохраните в файл с расширением .reg
А вот и сам код программы:

{
program adds a alias to the BDE configuration file
parameters:
0: programname + path (standard parameter of OS)
1: Name of alias
if begins with "-" then delete first if exist
else do nothing if exist
2: path to data directory
3: BDE driver name
}

program AddAlias;

uses
Windows, SysUtils, BDE;

var
GAlias: string = "New";
GDriver: string = szPARADOX;
GAliasDir: string;
FParams: string;
FDrvName: string;
FDelete: boolean;
i: integer;

function StrToOem(const AnsiStr: string): string;
begin
SetLength(Result, Length(AnsiStr));
if Length(Result) > 0 then
CharToOem(PChar(AnsiStr), PChar(Result));
end;

{---------------------------------------------------------------}
begin
for i := 1 to ParamCount do
begin
case i of
1: GAlias := ParamStr(1);
2: GAliasDir := ParamStr(2);
3: GDriver := ParamStr(3);
end;
end;
//default alias
if GAliasDir = "" then GAliasDir := ExtractFilePath(ParamStr(0)) + "Data";
//should delete alias first? separate alias name
if GAlias[1] = "-" then
begin
FDelete := True;
//GAlias := Copy(GAlias, 1, Length(GAlias)); Bug
Delete(GAlias, 1, 1); //Fix by Savierhs Lopez Artega
end else FDelete := False;
FDrvName := GDriver;
//set Parameters, the driver and server name
if (CompareText(GDriver, szCFGDBSTANDARD) = 0) or
(CompareText(GDriver, szPARADOX) = 0) or
(CompareText(GDriver, szDBASE) = 0) or
(CompareText(GDriver, szFOXPRO) = 0) or
(CompareText(GDriver, szASCII) = 0) then
begin
if (CompareText(GDriver, szCFGDBSTANDARD) = 0) then FDrvName := szPARADOX;
//set parameters for the new alias
FParams := Format("%s:"%s"", [szCFGDBPATH, GAliasDir]) +
Format(";%s:"%s"", [szCFGDBDEFAULTDRIVER, GDriver]) +
Format(";%s:"%s"", [szCFGDBENABLEBCD, szCFGFALSE]);
end else begin
if (CompareText(GDriver, "INTRBASE") = 0)
then FParams := Format("%s:"%s"", [szSERVERNAME, GAliasDir])
else FParams := Format("%s:"%s"", [szDATABASENAME, GAliasDir]);
//add other Parameters here !!!!!!!!!!!!!!!!!
end;
DbiInit(nil);
try
if FDelete then
try
DbiDeleteAlias(nil, PChar(GAlias));
except
end;
try
DbiAddAlias(nil, PChar(StrToOem(GAlias)),
PChar(StrToOem(FDrvName)),
PChar(FParams), True);
DbiCfgSave(nil, nil, True);
except
end;
finally
DbiExit();
end;
end.
{---------------------------------------------------------------}

← →
AIV (2003-01-22 17:57) [12]

← →
AIV (2003-01-22 21:48) [13]

сходите на
http://www.deploymaster.com/bde.html
и там всё поймёте !...

откуда и как инсталировать BDE Найти похожие ветки