Ajuda
17/11/2009
0
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?
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?
Cleyton Silva
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)