Показать сообщение отдельно
  #2  
Старый 02.03.2011, 21:35
Maxsept Maxsept вне форума
Прохожий
 
Регистрация: 06.12.2010
Сообщения: 4
Репутация: 10
По умолчанию

uses UrlMon;
функция для скачки файла
Код:
function DownloadFile(SourceFile, DestFile: string): Boolean;
begin 
  try 
    Result := UrlDownloadToFile(nil, PChar(SourceFile), PChar(DestFile), 0, nil) = 0;
  except 
    Result := False; 
  end;
end;
скачаешь потом с ним оперируй

пример :


const
SourceFile = 'http://primer.ua/serv.txt';
DestFile = 'serv.txt';
begin
DownloadFile(SourceFile,DestFile);
end;
Ответить с цитированием