VPF::Обработка события компонента в DLL

Elfix

Дата 6.3.2007, 17:35 (ссылка)

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

Загрузка ...

Бывалый

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

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

Код


library Project2;

uses
  SysUtils, Classes, IdIRC, Windows;

type
 TIRCBot = class(TObject)
  private
   IRC: TIdIRC;
  public
   constructor Create;
   procedure Connect;
   procedure OnMessageIRC(Sender: TObject; AUser: TIdIRCUser; AChannel: TIdIRCChannel; Content: String);
   destructor Free;
 end;

{ TIRCBot }

var
 IRCBot: TIRCBot;

procedure TIRCBot.OnMessageIRC(Sender: TObject; AUser: TIdIRCUser; AChannel: TIdIRCChannel; Content: String);
begin
 IRC.Say(AChannel.Name, Content);
end;

procedure TIRCBot.Connect;
begin
 if not IRC.Connected then
  IRC.Connect();
 IRC.Join('#testing');
end;

constructor TIRCBot.Create;
begin
 IRC:=TIdIRC.Create(nil);
 IRC.Host:='irc.cyber-net.ru';
 IRC.Port:=6669;
 IRC.Nick:='flooder';
 IRC.AltNick:='Buka';
 IRC.RealName:='Vicka';
 IRC.Username:='Vikusya';
 IRC.OnMessage:=OnMessageIRC;
end;

destructor TIRCBot.Free;
begin
 if IRC.Connected then
  IRC.Disconnect();
 IRC.Free;
end;

function StartProc: Boolean; stdcall;
begin
 IRCBot:=TIRCBot.Create;
 IRCBot.Connect;
 Result:=False;
end;

procedure StopProc; stdcall;
begin
 IRCBot.Free;
end;

exports
 StartProc name 'StartProc',
 StopProc name 'StopProc';

begin
end.

Событие OnMessageIRC никогда не происходит. С чем это может быть связано? Как решить проблему?
Пробовал так же создать компонент на форме, так же инициализировать, так же заходить на канал и назначить процедуру обработки OnMessageIRC, там все работает. А из библиотеки не хочет.

MetalFan

Дата 7.3.2007, 09:35 (ссылка)

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

Загрузка ...

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

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

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

возможно до компонента не доходят виндовые сообщения.
если экземпляр этого класса создается в приложении, то все работает нормально?

Это сообщение отредактировал(а) MetalFan - 7.3.2007, 09:35

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

There are always someone smarter than you...

ama_kid

Дата 7.3.2007, 12:01 (ссылка)

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

Загрузка ...

АСУТП-кодер

Профиль
Группа: Комодератор
Сообщений: 1460
Регистрация: 5.3.2007
Где: Москва

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

MetalFan дал практически точную подсказку... Имхо, дело в том, что dll имеет свой собственный стек данных, никак не связанный со стеком данных приложения. И хотя контекст библиотеки исполняется в контексте приложения, но, насколько я понимаю, при создании экземпляра класса он не ставится с очередь на прием сообщений как раз потому что он находится в другом сегменте данных, куда главное приложение не имеет доступа. А своей очереди сообщений библиотека не имеет... Едиственный момент - насколько я помню, Delphi не умеет из dll экспортировать классы (только функции), поэтому создать экземпляр класса, объявленного в dll не получится. Я бы просто оставил это дело в основном приложении и не заморачивался с dll...

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

самурай без меча подобен самураю с мечом, но только без меча

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