Como instalar BDE onfigurado, com o InstallShield ???

Question

Colegas..Como fa�o para instalar o BDE, configurado, utilizando minha instala��o criado com o InstallShield.J� usei as op��es do InstallShield, e anexei a instala��o, configurei, mas quando rodo no cl...

Sabe.geraldo · Answer

Ol� Cabelo,  Acho que voc� n�o vai conseguir, al�m da instala��o via Install,  voc� tem que configurar m�quina por m�quina...  Abra�o,...

Cabelo · Answer

:shock: Se o que voc� diz � verdade....Ent�o nunca poderei criar um programa, e comercializ�-lo a vontade, sem criar vinculos com o cliente..acho que n�o..acredito ser poss�vel, s� n�o sei como..Imagina criar um CD de um sistema financeiro simples, e vender o CD, cada cliente que comprar eu ter que ir instalar..Deve haver um jeito.....

Sabe.geraldo · Answer

Voc� pode comercializar como quiser, s� que para isso, voc� precisa mandar no pr�prio programa ou um m�dulo a parte, a op��o para configurar o BDE.
O que n�o � dif�cil de fazer...Inclusive � tamb�m uma maneira de voc� controlar a v�lidade de uso do seu programa.

Abra�o,

Cabelo · Answer

Certo... mas..Como eu fa�o??...

Sabe.geraldo · Answer

Segue uma op��o que encontrei nos forums ou internet da vida....

ModifyBDE( �\Drivers\Paradox\Init�, �Net Dir�, sRotaNetDir );
ModifyBDE( �\System\Init�, �LOCAL SHARE�, �TRUE� );
ModifyBDE( �\System\Init�, �MAXBUFSIZE�, �16384� );
ModifyBDE( �\System\Init�, �MAXFILEHANDLES�, �100� );
ModifyBDE( �\System\Init�, �SHAREDMEMSIZE�, �4096� );
ModifyBDE( �\System\FORMATS\DATE�, �FOURDIGITYEAR�, �TRUE� );

Procedure TCfg00000_f.ModifyBDE( Path, Chave, Valor: String );
var ParamList: TParamList;
Lista: TStringList;
cfgMode: TConfigMode;
KI: Integer;
begin
Lista := TStringList.Create;
//Recupera Lista de Configura��es
Session.GetConfigParams( Path, ��, Lista );
//Verifica na lista, onde a chave modificada se encontra
For KI := 0 to ( Lista.Count - 1 ) do begin
if Pos( UpperCase( Chave ), UpperCase( Lista[KI] ) ) <> 0 then begin
Lista[KI] := UpperCase( Chave ) + �=� + Valor;
//Salva o atual modo de configura��o da vari�vel de sess�o
cfgMode := Session.ConfigMode;
//Coloca em modo de altera��o
Session.ConfigMode := cmPersistent;
//Cria lista de par�metros
ParamList := TParamList.Create( Lista );
//Chama API do BDE para modificar as configura��es
Check( DbiCfgModifyRecord( nil, PChar( Path ), ParamList.FieldCount,
PFLDDesc( ParamList.FieldDescs ), ParamList.Buffer ) );
//Recupera o modo de configura��o da vari�vel de sess�o
Session.ConfigMode := cfgMode;
//Salva as configura��es da sess�o
Session.SaveConfigFile;
ParamList.Free;
end;
end;
Lista.Free;
end;

N�o esque�a de colocar a uses BDE;

Abra�o...

Geraldo

Cabelo · Answer

[quote:7f69b00ec1=�sabe.geraldo�]Segue uma op��o que encontrei nos forums ou internet da vida....ModifyBDE( �DriversParadoxInit�, �Net Dir�, sRotaNetDir );ModifyBDE( �SystemInit�, �LOCAL SHARE�, �TRUE� );ModifyBDE( �SystemInit�, �MAXBUFSIZE�, �16384� );ModifyBDE( �SystemInit�, �MAXFILEHANDLES�, �100� );ModifyBDE( �SystemInit�, �SHAREDMEMSIZE�, �4096� );ModifyBDE( �SystemFORMATSDATE�, �FOURDIGITYEAR�, �TRUE� );Procedure TCfg00000_f.ModifyBDE( Path, Chave, Valor: String );  var ParamList: TParamList;        Lista: TStringList;        cfgMode: TConfigMode;        KI: Integer;begin  Lista := TStringList.Create;  //Recupera Lista de Configura��es  Session.GetConfigParams( Path, ��, Lista );  //Verifica na lista, onde a chave modificada se encontra  For KI := 0 to ( Lista.Count - 1 ) do begin    if Pos( UpperCase( Chave ), UpperCase( Lista[KI] ) ) <> 0 then begin      Lista[KI] := UpperCase( Chave ) + �=� + Valor;      //Salva o atual modo de configura��o da vari�vel de sess�o      cfgMode := Session.ConfigMode;      //Coloca em modo de altera��o      Session.ConfigMode := cmPersistent;      //Cria lista de par�metros      ParamList := TParamList.Create( Lista );      //Chama API do BDE para modificar as configura��es      Check( DbiCfgModifyRecord( nil, PChar( Path ), ParamList.FieldCount,      PFLDDesc( ParamList.FieldDescs ), ParamList.Buffer ) );      //Recupera o modo de configura��o da vari�vel de sess�o      Session.ConfigMode := cfgMode;      //Salva as ...

Sabe.geraldo · Answer

Cabelo, Se existe a possibilidade via Install eu descohe�o, vamos aguardar que outros visitantes nos ensine... Abra�o, Geraldo.....

Cabelo · Answer

Colegas..Consegu� via InstallShield, Configurar o BDE.. e instal�-lo..Na vers�o do install shield para delphi 4 , existe uma op��o de voc� inserir na instala��o o BDE, os SQL Links(drivers de outros BD�s) masi novos..Nesta op��o existe uma recurso chamado settings, onde voc� adiciona o nome da conex�o no BDE, depois voc� configura o caminho, e o User name, � s� colocar no campo Memo que l� cont�m, as op��es da mesma forma que est� configurado no BDE, e pronto..Instalou direitinho, sem a necessidade de criar um m�dulo novo, e realizar a instala��o..Um abra�o a todos, e valeu mais uma vez pelas dicas.....

F�rum Como instalar BDE onfigurado, com o InstallShield ??? #289974