DelphiDownload(Downloader sin apis)[Delphi]
Publicado: 07 Sep 2010, 04:54
aca les dejo esto que salio de un code de blackzero, es para descargar cualquier archivo sin el uso de las apis
Ejemplo de uso:
if DelphiDownload('[Enlace externo eliminado para invitados]'):= True then
begin
showmessage('se ah descargado correctamente');
end;
end;
Salu2
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