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