Delphi在启动后将线程设置为nil
Delphi是一种高级集成开发环境（IDE），用于创建Windows应用程序、Web应用程序和移动应用程序。在Delphi中，线程是一种用于实现并发执行的机制。当Delphi应用程序启动后，可以将线程设置为nil，即将其置为空。
线程是程序中独立执行的最小单位，可以同时执行多个线程，从而实现并发处理。在Delphi中，线程可以用于执行耗时的操作，如网络请求、数据库查询等，以避免阻塞主线程，提高应用程序的响应性能。
将线程设置为nil的操作可以用于释放线程资源，当线程的任务完成后，可以将其设置为nil，以便系统回收线程所占用的内存资源。这样可以有效地管理线程，避免资源泄漏和内存溢出的问题。
Delphi提供了丰富的线程管理和控制的功能，开发者可以通过使用TThread类及其相关方法来创建、启动、暂停、恢复和销毁线程。此外，Delphi还提供了一些用于线程同步和通信的机制，如互斥锁、信号量、事件等，以确保多个线程之间的数据访问和操作的安全性。
在使用Delphi开发云计算应用时，可以利用线程来实现并发处理，提高应用程序的性能和吞吐量。例如，在处理大量数据的情况下，可以将数据分成多个块，每个块由一个线程来处理，从而加快处理速度。此外，线程还可以用于执行后台任务，如数据同步、定时任务等。
腾讯云提供了一系列与云计算相关的产品和服务，包括云服务器、云数据库、云存储、人工智能、物联网等。具体推荐的腾讯云产品和产品介绍链接如下：
- 云服务器（ECS）：提供弹性计算能力，支持多种操作系统和应用场景。了解更多：腾讯云云服务器
- 云数据库MySQL版（CDB）：提供高性能、可扩展的关系型数据库服务。了解更多：腾讯云云数据库MySQL版
- 对象存储（COS）：提供安全、可靠、低成本的云存储服务，适用于各种数据存储和备份需求。了解更多：腾讯云对象存储
- 人工智能（AI）：提供丰富的人工智能服务，包括图像识别、语音识别、自然语言处理等。了解更多：腾讯云人工智能
- 物联网（IoT）：提供全面的物联网解决方案，包括设备接入、数据管理、应用开发等。了解更多：腾讯云物联网
通过使用腾讯云的产品和服务，开发者可以快速构建和部署云计算应用，实现高效、可靠的运行。
相关·内容
在delphi XE中，我可以使用启动过程，但在Delphi2007中不存在此方法。
此示例代码在delphi xe中工作正常，使用Start
MyThread:=TMyThread.Create(True);
MyThread.FreeOnTerminate :=True;
MyThread.Property1:=900;
MyThread.Property2:=2;
MyThread.Start;
但是在Delphi2007中，start过程并不存在，所以我使用了resume过程，这个过程在Delphi2007的新版本中是不推荐使用的。
MyThread:=TMyThread.Cre
浏览 0提问于2010-11-18得票数 9
回答已采纳
在线程中，如果我使用
Coinitialize(nil)
而不是
CoInitializeEx(0, COINIT_MULTITHREADED);
我使用的是Delphi7，但是我想这个问题对于其他编程语言来说也是一样的，谢谢你的帮助。
浏览 1提问于2013-11-10得票数 12
回答已采纳
我本地化了我的Delphi服务应用的问题。
现在我有一台安装了Windows server 2019的测试服务器，RDP。
简单的测试代码，连接到本地TCP服务器并断开连接：
for i := 1 to 1000000 div 100 do
begin
sleep(100);
Caption := 'STRESS TEST: ' + inttostr(i * 100);
Application.ProcessMessages;
for j := 1 to 100 do
begin
thread := TThread.CreateAnonymousThread(
浏览 22提问于2021-07-23得票数 1
我正在更新一个从Indy 9到Indy 10的Delphi应用程序。
这是相当痛苦的，因为显然有很多变化。
我被困在一步。
下面是旧代码(使用Indy 9)：
创建线程池，并初始化池中的每个线程，然后启动。单独的线程创建一个indy客户端(但这里并不重要)。
TUrlThread = class(TIdThread)
...
var
i: Integer;
begin
// create the Pool and init it
Pool := TIdThreadMgrPool.Create(nil);
Pool.PoolSize := Opt
浏览 3提问于2013-01-25得票数 5
回答已采纳
这不是一个主要的泄漏，但我认为更好的整理，但我发现我的Delphi代码。这是因为它被定义为一个需要的threadvar，但是当线程终止时，它显然没有整理这些变量。
有没有办法在线程终止时手动整理字符串？我只是给它分配一个空字符串，还是将它设置为nil或其他什么？
浏览 0提问于2011-03-28得票数 5
回答已采纳
首先，这是关于而不是 (以前的Delphi )。
使用
德尔菲2010
PHP5.3.6 (VC9，NTS)
php4Delphi 7.2 (用VC9指令编译)
Windows 2008 R2
IIS 7
当试图在IIS/PHP服务器上运行php4Delphi delphi_math.dll示例扩展时，我在C中看到以下错误：\Windows\Temp\php-errors.log文件。
2011年6月15日17:58:42 PHP警告: PHP启动:无法加载动态库'C:\Program (x86)\PHP\ext\delphi_math.dll‘-动态链接
浏览 4提问于2011-06-15得票数 5
回答已采纳
1回答
我对JNI和delphi有意见。 每当我使用以下代码在delphi中创建JVM时： FillChar(Options, SizeOf(Options), #0);
Options[0].optionString := '-Djava.class.path=' + 'blabla.jar';
VM_args.version := JNI_VERSION_1_2;
VM_args.options := @Options;
VM_args.nOptions := 1;
JVM := TJavaVM.Create(JNI_VERSION_1_
浏览 2提问于2014-07-15得票数 1
1回答
我们正在使用Delphi开发一个新的数据午休服务器(tcp/ip)，并且遇到了一个问题。我们不知道客户何时以不正常的方式断开连接。取消连接或重新启动客户端pc。
当客户端建立连接时，我们将其详细信息保存在如下列表中：
TClientInfo = record
Id: integer;
Session: TDSSession;
LastSeen: TDateTime;
end;
...
ClientInfoList: TDictionary<Integer, TClientInfo>;
...
//OnConnect
ClientInfo.ClientId :=
浏览 10提问于2012-09-21得票数 2
基于这里的几个问题，我已经实现了一个线程，它可以被用户在完成它的工作之前杀死，或者如果我将它设置为在一段时间后自我终止。
线程实现：
unit Unit2;
interface
uses SyncObjs
,classes
,System.SysUtils
,windows;
type
TMyThread = class(TThread)
private
FTerminateEvent: TEvent;
FTimerStart: Cardinal;
FTimerLimit: Cardinal;
FTimeout: Bo
浏览 0提问于2015-04-27得票数 0
回答已采纳
我正在测试一个基于注册的ActiveX控件的非可视.ocx控件，我使用提供的向导将其导入Delphi。
然后，我简单地将生成的组件放在一个新的VCL应用程序的主要形式上。
在旧的Delphi (D5和D2007)下，当我启动应用程序时，这会在组件初始化期间引发AV。
使用Delphi 2009 :没问题，应用程序的启动很顺利。
我的问题是：
在最近的德尔菲版本中，是否有已知的ActiveX管理增强可以解释这种差异？
我是否可以怀疑ActiveX控件中的一个bug，或者我是否可以考虑问题的根源是来自旧的Delphi版本？
我需要在D2007中使用这个组件(如果测试确定的话)。您认为可以通过修改D
浏览 3提问于2010-03-25得票数 0
回答已采纳
使用Delphi2010和Indy10
我正在尝试从Delphi读取服务器发送的事件。我已经成功地创建了一个线程，它将订阅服务器上的连接(Python/Flask)并捕获事件。需要一个线程，因为HTTP.Get永远阻塞。我意识到整个协议没有实现，但我只想从服务器接收短串广播。下面的代码可以工作，但是在停止我的程序时，我还没有弄清楚如何干净地停止线程，释放http_client和流。
在服务器端，我得到“现有连接被远程主机强行关闭”，而我的程序表示内存泄漏。我尝试了许多不同的组合，尝试在不同的点关闭http连接(onTerminate，破坏)，我无法得到任何工作。如有任何见解或例子，将不胜感激。
浏览 5提问于2014-04-14得票数 2
回答已采纳
1回答
在delphi源代码中，我们有：
class function TNetEncoding.GetBase64Encoding: TNetEncoding;
var
LEncoding: TBase64Encoding;
begin
if FBase64Encoding = nil then
begin
LEncoding := TBase64Encoding.Create;
if AtomicCmpExchange(Pointer(FBase64Encoding), Pointer(LEncoding), nil) <> nil then
L
浏览 0提问于2019-01-09得票数 5
回答已采纳
我在UIBarButtonItem中使用了一个UIActivityIndicator来显示活动，但是指示器出现得很慢。我正在使用以下命令创建它
UIActivityIndicatorView *innerActivityIndicator = [[UIActivityIndicatorView alloc] initWithFrame:CGRectMake(0, 0, 20, 20)];
[innerActivityIndicator startAnimating];
self.activityIndicator = [[UIBarButtonItem alloc] initWithCusto
浏览 2提问于2012-01-02得票数 0
回答已采纳
下面是TNetEncoding.GetBase64Encoding的原始Delphi源代码。但我怀疑在AtomicCmpExchange(Pointer(FBase64Encoding), Pointer(LEncoding), nil) <> nil的情况下会有内存泄漏
TNetEncoding = class
private
class var
FBase64Encoding: TNetEncoding;
使用
class function TNetEncoding.GetBase64Encoding: TNetEncoding;
var
LEnc
浏览 1提问于2018-01-20得票数 9
回答已采纳
我有一个带有两个线程的delphi7程序。如果我使用new()在第一个线程中分配内存，那么可以在另一个线程中使用dispose释放它吗？我也在使用fastMM
浏览 6提问于2016-05-26得票数 3
回答已采纳
我有一个用Delphi创建的服务应用程序，并设法使用提升的权限从另一个Delphi应用程序安装它。
该服务被设置为以本地系统帐户登录(这是在Delphi中创建服务应用程序时的默认设置)。
我有另一个Delphi应用程序，在该应用程序中，普通用户应该能够启动或停止上述服务。
我的问题是: Windows允许这样做吗？当我尝试使用Delphi中的代码启动服务时，它就是失败了，并显示“code 5. Access is denied.‘”。如何防止此错误发生？我希望能够让运行应用程序的普通用户(不在管理员模式下，因此不具有提升的权限)来启动/停止服务。这是可能的吗?如果是的话，是如何实现的？下面是我
浏览 1提问于2011-08-24得票数 3
回答已采纳
3回答
我有一个德尔福应用程序，它产生6个匿名线程的一些TTimer.OnTimer事件。
如果我从标题栏中的X按钮关闭应用程序，将引发地址$C0000005处的访问冲突，并且FastMM会报告泄漏的TAnonymousThread对象。
在Delphi中使用TThread.CreateAnonymousThread()方法释放在OnTimer事件中创建的匿名线程的最佳方式是什么？
对我有效的解决方案：
创建了匿名线程的包装器，该包装器在被释放时终止它们。
type
TAnonumousThreadPool = class sealed(TObject)
strict private
浏览 0提问于2012-05-02得票数 9
回答已采纳
2回答
Delphi线程
、、
我需要在Delphi中启动一个线程，并为此使用以下代码：
function ThreadFunc(tp: PThreadParams): Integer;
var
I: Integer;
begin
OutputDebugString(PChar('ThreadFunc, 1'));
for I := 0 to 10000 do
begin
if (I MOD 100) = 0 then
begin
OutputDebugString(PChar('Sample Delphi
浏览 1提问于2012-09-18得票数 1
回答已采纳
在使用GetLastError时，在调用Windows函数包装器(如ExtractShortPathName )之后，我注意到GetLastError返回一个非零错误代码，而不管对ExtractShortPathName的调用是成功还是失败。事实上，在我的程序执行之前，似乎有一个“最后的错误”。
program TestGetLastError;
{$APPTYPE CONSOLE}
{$R *.res}
uses
System.SysUtils;
var
ErrorCode: Integer;
begin
try
ErrorCode := GetLastError
浏览 4提问于2017-04-06得票数 3
回答已采纳
IDE: Delphi XE6。
我的主窗体创建另一个窗体，该窗体创建TFormZoom的一个实例。一切似乎都运行得天衣无缝。
我只想确保我在FormClose中清空指针的过程没有扭曲Delphi的一些内部工作。
procedure TFormZoom.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;
// if I did not set it to nil here, the next time I would create this form I would get
/
浏览 51提问于2018-06-02得票数 0
回答已采纳
- (void) myFunction {
User *user = [[User alloc] init];
user.property = @"value";
[user login:@"username" password:@"pwd" delegate:nil];
while (NO == user.runLoopEnd) {
[[NSRunLoop mainRunLoop] runMode:NSDefaultRunLoopMode beforeDate:[NSDate distantF
浏览 7提问于2015-07-29得票数 0
我会在使用TIBEvents组件的delphi应用程序中使用的强大功能。
问题是防火墙，并不是每次都有正确的角色，当我尝试注册事件时，应用程序停止响应，我必须等待……
我该怎么做呢？
我还尝试在单独的线程中调用register函数，但结果相同。
function RegisterEvents(data : Pointer) : Integer;
begin
with Form1 do begin
DBOspitiEvent.Registered := true;
end;
end; //<-- AFTER THIS, APPLICATION IS BLOCKED (fo
浏览 0提问于2018-04-19得票数 1
所以我创建了一个类：TWorkerThread = class(TThread)。在TWorkerThread构造器中，我设置了FreeOnTerminate := True。
然后，我向我的Worker添加了一个私有TForm变量。当我为TWorkerThread实例化Worker时，我总是使用CreateSuspended := False。
在线程启动后，我需要与线程进行的唯一交互是取消进程(Terminate)，并检查进程是否结束(该检查基于用户事件)。
要检查线程是否仍然处于活动状态，我需要：
if (Self.Worker <> nil) and (not Self.W
浏览 20提问于2022-02-03得票数 3
回答已采纳
我正在把我的应用程序(安卓、iOS)从西雅图的Delphi10更新到东京的Delphi10.2。我有几个使用透明度的表单。我用它来创建像屏幕一样的小弹出式窗口，它仍然在透明表单下面的背景中显示以前的表单的一部分。
我现在的问题是透明度属性设置为True的表单根本不会显示。看起来调用透明表单的原始表单位于它的顶部。
在Windows上，窗体运行正常，在iOS上，我可以看到一些组件，还有一些大小/位置错误。
我该如何解决这个问题呢？
代码示例如下：
procedure TForm1.Button1Click(Sender: TObject);
var
FrmTransParentForm: T
浏览 1提问于2017-05-04得票数 1
3回答
我已经使用Delphi和它的类型库创建了一些AUTOObjects。它编译没有错误，但当我尝试注册它时，Delphi死机了，并且没有返回到正常状态。我曾尝试在Delphi7和2006中注册它，但都遇到了相同的问题。我尝试在Delphi的演示中注册一个简单的库，我排除了错误的注册表文件，
我的代码可能有问题，但我不知道在哪里，因为它编译得很好，而且我没有在RegisterDLL中放入任何代码。
以前有没有人遇到过同样的问题？
浏览 3提问于2009-04-01得票数 0
回答已采纳
Delphi是否在对象完全构造之前指定实例变量？
换句话说，给定一个变量：
var
customer: TCustomer = nil;
然后构造一个customer并将其分配给变量：
customer := TCustomer.Create;
是否可能customer不能是nil，但不能指向完全构造的TCustomer？
在执行延迟初始化时，这将成为一个问题：
function SacrifialCustomer: TCustomer;
begin
if (customer = nil) then
begin
criticalSection.Enter;
浏览 4提问于2012-05-29得票数 5
回答已采纳
在Delphi中，'Threadvar‘(每个线程可用的变量的私有副本)和Thread’私有‘部分中声明的变量之间的区别是什么，如：
TMyThread = class (TThread)
private
FValue: integer
...
end;
在以后的情况下，每个线程都应该有一个单独的FValue副本。
浏览 0提问于2019-01-17得票数 1
回答已采纳
3回答
我需要做一个申请如下。
如果该字段的值为1或0，则查询需要每秒执行10次才能签入数据库(Ms SQL 2005)。如果为1，则应用程序需要启动Windows Media Player (全屏)并运行视频。应用程序需要在视频期间休眠，当视频结束时，应用程序需要唤醒并关闭Windows Media Player，打开Internet Explorer(全屏)并显示网站。
我不知道如何让我对Delphi没有太多的经验。
浏览 0提问于2011-04-18得票数 0
回答已采纳
我有一个应用程序，它启动了许多线程来做一些事情。我对每个线程都有一个TThreadOnTerminate过程，该过程访问一些线程变量，用结果填充网格。(每个线程执行不同的任务，但答案总是相同的，即。成功或失败，并显示一组StringList消息。)
所以我有：
procedure TFormMain.Thread1OnTerminate(Sender: TObject);
begin
Result := TThread1(Sender).Result;
AddMessagesToGrid(TThread1(Sender).Messages);
end;
procedure TForm
浏览 1提问于2011-02-02得票数 3
回答已采纳
一般来说，我对编程是个新手(大约8个月左右，在Delphi中断断续续，时不时地学一点Python )，我正在买一些书。
我对学习并发编程和使用Delphi构建多线程应用程序很感兴趣。每当我搜索“多线程Delphi”或"Delphi多线程教程“时，我似乎得到了相互矛盾的结果，因为一些东西是关于使用某些库(Omnithread库)的，而其他东西似乎更适合有更多经验的程序员。
我已经研究了相当多关于Delphi的书籍，大多数情况下，它们似乎只是表面上的，并没有真正深入到这个主题上。我有一个程序员朋友(他使用c++)，他建议我在使用线程时了解底层系统的实际情况，而不是先了解如何在我的程序中实际
浏览 4提问于2011-11-17得票数 15
回答已采纳
1回答
我知道Delphi线程已经在许多线程上进行了讨论。我试着复习，但没有找到答案。
背景：我发现在浏览器加载Acrobat之后，释放TWebBrowser会占用10+的时间。我想它是在检查更新什么的。当试图关闭带有浏览器的窗体时，这是很烦人的。
我想也许我可以有一个后台线程发布浏览器。因此，我将浏览器变量移动到全局变量(私有存储在单元的实现部分中)。这些表格一次只能使用一种。然后我试着在后台放一条线。这不像我预料的那样有效。
示例代码
interface
TMyform = class(TForm)
pnlBowserHolder: TPanel;
procedure Form
浏览 3提问于2017-02-09得票数 1
回答已采纳
我想创建一个txt文件，然后使用ShellExecute命令打开它。
我在Delphi 7上使用这段代码已经有几年了，它很有效：
function Executa(CONST ExeName, Parameters: string): Boolean;
begin
if Parameters= ''
then Result:= ShellExecute(0, 'open', PChar(ExeName), NIL , nil, SW_SHOWNORMAL)> 32
else Result:= ShellExecute(0,
浏览 2提问于2010-06-16得票数 3
回答已采纳
3回答
我一直在寻找一种在Delphi中监控特定注册表更改的方法。在about.com找到一个：
procedure TRegMonitorThread.Execute;
begin
InitThread; // method omitted here
while not Terminated do
begin
if WaitForSingleObject(FEvent, INFINITE) = WAIT_OBJECT_0 then
begin
fChangeData.RootKey := RootKey;
fChangeData.Key := Ke
浏览 0提问于2009-11-14得票数 1
回答已采纳
我正在从delphi应用程序调用CreateThread，它似乎可以工作，但是我得到了一个系统错误:代码1400，无效的窗口句柄。
守则如下：
procedure TForm1.SyncFile;
var
thr: THandle;
thrID: DWORD;
begin
thr := CreateThread(nil, 0, @sync, nil, 0, thrID);
if (thr = 0) then
ShowMessage('Error creating thread');
end;
procedure sync;
begin
Conne
浏览 8提问于2010-08-10得票数 0
回答已采纳
在ARC管理下，使用Delphi终止线程的正确方法是什么？
以这个简单的例子为例：
TMyThread = class(TThread)
protected
procedure Execute; override;
public
destructor Destroy; override;
end;
TForm2 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
procedure Button1Click(Sender: TObject)
浏览 3提问于2013-06-10得票数 13
我正在编写一个试图调用Apache ANT脚本的Windows GUI应用程序。ANT脚本将构建一个Delphi项目组，并将其打包到最终的setup.exe中。ANT脚本构建Delphi 2007/2010和Delphi XE应用程序。
我的ANT GUI应用程序是由Delphi XE编译和构建的。当我在Delphi XE中使用“运行而不调试”来运行应用程序时，应用程序无法与ANT脚本一起正常工作。ANT脚本不会构建DCU、BPLs和EXE没有编译到我期望的文件夹中的应用程序。
但是，如果我在Windows Explorer中启动我的图形用户界面应用程序，ANT脚本将构建应用程序correct
浏览 1提问于2010-12-08得票数 5
回答已采纳
我们目前有一个用Delphi 6 websnap编写的产品，我正在尝试将其升级为在delphi 2005下运行。它使用的是ADO，运行时的错误是"CoInitialize未被调用“。我能找到的对此错误的唯一引用指向IntraWeb和名为ServerController的东西，我不确定这是否与我相关。任何次数的CoInitialize(nil)调用都不起作用。
我是在浪费时间让它运行，还是可以在2005年的-or下运行？
浏览 1提问于2011-05-25得票数 4
回答已采纳
3回答
我正在构建一个应用程序，将阅读RSS源，并将在UITableViews中呈现它们。我在谷歌上搜索，在这里，ai决定使用LibXML。
当我的应用程序启动时，它会检查它是否有有效的互联网连接，并抓取一个rss feed，我从其中提取一些数据，然后用tableViews制作一个uiTabBar。在解析第一个rss提要并构建UITabBar之后，对于我的uiTabBar中的每个按钮，我都有一个不同的rss提要(类别)。当我有一个良好的互联网连接(wifi)，甚至3G时，我的应用程序工作得很好，但当互联网连接受到影响时，我的应用程序也是如此。
因为我一个接一个地解析所有提要，在主线程中，GUI停止响应
浏览 0提问于2009-07-16得票数 2
回答已采纳
1回答
我用ADO / MSSQL数据库进行了多线程环境下的基本类设计，完整的类设计是。
基本线程代码如下所示：
constructor PaintBitmapThread.Create(bmp_width, bmp_height: Integer;
server, databasename, tablename, sqlstr: String; ThreadId: Integer);
begin
FBitmap :=TBitmap.create;
FBitmap.Width := bmp_width;
FBitmap.Height := bmp_height;
浏览 0提问于2014-06-19得票数 0
回答已采纳
2回答
我是新手，所以很抱歉，如果我的问题看起来很愚蠢，我正在编写一个Delphi程序，在这个程序中，我通过一个队列中的多个线程运行一个外部可执行文件列表，并等待它们使用CreateProcess完成，如下所示：
CreateProcess(Pchar(NotepadExe), Nil, Nil, Nil,
False, NORMAL_PRIORITY_CLASS,
Nil, Nil, StartupInfo,ProcessInfo),
和
WaitForSingleObject(ProcessInfo.hProcess, INF
浏览 1提问于2015-02-18得票数 0
我正在尝试写一个例程，它将从Delphi2010应用程序中执行DOS批处理程序。我在Delphi6中工作的老例程总是给我一个错误信息：
"Project1.exe引发异常类EAccessViolation，并显示消息'Access violation at address 7C82F29C in module 'kernel32.dll'. Write of address 004A3B82“。
以下是我在Delphi 6中工作的旧例程：
Procedure TForm1.BatchProgramCall;
var
StartInfo: TSta
浏览 3提问于2009-11-18得票数 1
回答已采纳
1回答
我试着用Indy组件用XE2发送电子邮件，在我的笔记本电脑上，它运行得很好，我在笔记本上编译了我的项目。
但是，如果我将exe项目转到另一台PC，它将显示一条错误消息。
连接优雅地关闭
或者，有时我会
SSL协商失败
其实我试过很多次来解决我的问题，但我做不到。
这是我的代码-我的错误在哪里？我需要一个实际的解决方案。
procedure Gmail(username, password, totarget, subject, body :string);
var
DATA : TIdMessage;
SMTP : TIdSMTP;
SSL : TIdSSLI
浏览 5提问于2016-02-06得票数 1
我正在开始一个在FMX/Android应用程序中读取条形码的项目(对于条形码阅读，我有一些使用FMX的经验)。
我找到了这个开源的 (非常有用)，我查看了的代码。
我可能没有被充分地用于TThread，但我想知道在这种情况下TThread.Synchronize的使用情况，因为我以前从未见过/使用过这种情况。
1-负责捕获+扫描图像以搜索条形码的功能是GetImage。它被同步到CameraComponent1SampleBufferReady上的主线程。
procedure TMainForm.CameraComponent1SampleBufferReady(Sender: TObject
浏览 4提问于2017-06-19得票数 0
我正在尝试使用Delphi7中的ChangeDisplaySettingsEx将特定的监视器设置为主监视器。在Windows.pas中，它被定义为
function ChangeDisplaySettingsEx(lpszDeviceName: PChar; var lpDevMode: TDeviceMode;
wnd: HWND; dwFlags: DWORD; lParam: Pointer): Longint; stdcall;
在中，ChangeDisplaySettingsEx的文档对lpDevMode有以下注释：“如果lpDevMode为NULL，则注册表中当前的
浏览 4提问于2009-06-05得票数 1
3回答
我知道在delphi中你可以用以下命令打开默认浏览器：
ShellExecute(self.WindowHandle,'open','www.website.com',nil,nil, SW_SHOWNORMAL);
但我想知道是否有一种方法可以在新打开的浏览器窗口中自动发布数据，或者自动填充登录数据(即使是在firefox，safari等)
谢谢
-Brad
浏览 0提问于2010-05-16得票数 8
回答已采纳
我有一个Delphi应用程序，它加载了一些我想调试的.NET程序集。我不想调试Delphi代码，只想调试.NET程序集。
在VS2010中，我要做的就是让我的.NET代码的输出目录指向Delphi可执行文件文件夹，并将Start external program设置为指向可执行文件路径。当我点击F5时，它会自动启动Delphi代码，加载模块，然后我就可以进行调试了。
现在我迁移到VS2012。我做了同样的事情，但是调试不起作用。进程开始并正确连接，但是模块窗口是完全空的。未加载符号。我不能调试任何东西。
有什么特别的事情我必须做才能在VS 2012中工作吗？
浏览 3提问于2012-11-15得票数 2
回答已采纳
下面的Delphi代码为CreateProcess API调用提供了友好的包装器。
function StartProcess(ExeName: string; CmdLineArgs: string = '';
ShowWindow: boolean = True; WaitForFinish: boolean = False): integer;
const
c_Wait = 100;
var
StartInfo: TStartupInfo;
ProcInfo: TProcessInformation;
begin
//Simple wrapper fo
浏览 4提问于2010-11-04得票数 2
回答已采纳
在Delphi中使用接口并覆盖引用计数时，当接口达到引用计数零时，可以绕过Delphi进行的the_Release调用。
但是，当混合使用类和接口时(这是非常有用的)，_Release方法总是会被调用。问题是，在下面的示例代码中，本地对象是nill-ed的，但_Release仍然被调用-除非是在无效的内存上。根据应用程序中的内存操作，当在nilled localObject的旧位置调用_Release时可能会产生异常，如果内存没有被重用，则不会产生异常。
那么，编译器生成的对_Release的调用可以被"removed/blocked/avoided/killed/redirected
浏览 0提问于2011-09-06得票数 2
在Delphi语言中，TThread中方法是terminate。似乎一个子线程不能通过调用terminate或free来杀死另一个线程。例如A(主窗体)、B(线程单元)、C(另一种窗体)。
B正在向main form和C发送数据(通过调用syncronize)，当B正在通过调用B.terminate执行时，我们试图在C中终止B。但是这个方法不起作用，B仍然在工作，直到它在execute方法中结束。
请帮帮忙。提前谢谢你。
浏览 3提问于2010-10-29得票数 21
回答已采纳
我想使用NSTimer每20秒运行一次函数，但我将NSTimer放在NSThread function.the代码中，如下所示：
-(void)func1
{
[NSThread detachNewThreadSelector:@selector(func2)
toTarget:self withObject:nil];
}
-(void)func2
{
[NSTimer scheduledTimerWithTimeInterval:3 target:self
selector:@selector(
浏览 1提问于2013-03-12得票数 0
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
对象存储
即时通信 IM
实时音视频活动推荐
腾讯云开发者
