相关推荐

关于打开数据库时提示"对象打开时，不允许操作"，问题分析及解决办法

问题的原因可能：   1、在其他地方已经打开这里没有用close先进行关闭在open  2、如果你的程序是多线程的活，虽然也写了close但是还会报错。       原因是当你这个线程到sql语句时程序跳到下一个线程执行了open，又回来执行前一个线程的open，就会报同样的错误  解决办法：   1、单线程就将close在sql语句之前，先关闭再打开   2、多线程时尽量不要使用同一

Delphi中基本控件之SaveDialog控件的使用总结

首先向Form窗体拖一个SaveDialog控件，Name属性改为：dlgSave，然后添加一个按钮，Caption属性改为：浏览，Name属性改为：btnBrowse。 然后双击浏览按钮添加如下代码： procedure Tfoffertool.btnbrowseClick(Sender: TObject); var filePath :string; begin dlgSave.

Delphi 基本控件之 SaveDialog控件

procedure TfMain.muOtherSaveClick(Sender: TObject); begin save1.Filter:= 'BMP文件(*.bmp)|*.bmp'; //设置保存文件的扩展名 save1.DefaultExt := '.bmp'; //为保存文件名自动添加扩展名 save1.Title:='保存图片'; save...

Delphi异常处理与调试

Delphi异常处理与调试 3.1 Delphi异常处理3.1.1 异常处理的意义所谓异常，可以理解为一种特殊的事件。当这种特殊的事件发生时，程序正常的执行流程将被打断。异常处理机制能够确保在发生异常的情况下应用程序不会中止运行，也不会丢失数据或资源。Object Pascal定义了大量的异常处理对象，使应用程序几乎能够处理所有的异常情况，并且对异常处理的语法作了简化。异常处理

delphi高手突破之异常及错误处理

什么是异常？为什么要用它？ 所谓“异常”是指一个异常类的对象。Delphi的VCL中，所有异常类都派生于Exception类。该类声明了异常的一般行为、性质。最重要的是，它有一个Message属性可以报告异常发生的原因。 但需要强调的是，异常用来标志错误发生，却并不因为错误发生而产生异常。产生异常仅仅是因为遇到了raise，在任何时候，即使没有错误发生，raise都将会导致异常的发生。异常

Delphi 运行时错误信息表

错误信息形式为: Run-time error nnn at xxxx; 其中nnn是运行时的错误编号; xxxx是运行时的错误地址. 编号说明 I/O错误: (编号100-149) 100磁盘读错误,若要对超过格式文件尾进行读取时 101磁盘写错误,若磁盘满时,由CloseFile,Write,Writeln或...

【Delphi 基础知识 21】on E: Exception do 异常处理

这种结构的目的是在程序执行过程中，如果发生了try块中的代码引发的异常，程序会跳转到相关的except块，执行异常处理代码。: 这是处理异常的实际代码块，包含了对异常的处理逻辑。: 这是一个异常处理的标识符，E 是一个变量，它会引用实际的异常对象。Exception 是基础的异常类，它是所有异常的祖先类。是用于处理异常的语法结构。这是一个异常处理块，用于捕获并处理发生在try块中的异常。: 当try块中的代码引发异常时，程序会跳转到这里来处理异常。: 这是一个关键字，表示接下来的代码块可能引发异常。

delphi7 向程序发送命令时出现问题

在Windows7下安装完delphi7后，双击一个工程文件“*.dpr”，此时就默认启动delphi32.exe程序，并打开工程文件，但先提示“向程序发送命令时出现问题”，然后启动delphi32.exe，工程文件却没打开。遍查网络，没找到办法。决定从“delphi32.exe”下手，将其属性中的兼容设置取消（或者勾选兼容windows Server 2003 Servicepack 1），将...

求人看看这个代码，有关DLL中使用回调函数的问题：回调不能返回正确值

求人看看这个代码，有关DLL中使用回调函数的问题：回调不能返回正确值 Delphi / Windows SDK/APIhttp://www.delphi2007.net/DelphiAPI/html/delphi_20061125234815170.html 用回调函数总是不能正确返回，我发送消息SendMessage是可以的。 unit Uni...

Gnostice PDFtoolkit VCL的安装

Installation and Uninstallation For New Users Close all open applications including the IDE. Run the setup and follow the instructions on the screen.For Existing Users In the IDE, "Components | Inst...

delphi excel 对象释放

代码如下：    ...    ExcelApp,workbook:   Variant;      ...    ExcelApp:=CreateOleObject( 'Excel.Application ');    workbook:=CreateOleObject( 'Excel.sheet '); 上次大家给我的代码是：  workbook.close;  Exc

Delphi学习之Raise(抛出异常)

Raise是用来抛出异常的！ constructor TBaseFactory.Create(const IID: TGUID); begin if FactoryManager.Exists(IID) then Raise Exception.CreateFmt(Err_IntfExists,[GUIDToString(IID)]); FIntfGUID:=IID; Fa

使用 ExceptionDispatchInfo 捕捉并重新抛出异常

当你跑起了一个异步线程，并用 await 异步等待时，有没有好奇为什么能够在主线程 catch 到异步线程的异常？ 当你希望在代码中提前收集好异常，最后一并把收集到的异常抛出的时候，能不能做到就像在原始异常发生的地方抛出一样？ 本文介绍 ExceptionDispatchInfo，专门用于重新抛出异常。它在 .NET Framework 4.5 中首次引入，并原生在 .NE...

delphi OnException捕捉全局异常错误的方法

软件总有想不到的异常发生，比如网络访问不了。。。 如果系统弹出错误窗体，软件有可能就会终止运行，特别是那些不是人工守着的软件，这个delphi源代码就让所有的窗体显示在软件本身的文本框中，而不能让它弹出来，软件不会中断将继续运行！ private { Private declarations } public procedure GlobalExceptionHandler(Sender: TObject; E: Exception); { Public declarations }