[bistriy]

Я хочу реализовать поиск каждой картинки по скриншоту в отдельном потоке.

Как мне это реализовать ?

Есть такая схема:
Вот есть функция которая сравнивает картинку с скриншотом. И она возвращает true если картинка найдена. Вот эту функцию нужно выполнять в отдельном потоке. Причем новый поток нужно открывать по каждому запросу на выполнение этой функции. После ее выполнения нужно возвращать значение true или false и обязательно закрывать поток.

СПЕЦИАЛИСТЫ И ПРОГРАММИСТЫ ПОМОГИТЕ МНЕ ПОЖАЛУСТА !!
НАПИШИТЕ КОД С ПОДРОБНЫМИ КОММЕНТАРИЯМИ.

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

Колбасня какая !! Что , никто не может нописать нормально про потоки ?
Как они запускаються к их оставить работать, как остановить ?
Вот и всё . Где спецы на форуме ?

[bistriy]

--------------------------------------------------------------------------
Вот я сам уже разобрался как работают потоки.
И для новичков привожу код в котором есть и создание потока и выполнение функции в потоке и завершение потока по нажатию кнопки Button1 с выводом сообщения о завершении работы потока.

Код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
TNewThread = class(TThread)
  private
    Progress: integer;
    procedure SetProgress;
  protected
    procedure Execute; override;
  end;

  TForm1 = class(TForm)
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  NajaliButton1:Boolean;
  i:Boolean;

implementation

{$R *.dfm}

procedure TNewThread.Execute;
var
OnTerminated:Boolean;
begin
While OnTerminated do
begin
sleep(50);
Synchronize(SetProgress);
If i=true then
begin
OnTerminated:=false;
end;
    end;
end;

procedure TNewThread.SetProgress;
begin
i:=NajaliButton1;
If i=true then
begin
ShowMessage('Вы закрыли поток.');
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
NewThread:TNewThread;
begin
NewThread:=TNewThread.Create(true);
NewThread.FreeOnTerminate:=true;
NewThread.Priority:=tpLower;
NewThread.Resume;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
NajaliButton1:=true;
end;

end.

Может кто нибудь подскажет что за странная белибирда вместо букв после копирования русских букв из delphi сюда.

[NumLock]

вообще-то у TThread есть property Terminated: Boolean и procedure Terminate
а чтобы русские буквы нормально копировались перед нажатием Ctrl+C нужно переключится на русский язык)

[bistriy]

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

вообще-то у TThread есть property Terminated: Boolean и procedure Terminate
а чтобы русские буквы нормально копировались перед нажатием Ctrl+C нужно переключится на русский язык)

property Terminated: Boolean и procedure Terminate - а что это такое и как они описываються и работают? Объясните пожалуста понятно.

[NumLock]

а в справке не почитать?

TThread.Terminate

Signals the thread to terminate by setting the Terminated property to True.

procedure Terminate;

Description

Terminate sets the thread’s Terminated property to True, signaling that the thread should be terminated as soon as possible. Unlike the Windows API TerminateThread, which forces the thread to terminate immediately, the Terminate method merely requests that the thread terminate. This allows the thread to perform any cleanup before it shuts down.

For Terminate to work, the thread's Execute method and any methods that Execute calls should check Terminated periodically and exit when it's True.

Код:

var
  MyClientThread: TMyClientThread;

procedure TForm1.Button1Click(Sender: TObject);
begin
  MyClientThread.Terminate;
end;

procedure TMyClientThread.Execute;
begin
    while  not Terminated do
    begin
...
    end;
end;

[bistriy]

Всё таки не понятно как с английского переводиться. Напиши по русски пожалуста.
Проверил твой код добавил:
procedure TMyClientThread.Execute;
begin
while Terminated do
begin
ShowMessage('Вы закрыли поток');
end;
end;

И после нажатия Button1 вываливаеться ошибка. Я понял что MyClientThread.Terminate; досрочно прекращает работу потока . Правильно ?

[NumLock]

метод Terminate сигнализирует потоку, что тот должен быть прерван (но не прерывает его). конкретно он устанавливает свойство Terminated в true. при "правильном" написании кода в Execute нужно проверять свойство Terminated и когда оно true выходить из метода Execute.

[bistriy]

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

метод Terminate сигнализирует потоку, что тот должен быть прерван (но не прерывает его). конкретно он устанавливает свойство Terminated в true. при "правильном" написании кода в Execute нужно проверять свойство Terminated и когда оно true выходить из метода Execute.

И в чём суть тут?

Код:

procedure TMyClientThread.Execute;
begin
while Terminated do
begin
ShowMessage('Вы закрыли поток');
end;
end;

И после нажатия Button1 вываливаеться ошибка.
ПОчему ошибка ?

[NumLock]

ну поток наверное создать нужно

[bistriy]

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

ну поток наверное создать нужно

Привожу пример кода с самого начала :

Код:

var
  MyClientThread: TMyClientThread;
...
procedure TForm1.FormCreate(Sender: TObject);
begin
  MyClientThread:=TMyClientThread.Create(true);
  MyClientThread.FreeOnTerminate:=true;
  MyClientThread.Priority:=tpLower;
  MyClientThread.Resume;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  MyClientThread.Terminate;
end;

procedure TMyClientThread.Execute;
begin
while Terminated do
begin
ShowMessage('Вы закрыли поток');
end;
end;
......

И после нажатия Button1 вываливаеться ошибка.
ПОчему ошибка ?

[lmikle]

какая ошибка? текст в студию...

[NumLock]

Код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TMyThread = class(TThread)
  private
    dummy: Integer;
    procedure Updt;
  protected
    procedure Execute; override;
  end;

  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  MyThread: TMyThread;

implementation

{$R *.dfm}

{ TMyThread }

procedure TMyThread.Execute;
begin
  dummy:=0;
  while not Terminated do
  begin
    Synchronize(Updt);
    Sleep(100);
    Inc(dummy);
  end;
  dummy:=MaxInt;
  Synchronize(Updt);
end;

{ TForm1 }

procedure TMyThread.Updt;
begin
  Form1.Label1.Caption:=IntToStr(dummy);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if MyThread=nil then
  begin
    MyThread:=TMyThread.Create(True);
    MyThread.FreeOnTerminate:=False;
    MyThread.Resume;
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  if MyThread<>nil then
  begin
    MyThread.Terminate;
    MyThread.WaitFor;
    FreeAndNil(MyThread);
  end;
end;

end.

http://data.cod.ru/73913

[bistriy]

Объясни мне пожалуста, что значат каждая из этих строк в твоём коде :

MyThread.WaitFor;
FreeAndNil(MyThread);

[Страдалецъ]

Почитайте фот эту статейку многое прояснится.

[NumLock]

WaitFor - ждет завершение потока
FreeAndNil - удаляет объект и обнуляет ссылку