VPF::Функция для читения файлов из инета

SiriusCod

Дата 24.9.2009, 01:00 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 16
Регистрация: 29.6.2009

Репутация: нет
Всего: нет

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

Спасибо! smile

~FoX~

Дата 24.9.2009, 08:06 (ссылка)

(нет голосов)

Загрузка ...

НЕ рыжий!!!

Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 3
Всего: 68

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

Это сообщение отредактировал(а) ~FoX~ - 24.9.2009, 08:06

--------------------

…множественность никогда не следует полагать без необходимости…

SiriusCod

Дата 24.9.2009, 17:58 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 16
Регистрация: 29.6.2009

Репутация: нет
Всего: нет

Спасибо, работает! 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;

Это сообщение отредактировал(а) SiriusCod - 25.9.2009, 01:19

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »