Ver Mensaje Individual
  #3  
Antiguo 11-02-2011
nick_18 nick_18 is offline
Registrado
 
Registrado: abr 2008
Posts: 3
Reputación: 0
nick_18 Va por buen camino
Hola gracias por responder. A continuacion pego codigo de como lee el archivo .ini , esto lo hago en el formcreate del formulario principal.

Código:
procedure Tmain.FormCreate(Sender: TObject);
var
MyIniFile : TIniFile;
server: String;
puerto: integer;
usuario: string;
pass : string;
begin
conexion.Connected:=false;
MyIniFile := TIniFile.Create(ExtractFilePath(ParamStr(0))+'server.INI');
//MyIniFile := TIniFile.Create('server.INI');
Try
server := MyIniFile.ReadString('BBDD','server','');
puerto:=  strtoint(MyIniFile.ReadString('BBDD','puerto',''));
usuario := MyIniFile.ReadString('BBDD','usuario','');
pass:=  MyIniFile.ReadString('BBDD','pass','');
conexion.password:=pass;
conexion.username:=usuario;
conexion.port:=puerto;
conexion.Server:=server;
conexion.Connected:=true;
Finally
MyIniFile.Free;
End;
Bueno , la verdad no se cual pueda ser el error, empiezo a desconfiar de mydac.
Se agradece tu ayuda.
Responder Con Cita