Всем добрый день!
Незнаю можно ли здесь это спрашивать или нет
но, у меня такая проблема...
авторизовываюсь в аське. использую компонент ICQClient... вот код.
Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
ICQClient1.LogOff;
ICQClient1.ConvertToPlaintext := True;
ICQClient1.UIN:=strtoint(edit1.Text);
ICQClient1.Password:=edit2.text;
ICQClient1.ICQServer := 'login.icq.com';
ICQClient1.ICQPort := 5190;
ICQClient1.Login;
end;
procedure TForm1.ICQClient1Login(Sender: TObject);
begin
ListBox1.Items.Add('true!');
end;
procedure TForm1.ICQClient1ConnectionFailed(Sender: TObject);
begin
ListBox1.Items.Add('false!');
end;
это всё работает хорошо (авторизовывается)... проблема вот в чем
сделав цикл диапозона uin'ов в listBox1 ни чего не происходит... а сам цикл идет очень быстро (авторизоваться явно не успевает или ещё что
)
делаю так:
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
for i:=strtoint(edit1.Text) to strtoint(edit3.Text) do begin
ICQClient1.LogOff;
ICQClient1.ConvertToPlaintext := True;
ICQClient1.UIN:=i;
ICQClient1.Password:=edit2.text;
ICQClient1.ICQServer := 'login.icq.com';
ICQClient1.ICQPort := 5190;
ICQClient1.Login;
Application.ProcessMessages;
end;
end;
procedure TForm1.ICQClient1Login(Sender: TObject);
begin
ListBox1.Items.Add('yes!');
end;
procedure TForm1.ICQClient1ConnectionFailed(Sender: TObject);
begin
ListBox1.Items.Add('no!');
end;
авторизация явно не происходит... в чем ошибка? и как это можно исправить? если вообще можно обсуждать это