以下是为您整理出来关于【delphi】合集内容，如果觉得还不错，请帮忙转发推荐。
现在很多SDK都提供了JAVA接口。但是没有Delphi接口。没有办法只好曲线救国。我们可以通过 JNI 的方式在 Delphi10.3 中调用 Java 的函数。第一步：创建 Java 虚拟机和运行环境procedure TForm1.FormCreate(Sender: TObject);var Options: array [0 .. 4] of JavaVMOption; VM_args: JavaVMInitArgs; ErrCode: Integer;begin { 创建 Java 虚拟机 } FJavaVM := TJavaVM.Create(JNI_VERSION_1_8); Options[0]...
Pint:^string;在这里将^放在数据类型之前,说明是声明的字符串指针类型!如果想取出指针引用的值的话,就将^放在声明的类型后就可以了,比如:Pint^想取Pint类型的所引用地址的话,就将@放在之前就可以了,比如:@Pint ^type 表示指向这种类型的指针 point^ 返回指针指向的变量的值 原文：http://www.cnblogs.com/yangxuming/p/7439827.html
DELPHI NEXTGEN编译开关{$IFDEF NEXTGEN}UTF8String = type _AnsiString(65001);RawByteString = type _AnsiString($ffff);{$NODEFINE UTF8String}{$NODEFINE RawByteString}{$ELSEIF Defined(LINUX64) or Defined(OSX64)}UTF8String = type AnsiString(65001);RawByteString = type AnsiString($ffff);{$NODEFINE UTF8String}{$NODEFINE RawByteString}{$ELSE}UTF8String = type AnsiString(65001);RawByteString = type AnsiStri...
添加引用ShellAPI过程或者过程中添加如下代码ShellExecute(Handle,‘open‘,‘Explorer.exe‘,pwidechar(‘/e,/select,%s,‘+extractfilepath(application.ExeName)+‘导出\‘+dbfname+‘.dbf‘),nil,SW_NORMAL);function ShellExecute(hWnd: HWND; Operation, FileName, Parameters, Directory: LPWSTR; ShowCmd: Integer): HINST; stdcall;参数说明HWND: 用于指定父窗口的句柄。当函数调用过程中出现错误时，它将作为Windows...
摘要:在Delphi的VCL库中，为了使用以及实现的方便，应用对象Application创建了一个用来处理消息响应的隐藏窗口。而正是这个窗口，使得用VCL开发出来的程序存在着与其他窗口不能正常排列平铺等显得有些畸形的问题。本文通过对VCL的深入分析，给出了一个只需要对应用程序项目文件作3行代码的修改就能解决问题的方案，且不需要原有的编程方式作任何改变。一、引言 用Delphi所提供的VCL类库编写的Windows应用程序，有一个明显不同于...
DELPHI 数据库连接类做的时候目地是可以通过类的创建和释放进行数据库的短连接，在做服务端的时候每一个请求都通过类生成一个数据连接unit UnDm;interfaceusesSysUtils, Classes, Controls, Forms, Dialogs,ComCtrls, ExtCtrls, Menus, StdCtrls,ADODB,DB,inifiles;typeTRecordResult = (RRError, RRZero, RROK);TDataStatus = (DsSel, DsEdit, DsAdd); typeTDataConnection = classDataAdoConn: TADOConnection;qryTemp1: TADOQue...
下面以Delphi调用触摸屏动态库xtkutility.dll为例子，说明如何静态加载DLL和动态加载DLL.直接上代码。1、静态加载示例unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls;typeTForm1 = class(TForm)btnEnableTouch: TButton;btnDisEnableTouch: TButton;Label1: TLabel;Memo1: TMemo;procedure btnEnableTouchClick(Sender: TObject);procedure btnDisEnableT...
在开发某些软件的时候，为了保护程序自身，就需要用到隐藏程序进程。以下通过实例来讲解隐藏程序进程的方法： 1、创建一个新的项目 Project1 选择File,New Application。在表单Form1上放一Memo组件，一个OK按钮组件，改变OK按钮组件的Cation属性为 CreateProcess。再放一个timer组件。设置timer组件的Interval值为1000,每秒检查一次进程是否终止。 2、在Unit1 Use节的Type后定义一个过程 procedure EstablishProce...
1.将jar转换为dexcall dx --dex -verbose --output=.\output\dex\test_classes.dex --positions=lines .\output\jar\test_classes.jar2.Delphi XE6,XE7下，通过Project菜单下Deployment Manager,将test_classes.dex复制到远程目录assets\internal\目录 原文：http://www.cnblogs.com/hezihang/p/3975920.html
四、抽象类和它的实例 Delphi中有一个类称为是抽象类，你不能天真的直接为它创建一个实例，如varStrLst: TString; beginStrLst:= TString.Create;StrLst.Add(‘I love China‘);StrLst.Free; end; 这是不对的，因为TString是一个抽象类。 那么怎么为这样的抽象类构造实例呢？答案就是借助它的非抽象子类。我们知道TString有一个TStringList的非抽象子类。所以可以这样操作varStrLst: TString; //还是可以通过抽象类来...