Alguien sabe como Copiar un Archivo de Texto ubicado en una página web, por ejemplo:
www.MiPagina.com/cgi-bin/Articulos.txt
Hice pruebas con el Componente WebBrowser me visualiza el archivo de texto poniendo estas lineas de codigo:
Código Delphi
[-]
procedure WBFindDialog(AWebBrowser: TWebbrowser) ;
const
CGID_WebBrowser: TGUID = '{ED016940-BD5B-11cf-BA4E-00C04FD70816}';
HTMLID_FIND = 1;
var
CmdTarget : IOleCommandTarget;
vaIn, vaOut: OleVariant;
PtrGUID: PGUID;
begin
New(PtrGUID) ;
PtrGUID^ := CGID_WebBrowser;
if AWebBrowser.Document <> nil then
try
AWebBrowser.Document.QueryInterface(IOleCommandTarget, CmdTarget) ;
if CmdTarget <> nil then
try
CmdTarget.Exec(PtrGUID, HTMLID_FIND, 0, vaIn, vaOut) ;
finally
CmdTarget._Release;
end;
except
end;
Dispose(PtrGUID) ;
end;
El unico inconveniente es de que no puedo hacer nada sólo visualizarlo, no puedo leer el contenido por Lineas, o bien que tenga alguna propiedad de Guardarlo como un "SaveToStream".
Alguna sugerencia se los agradezco.
Si saben de algún otro componente que pueda Bajarme este archivo de texto se los agradecería mucho.