Icq бот

[PadonnoK]

прива всем ! вот решил написать на делфи бота,и возникла трабл:Кто знает как написать чтоб Label отображал статус соединения,например если я ввожу все данные правильно пасс и логин то в Label былоб написано в сети , а если нет то не в сети !!Помогите кто может заранее спс=)

[KORN]

ну в событии он коннект выводи в лабель текст подключенно а при дисконнект выводи отключено

[PadonnoK]

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

ну в событии он коннект выводи в лабель текст подключенно а при дисконнект выводи отключено

вот код посмари пж чё не так, вроде конект это LoggedIn насколько я знаю вот только правильно это или нет?


unit Unit1;

interface

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

type
TForm1 = class(TForm)
ICQClient1: TICQClient;
VxodButton1: TButton;
UINEdit1: TEdit;
PassEdit2: TEdit;
ExitButton2: TButton;
Label1: TLabel;
Timer1keepAlive: TTimer;
procedure VxodButton1Click(Sender: TObject);
procedure ExitButton2Click(Sender: TObject);
procedure ICQClient1Login(Sender: TObject);
procedure Timer1keepAliveTimer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.VxodButton1Click(Sender: TObject);
begin
IcqClient1.UIN:=StrToInt(UINEdit1.T ext); // вводим номер аси
IcqClient1.Password:=PASSEdit2.Text ; // вводим пасс аси


ICQClient1.ConvertToPlaintext:=true ; // чтоб конвертировалось в тект формат


Icqclient1.Login(0); // подключение к серверу

VxodButton1.Enabled:=false;
UINEdit1.Enabled:=false;


end;

procedure TForm1.ExitButton2Click(Sender: TObject);
begin
icqclient1.Disconnect;// отключение от сервера
Label1.Caption:='Не в сети' ;
VxodButton1.Enabled:=True;
end;

procedure TForm1.ICQClient1Login(Sender: TObject); // во тут ненаю как точно
begin
if ICQClient1.LoggedIn then
begin

Label1.Caption :='В сети';
Timer1KeepALive.Enabled := True;
end;
end;

procedure TForm1.Timer1keepAliveTimer(Sender: TObject);
begin
IcqClient1.SendKeepAlive;
end;

end.

[OrdJONY]

[procedure TForm1.ICQClient1Login(Sender: TObject); // во тут ненаю как точно
begin
if ICQClient1.LoggedIn then
begin
Label1.Caption :='В сети';
Timer1KeepALive.Enabled := True;
end;
end;[/QUOTE]

Вот здесь проверка абсолютна не нужна! Это событие итак указывает что компонент приконектился, а не проходит может быть потому что он только потом этой переменной присваивает значение true.

[PadonnoK]

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

[procedure TForm1.ICQClient1Login(Sender: TObject); // во тут ненаю как точно
begin
if ICQClient1.LoggedIn then
begin
Label1.Caption :='В сети';
Timer1KeepALive.Enabled := True;
end;
end;QUOTE]

Вот здесь проверка абсолютна не нужна! Это событие итак указывает что компонент приконектился, а не проходит может быть потому что он только потом этой переменной присваивает значение true.

А как надо ? чёт я не фтыкаю=(

[KORN]

procedure TForm1.ICQClient1Login(Sender: TObject); // во тут ненаю как точно
begin
Label1.Caption :='В сети';
Timer1KeepALive.Enabled := True;
end;

[OrdJONY]

это при конекте, на событие OnLogin

KeepAliveTimer.Enabled := True;  
StatusLabel.Caption := 'В Сети';
  Login_Btn.Caption := 'Отсоелинится';
  LoginEdit.Enabled := False;
  PassEdit.Enabled :=  False;

;
а на OnConnectionFailed вот такое:

 KeepAliveTimer.Enabled := False;
  StatusLabel.Caption := 'Не в сети';
  LoginEdit.Enabled := True;
  PassEdit.Enabled  := True;

[PadonnoK]

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

procedure TForm1.ICQClient1Login(Sender: TObject); // во тут ненаю как точно
begin
Label1.Caption :='В сети';
Timer1KeepALive.Enabled := True;
end;

всмысле не знаю правильно или нет?

[PadonnoK]

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

это при конекте, на событие OnLogin

KeepAliveTimer.Enabled := True;  
StatusLabel.Caption := 'В Сети';
  Login_Btn.Caption := 'Отсоелинится';
  LoginEdit.Enabled := False;
  PassEdit.Enabled :=  False;

;
а на OnConnectionFailed вот такое:

 KeepAliveTimer.Enabled := False;
  StatusLabel.Caption := 'Не в сети';
  LoginEdit.Enabled := True;
  PassEdit.Enabled  := True;

Вот исправил ток ни чё не изменилось=(

unit Unit1;

interface

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

type
TForm1 = class(TForm)
ICQClient1: TICQClient;
VxodButton1: TButton;
UINEdit1: TEdit;
PassEdit2: TEdit;
ExitButton2: TButton;
Label1: TLabel;
Timer1keepAlive: TTimer;
procedure VxodButton1Click(Sender: TObject);
procedure ExitButton2Click(Sender: TObject);
procedure ICQClient1Login(Sender: TObject);
procedure Timer1keepAliveTimer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.VxodButton1Click(Sender: TObject);
begin
IcqClient1.UIN:=StrToInt(UINEdit1.T ext); // ââîäèì íîìåð àñè
IcqClient1.Password:=PASSEdit2.Text ; // ââîäèì ïàññ àñè


ICQClient1.ConvertToPlaintext:=true ; // ÷òîá êîíâåðòèðîâàëîñü â òåêò ôîðìàò


Icqclient1.Login(0); // ïîäêëþ÷åíèå ê ñåðâåðó

VxodButton1.Enabled:=false;
UINEdit1.Enabled:=false;


end;

procedure TForm1.ExitButton2Click(Sender: TObject);
begin
icqclient1.Disconnect;// îòêëþ÷åíèå îò ñåðâåðà
Label1.Caption:='Íå â ñåòè' ;
VxodButton1.Enabled:=True;
end;

procedure TForm1.ICQClient1Login(Sender: TObject);
begin

Timer1KeepAlive.Enabled := True;
Label1.Caption:= ' Â ñåòè ' ;

end;

procedure TForm1.Timer1keepAliveTimer(Sender: TObject);
begin
IcqClient1.SendKeepAlive;
end;

end.

[KORN]

тока теперь лишней писанины нету.... а так все правильно... а че у тя ща не меняется надпись7

как часто у тя клиент посылает IcqClient1.SendKeepAlive7