Delphi7. TICQClient v1.35. Проблемы. Код

[snr93]

Добрый день. Помогите кто может с кодом. 2 день сижу и ничего не получается. Нужно написать бота. Смысл: боту пишется слово "привет", он отвечает "здорово", ну и так далее. Вот что у меня есть:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, ICQDb, ICQClient, StdCtrls, ICQWorks;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    ICQClient1: TICQClient;
    ICQDb1: TICQDb;
    Timer1: TTimer;
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure ICQClientMessageRecv(Sender: TObject; Msg, UIN: String);
     private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
ICQClient1.UIN := 637198656;
ICQClient1.Password := 'password***';
ICQClient1.XStatus := 12;
ICQClient1.Login(S_ONLINE + S_ALLOWDAUTH, false);
Timer1.Enabled:= true
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
ICQClient1.SendKeepAlive
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
ICQClient1.LogOff
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
if ICQClient1.LoggedIn then //проверяем, в онлайне ли мы
ICQClient1.SendMessage(7624084,'Привет') //сначала UIN , а потом текст сообщения
Else
Showmessage('Войди в онлайн!'); //если мы не подключены
end;

procedure TForm1.ICQClientMessageRecv(Sender: TObject; Msg, UIN: String);
var
s: string;
st: tstrings;
begin
s:=Msg; //присваиваем переменной s текст который пришёл от клиента
{--------------------------------------------------------------}
if s='hi' then //Что прислали
 begin
   ICQClient1.SendMessage(7624084, 'hello'); //что отвечаем
 end;
{--------------------------------------------------------------}

end;
end.

Все конектится, сообщение о включении присылает, но слово Привет игнорирует полностью. Использую компонент "царя". Вот ССЫЛКА . Компонент использую версии 1.35

[BARNEY]

ну на привет оно и не будет реагировать только на hi притом в нижнем регистре

[snr93]

код просто был немного переделан, он и на hi не реагирует.

[Serge_Bliznykov]

код просто был немного переделан, он и на hi не реагирует.

ну и откуда нам знать, что и как Вы переделали?!!

для начала ставьте точку останова на строчку:

  s:=Msg; //присваиваем переменной s текст который пришёл от клиента

проверяйте.
1-е. что вообще обработчик ICQClientMessageRecv корректно назначен и вызывается при приёме сообщения.

2-е. смотрите, что попадает в переменную s

делайте выводы, исправляйте найденные косяки...

[eoln]

Последний раз работал с этим компонентом полгода назад, помню с 1.35 у меня были какие-то проблемы (какие уже не помню, но кажется что-то с коннектом связано), поэтому вернулся на 1.34.