А у меня возникла такая проблема.
Обработка сообщений идет в цикле GetMessage. Но перед запуском цикла у меня создается компонент IdIRC. Компоненту я задаю событие OnMessage. Но при запуске программы код внутри процедуры обработки события OnMessage не возникало. Кто то подсказал мне, что это гдюк Delphi и чтобы все работало нужно программу запускать непосредственно из проводника, а не по нажатию на F9 в Delphi. Но даже такой способ запуска не решил проблему. Мой код:
| Код |
program Project1;
uses
Windows, IdIRC;
type
TIRCBot = class
constructor Initialize;
destructor ExitProgram;
procedure IRCMessage(Sender: TObject; AUser: TIdIRCUser; AChannel: TIdIRCChannel; Content: String);
procedure ExecuteProc;
private
Msg: TMsg;
IRC: TIdIRC;
end;
procedure TIRCBot.IRCMessage(Sender: TObject; AUser: TIdIRCUser; AChannel: TIdIRCChannel; Content: String);
begin
if Content = '!exit' then // Участок кода в этой процедуре не выполняется вообще
ExitProgram() // Повидимому это связано с зацикливанием программы
else
IRC.Say('#services', Content);
end;
function WindowProc(Hwn, Msg, wParam, lParam: Longint): Longint; stdcall;
begin
Result:=DefWindowProc(Hwn, Msg, wParam, lParam);
// Не знаю нужна ли эта функция или нет
// В исходнике вызовов на нее нигде нет
// Возможно этот код и не выполняется вовсе
end;
procedure TIRCBot.ExecuteProc;
begin
Create;
IRC.Connect();
IRC.Join('#services');
while GetMessage(Msg, 0, 0, 0) do // Почему то именно на этой строке возникает бесконечное ожидание, код ниже уже не вополняется
begin
TranslateMessage(Msg); // Под отладчиком это место вообще никогда не выполняется
DispatchMessage(Msg); // Здесь и происходит зависание программы
end;
end;
constructor TIRCBot.Initialize;
begin
IRC:=TIdIRC.Create(nil);
IRC.Host:='irc.cyber-net.ru';
IRC.Port:=6669;
IRC.Nick:='Nick';
IRC.AltNick:='Bot';
IRC.RealName:='Peter';
IRC.Username:='Bot';
IRC.OnMessage:=IRCMessage;
end;
destructor TIRCBot.ExitProgram;
begin
IRC.Free;
Free;
end;
var
IRCBot: TIRCBot;
begin
IRCBot:=TIRCBot.Initialize;
IRCBot.ExecuteProc;
end.
|
|
)