Форум АНТИЧАТ - Delphi [Console App + TThread]

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.

Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.

⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.

Delphi [Console App + TThread]

19.10.2006, 19:33

~~qPhoenix~~

Banned

Регистрация: 15.12.2005

Сообщений: 95

Провел на форуме:
1509352

Репутация: 132

Отправить сообщение для qPhoenix с помощью ICQ

Delphi [Console App + TThread]

Собсно ламерский вопросец - можно ли, и как организовать многопоточность в консольном приложении?

в чем у меня лажа?...:

делаю так:

Код:

program Project1;

{$APPTYPE CONSOLE}

uses Classes;

type
 Thread = class(TThread)
  procedure Execute; override;
 end;

procedure Thread.Execute;
begin
 writeln('lol');
end;

begin
 Thread.Create(false);
end.

Непашет...

Затем ради интереса проделываю аналогичное с использованием формы:

Код:

unit Unit1;

interface

uses Forms, StdCtrls, Classes, Controls;

type
 TForm1 = class(TForm)
  Label1: TLabel;
  procedure FormCreate(Sender: TObject);
 end;

 Thread = class(TThread)
  procedure Execute; override;
 end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure Thread.Execute;
begin
 Form1.Label1.Caption:='lol';
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 Thread.Create(false);
end;

end.

Фсе гламурно пашет...

В чем грабли?