VPF::многопоточность с Jedy - Форум программистов

Antony41

Дата 23.2.2010, 15:47 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 332
Регистрация: 27.12.2008

Репутация: 1
Всего: 1

Здравствуйте! Всех с праздником. Думаю кто то еще остался трезв)
Следующая ситуация

В компоненте TJvThread, библиотеки Jedy, необходимо создать два потока
В этом компоненте есть следующее свойство

Код


public
    property Threads[Index: Integer]: TJvBaseThread read GetThreads;

TJvBaseThread это наследник TThread

Код


{
//Что то типа этого:
var Th1, Th2: TJvBaseThread;
begin
//...Create
Th1 := TJvBaseThread.Create(Self, FOnExecute1{MyEvent}, nil{Pointer});
Th2 := TJvBaseThread.Create(Self, FOnExecute2{MyEvent}, nil{Pointer})
JvThread.Threads[0] := Th1;
JvThread.Threads[1] := Th2;
 //но так нельзя 
//...Free
end;
}

Может кто нибудь знает как организовать многопоточность с помощью этого компонента.

Это сообщение отредактировал(а) Antony41 - 23.2.2010, 16:06

Alexeis

Дата 23.2.2010, 18:21 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459

Новый поток создается в функции

Код


function TJvThread.Execute(P: Pointer): THandle;
var
  BaseThread: TJvBaseThread;
begin
  Result := 0;
  if Exclusive and OneThreadIsRunning then
    Exit;

  if Assigned(FOnExecute) then
  begin
    BaseThread := TJvBaseThread.Create(Self, FOnExecute, P);
    try
      BaseThread.FreeOnTerminate := FFreeOnTerminate;
      BaseThread.OnShowMessageDlgEvent := OnShowMessageDlgEvent; 
      BaseThread.OnTerminate := DoTerminate;
      FThreads.Add(BaseThread);
      DoCreate;
    except
      BaseThread.Free;
      raise;
    end;
    if FRunOnCreate then
    begin
      BaseThread.Resume;
      CreateThreadDialogForm;
    end;
    Result := BaseThread.ThreadID;
  end;
end;

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »