Código: Seleccionar todo
************************************************************************
Autor:K-0Z
Lenguaje:Delphi
Modo de uso: DelphiDownload(Url,SaveTo)
Agradecimientos:BlackzeroX
Pagina Web:www.indetectables.net
************************************************************************
uses ComObj;
function DelphiDownload(Url:string;SaveTo:string):bool;
var
XML:olevariant;
adostream:olevariant;
begin
xml:= CreateoleObject('Microsoft.XMLHTTP');
adostream:= CreateoleObject('Adodb.Stream');
xml.Open('GET', Url, 0);
xml.send;
adoStream.Type := 1;
adoStream.Open;
adoStream.write(xml.responseBody);
adoStream.SaveToFile(SaveTo , 2);
adoStream.Close;
DelphiDownload:= true;
end;if DelphiDownload('[Enlace externo eliminado para invitados]'):= True then
begin
showmessage('se ah descargado correctamente');
end;
end;
Salu2
