Форум: "Основная";
Текущий архив: 2003.04.24;
Скачать: [xml.tar.bz2];
ВнизПомогите новичку вызвать поток. Найти похожие ветки
← →
balykovdron (2003-04-12 12:15) [0]Что я делаю не так? При заходе в конструктор потока
сообщение выскакивает, но следующая команда приводит к
"Access violation..."
Подробности вот:
1. File\New\Application
2. Кинул кнопку на форму
3. код формы
------------------------------
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Unit2;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
end;
var
Form1: TForm1;
CopyThread: TCopyThread;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
CopyThread.Create(False);
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if not (CopyThread = nil) then begin
CopyThread.Terminate;
end;
end;
end.
------------------------------
4. Добавил еще один модуль (Unit2)
вот код модуля
------------------------------
unit Unit2;
interface
uses
Classes, Dialogs, Windows;
type
TCopyThread = class(TThread)
protected
procedure Execute; override;
public
constructor Create(S: String);
destructor Destroy; override;
end;
implementation
constructor TCopyThread.Create(S: String);
begin
showmessage(S);
inherited Create(False);
end;
destructor TCopyThread.Destroy;
begin
inherited Destroy;
end;
procedure TCopyThread.Execute;
begin
sleep(1000);
end;
end.
------------------------------
← →
anbezr (2003-04-12 12:19) [1]попробуй заменить ShowMessage на MessageBox(0...
← →
Polevi (2003-04-12 13:01) [2]procedure TForm1.Button1Click(Sender: TObject);
begin
CopyThread:=TCopyThread.Create(False);
end
← →
Skier (2003-04-12 13:23) [3]http://www.delphimaster.ru/articles/thread/index.html
← →
anbezr (2003-04-12 13:27) [4]Polevi © (12.04.03 13:01)
а ведь точно :)
← →
Skier (2003-04-12 13:30) [5]>balykovdron
С учётом поправки Polevi загляни ещё и сюда :
http://www.delphimaster.ru/articles/components-rt.html
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.04.24;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.008 c