VPF::tIdHTTP и GET в поток - Форум программистов

Dr.Death

Дата 4.6.2004, 10:11 (ссылка)

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

Загрузка ...

Опытный

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

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

В общем есть компонент tidHTTP, делаю команду HTTP1.Get(path_to_file,stream)
Начинается загрузка файла с сервера в поток и одновременно начинает тормозить программа, как это избежать? И еще, как узнать, сколько байт уже записано в поток?

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

Жизнь коротка, чтобы быть в ней слабым.© Арнольд Шварцнеггер

<Spawn>

Дата 4.6.2004, 10:44 (ссылка)

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

Загрузка ...

Око кары:)

Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

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

Для того чтобы прога не тормозила, используй поток(New->Other->Thread Object). В потоке динамически создай экземпляр TidHTTP и все будет нормально работать.
Добавлено @ 10:46
На счет полученных байтов - посмотри событие OnWork. По моему это то, что тебе нужо

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

"Для некоторых людей программирование является такой же внутренней потребностью, подобно тому, как коровы дают молоко, или писатели стремятся писать" - Николай Безруков.

Dr.Death

Дата 4.6.2004, 15:50 (ссылка)

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

Загрузка ...

Опытный

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

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

А можно с примерами, мне надо, записать в поток както через команду HTTP1.Get(url,thread_object), узнавать сколько туда записано байт, т.е. не так, что записал и узнал, а отслеживать в процессе записи байт и сохранить поток данных в файл.

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

Жизнь коротка, чтобы быть в ней слабым.© Арнольд Шварцнеггер

<Spawn>

Дата 4.6.2004, 16:42 (ссылка)

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

Загрузка ...

Око кары:)

Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

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

Пожалста:

Главный юинт(Брось на него кнопку и Label - лабел назови lblWorkCount):

Код

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    lblWorkCount: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  with THttpGet.Create(True) do
  try
    FreeOnTerminate := True;
    Resume;
  except
    Free;
  end;
end;

end.

Поток:

Код

unit Unit2;

interface

uses
  Classes, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
  IdHTTP, Forms, SysUtils;

type
  THttpGet = class(TThread)
  private
    FWorkCount: integer;
  protected
    procedure Execute; override;
    procedure SynUpdateWork;
    procedure UpdateWork(Sender: TObject; AWorkMode: TWorkMode; const AWorkCount: Integer);
  end;

implementation

uses Unit1;

{ THttpGet }

procedure THttpGet.Execute;
var
  idHttp: TidHttp;
begin
  try
    idHttp := TidHttp.Create(Application);
    idHttp.OnWork := UpdateWork;
    idHttp.Get('http://purga.ru/');
  finally
    idHttp.Free;
  end;
end;

procedure THttpGet.SynUpdateWork;
begin
  Form1.lblWorkCount.Caption := IntToStr(FWorkCount);
end;

procedure THttpGet.UpdateWork(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCount: Integer);
begin
  FWorkCount := AWorkCount;
  Synchronize(SynUpdateWork);
end;

end.

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

Dr.Death

Дата 4.6.2004, 19:58 (ссылка)

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

Загрузка ...

Опытный

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

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

Как узнать размер файла, который я скачиваю командой HTTP1.Get?

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

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