[ined]

Ребята тут сделал примерчик. Можете что нибудь по нему сказать.
Как бы всё правильно или нет?
Если нет то где исправить?
M.zip
Пример сделан на Delphi Xe2

[Aristarh Dark]

Не у всех XE2 есть

[ined]

Много поточность только Xe2 реализует?

[M.A.D.M.A.N.]

Ну еще визуалстудия.

[ined]

Вот для Delphi 7
D7.zip

[Aristarh Dark]

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

Много поточность только Xe2 реализует?

не комилится в простой XE, а сидеть и чистить кучу кода мне некогда.

[Aristarh Dark]

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

Вот для Delphi 7

Ну так-то да, программа многопоточная, только нельзя из потока обращаться к VCL компонентам. Вот это ты похоже, что не читал:

Код:

{
  Important: Methods and properties of objects in visual components can only be
  used in a method called using Synchronize, for example,

      Synchronize(UpdateCaption);

  and UpdateCaption could look like,

    procedure qweqwe.UpdateCaption;
    begin
      Form1.Caption := 'Updated in a thread';
    end;

    or

    Synchronize(
      procedure
      begin
        Form1.Caption := 'Updated in thread via an anonymous method'
      end
      )
    );

  where an anonymous method is passed.

  Similarly, the developer can call the Queue method with similar parameters as
  above, instead passing another TThread class as the first parameter, putting
  the calling thread in a queue with the other thread.

}

[Pyro]

из потока ещё sendmessage можно передавать в форму что надо

[stanilar]

Вот такое читали : http://forum.vingrad.ru/topic-60076.html ?

[ined]

Сообщение от Aristarh Dark

Ну так-то да, программа многопоточная, только нельзя из потока обращаться к VCL компонентам. Вот это ты похоже, что не читал:

Код:

{
  Important: Methods and properties of objects in visual components can only be
  used in a method called using Synchronize, for example,

      Synchronize(UpdateCaption);

  and UpdateCaption could look like,

    procedure qweqwe.UpdateCaption;
    begin
      Form1.Caption := 'Updated in a thread';
    end;

    or

    Synchronize(
      procedure
      begin
        Form1.Caption := 'Updated in thread via an anonymous method'
      end
      )
    );

  where an anonymous method is passed.

  Similarly, the developer can call the Queue method with similar parameters as
  above, instead passing another TThread class as the first parameter, putting
  the calling thread in a queue with the other thread.

}

Мне не надо подключать TThread он очень сильно раздувает программу. Просто я рассчитывал применить его в написание программы на чистом WinApi.

[ined]

При отладке иногда выскакивает ошибка
---------------------------
Debugger Exception Notification
---------------------------
Project Project1.exe raised exception class EInvalidOperation with message 'Canvas does not allow drawing'.
---------------------------
Что это значит.
Я добавил Try -

Код:

procedure Execute2;
 var
 I, Total, Avg: integer;
 begin
 randomize;
 while Bool2 do
 Begin
 try
 form1.Canvas.Pen.Color:=random($00ffffff);
 form1.Canvas.Pen.Width:=random(5);
 Form1.Canvas.MoveTo(random(Form1.Width),random(Form1.Height));
 Form1.Canvas.LineTo(random(Form1.Width),random(Form1.Height));
 except
   // Что сюда надо прописать?
 end;
 sleep(10);
 End;
 EndThread(0);
end;

[Aristarh Dark]

Что это значит.

А я ведь не просто привел комментарий который вставляет IDE, ох не просто...

[ined]

Сообщение от Aristarh Dark

А я ведь не просто привел комментарий который вставляет IDE, ох не просто...

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

[angvelem]

Онлайн перевод здесь или здесь.

[PhoeniX]

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

Онлайн перевод здесь или здесь.

Ещё вот здесь.