ICQclient и многопоточность

[spored]

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

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdHTTP, ICQClient;

type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
Memo1: TMemo;
Memo2: TMemo;
Button2: TButton;
ICQClient1: TICQClient;
Edit2: TEdit;
procedure Button1Click(Sender: TObject);
procedure ICQClient1Login(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

type
TMyThread = class(TThread)
private
fID: Integer;
protected
procedure SetID(Value: Integer);
function GetID: Integer;
procedure Execute; override;
public
property ThreadID: Integer read GetID write SetID;
end;

var
Form1: TForm1;
MyThread: TMyThread;
ThreadNumber: integer;
var ICQ: array of TICQClient;
i:integer;
Uin, Password:string;
AccountList:Tstringlist;
Acc:integer;

implementation

{$R *.dfm}


procedure TMyThread.SetID(Value: Integer);
begin
fID:=Value;
end;


Function TMyThread.GetID: Integer;
begin
Result:=fID;
end;

procedure TMyThread.Execute;
begin
Inc(Acc);
UIN:=Copy(AccountList[Acc],1,Pos(';',AccountList[Acc])-1);
Password:=Copy(AccountList[Acc],Pos(';',AccountList[Acc])+1,Length(AccountList[Acc]));

Form1.Memo2.Lines.Add(UIN+';'+Passw ord);

SetLength(ICQ, ThreadID);
ICQ[i]:=TICQClient.Create(nil);
ICQ[i].UIN:=StrToInt(UIN);
ICQ[i].Password:=Password;
ICQ[i].Login();
ICQ[i].OnLogin:=Form1.ICQClient1Login;
ICQ[i].Tag:=i;
Sleep(StrToInt('2000'));
ICQ[i].LogOff;
ICQ[i].Free;
end;

procedure TForm1.Button1Click(Sender: TObject);
var ii:integer;
begin
ThreadNumber:=strtoint(Form1.Edit1. Text);
for ii := 1 to ThreadNumber do
begin
MyThread:=TMyThread.Create(False);
MyThread.Priority:=tpNormal;
MyThread.FreeOnTerminate:=True;
MyThread.ThreadID:=ii;
MyThread.Resume;
end;
end;

procedure TForm1.ICQClient1Login(Sender: TObject);
begin
Form1.Memo2.Lines.Add('Good');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
AccountList:=Tstringlist.create;
AccountList.LoadFromFile('source.tx t');
Acc:=0;
end;

end.

[Пепел Феникса]

а причем тут ICQClient?
он помоему итак асинхронный.

[spored]

Сообщение от Пепел Феникса

а причем тут ICQClient?
он помоему итак асинхронный.

не понял

[dosha]

юзайте товарищь бегин сиад иль как там его. а в каждом потоке свой экземпляр класса + отдельно переданный логин пасс.

[Пепел Феникса]

сначало код был другой.

ICQClient итак асинхронный(выносит действия в поток), не нужно его выносить в поток.

[spored]

А как тогда добиться многопоточности ?

[Пепел Феникса]

вам нужна не многопоточность, а много соединений, киньте три компонента, будет три соединения(но помним про лимит с IP)

[spored]

Вот например мне нужно вывести 100+ номеров в онлайн.Мне теперь 100+ компонентов кидать ? Мне именно нужно вывести много номеров в онлайн одновременно

[Пепел Феникса]

ну создать динамически не проблема.

ток наверно вас сервер пошлет .

[spored]

Не поможете с созданием ? Я пытался создать динамически но как то не так работает.