Вызов обработчика событий

[Alex2009]

Добрый вечер.
Наткнулся на такую проблему, пишу свой модуль в котором idHttp создается так HTTP: IdHTTP; и в нем мне нужно вызвать обработчик события IdHTTP - OnDisconected но вот как это сделать даже нету предположений.
Буду благодарен за любую информацию.

[Аватар]

1. HTTP.OnDisconnected(HTTP);
2. HTTPDisconnected(HTTP);
Только зачем?

[Alex2009]

Спасибо большое, а по другому через Indy токен не получишь из vk а я пишу свой модуль, а synapse использовать не хочу.

[Alex2009]

Что я делаю не так?

unit VkClient;

interface

uses
  SysUtils, Classes, IdHTTP, StrUtils, IdCookieManager, IdBaseComponent,
  IdComponent, IdTCPConnection, IdTCPClient, IdStack, IdIOHandler,
  IdIOHandlerSocket, IdIOHandlerStack, IdSSL, IdSSLOpenSSL, IdIntercept;

type
  TVkClient = class(TComponent)
  private
    procedure HTTPDisconnected(Sender: TObject); // ****************** ТУТ
    { Private declarations }
  protected
    { Protected declarations }
  public
    { Public declarations }
  published
    constructor Create(aowner:Tcomponent);override;
  end;

   procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Vkontakte', [TVkClient]);
end;

constructor TVkClient.Create(aowner: Tcomponent);
begin
  inherited;
  HTTP := TIdHTTP.Create(nil);

  HTTP.IOHandler := TIdSSLIOHandlerSocketOpenSSL.Create(HTTP);
  HTTP.CookieManager := TIdCookieManager.Create(HTTP);
  HTTP.HandleRedirects := True;

  HTTP.OnDisconnected:= HTTPDisconnected; // *********** ТУТ
end;

procedure TVkClient.HTTPDisconnected(Sender: TObject);
begin
  if Pos('access_token=',HTTP.Response.Location) <> 0 then
  begin
    Token := extract(HTTP.Response.Location, 'access_token=', '&');
  end;
end;

[Alex2009]

Ребят неужели не кто не знает?

[phomm]

Сообщение от Alex2009

Добрый вечер.
Наткнулся на такую проблему, пишу свой модуль в котором idHttp создается так HTTP: IdHTTP; и в нем мне нужно вызвать обработчик события IdHTTP - OnDisconected но вот как это сделать даже нету предположений.
Буду благодарен за любую информацию.

Ткните в код, где он _объявляется_ , ибо эти слова относятся к объявляется, а не _создаётся_
Как раз у Вас в коде он создаётся

HTTP:= IdHTTP.Create(nil);

Но он не может быть присвоен в переменную, которая даже не объявлена.

[Alex2009]

Сообщение от phomm

Ткните в код, где он _объявляется_ , ибо эти слова относятся к объявляется, а не _создаётся_
Как раз у Вас в коде он создаётся

HTTP:= IdHTTP.Create(nil);

Но он не может быть присвоен в переменную, которая даже не объявлена.

Вообще то он создается, в коде просто я кинул не все, и его похоже тоже удалил. Если бы не создал то получил бы (Ацесс волотион) или как там.

Проблема была в другом, вопрос решен всем спасибо.