Descarga y Carga de un Archivo

[cacu]

Como poder descargar y cargar un archivo desde un servidor en internet???

[HombreGordo]

Depende mucho del protocolo que vayas a usar.

Para la descarga, tienes una función como ésta:

(recuerda colocar en tu uses la librería UrlMon)


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

y la usas cómodamente así:

SourceFile:='http://www.tusitioweb.com/index.html'; // debe apuntar a un archivo existente
DestFile:='C:\index.html'; // ruta absoluta o relativa hacia a donde dejar caer el archivo
DownloadFile(SourceFile, DestFile);

[Neftali [Germán.Estévez]]

Si vas a usar FTP, en las paletas de Indy y FastNet puedes encontrar componentes para hacerlo.