Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 23.01.2008, 13:50
Аватар для XIO
XIO XIO вне форума
Новичок
 
Регистрация: 06.12.2007
Сообщения: 77
Репутация: 32
По умолчанию Запуск метода нового класса. Как это делается? Все ньансы.

Доброго времени суток уважаемые коллеги. Пол дня убил на что бы понять как описать класс многопоточности.. Теперь не могу понять как им воспользоваться.
Класс:
Код:
type
    TMyThread = class(TThread)
    Procedure Execute(); virtual;
    end;

  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
....

Метод выглядит так:
Код:
procedure TMyThread.Execute;
begin
  repeat
    ClickOnForm(FindWindow(nil, 'Some text'),'Caption');
  Until SendClick = 0;
end;

Пытаюсь запустить его примерно так:
Код:
procedure TForm1.Button12Click(Sender: TObject);
Var
  SProc: TMyThread;
...
  SProc.Create;
  SProc.Execute;
...
Пробовал без криате. Пробовал ставить True или False в параметре Create, в общем всяески пробовал и всячески получал ошибку.

Ткните пожалуйста меня носом в то место где я неправ. И подскажите как правильно использовать метод. Суть - мне надо что бы паралельно выполнялось 2 задачи...
Ответить с цитированием
  #2  
Старый 23.01.2008, 14:48
Аватар для Rokuell
Rokuell Rokuell вне форума
Активный
 
Регистрация: 27.12.2006
Адрес: Псков
Сообщения: 274
Версия Delphi: Delphi 7
Репутация: 497
Сообщение

Скачай DelphiWorld и прочитай про потоки, там отлично написано.
А заодно и про классы - твоя ошибка встречается практически у всех новичков у меня то же самое было. Для создания объекта надо писать:
Код:
Var
  SProc: TMyThread;
...
  SProc := TMyThread.Create;

Кстати, я тут выкладывал один исходник - можешь скачать и посмотреть, там как раз реализован отдельный поток
http://www.delphisources.ru/forum/sh...5&postcount=19
__________________
Велик и могуч наш Object Pascal !
ICQ: 357-591-887
Ответить с цитированием
  #3  
Старый 23.01.2008, 15:29
Аватар для XIO
XIO XIO вне форума
Новичок
 
Регистрация: 06.12.2007
Сообщения: 77
Репутация: 32
По умолчанию

Огромное спасибо)) И действительно все не так сложно как казалось на первый взгляд. За исходник тож отдельное большое спасибо)
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 18:11.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter