Ver Mensaje Individual
  #7  
Antiguo 10-05-2011
Avatar de marcoszorrilla
marcoszorrilla marcoszorrilla is offline
Capo
 
Registrado: may 2003
Ubicación: Cantabria - España
Posts: 11.221
Reputación: 10
marcoszorrilla Va por buen camino
Yo me conecto así:

Código Delphi [-]
procedure TfrExpterminales.btConectarClick(Sender: TObject);
begin
btDesconectar.Enabled :=True;
btListar.Enabled :=True;

btConectar.Enabled :=False;

pnEstado.Caption:='Servidor Conectado';
pnEstado.Font.Color:=ClGreen;
pnEstado.BevelOuter:=bvRaised;

IdFTP.Host:=HostTxt.Text;
IdFTP.Port:=StrToInt(PortTxt.Text);
IdFTP.UserName:=UserTxt.Text;
IdFTP.PassWord:= PassTxt.Text;

  try
    IdFTP.Connect;
    Ficheros.Open;
    ficheros.EmptyTable;
  except
    raise Exception.Create( 'No se ha podido conectar con el servidor ' + IdFTP.Host );
  end;
btListar.Click;
end;

El usuario, Servidor, clave etc. te lo dan para que puedas conectarte, otra cosa es que el servidor sea tuyo y puedas crear diferentes usuarios, claves...

Un Saludo.
__________________
Guía de Estilo de los Foros
Cita:
- Ça c'est la caisse. Le mouton que tu veux est dedans.
Responder Con Cita