Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Сети > Функция для читения файлов из инета

Автор: SiriusCod 24.9.2009, 01:00

Пригодилась бы функция, возвращающая текст из инета, например возвращающая текст из файла http://sait121.ru/1.txt, а в случае если этот текст считать не удалось возвращается false(а не сообщение об ошибке)

Спасибо! smile

Автор: ~FoX~ 24.9.2009, 08:06

SiriusCod,

Код


uses 
  IdHttp;


procedure TFUpdate.FormShow(Sender: TObject);
var
  http: TIdHttp;
  s: string;
begin
  http:=TIdHTTP.Create(nil);
  Memo1.Lines.Clear;
  try
    s:=http.Get('http://sait121.ru/1.txt');
    Memo1.Lines.Add(s);
  except
    MessageBox(Application.Handle, PChar('Невозможно седениться с сервером'), 'Ошибка', MB_ICONERROR + MB_OK);
  end;
  http.Free;
end;

В функцию сам превратишь smile

Автор: SiriusCod 24.9.2009, 17:58

Спасибо, работает! smile

)

Функция:

Код


function GetInetFile(pyt: String): String;
var
  http: TIdHttp;
begin
  http:=TIdHTTP.Create(nil);
  try
    GetInetFile:=http.Get(pyt);
  except
    GetInetFile:='nooo';
  end;
  http.Free;
end;