Fórum Como eu carrego um arquivo txt da WEB para meu programa??? #176989

uses
  URLMon;

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

Memo1.Lines.LoadFromFile(LOCAL);

if DownloadFile(´http://mks.com/texto.txt´, ´C:\Texto.txt´);
then
  Memo1.Lines.LoadFromFile(´C:\Texto.txt´)
else
  ShowMessage(´Erro ao fazer download!´);