VPF::IdHTTP - отменить GET - Форум программистов

Zlo

Дата 6.11.2006, 02:04 (ссылка)

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

Загрузка ...

Бывалый

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

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

понял =)

Код


if AWorkMode=wmRead then idHTTP1.DisconnectSocket;

(иногда хелп всетаки помогает)
Тока вот у меня вопрос, а как это событие отловить в потоке (трейде) где компонент создан?

Matematik

Дата 6.11.2006, 09:43 (ссылка)

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

Загрузка ...

Эксперт

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

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

Цитата(Zlo @ 6.11.2006, 02:04

)

хелп всетаки помогает

Ты сомневался? smile

Цитата(Zlo @ 6.11.2006, 02:04

)

как это событие отловить в потоке (трейде) где компонент создан?

Код


  TThread2 = class(TThread)
  private
    procedure WorkEventProc(Sender: TObject; AWorkMode: TWorkMode; const AWorkCount: Integer);
  end;

constructor TThread2 .Create;
begin
  FIdHTTP.OnWork := WorkEventProc;
end;

procedure TThread2 .WorkEventProc(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCount: Integer);
begin
  if Terminated then
    (Sender as TIdHTTP).Disconnect;
end;

Zlo

Дата 6.11.2006, 16:10 (ссылка)

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

Загрузка ...

Бывалый

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

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

Matematik, извини но че-то у меня не получилось так как ты показал. Я решил сделать по своему вот так:

Код


unit Unit2;

interface

uses
  Classes, SysUtils,IdHTTP, StdCtrls, IdComponent, IdTCPConnection, IdTCPClient,IdCookieManager;

type
  TPMSender = class(TThread)
  idHTTP1:TidHTTP;
  procedure IdHTTP1Work(Sender: TObject; AWorkMode: TWorkMode;
    const AWorkCount: Integer);
  private
    { Private declarations }
    {...}
  protected
    {...}
  public
    {...}
  end;

implementation

uses Unit1;
{$J+}
const
   DataHtmlRead:Boolean=true;
var
    {...}
    
procedure TPMSender.IdHTTP1Work(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCount: Integer);
begin
    if DataHtmlRead= false then
       if AWorkMode=wmRead then idHTTP1.DisconnectSocket;
end;

procedure TPMSender.Execute;
var
 {...}
begin
{...}
end;

Помоги пожалуйста!

Это сообщение отредактировал(а) Zlo - 8.11.2006, 02:21

Matematik

Дата 6.11.2006, 16:32 (ссылка)

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

Загрузка ...

Эксперт

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

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

Событие забыл установить

Zlo

Дата 6.11.2006, 16:40 (ссылка)

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

Загрузка ...

Бывалый

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

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

Цитата(Matematik @ 6.11.2006, 16:32

)

Событие забыл установить

а как и где его установить?

Matematik

Дата 6.11.2006, 16:50 (ссылка)

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

Загрузка ...

Эксперт

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

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

Так написал уже
FIdHTTP.OnWork := WorkEventProc;

Zlo

Дата 6.11.2006, 16:55 (ссылка)

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

Загрузка ...

Бывалый

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

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

Matematik,
дык если вставляю

Код


constructor TPMSender.Create;
begin
  IdHTTP1.OnWork := IdHTTP1Work;
end;

Код не компилится, ругается что нету:
-Create
-IdHTTP1
-IdHTTP1Work

MacTep

Дата 4.2.2007, 12:14 (ссылка)

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

Загрузка ...

Эксперт

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

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

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

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

(A)bort, (R)etry, (I)gnore = Haфиг, Heфиг, Пoфиг ... :)

Matematik

Дата 4.2.2007, 14:28 (ссылка)

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

Загрузка ...

Эксперт

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

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

Цитата(MacTep @ 4.2.2007, 12:14)

Да. Например. Для 9 подсоедини к IdHTTP TIdLogEvent с вкладки "Indy Intercents", в событиях он Send\Receive считать переданные байты.
В 10 такой способ немного сложней, нельзя напрямую соединить IdHTTP TIdLogEvent нужен дополнительный компонент для их связи (не помню какой).

ЗЫ
лучше бы новую тему создал

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