помогите. когда пароль не правильный вылазит сервисное сообщение : неправильный номер/пароль. как это сообщение обработать чтобы в своей проге  и знать что ввел неверный пароль?????????

ICQ.OnError := OnICQError;

у меня почему то тут встает

Код приводи, и программы и ошибки. У мну с телепатией так себе.

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    ICQClient1: TICQClient;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure ICQClient1Login(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure ICQClient1Error(Sender: TObject;
      ErrorMsg: String; ErrorAddType: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
icqclient1.Password:=edit2.Text;
icqclient1.UIN:=strtoint(edit1.text);
if not icqclient1.LoggedIn then
icqclient1.Login();

end;

procedure TForm1.ICQClient1Login(Sender: TObject);
begin
label1.Caption:='зашли';
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
icqclient1.OnError:=onicqclient1error;
end;

procedure TForm1.ICQClient1Error(Sender: TObject; ErrorType: TErrorType;
  ErrorMsg: String; ErrorAddType: Integer);
begin
label1.Caption:='неверный пароль';
end;

end.


сначала ему не нравится ErrorType: TErrorType; - удаляю ее, запускаю вылазит ошибка  the icqclient1error method referenced by icqclient1.onerror has an incompatible parameter list. Remove the reference? --нажимаю No потом не нравиться icqclient1.OnError:=onicqclient1error; пишет что Undeclared identifier:'onicqclient1error'

 procedure ICQClient1Error(Sender: TObject; ErrorType: TErrorType;
      ErrorMsg: String; ErrorAddType: Integer);   сначала здесь стоориться , удаляю ErrorType: TErrorType; потом icqclient1.OnError:=onicqclient1error; здесь пишет undeclared identifier icqclient1.OnError

procedure TForm1.Button1Click(Sender: TObject);
begin
icqclient1.Password:=edit2.Text;
icqclient1.UIN:=strtoint(edit1.text);

if not ICQClient1.LoggedIn then
  begin
    label1.Caption := 'Connecting...';
    ICQClient1.Login(NewStatus);
  end;

end;

procedure TForm1.ICQClient1Login(Sender: TObject);
begin
label1.Caption:='çàøëè';
end;

procedure TForm1.ICQClient1Error(Sender: TObject;
  ErrorMsg: String; ErrorAddType: Integer);
begin
label1.Caption:='ïàðîëü íå âåðíûé';
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
icqclient1.OnError:=onicqclient1error;
end;

end.

Ахха... если пишет что "не нравится ErrorType" - столо быть мы используем разные версии / варианты TICQClient, логично? 
Дело в том что ICQ меняла протокол и тот компонент который красиво инсталлится в систему к сожалению не работает  

Вот тебе переделанный компонент, в котором ErrorType и все подобное точно присутствует, плюс он 100% рабочий.
Использовать так: 
Кинуть в папку с проектом и в Project-Options-Directories/Conditions - Unit Output Directory написать Unit , а в Project-Options-Directories/Conditions - Search Path написать ICQClient.

PS Конечно, создавать визуально перетягивая иконку ICQ уже не получится, придется писать 



Присоединённый файл ( Кол-во скачиваний: 27 )
 ICQLite.ZIP 385,30 Kb