TICQClient в Console Application

[unbanned]

нашел на форуме вот такой способ использовать TICQClient в консольке

program icq;

uses
  Messages, Windows, sysutils, ICQClient;

type
  TFNTimeCallBack = procedure(uTimerID, uMessage: UINT;
    dwUser, dw1, dw2: DWORD) stdcall;

type
  Ticq = class
    ICQClient1: TICQClient;
    procedure MessageRecv(Sender: TObject; Msg, UIN: string);
  public
    constructor Create;
    destructor Destroy; override;
  end;

var
  Msg: tmsg;
  ICQClient1: TICQClient;
  Server1: Ticq;

  tmr2: integer;

function timeSetEvent(uDelay, uResolution: UINT; lpFunction: TFNTimeCallBack;
  dwUser: DWORD; uFlags: UINT): UINT; stdcall; external 'winmm.dll' name
  'timeSetEvent';

function timeKillEvent(uTimerID: UINT): UINT; stdcall; external 'winmm.dll' name
  'timeKillEvent';

procedure Ontmr2(uTimerID, uMessage: uint; dwUser, dw1, dw2: dword) stdcall;
begin
  if server1.ICQClient1.LoggedIn then
    server1.ICQClient1.SendKeepAlive;
end;

procedure timer_create;
begin
  tmr2 := timesetevent(120000, 0, @Ontmr2, 0, 1)
end;

procedure timer_destroy;
begin
  timeKillEvent(tmr2)
end;

procedure ticq.MessageRecv(Sender: TObject; Msg, UIN: string);
begin
  if server1.ICQClient1.LoggedIn then
    server1.ICQClient1.SendMessage(strtoint(uin), '333');
end;

constructor ticq.Create;
begin
  inherited Create;
  ICQClient1 := TICQClient.Create(nil);
  ICQClient1.OnMessageRecv := MessageRecv
end;

destructor ticq.Destroy;
begin
  ICQClient1.Free;
  inherited Destroy
end;
{------------------------------------------------------------------------------}
begin
  timer_create;
  Server1 := ticq.Create;

  with server1.ICQClient1 do
  begin
    ConvertToPlaintext := true;
    ConnectionTimeout := 0;
    ICQPort := 5190;
    ICQServer := 'login.icq.com';
    SecureLogin := true;
    TypingNotifications := false;
    UIN := ;
    Password := '';
    try
      Login($10000000);
    except
    end
  end;

  try
    while GetMessage(Msg, 0, 0, 0) do
    begin
      TranslateMessage(Msg);
      DispatchMessage(Msg)
    end
  finally
    Server1.Free;
    timer_destroy;
  end
end.

вопрос собственно в следующем... а нет ли другого варианта, более рационального?

[Slym]

критерий рациональности не озвучен. что не нравится в приведеном коде?

[raxp]

http://programmersforum.ru/showthread.php?p=373464

Да, мне тоже интересен критерий ...только консоли тут я не вижу.

[unbanned]

да вообщем то все нравится. работает и ладно... просто интересно есть ли другой способ, возможно более наглядный.

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

я пробовал как-то так...

var
icq:TICQClient;
procedure ICQMessage(Sender:TObject);
begin
end;

begin
icq:=TICQClient.Create();
TICQClient.onMessageRecv:=ICQMessage;
....
end.

но так не работает) позже понял, что и не могло сработать...

еще интересно каким образом работает вот эта конструкция)

 try
    while GetMessage(Msg, 0, 0, 0) do
    begin
      TranslateMessage(Msg);
      DispatchMessage(Msg)
    end
  finally
    Server1.Free;
    timer_destroy;
  end

P.S. возможно не корректо выразился... я имел ввиду console application.

[Человек_Борща]

Что за бред с классами? Зачем он?
Объяви переменную типа ICQ-клиент, объяви процедуру-событие. Дальше все просто: создай экземпляр в эту переменную, назначь событие и используй.

[raxp]

to TC: http://www.vsokovikov.narod.ru/New_M...getmessage.htm

Что за бред с классами? Зачем он?

це скелет-заготовка для возможности использования VCL-методов в приложении без формы без привязки к чужим классам.

P.S. возможно не корректо выразился... я имел ввиду console application.

и продолжаете, нет тут консольного приложения.

[unbanned]

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

и продолжаете, нет тут консольного приложения.

вы имеете ввиду что нет директивы {$APPTYPE CONSOLE}?

[raxp]

...оно самое

[Slym]

есть такая штука как TMethod... к самой процедуре добавляешь первым параметром self

procedure MessageRecv(self,Sender: TObject; Msg, UIN: string);
...

var Method:TMethod;


ICQClient1 := TICQClient.Create(nil);
Method.Code:=@MessageRecv;
Method.Data:=ICQClient1 ;
 ICQClient1.OnMessageRecv := Method;

[unbanned]

2 Человек_Борща, можете небольшой пример привести...

var
icq:TICQClient; //создал переменную

procedure onMessage(Sender: TObject; Msg, UIN: string); //процедура .... или процедура-событие задается по другому?
begin

end;

begin
icq:=TICQCLient.Create();//создал экземпляр класса
....
end.

а как назначить событие то? что-то я не очень понял

2 Slym благодарю

2 raxp
почитал по вашей ссылке про getmessage спасибо.
но вот эта ссылка больше подойдет, если кому-то еще будет интересно.

P.S. выдержка со статьи по вашей ссылке :D

Предупреждение !
Поскольку величина возвращаемого значения функции может быть не нуль, нуль или - (минус)1, не применяйте примерно такой код:

while (GetMessage( lpMsg, hWnd, 0, 0)) ...

Возможность возврата значения -(минус)1 означает, что такой код, может привести к фатальным ошибкам приложения. Вместо этого, используйте код подобно приведенному ниже:

BOOL bRet;

while( (bRet = GetMessage( &msg, NULL, 0, 0 )) != 0)
{  
    if (bRet == -1)
    {
        // Обработка ошибки и возможный выход из программы
    }
    else
    {
        TranslateMessage(&msg); 
        DispatchMessage(&msg); 
    }
}