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