Array
(
)

Ajuda

Cleyton Silva
   - 17 nov 2009

Estou usando o seguinte código para tentar baixar arquivos da internet:

function DownloadFile(Source, Dest: string): Boolean;
begin
try
Result:= UrlDownloadToFile(nil, PChar(source),
PChar(Dest), 0, nil) = 0;
except
Result:= False;
end;
end;

Essa é a função /\

procedure TForm1.Button1Click(Sender: TObject);
begin
if DownloadFile('http://www.vdownloader.es/files/vdownloader.zip','D:\vdownloader.zip') then
showmessage('OK')

end;

Esse o procedimento do botão que inicia o download /\

O problema é que quando clico no botão, o download é concluído quando ainda está com 4.6k de tamanho e nunca chega ao máximo. Será que é porquê na minha escola existem alguns arquivos que não podem ser baixados?