Conexión remota con Mysql

[voldemmor]

Empezado por foxito

Hola voldemmor, fijate que tuve el mismo problema que tuvistes. Estuve buscandon en la red con SAN GOOGLE y no encontre nada al respecto hasta que caí en tu post que mencionabas el mismo probema. Talvez ya fuera de tiempo porque ha pasado bastante tiempo... Si todavia te interesa comentame ya lo resolvi... se me ocurrio algo y obtuve lo que queria.

SALUDOS.

Gracias por la preocupacion, la verdad es que lo pude resolver, con todo podes colocar la informacion aca a ver alguien mas la necesita y la puede usar.

Con todo a ver si qe crusan las soluciones que tenemos y podemos mejorarlas un poco.

[foxito]

Bueno aqui mi solución:

Código Delphi [-]
program ContaSys;
uses
  Forms,
  UFMain in 'UFMain.pas' {FMain},
  Acercade in 'Acercade.pas' {FrmAcercaDe},
  UFLogin in 'UFLogin.pas' {FLogin},
  UMySQL in 'UMySQL.pas',
  IniFiles,
  SysUtils,
  UDMContaSys in 'UDMContaSys.pas' {DataModule1: TDataModule},
  UFCompras_Gastos in 'UFCompras_Gastos.pas' {FComprasGtos},
  FindProv in 'FindProv.pas' {FrmFindProv};
{$R *.res}
begin
  if TFLogin.Execute then
    begin
      Application.Initialize;
      Application.MainFormOnTaskbar := True;
      Application.Title := 'ContaSys 1.0.1';
      Application.CreateForm(TDataModule1, DataModule1);
      Application.CreateForm(TFComprasGtos, FComprasGtos);
  with tinifile.create (changefileext(paramstr(0),'.ini')) do
        with DataModule1  do
          begin
            Connect.Catalog    := ReadString('Acceso a BD','Base datos','');
            Connect.Database   := ReadString('Acceso a BD','Base datos','');
            Connect.HostName   := ReadString('Acceso a BD','Servidor','');
            Connect.LoginPrompt:= False;
            Connect.User       := ReadString('Acceso a BD','Usuario','');
            Connect.Password   := 'hecafox';
            Connect.Protocol   := ReadString('Acceso a BD','Proveedor','');
            Connect.Port       := ReadInteger('Acceso a BD','Puerto',0);
            Connect.Connected  := True;
           end;
//      Application.CreateForm(TFMain, FMain);
      Application.Run;
      end
  else
    begin
      Application.MessageBox('No tiene Autorización a entrar a la Aplicación.', 'Advertencia');
    end;
end.