| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как

Pacific ©   (2007-11-30 13:12:00) 

Как запустить поток параметрами?

---

Pacific   (2007-11-30 14:14:00) [1]

Мне объяснили так(но я не понял):

procedure OnIcqLogin(Sender: TObject); - так оформляется обработчик события.
Генерация происходит иным образом:

private
 FOnIcqLogin: TNotifyEvent;
...
public
 property OnIcqLogin: TNotifyEvent read FOnIcqLogin write FOnIcqLogin;
...

...
if Assigned(FOnIcqLogin) then
 FOnIcqLogin(Self); // Генерация события.
...

---

Pacific   (2007-11-30 14:09:00) [2]

procedure Login(Status: LongWord = S_ONLINE)
Процедура устанавливает соединение с сервером, вы сразу переходите в статус Status, который по умолчанию S_ONLINE, можно залогиниться и с другим статусом, спосок статусов в property Status.

OnLogin(Sender: TObject)
Вызывается при успешном логине.

---

Сергей М.   (2007-11-30 14:07:00) [3]

> OnLogin-если подключился


Ну и нафиг оно тебе вообще нужно ?

Есть метод Login, он, насколько я понял, блокирующий.

Как он работает, ты разобрался ?
Он возвращает управление при успешном подключении и вызывает исключение при неуспешном ?
Или это функциональный метод, возвращающий признак успешности подключения ?
Я что, гадать за тебя должен ?)

---

Pacific   (2007-11-30 14:01:00) [4]

> Спамим-фладим ?)
>
> А ты вообще уверен, что событие OnLogin есть факт успешного
> подключения ?

OnLogin-если подключился, не спамим, и не флудим :))), а отсылаем отчеты багаюзеров и читеров

---

Сергей М.   (2007-11-30 13:56:00) [5]

> посылать сообщения, пока start=true


Спамим-фладим ?)

А ты вообще уверен, что событие OnLogin есть факт успешного подключения ?

---

Pacific   (2007-11-30 13:41:00) [6]

если можно примерчик какой нить

---

Pacific   (2007-11-30 13:40:00) [7]

Задача:
Подключиться к асе, если происходит событие onlogin, то посылать сообщения, пока start=true, чтобы, вся проблема, что форма виснет, хоть это все в потоке (

---

Сергей М.   (2007-11-30 13:34:00) [8]

За каким вообще лешим тебе этот доп.поток, можешь объяснить вразумительно с аргументами ?

---

Сергей М.   (2007-11-30 13:33:00) [9]

> что я делаю непрально


Абсолютно все.

Переформулируй, точнее детально сформулируй задачу, прежде чем лепить код..

---

Pacific   (2007-11-30 13:29:00) [10]

и еще вопрос, что я делаю непрально:
Мне нужно чтобы в Execute запускалось, если происходит событие OnLogin

type
 threed = class(TThread)
 icqclient1:Ticqclient;
 procedure ICQClient1Login(Sender: TObject);
 private
 FOnIcqLogin: TNotifyEvent;
 protected
   property OnIcqLogin: TNotifyEvent read FOnIcqLogin write FOnIcqLogin;
   procedure Execute; override;
 end;

implementation

{ threed }
uses main;
procedure threed.Execute;
var
sent:integer;
begin
icqclient1:=Ticqclient.Create(nil);
icqclient1.UIN:=111;
icqclient1.Password:='11';
icqclient1.OnLogin:=ICQClient1Login;
if Assigned(FOnIcqLogin) then
begin
sent:=0;
form1.Memo1.Lines.Add('1');
while form1.start=True do
begin
Inc(sent);
form1.Memo1.Lines.Add('2');
sleep(strtoint(form1.Edit3.Text)*1000);
form1.Memo1.Lines.Add('3');
ICQClient1.SendMessage(111, 'asdasdasdas');
 If (sent=strtoint(form1.Edit4.Text)) then
 begin
 sleep(strtoint(form1.Edit5.Text)*1000);
 sent:=0;
 end;
end;
form1.Memo1.Lines.Add('4');
end;
icqclient1.Login();
end;

procedure Threed.ICQClient1Login(Sender: TObject);
begin
FOnIcqLogin(Self);
end;

end.


---

{RASkov}   (2007-11-30 13:26:00) [11]

> [3] Pacific   (30.11.07 13:22)

Дык и сделай свой нужный конструктор...

---

Pacific   (2007-11-30 13:22:00) [12]

> поток с параметрами?
> <Цитата>

да, т.е. мне надо например: threed.create(false, 'строка', 3333)

---

palva   (2007-11-30 13:21:00) [13]

> поток параметрами?
поток спараметрами?

---

clickmaker   (2007-11-30 13:20:00) [14]

VCL или WinAPI?

---

Наверх