[delphi-br] Ref. AliastoPath com erro

Fri, 11 Jun 2010 07:25:22 -0700 

Salve amigos(as),

Tenho uma aplicação já estável e ela tem esta função abaixo e quando 
executada ela me retorna o caminho do Alias enviado.
Agora, em outra aplicação, de 1 form apenas, um instalador que estuo 
fazendo, também tem esta função lá dentro, e quando chamo, 
ele nada me retorna

Debugei e vi que na linha:

DbiGetDatabaseDesc(szAlias,@Desc);

Ele dá erro. Debugei no outro projeto e ele pega o caminho do alias, por 
exemplo:

cFolder := AliastoPath('Pizza');

cFolder receberá 'C:\Syspizza\dados'

Agora, no outro projeto, ele não lê o caminho da base.

Alguém tem alguma dica ? 

PS: Neste form, tem componentes TTable lá que eu uso para manusear dados e tal.




 function TFrmAcess.AliasToPath(Alias : String) : String;
var
  Desc : dbDesc;
  szAlias : Array[0..255] of Char;

begin
  StrPCopy(szAlias,Alias);
  DbiGetDatabaseDesc(szAlias,@Desc);
  Result := StrPas(Desc.szPhyName);
end;

//***---****---***---****---***---****---***---****---***---****---***---****-//


 
 
Omar M. Haddad
Analista de Sistemas


      

[As partes desta mensagem que não continham texto foram removidas]

Responder a