Ver Mensaje Individual
  #3  
Antiguo 02-04-2009
Avatar de fide_uci
fide_uci fide_uci is offline
Miembro
 
Registrado: ene 2009
Ubicación: Cuba - La Habana
Posts: 226
Reputación: 18
fide_uci Va por buen camino
Muchas gracias a todos. Lo he solucionado con un pequeño componente que hay en internet y se llama DialUp. Esta muy bueno y te permite establecer una conexion a internet que este previamente configurada desde windows, y te permite establecer la contraseña y el usuario de la conexion aunque no esten configuradas en windows.

Aqui les pongo el adjunto con el componente.

Y mas o menos como se usa, seria asi.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin

  DialUp1.Username := 'NombreUsuarioDeConexion';
  DialUp1.Password := 'ContraseñaDeConexion';

  DialUp1.ConnectTo := 'NombreConexionConfigurada';
  // El componente tiene una propiedad de tipo TString donde estan registradas todas las conexiones creadas en windows

  if  DialUp1.GoOnline then // Para conectarte con GoOffline te desconectas
    Memo1.Lines.Add('Se ha establecido la conexion')
  else
    Memo1.Lines.Add('NO se ha podido CONECTAR!!!');

  //Ademas tiene un procedimiento para comprobar si estas conectado.

end;
Archivos Adjuntos
Tipo de Archivo: zip DialUp.zip (4,1 KB, 10 visitas)

Última edición por fide_uci fecha: 02-04-2009 a las 16:53:06.
Responder Con Cita