Идея реализации скелета класса

[TwiX]

Есть объект А класса (должен распознавать текст). Процесс распознавания должен выглядеть так:

А:=*.Create;
A.image:=TBitmap(bmp);
A.onRecognizer:=...
A.Recognize;

Сначала думал унаследовать класс от потока, но он бы мог распознавать только одну картинку, т.е. такое не сработало бы:

А:=*.Create;
A.image:=TBitmap(bmp);
A.onRecognizer:=...
A.Recognize;
A.image:=TBitmap(bmp2);
A.Recognize;

Можно конечно написать класс, в процедуре Recognize которого будет создаваться отдельный поток, но это не очень красиво. Собственно вопрос состоит в том, как сделать поток с многоразовой Execute (без использования внутри Execute событий(Event'ов/WaitForSingleObject)?

[Stilet]

А что за проблема описать свой класс на основе TThread, и тогда каждый объект будет владеть своим потоком.

[TwiX]

Я же говорю, что не понимаю как сделать многоразовый поток, не засоряя Execute разными событиями. Допустим мы создали объект на основе потоке и остановили его в конструкторе. Занесли туда нужные данные, вызвали Recognize - она запустила поток, там в Execute распозналась картинка и поток убился. Ещё раз занеси в этот объект картинку и вызвать Recognize не получится...

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

тебе нужно свой класс тогда писать, с иной структурой ThreadFunc

[GunSmoker]

type
  TRecognizer = class
  private
    FRecognize: TNotifyEvent;  
  protected 
    FRecognizedText: String;
    FImg: TBitmap;
    procedure DoRecognize;
  public
    constructor Create(const AImg: TBitmap); virtual;
    procedure Recognize;
    property RecognizedText: String read FRecognizedText;
    property OnRecognize: TNotifyEvent read FRecognize write FRecognize;
  end;

constructor TRecognizer.Create(const AImg: TBitmap); 
begin
  inherited Create;
  FImg := AImg;
end;

procedure TRecognizer.Recognize;
begin
  FRecognizedText := // распознать текст в FImg
  DoRecognize; // вызвать событие
end;

procedure TRecognizer.DoRecognize;
begin
  if Assigned(FRecognize) then
    FRecognize(Self);
end;

С потоками:

type
  TRecognizer = class
  private
    FRecognize: TNotifyEvent;  
  protected 
    FRecognizedText: String;
    FImg: TBitmap;
    procedure DoRecognize;
    procedure InternalRecognize;
  public
    constructor Create(const AImg: TBitmap); virtual;
    procedure Recognize;
    property RecognizedText: String read FRecognizedText;
    property OnRecognize: TNotifyEvent read FRecognize write FRecognize;
  end;

constructor TRecognizer.Create(const AImg: TBitmap); 
begin
  inherited Create;
  FImg := AImg;
end;

procedure TRecognizer.InternalRecognize;
begin
  FRecognizedText := // распознать текст в FImg
  DoRecognize; // вызвать событие
end;

procedure TRecognizer.DoRecognize;
begin
  if Assigned(FRecognize) then
    FRecognize(Self);
end;

function ThreadWrapper(ARecognizer: TRecognizer): Cardinal; stdcall;
begin
  ARecognizer.InternalRecognize;
  Result := 0;
end;

procedure TRecognizer.Recognize;
begin
  QueueUserWorkItem(@ThreadWrapper, Pointer(Self), WT_EXECUTELONGFUNCTION);
end;

Примечание: это говно-код (нет обработки ошибок).

См. также:
- http://msdn.microsoft.com/en-us/libr...57(VS.85).aspx
- http://www.transl-gunsmoker.ru/2010/...rworkitem.html
- http://www.gunsmoker.ru/2008/12/static-delphi.html

[Stilet]

не засоряя Execute разными событиями

Поясни пожалуйста эту фразу.

[BOBAH13]

Я же говорю, что не понимаю как сделать многоразовый поток, не засоряя Execute разными событиями.

Вы идете вопреки стандартам и логике вообще нитей. Нить по сути, это начало и конец кода. Даже главный поток это цикл обработки сообщений.
Нужно делать зацикливание или тот же WaitForSingleObject + мютекси или ивенты, что угодно, по которым будет вызываться ваш код, желаемый повторяться при каждом вызовае Execute, потом же, сделать переменную в описании вашего TThread класса, которая бы сигнализировала об окончании данного потока, тот же Terminated.

Так что почитайте, уже делали люди подобные вещи, так будете видеть логику действий.

[TwiX]

Фуф, написал распознавание... Осталось переделать в поток
GunSmoker, что за ARecognizer? Одним классом это сделать не получится?
Stilet, я имел в виду, что хочу сделать многоразовый Execute
BOBAH, Теперь понимаю, что несколько раз замутить Execute у потока не получится... А хотелось бы)) Спасибо

[GunSmoker]

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

Одним классом это сделать не получится?

Где вы нашли у меня в коде два класса? Назовите их. Класс один - TRecognizer.

[TwiX]

функцию ThreadWrapper запихнуть в касс не получится?