Copiar/Descargar Archivo en Página Web

[Julián]

Tenias la solución en esta misma web en la sección trucos:
http://www.clubdelphi.com/vertruco.php?id=11


¡saludos!

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

En la Unit URLMon.pas (D6 al menos) tienes un método llamado UrlDownloadToFile; Lo puedes utilizar de la siguiente forma:

Código Delphi [-]
  Source := 'www.MiPagina.com/cgi-bin/Articulos.txt';
  Dest := 'c:\temp\Articulos.txt';
  Source := AnsiReplaceStr(Source, '/', '\');
  Result := UrlDownloadToFile(nil, PChar(Source), PChar(Dest), 0, nil) = 0;

[AGAG4]

En el link de Julian Me marcan varios errores el principal una variable Pointer que esta mal declarada pero si la corrigo me saltan otras más, no copiaron bien el código y ni explican bien que significan varios parámetros que contienen en dicho código y en cuanto al Código de Neftali lo estoy checando e investigando para enriquecerlo más... Gracias de antemano, que tengan buen día.

[marcoszorrilla]

He hecho un par de cambios en el link que publica Julián y me funciona correctamente:

Código Delphi [-]
  unit Unit1;
  
  interface
  
  uses
    Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
    StdCtrls,Wininet;
  
    function LeerUnTrozoDeDocumentoHtmDesdeInternet( sUrl: string): string;
  type
    TForm1 = class(TForm)
      Button1: TButton;
      Memo1: TMemo;
      procedure Button1Click(Sender: TObject);
    private
      { Private declarations }
    public
      { Public declarations }
    end;
  
  var
    Form1: TForm1;
  
  implementation
  
  {$R *.DFM}
  
  function LeerUnTrozoDeDocumentoHtmDesdeInternet( sUrl: string): string;
  type
    tbuffer    = array[0..100] of char;  // Aqui es donde
  puedes poner mas grande el buffer
    pbuffer    = ^TBuffer;
  var
    buffer     : pBuffer;
    a          : cardinal;
    ihConnect,
    ihSession,
    iDocument  : HINTERNET;
  begin
    Result:='NadaDeNada';  // Observa que Length(Result)=10
    ihConnect:=InternetOpen('dChat/2.0 (JulianWEB)',  LOCAL_INTERNET_ACCESS, '', '', 0);
    iDocument:=InternetOpenURL(ihConnect, pChar(sUrl), NIL, 1,
  INTERNET_FLAG_RELOAD or INTERNET_FLAG_DONT_CACHE or INTERNET_FLAG_RAW_DATA, 0);
    if iDocument<>nil then try
      New(buffer);
      InternetReadFile(iDocument, Buffer, sizeof(TBuffer), a);
      Result:=pchar(buffer);
    finally
      internetCloseHandle(iDocument);
      Dispose(buffer);
      InternetCloseHandle(ihConnect);
    end;
  end;
  procedure TForm1.Button1Click(Sender: TObject);
  begin
  Memo1.text:=LeerUnTrozoDeDocumentoHtmDesdeInternet('http://www.clubdelphi.com');
  end;
  
  end.

Un Saludo.

[AGAG4]

Muchas Gracias Sr. MarcosZorrilla, lo voy a probar, pero también ya encontre otra Solución si alguien le intereza a continuación la describo:

Código Delphi [-]
Uses ..UrlMon,ShellApi;

//Agregen un Boton y un Memo en la forma 
procedure TForm1.BitBtn1Click(Sender: TObject);
const
  SourceFile = 'http://www.MiPagina.com/cgi-bin/MiArchivo.txt';
  DestFile = 'c:\Descargas\tmp\MiArchivo.txt';
begin
  if DownloadFile(SourceFile, DestFile) then
  begin
    ShowMessage('Se bajo con Éxito el Archivo!!!!');
    Memo1.Lines.LoadFromFile('c:\Descargas\tmp\MiArchivo.txt');
  end
  else
    ShowMessage('Error mientras se Bajaba el Archivo ' + SourceFile)
end;

Espero les sirvan.
Saludos