系统学习BCB之多线程篇　可以不在主线程里执行VCL组件吗

天下云飞 2003-07-23 11:38:34

看了一下
好像是说要使用VCL组件必须用Synchronize(doIt)同步函数
而同步函数实际上是在主线程中执行

不会吧
如果想使用数据库控件更新数据这样长时操作
主线程界面就死掉的话？
这还有什么搞头
线程里面只能做些数值计算???
这也太逊了吧

...全文

64 16 打赏收藏转发到动态举报

写回复

用AI写文章

16 条回复

切换为时间正序

请发表友善的回复…

发表回复

「已注销」 2004-01-31

打赏
举报

mark

yesry 2003-07-25

打赏
举报

我觉得任何类的操作都不是线程安全的,因为都有读后写等问题。例如微软的CPen->CreatePen()就不能线程安全。

但是，如果各个线程都是用不同的内存，那就没有问题了。
例如：

//---------------------------------------------------------------------------

#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published: // IDE-managed Components
TLabel *Label1;
TLabel *Label2;
TButton *Button1;
TButton *Button2;
TLabel *Label3;
void __fastcall Button1Click(TObject *Sender);
void __fastcall Button2Click(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
class update : public TThread
{
private:
protected:
void __fastcall Execute();
public:
__fastcall update(bool CreateSuspended,TLabel *l);

TLabel *label;
};
//---------------------------------------------------------------------------
#endif

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
HANDLE hMutex=NULL;
__fastcall update::update(bool CreateSuspended,TLabel *l)
: TThread(CreateSuspended)
{
label=l;
if(hMutex==NULL)hMutex=CreateMutex(NULL,false,NULL);
}
//---------------------------------------------------------------------------
void __fastcall update::Execute()
{
int i=0;
randomize();
int t=rand()%1000;
while(!this->Terminated)
{
Sleep(t);
label->Caption=i++;//这是不用同步的。因为使用了不同的VCL
if(WaitForSingleObject(hMutex,2000)==WAIT_OBJECT_0)//同步一下
{
Form1->Label1->Caption=i++;
ReleaseMutex(hMutex);
}
}
if(hMutex==NULL){CloseHandle(hMutex);hMutex=NULL;}
delete this;
}
//---------------------------------------------------------------------------
update *u1,*u2;
void __fastcall TForm1::Button1Click(TObject *Sender)
{
u1=new update(false,Label2);
Sleep(2000);
u2=new update(false,Label3);
}
//---------------------------------------------------------------------------void __fastcall TForm1::Button2Click(TObject *Sender)

void __fastcall TForm1::Button2Click(TObject *Sender)
{
u1->Terminate();
u2->Terminate();
}
//---------------------------------------------------------------------------

天下云飞 2003-07-25