Ver Mensaje Individual
  #4  
Antiguo 28-10-2004
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Reputación: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
Cita:
Empezado por tcp_ip_es
se que esta mal pero nunca he utilizado las indy
Tch, tch, ¿no te da vergüenza?

Cita:
Empezado por tcp_ip_es
que componentes debería utilizar y como los configuraría???
Pues no me dijiste por fin de dónde vas a bajar el archivo (¿ftp, web?)

Cita:
Empezado por tcp_ip_es
si tienes un ejemplillo por ahi
Ejemplo usando TIdHTTP:

Código Delphi [-]
var
  Stream: TFileStream;
 
begin
  Stream := TFileStream.Create('chela.jpg', fmCreate);
  try
    IdHTTP.Get('http://www.clubdelphi.com/users/roman/chela.jpg', Stream);
  finally
    Stream.Free;
  end;
end;

Si además quieres mostrar una barra de progreso puedes usar los eventos OnWorkBegin, OnWorkEnd y OnWork:

Código Delphi [-]
procedure TForm1.IdHTTPWorkBegin(
  Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCountMax: Integer);
begin
  ProgressBar.Max := AWorkCountMax;
end;
procedure TForm1.IdHTTPWork(
  Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCount: Integer);
begin
  ProgressBar.Position := AWorkCount;
end;
procedure TForm1.IdHTTPWorkEnd(Sender: TObject; AWorkMode: TWorkMode);
begin
  ShowMessage('La chela está servida');
end;

Cita:
Empezado por tcp_ip_es
y me lo puedes mandar por correo te lo agradecería.... ya se que para el buen funcionamiento de los foros se debería exponer el código aqui pero para ver los componentes es mejor en un zip
Lo siento, no me convence tu argumento

// Saludos
Responder Con Cita