Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Internet (https://www.clubdelphi.com/foros/forumdisplay.php?f=3)
-   -   Conectarse a pag web (https://www.clubdelphi.com/foros/showthread.php?t=68097)

trex2000 24-05-2010 21:18:52

Conectarse a pag web
 
Saludos a todos, mi duda es la sig:
¿Como me puedo conectar a una pag de internet desde delphi si tengo el usuario y password para importar algunas datos a excel?

¿Como mando datos a una pag de internet desde un prog en delphi?

De antemano muchas gracias.

marcoszorrilla 24-05-2010 22:04:49

Ejemplo de conexión:
Código Delphi [-]
procedure TfrExpterminales.btConectarClick(Sender: TObject);
begin
  try
  IdFTP.Host    :=HostTxt.Text;
  IdFTP.Port    :=StrToInt(PortTxt.Text);
  IdFTP.UserName:=UserTxt.Text;
  IdFTP.PassWord:=PassTxt.Text;
  IdFTP.Connect;

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

  btDesconectar.Enabled :=True;
  btListar.Enabled :=True;
  btEliminar.Enabled:=True;
  btSubir.Enabled :=True;
  btDescargar.Enabled :=True;
  spActUno.Enabled :=True;
  btConectar.Enabled :=False;

    Try
    IbDtsFicheros.Open;
    Except
    ShowMessage('Error Local al abrir la Tabla de información de Ficheros.');
    end;

  btListar.Click;
  except
    raise Exception.Create( 'No se ha podido conectar con el servidor ' + IdFTP.Host );
  end;

end;

Ejemplo de enviar un fichero:
Código Delphi [-]
procedure TfrExpterminales.btSubirClick(Sender: TObject);
var
F: File of byte;
sArchivo:String;
begin
cSubirFichero:= cCaminoZipExp+'Dat010'+Vendedor+'.Zip';
AssignFile( F, cSubirFichero );
Reset( F );
CloseFile( F );

btListar.Click;


  if btConectar.Enabled = False then
  begin


    pnMensajes.Color:=ClBlack;

      try
      IdFTP.Delete('Dat010'+Vendedor+'.Zip');
      Except
      end;

      //Subir archivo
     Try
     IdFTP.Put( cSubirFichero, ExtractFileName( cSubirFichero ), False );
     except
     ShowMessage('Se produjo un error al subir el fichero.');
     end;

    pnMensajes.Caption:='';
    pnMensajes.Color:=clBtnFace;
    btListar.Click;
  end
  else
  ShowMessage('Primero tiene que conectar con el servidor.');

end;

Te lo he pegado según lo tengo, es para que te hagas una idea, estoy utilizando las Indy.

Un Saludo.

trex2000 25-05-2010 02:27:04

Gracias por tu respuesta estoy muy verde en este tipo de programacion me podrias ayudar con lo siguiente?
Al ejecutar el codigo que pegaste me sale un error "Socket Error #11004" ¿porque y como lo corrijo?

marcoszorrilla 25-05-2010 06:55:20

Tienes que poner en el formulario un componente IdFtp, de la paleta de las Indy Clients.

Un Saludo.


La franja horaria es GMT +2. Ahora son las 06:04:26.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi