VPF::TMemoryStream, Indy - Форум программистов

IDontBelieveInSilence

Дата 17.2.2009, 16:24 (ссылка)

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

Загрузка ...

Шустрый

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

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

Здравствуйте.

Будьте добры, покажите мне пример, как можно выкачать текстовый файл по http, и не сохраняя его на жестком диске, тупо загрузить в память и показать пользователю, а потом освободить?

Хочется это так список изменений показывать для функции автообновления.

Заранее благодарю.

MetalFan

Дата 17.2.2009, 16:51 (ссылка)

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

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

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

так получай в строку idHTTP.Get. делов-то.

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

There are always someone smarter than you...

sai_NT

Дата 18.2.2009, 10:17 (ссылка)

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

Загрузка ...

Шустрый

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

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

Код


var
  rcvrdata: TMemoryStream;
  idHttp1: TidHttp;
begin
    idHttp1 := TidHttp.Create(nil);
    rcvrdata := TMemoryStream.Create;
    idHttp1.Request.UserAgent := 'Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 1.1.4322; .NET CLR 2.0.50727; InfoPath.1)';
    idHttp1.Request.AcceptLanguage := 'ru';
    idHttp1.Response.KeepAlive := true;
    idHttp1.HandleRedirects := true;//automaticaly change location
    {if referer <> '' then
      idHttp1.Request.Referer := referer;
    }
    try
      idHttp1.Get(Edit1.Text, rcvrdata);
    finally
      idHttp1.Free;
    end;
    if rcvrdata.Size > 0 then begin
      rcvrdata.Seek(0, soFromBeginning);
      SetLength(rcvrstr, rcvrdata.size);
      rcvrdata.Read(rcvrstr[1], rcvrdata.size);
      ShowMessage(rcvrstr);
    end;
    rcvrdata.Free;
end;

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