IcqClient - КАК с ним работать??

[ivannes]

Привет всем! Помогите ослить принципы работы с IcqClient - Либой для работы с протоколом icq

[BDA]

Вот простой пример чатбота, который отвечает время (писалось в delphi 2010):

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ICQClient, icqworks, StdCtrls, ComCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    icq: TICQClient;
    Button1: TButton;
    RichEdit1: TRichEdit;
    Timer1: TTimer;
    ListBox1: TListBox;
    procedure icqLogin(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure icqMessageRecv(Sender: TObject; Msg, UIN: RawByteString);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure icqConnectionFailed(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure icqUserGeneralInfo(Sender: TObject; UIN, NickName, FirstName,
      LastName, Email, City, State, Phone, Fax, Street, Cellular, Zip,
      Country: RawByteString; TimeZone: Byte; PublishEmail: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  icq.Login(S_ONLINE, false);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  RichEdit1.Clear;
  icq.UIN := {требуемый логин};
  icq.Password := {пароль от аккаунта};
  Timer1.OnTimer(self);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  icq.Disconnect;
end;

procedure TForm1.icqConnectionFailed(Sender: TObject);
begin
  caption := 'Соединение разорвано';
end;

procedure TForm1.icqLogin(Sender: TObject);
begin
  if icq.LoggedIn then
  begin
    caption := 'Соединение установлено';
  end;
end;

procedure TForm1.icqMessageRecv(Sender: TObject; Msg, UIN: RawByteString);
begin
  if pos('!time', AnsiLowerCase(Msg)) = 1 then
  begin
    listbox1.Items.Append(datetimetostr(now));
    icq.RequestInfo(strtoint(UIN));
    icq.SendMessage(strtoint(UIN), timetostr(now));
  end;
end;

procedure TForm1.icqUserGeneralInfo(Sender: TObject; UIN, NickName, FirstName,
  LastName, Email, City, State, Phone, Fax, Street, Cellular, Zip,
  Country: RawByteString; TimeZone: Byte; PublishEmail: Boolean);
begin
  listbox1.Items[listbox1.Items.Count - 1] := listbox1.Items[listbox1.Items.Count - 1] + ' ' + LastName + ' ' + FirstName+ ' ' + 'спросил(а) время';
    {first - имя; last - фамилия}
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if NOT icq.LoggedIn then
    icq.Login(S_ONLINE, false);
end;

end.

[ivannes]

спс. а можно исходник для delphi7?

[BDA]

Я посмотрел исходник для delphi 7, он такой же)
Попробуйте предыдущий откомпилировать.
Если что-то не заработает, то будем разбираться.

[ivannes]

не коомпилируется выводит целый ворох ошибок

PHP код:

[Ошибка] Unit1.pas(20): Undeclared identifier: 'RawByteString'
[Ошибка] Unit1.pas(21): Overloaded procedure 'FormCreate' must be marked with the 'overload' directive
[Ошибка] Unit1.pas(22): Overloaded procedure 'FormDestroy' must be marked with the 'overload' directive
[Ошибка] Unit1.pas(44): Undeclared identifier: 'icq'
[Ошибка] Unit1.pas(50): Undeclared identifier: 'icq'
[Ошибка] Unit1.pas(51): Missing operator or semicolon
[Ошибка] Unit1.pas(57): Undeclared identifier: 'icq'
[Ошибка] Unit1.pas(65): Undeclared identifier: 'icqLogin'
[Ошибка] Unit1.pas(67): Undeclared identifier: 'icq'
[Ошибка] Unit1.pas(69): Undeclared identifier: 'caption'
[Ошибка] Unit1.pas(78): Undeclared identifier: 'icq'
[Ошибка] Unit1.pas(79): Missing operator or semicolon
[Ошибка] Unit1.pas(79): Incompatible types: 'Cardinal' and 'String'
[Ошибка] Unit1.pas(87): Incompatible types
[Ошибка] Unit1.pas(93): Undeclared identifier: 'icq'
[Ошибка] Unit1.pas(98): Statement expected but end of file found
[Ошибка] Unit1.pas(21): Unsatisfied forward or external declaration: 'TForm1.FormCreate'
[Ошибка] Unit1.pas(22): Unsatisfied forward or external declaration: 'TForm1.FormDestroy'
[Фатальная Ошибка] Project1.dpr(5): Could not compile used unit 'Unit1.pas' 


[BDA]

По порядку.
Сначала нужно на форму кинуть все компоненты (которые прописаны в tform1).
Затем у появившихся компонентов создать требуемые события (кликаем по компоненту на форме, выбираем в инспекторе объектов (справа) вкладку Events, ищем события, которые указаны в исходнике, кликаем двойным кликом по ним и туда вписываем сам код).
Сделайте это и попробуйте еще раз скомпилировать (ошибки сюда).
ПС А вы сам ticqclient установили?

[ivannes]

ну я его так установил

компонент для работы с ICQ протоколом 
 для работы демок нужно сделать слудующее: 
 Project -> Options 
 Закладка Directories/Conditionals 
 3) -> Units output directory: Units 
 -> Search path: ICQClien