VPF::idHTTP отображение страницы в процессе ее загрузки

dreamcation

Дата 9.6.2010, 22:37 (ссылка)

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

Загрузка ...

Новичок

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

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

Как загружая страницу используя IdHTTP1.Get отображать уже загруженные данные в Memo не дожидаясь окончания загрузки страницы полностью?

Matematik

Дата 10.6.2010, 02:34 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1027
Регистрация: 11.3.2006

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

Например

Код


type
  TMemoMemoryStream = class(TMemoryStream)
  private
    FMemo: TMemo;
  public
    constructor Create(AMemo: TMemo);
    function Write(const Buffer; Count: Longint): Longint; override;
  end;

{ TMemoMemoryStream }

constructor TMemoMemoryStream.Create(AMemo: TMemo);
begin
  inherited Create;
  FMemo := AMemo;
end;

function TMemoMemoryStream.Write(const Buffer; Count: Integer): Longint;
var tmp: AnsiString;
begin
  Result := inherited Write(Buffer, Count);

  SetString(tmp, PAnsiChar(@Buffer), Count);
  FMemo.Lines.Add(tmp);
  Application.ProcessMessages;
end;

procedure TForm1.btn1Click(Sender: TObject);
var
  HttpObj: TIdHTTP;
  Mem: TMemoMemoryStream;
begin
  Mem := TMemoMemoryStream.Create(mmo1);
  HttpObj := TIdHTTP.Create(nil);
  try
    HttpObj.RecvBufferSize := 256;
    HttpObj.Get('http://www.yandex.ru', Mem);
  finally
    HttpObj.Free;
    Mem.Free;
  end;
end;

Перекрываю метод Write у стрима, когда IdHTTP пишет в этот стрим прочитанные данные - заношу их в мемо.

Это сообщение отредактировал(а) Matematik - 10.6.2010, 02:35

dreamcation

Дата 10.6.2010, 12:11 (ссылка)

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

Загрузка ...

Новичок

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

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

Matematik, огромное спасибо, все работает именно так как надо)
К сожалению из за того что я недавно не этом форуме не могу поставить вам плюс.

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