线程的变量问题，请教大侠！

2006-12-22 03:47:39 251 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

如何配置 OpenClaw 使用免费搜索工具：摆脱付费 API 限制本文介绍了如何配置OpenClaw使用免费搜索工具来替代付费API。主要内容包括：1)启用内置的web_fetch工具直接获取网页内容；2)创建自定义脚本聚合免费AI资讯源；3)配置其他免费网络工具。文章详细说明了配置步骤，推荐了多个优质免费AI资讯网站，并分析了该方案的优劣势。这种配置方式完全免费且灵活，特别适合预算有限的用户，能够在不依赖付费API的情况下获取所需信息。阅读详情

主进程中有一个panel对象，创建一个进程thread.create(panel),传入panel对象，然后在进程thread中修改panel的一些属性，但是窗体上panel并没有发生相应的改变，不知道是什么原因，请高手指点！

谢谢！

...全文

深度学习的unfold操作对于彩色图像这样的三维数据，unfold操作会对每个通道分别进行上述的二维展开操作。例如，一个 RGB 图像，在对其进行unfold操作时，红色通道、绿色通道和蓝色通道的数据都会被独立地按照定义的窗口和步长展开，然后将这些展开后的通道数据按照原来的通道顺序组合在一起，形成新的张量。与我们熟悉的卷积类似，unfold也是使用一个特定大小的窗口和步长自左至右、自上至下滑动，不同的是，卷是滑动后与核求乘积（所以取名为卷积），而unfold滑动后不求乘积，是将窗口内的数据展开。阅读详情

Maq

Delphi 5,944 成员 262,941 内容

+ 关注 + 加入社区

切换为时间正序

wudi_1982 2006-12-22

打赏
举报

一个用消息的例子:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Panel1: TPanel;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
private

public
{ Public declarations }
end;
twudi=class(TThread)
private
Fedit : TEdit;
protected
procedure Execute; override;
public
constructor Create(ed : TEdit);
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
twudi.Create(Edit1);
end;

{ twudi }

constructor twudi.Create(ed: TEdit);
begin
Fedit := ed;
inherited create(False);
end;

procedure twudi.Execute;
var
i : integer;
begin
FreeOnTerminate := true;
for i := 0 to 10000 do
SendMessage(Fedit.Handle,WM_SETTEXT,0,integer(pchar(inttostr(i))));
end;

end.

老冯 2006-12-22

打赏
举报

在同步的时候，建议不要用Synchronize, 因为Synchronize回暂停现在的线程。建议用消息传递同步信息。

wudi_1982 2006-12-22

打赏
举报

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Panel1: TPanel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
twudi=class(TThread)
private
Fpanel : TPanel;
fs : string;
procedure SetPC;
protected
procedure Execute; override;
public
constructor Create(pn : TPanel);
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
twudi.Create(Panel1);
end;

{ twudi }

constructor twudi.Create(pn: TPanel);
begin
Fpanel := pn;
// FreeOnTerminate := true;

inherited Create(false);
end;

procedure twudi.Execute;
var
i : integer;
begin
Fpanel.Align := alLeft;
for i := 0 to 10000 do
begin
fs := IntToStr(i);
Synchronize(SetPC);
end;
end;

procedure twudi.SetPC;
begin
Fpanel.Caption := fs;
end;

end.

wudi_1982 2006-12-22

打赏
举报

注意和VCL的同步

skertone 2006-12-22

打赏
举报

{ 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 qaw.UpdateCaption;
begin
Form1.Caption := 'Updated in a thread';
end; }

Maq 2006-12-22

打赏
举报

注明：如果同样的代码，写在主进程中就完全可以，但写在线程中就不起作用。

线程的变量问题，请教大侠！

相关推荐