Ver Mensaje Individual
  #4  
Antiguo 17-01-2007
LuCkY_007 LuCkY_007 is offline
Miembro
 
Registrado: dic 2005
Posts: 23
Reputación: 0
LuCkY_007 Va por buen camino
Create un fichero .Ini con los datos de la conexion (Host,BBDD...) mira lo que hice yo...

Código Delphi [-]
procedure Tmodulo.DataModuleCreate(Sender: TObject); 
var   
   Ini: TInIfile;   
   host,bd:string; 
Begin   
  If not fileexists(ExtractFilePath(Application.ExeName) + 'config.ini') then
  Begin
     Ini := TInIfile.Create (ExtractFilePath(Application.ExeName) + 'config.ini');
     Ini.WriteString('Servidor','Host',' ');
     Ini.WriteString('Servidor','BBDD',' '); 
     Ini.Free;  
  end;   
  Ini := TInIfile.Create (ExtractFilePath(Application.ExeName) + 'config.ini');           
  host:=Ini.ReadString('Servidor','Host',' ');   
  bd:=Ini.ReadString('Servidor','BBDD',' ');    
  Ini.Free;   
  try     
     Conexion.Connected := False;     
     Conexion.Hostname := host;     
     Conexion.Database := bd;     
     Conexion.Connected := true;   
  except     
     showmessage('Atención, Host Incorrecto.');     
    Application.terminate;     
    Abort;  
  end; 
End;

Esto te crea un fichero config.ini del tipo:

Código:
[Servidor]
Host=ipdelservirdormysql
BBDD=tubasededatos
Luego le pones la 'ipdelservirdormysql' y 'tubasededatos' y ale! a funcionar desde cualquier pc.

Es un ejemplo, luego se puede super implementar con mas pijotadas

Última edición por LuCkY_007 fecha: 17-01-2007 a las 18:37:10.
Responder Con Cita