Передача параметра в поток

[Sanprof]

здравствуйте, столкнулся с проблемой связанной с потоками, а именно как в поток передать параметр? К примеру:

type
  TSearchF = class(TThread)
  private
  protected
    procedure Execute; override;
  end;

а потом при выполнении птока

procedure TSearchF.Execute;
begin
while not Terminated do
  begin
    synchronize(FindFile(Str));
  end;
end;

здесь FindFile(Str) - процедура в главной форме описанная так
при таком вызове делфя ругается типа [Error] Unit2.pas(36): There is no overloaded version of 'Synchronize' that can be called with these arguments

procedure FindFile(Str: String);

...

Procedure TForm1.FindFile(Str: String);
begin
//Здесь что-то выполняется
end;

Скажу сразу, что в стандартных делфийских демосах этого нету, так что не отсылайте их смотреть, а лучше подскажите по смыслу.

[BOBAH13]

1. Никакого смысла в потоке нет. Т.к. Synchronize выполняет функцию в главном потоке
2. Synchronize требует функцию без параметров что в вашем случае не верно. Надо FindFileA(); а в нем уже пишите FindFile(Str);
3. Передать параметры элементарно, вы описали собственный класс, кто мешает в нем объявить какие-то переменные (аргументы) ?

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

http://programmersforum.ru/showthrea...t=%EF%EE%EB%FF

[Sanprof]

BOBAH13,

1. Никакого смысла в потоке нет. Т.к. Synchronize выполняет функцию в главном потоке

вот именно мне нужно прерывать и восстанавливать процедуру FindFile(str) по нажатию на кнопку

2. Synchronize требует функцию без параметров что в вашем случае не верно. Надо FindFileA(); а в нем уже пишите FindFile(Str);
3. Передать параметры элементарно, вы описали собственный класс, кто мешает в нем объявить какие-то переменные (аргументы) ?

Здесь я не совсем понял, что вы имеете ввиду, если не трудно, можете привести пример!

Пепел Феникса, эту тему уже читал, т.к. я сталкиваюсь с потоками на практике впервые (ранее только в теории), не совсем понял как там решилась проблема.

Вобщем смысл в том, чтобы процедура FindFile(str: String); из главной формы выполнялась в потоке, но обязательно у этой процедуры должен быть параметр Str, т.к. без него мне никак не обойтись, и что бы ее можно было прервать/восстановить по нажатию на кнопку.

[BOBAH13]

type
  TSearchF = class(TThread)
  private
  protected
    procedure Execute; override;
  public
    Str: String; // думаю назначение обоих 
    Pause: Boolean; // параметров объяснять не надо
  end;

и

 procedure TSearchF.Execute;
begin
  while not Terminated do
  begin
     if(Pause) then
     begin
        Sleep(10);
     end else
     begin
        FindFile(Str);
     end;
  end;
end;

Как то так.

[Sanprof]

BOBAH13, как бы не совсем то, вот если я делаю мою процедуру без параметра Str, тоесть synchronize(FindFile);, то все работает на ура, но не до конца, как бы процедура выполняется только на 10%, а с параметром Str на 100% (если не загонять в поток).

[BOBAH13]

Честное слово, не могу понять кто вам мешает передать Str экземпляру класса потока и выставить Pause = false ? чем не передача параметров ?
p.s. конечно надо будет аккуратней это делать, ну или дополнить код более жесткой синхронизацией.
И еще, повторюсь, если вы вызываете FindFile в потоке (функция Execute) и при этом пишите Synchronize(FindFile) то толку от вашего потока НОЛЬ, т.к. тело функции FindFile будет выполняться в главном потоке, для того и сделан Synchronize.

[DimensionSlider]

Извините за некропостинг.
Искал решение, наткнулся на тему, нашел еще одно решение, грех не отписаться.

Можно делать вот так чтобы не заводить левые поля

procedure TScanThread.CreateNewJobFromThread( filePath: string );
begin
  Synchronize(
    procedure
    begin
      CreateNewjob( ExtractFileName( filePath ) );
    end
   );
end;

Или даже не создавая новых отдельных методов прямо в коде вашей функции оборачивать любые действия с формой в

  Synchronize(
    procedure
    begin
      mainForm.Memo.Lines.Add('11212');
    end
   );

[phomm]

Так можно делать только в дельфи выше 2009 версии, в которой появились анонимные методы (так правильно называется то , что Вы описываете).
И эта техника никак не зависит от многопоточной технологии, она самостоятельная.

[de_guta]

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

Извините за некропостинг.
Искал решение, наткнулся на тему, нашел еще одно решение, грех не отписаться.

Чувак, спасибо за твой некропост), реально удобная штука, теперь буду знать.