ActiveDelphi

[viniciusnogueira]

gostaria de saber como configuro o bd do meu programa via software!!
jah tentei algumas formas mas mesmo assim não consegui fazer com que meu
programa rodasse em outra maquina!
do modo em que estou tentando fazer agora eh mais ou menos assim.

Eu criei uma unit de inicialização(Unit2), nela eu faço com que
a dll midas.dll seja extraida para pasta do sistema (System ou Sytem32)
e depois eu configuro o alias ded meu banco.
No meu projeto eu soh tenho tbm um form(FrmPrincipal) e um Datamodule(DM).
No data module tenho um DATABASE(DB),uma Query(Q),um DataSetProvider(DataSetProvider)
um ClientDataSet(c).

porem não da certo sempre trava na hora dee inicar o programa!!
Gostaria que voces analizassem o meu codigo e ve se tem algo errado
ou me incicar a solução. para que meu programa funcione normalmente em qualquer lugar

PS: Me falram tbm que tem que ter o BDE instalado neh?? mesmo assim não funiona!

O codigo:

****** Unit2 ****

unit Unit2;

interface

Uses Windows, Classes,ShellAPI, Sysutils, Forms,Dialogs,DB,DBTables;

Function ExtractSystemDir : String;
Procedure SaveMIDASDLL;

implementation

{$R MIDAS.RES}

Function ExtractSystemDir : String;
Var Buffer : Array[0..255] of Char;
Begin
GetSystemDirectory(Buffer,144);
Result := StrPas(Buffer);
End;

Procedure SaveMIDASDLL;
Var PathToSave:String;
Res : TResourceStream;
Begin
PathToSave := ExtractSystemDir+\'\\MIDAS.DLL\';
If not FileExists(PathToSave) Then Begin
Res := TResourceStream.Create(Hinstance, \'MIDASDLL\', \'DLLFILE\');
Try
Res.SavetoFile(PathToSave);
Finally
Res.Free;
End;
End;
End;

Initialization
Begin
SaveMidasDLL;
ShellExecute(0,nil,Pchar(\'c:\\windows\\system32\\regsvr32 midas.dll\'),nil, nil, SW_NORMAL);
if not Session.IsAlias(\'MuKa\') then
begin
Session.AddStandardAlias(\'MuKa\',ExtractFilePath(ParamStr(0)), \'PARADOX\');
Session.SaveConfigFile;
end;
End;

end.


***********
as outras acho que não eh necessario pois tenho quase certeza que estão corretas.
________________________________
[color=red]Titulo Original: Ta dificill!!!!rsrsrs Me ajudem aki!![/red]
Por Favor, leia as [url=http://www.activedelphi.com.br/modules.php?op=modload&name=XForum&file=viewthread&tid=102]regras[url] do fórum.
Principalmente as regras de numero 3 e 4.

[Editado em 8/2/2006 por gustavocco]

[viniciusnogueira]

preciso de outra dll alem da midas???

[viniciusnogueira]

[ronald]

Porque você não utiliza Arquivos .INI ?

Eu utilizo assim:

//
// PROCEDURE QUE LÊ O ARQUIVO .INI
//
procedure Tfrm_principal.LeIni(var Local: String);
var ArqIni : TIniFile;
dir:string;
begin
dir:=GetCurrentDir;
ArqIni := TIniFile.Create(dir+\'\\Config.Ini\');
Try
Local := ArqIni.ReadString(\'Banco\', \'Local\', Local);
sigla.text:= ArqIni.ReadString(\'Dados\', \'Sigla\', sigla.text);
TitRel.text:=ArqIni.ReadString(\'Dados\', \'Titulo\', Titrel.text);
Finally
ArqIni.Free;
end;
end;

//
// AQUI EU RECUPERO OS VALORES
//
procedure TFrm_principal.FormCreate(Sender: TObject);
var Handle: THandle;
ult_local:string;
begin
LeINI(ult_local);
path.Text := ult_local; // Neste EDIT eu guardo o Path e daí faço oque quiser com ele
end;

// ESTE É O ARQUIVO CONFIG.INI
//
[Banco]
Local=D:\\RONALD\\SISTEMAS\\ESTOQUE\\
[Dados]
SIGLA=P.M.C.A
TITULO=SECR. MUNIC. DE OBRAS E TRANSP. E URBANISMO
[Backup]
Local=D:\\RONALD\\SISTEMAS\\ESTOQUE\\BKP\\

_________________
Ronald Câmara