Fórum Pq meu DB não pega nos outros PCs? #233445

3- Como executar uma aplicação com Paradox sem tê-lo instalado na maquina. Enviado por Fabiano Novaes Ferreira fabianonf@ig.com.br Cheguei no resultado final abaixo na necessidade de criar programas com bancos de dados que pudessem ser executados a partir de um Zip Drive ou de um Pen Drive. O problema era que a máquina onde o sistema poderia ser usado, não necessariamente tem o BDE instalado. Com as configurações abaixo você manda os arquivos do BDE no Zip e o sistema se encarrega de registrá-los se necessário (não estraga uma instalação já existente do BDE). os arquivos do BDE abaixo listados podem estar nas seguintes pastas que a rotina funciona ... qualquer alteração dos caminhos é simples de configurar ... : - Raiz do Zip numa pasta BDE (ou equipamento de armazenagem) X:\BDE - Junto com o EXE do seu sistema X:\Sistema - Numa pasta BDE dentro da pasta do seu sistema X:\Sistema\BDE Arquivos Exenciais para o BDE: idapi32.cfg (esse arquivo pode ter qualquer outro nome, desde que seja configurado no registro.) idapi32.dll bantam.dll blw32.dll idr20009.dll charset.cvb europe.btl usa.btl idasci32.dll (Driver ASCII) iddbas32.dll (Driver DBase) idodbc32.dll (Driver ODBC) idpdx32.dll (Driver Paradox) O BDE precisa de todos esses arquivos para funcionar. Foi a configuração minima que eu consegui. eu criei a rotina abaixo para verificar a existencia do BDE na maquina procedure Verifica_BDE; const Key_Root = HKEY_LOCAL_MACHINE; Key_Data : Array[00..05, 01..03] Of String = ((´Software\Borland\Database Engine´, ´BDE_EXTERNAL´, ´0´), (´Software\Borland\Database Engine´, ´DLLPATH´ , ´0´), (´Software\Borland\Database Engine´, ´CONFIGFILE01´, ´1´), (´Software\Borland\BLW32´ , ´BLAPIPATH´ , ´0´), (´Software\Borland\BLW32´ , ´LOCALE_LIB1´ , ´5´), (´Software\Borland\BLW32´ , ´LOCALE_LIB2´ , ´6´)); BDE_Files : Array[01..10] Of String = (´idapi32.cfg´, ´idapi32.dll´, ´idr20009.dll´, ´blw32.dll´, ´usa.btl´, ´europe.btl´, ´idpdx32.dll´, ´idasci32.dll´, ´iddbas32.dll´, ´idodbc32.dll´); var Status : Boolean; Index : Integer; Ind_Files : Integer; BDE_Dir : String; Registro : TRegIniFile; begin Try Registro := TRegIniFile.Create(); Registro.RootKey := Key_Root; If (Not Registro.KeyExists(Key_Data[0,1])) Or (( Registro.KeyExists(Key_Data[0,1])) And (Registro.ReadString(Key_Data[0,1], Key_Data[0,2], ´FALSE´) = ´TRUE´)) Then Begin For Index := 1 To 3 Do Begin Case Index Of 1 : BDE_Dir := ExtractFileDrive(ParamStr(0)) + ´\BDE\´; 2 : BDE_Dir := ExtractFileDir(ParamStr(0)) + ´\BDE\´; 3 : BDE_Dir := ExtractFilePath(ParamStr(0)); End; Status := DirectoryExists(BDE_Dir); If Status Then For Ind_Files := Low(BDE_Files) To High(BDE_Files) Do Status := Status And FileExists(BDE_Dir + BDE_Files[Ind_Files]); If Status Then Break; End; For Index := Succ(Low(Key_Data)) To High(Key_Data) Do Begin If Key_Data[Index,3] = ´0´ Then Registro.WriteString(Key_Data[Index,1], Key_Data[Index,2], BDE_Dir) Else Registro.WriteString(Key_Data[Index,1], Key_Data[Index,2], BDE_Dir + BDE_Files[StrToInt(Key_Data[Index,3])]); End; Registro.WriteString(Key_Data[0,1], Key_Data[0,2], ´TRUE´); End; Finally Registro.Free; End; end; PS. Acrescentar no Uses do programa a biblioteca Registry Quanto ao Alias, eu criei (a varios anos) uma rotina para criar o alias pra mim sempre que eu precisar ... eu uso a função : procedure Cria_Alias(Parametros : Array Of Variant); var List_Aux : TStringList; begin If (Parametros[0] <> ´´) And (Parametros[1] <> ´´) Then Begin {Configura o parâmetro Local Share} SetConfigParameter(´\SYSTEM\INIT\;LOCAL SHARE´ , ´FALSE´); {Configura o parâmetro Net Dir} SetConfigParameter(´\DRIVERS\PARADOX\INIT\;NET DIR´, Parametros[1]); {Cria ou altera o Path do Alias} List_Aux := TStringList.Create; List_Aux.Clear; List_Aux.Add(´PATH=´ + Parametros[1]); If Not Session.IsAlias(Parametros[0]) Then Session.AddAlias(Parametros[0], ´PARADOX´, List_Aux) Else Session.ModifyAlias(Parametros[0], List_Aux); Session.SaveConfigFile; List_Aux.Free; End; end; Para usá-la basta chamar no on create de seu programa : Verifica_BDE; Cria_Alias([´Nome do Alias´, ´Pasta de Dados´]);