DELPHI - 技术教程文章

delphi webbrowser 经常用法演示样例

var Form : IHTMLFormElement ;D:IHTMLDocument2 ; beginwith WebBrowser1 do beginD := Document as IHTMLDocument2;Form := D.Forms.item( ‘form1 ‘,0) as IHTMLFormElement; //form1为表单名//title为表单中的文本框(form.item( ‘title ‘,0) as IHTMLElement).setAttribute( ‘value ‘,s_title,0); (form.item( ‘content ‘,0) as IHTMLElement).setAttribute( ‘value...

Delphi DLL文件的动态调用【图】

樊伟胜原文:https://www.cnblogs.com/fanweisheng/p/11378833.html

Delphi能通过SSH登录Linux,连接MYSQL取数么?像Navicat一样

百度随时就能搜,你就懒得搜下。http://tieba.baidu.com/p/671327617Ssh tunnel通常能实现3种功能1) 加密网络传输2) 绕过防火墙3) 让位于广域网的机器连接到局域网内的机器---------------------------------------------------------------------------------Delphi能通过SSH登录Linux,连接MYSQL取数么?SSH是远程连接Linux的其中一种通道方式。目前Linux的MYSQL不允许开放远程访问,因此只能SSH登录Linux后访问MYSQL。像N...

delphi 运算符优先级

单目运算符 (最高优先级)@取变量或函数的地址(返回一个指针)not逻辑取反或按位取反乘除及按位运算符*相乘或集合交集/浮点相除div整数相除mod取模 (整数相除的余数)as程序运行阶段类型转换 (RTTI运算符)and逻辑或按位求和shl按位左移shr按位右移加减运算符+相加、集合并集、字符串连接或指针增加一个偏移量-相减、集合差集或指针减少一个偏移量or逻辑或按位或运算xor逻辑或按位异或运算关系及比较运算符(最低优先级)=判断是否相等<>...

Delphi 的各版本定义,用于预编译参数中,避免忘记备忘之

DELPHI的版本宏: VER80 - Delphi 1 VER90 - Delphi 2 VER100 - Delphi 3 VER120 - Delphi 4 VER130 - Delphi 5 VER140 - Delphi 6 VER150 - Delphi 7 VER160 - Delphi 8 VER170 - Delphi 2005 VER180 - Delphi 2006 VER190 - Delphi 2007(兼容2006) VER185 - Delphi 2007 VER200 - CodeGear RAD Studio 2009 VER210 - CodeGear RAD Studio 2010 VER220 - CodeGear RAD Studio 2011 XE VER230 - Delphi XE2 / C++Builder XE2 VER...

delphi怎样编译LINUX程序【图】

delphi编译LINUX程序DELPHI XE 10.2(TOKYO)开始可以开发LINUX控制台程序。1)上传PASERVER到LINUX,并且运行PASERVER。2)开始编译,PROFILE NAME这里填写cxg3)查看LINUX的IP地址并填写好4)直接OK5)开始更新DELPHI本地的文件 原文:http://www.cnblogs.com/hnxxcxg/p/7484782.html

DELPHI 中的Delay函数,利用GetTickCount和Application.ProcessMessages构建【代码】

作者 关劲松 delphi 开发中有些时候需要停留片刻,等待界面输入,或异步操作完成,如果使用sleep函数的话,整个程序都会停顿,界面还会出现冻结的情况。因此需要自行编写一个delay函数,以毫秒为单位控制等待时间。 函数功能:GetTickCount返回(retrieve)从操作系统启动到现在所经过(elapsed)的毫秒数,它的返回值是DWORD。 Application.ProcessMessages; 主要作用使程序在运行时能够响应外界事件。 利...

Delphi Interfaces【代码】

http://www.delphibasics.co.uk/Article.asp?Name=Interface The reason for interfaces Classes that extend another class can be called sub-classes. For example, you might extend a bicycle class to have mountain bike, and child bike sub-classes. They inherit a lot of the common functions of the general bicycle class, but add unique features, such as stabilizer wheel options for the child bike. You can...

Delphi 设计模式:《HeadFirst设计模式》Delphi7代码---策略模式之MiniDuckSimulator[转]【图】

1 2{《HeadFirst设计模式》之策略模式 } 3{ 本单元中的类为策略类 } 4{ 编译工具: Delphi7.0 } 5{ E-Mail : guzh-0417@163.com } 6 7unit uStrategy; 8 9interface1011type12 {飞行接口,及其实现类 }1314 IFlyBehavior = Interface(IInterface)15 procedure Fly;16 end;1718 TFlyWithWings = class(TInterfacedObject, IFlyBehavior)19 public20 procedure Fly;21 end;2223 TFlyNoWay = class...

Delphi TOpenDialog设置多个过滤条件

网上阅读opendialog1.filter设置多个过滤条件,这方面资料,表述不准确。本人学习体会如下:1、filter以"|" 作为1组过滤。 "|"左侧为 opendialog1显示的过滤提示字符,"|"左侧为过滤条件,如:‘文档文件|*.doc‘;2、过滤条件2个以上,可以通过“;”字符追加,如:‘文档文件|*.doc;*.docx;*.txt;*.xls’;3、如果2组过滤以上,通过 "|"字符追加,如:‘文档文件|*.doc;*.docx;*.txt;*.xls;*.xlsx|Word文件‘;下面是4组的示例:o...

hprose rpc使用实例(同时有Java和Delphi客户端的例子)

php server [php] view plain copy <?php require_once(‘src/Hprose.php‘); function hello($name) { echo "Hello $name!"; return "Hello $name!"; } function e() { throw new Exception("I am Exception"); } function ee() { require("andot"); } function asyncHello($name, $callback) { sleep(3); $callback("from serve...

delphi 13 打印相关

打印页面设置打印预览文档属性 //------------------------------------------------------------------------------procedure WB_Print();begin Form1.WebBrowser1.ExecWB(OLECMDID_PRINT,1);end;//------------------------------------------------------------------------------//------------------------------------------------------------------------------procedure WB_PrintPreview();begin Form1.WebBrowser1.Ex...

Delphi绘图相关对象(TCanvas对象的方法)

TCanvas对象的方法 方法说明ArcArc(x1,y1,x2,y2,x3,y3,x4,y4 : Integer);Arc方法在椭圆上画一段弧,椭圆由(x1,y1)、(x2,y2) 两点所确定的椭圆决定。弧的起点是椭圆圆周和椭圆中心与(x3,y3)连线的交点。弧矩形终点是椭圆圆周和椭圆中心与(x4,y4)连线的交点以逆时针方向画弧ChordChord(x1,y1,x2,yx,x3,y3,x4,y4 : Integer);Chord方法连接椭圆上两点,椭圆由(x1,y1)、(x2,y3) 两点所确定的矩形决定,(x3,y3)是始点,(x4,y4)是终点Brus...

zw版【转发·台湾nvp系列Delphi例程】HALCON color_fuses1【图】

zw版【转发·台湾nvp系列Delphi例程】HALCON color_fuses1 procedure TForm1.Button1Click(Sender: TObject);var w, h : OleVariant; hv_Fuse, hv_i : Integer;begin Op.ReadImage(ho_Image, Tuple.TupleAdd(‘color/color_fuses_0‘, hv_Count)); Op.GetImageSize(ho_Image, w, h); Op.SetPart(hv_WH, 0, 0, h - 1, w - 1); Op.DispObj(ho_Image, hv_WH); Op.SetTposition(hv_WH, 12, 512); Op.WriteString(hv_WH, Tupl...

IsChild API与Delphi里的Parent不是一回事(Windows窗口自己不能是自己的子窗口,但Delphi不一定)【代码】

新建一个Form,上面放一个Button1,一个Panel1,然后在Panel1上再放一个Button2,测试结果:procedure TForm1.Button1Click(Sender: TObject); beginif IsChild(handle, handle) then ShowMessage(‘yes‘) else ShowMessage(‘no‘); // 显示No, 因为Form自己不是自己的Childif IsChild(handle, button1.handle) then ShowMessage(‘yes‘) // 显示Yeselse ShowMessage(‘no‘);if IsChild(handle, panel1.handle) then ShowMessa...

zw版【转发·台湾nvp系列Delphi例程】HALCON SetLineStyle2【图】

zw版【转发·台湾nvp系列Delphi例程】HALCON SetLineStyle2 procedure TForm1.Button1Click(Sender: TObject);var img : HImageX; rg : HRegionX; w, h : OleVariant; val : OleVariant;begin img := CoHImageX.Create; img.ReadImage(‘rings_and_nuts‘); w := img.GetImageSize(h); HWindowXCtrl1.HalconWindow.SetPart(0, 0, h - 1, w - 1); img.DispObj(HWindowXCtrl1.HalconWindow); val := VarArrayOf([3, 1]); r...

Delphi XE7 Update1修正列表

Delphi XE7 Update1修正列表官方下载地址:http://altd.embarcadero.com/download/radstudio/xe7/delphicbuilder_xe7_upd1_win.isobug修正列表:http://edn.embarcadero.com/article/44156更新内容:http://docwiki.embarcadero.com/RADStudio/XE7/en/Release_Notes_for_XE7_Update_1Keygen也来了!http://pan.baidu.com/s/1eQqyQZo原文:http://www.cnblogs.com/LittleTiger/p/4374143.html

delphi webbrowser 跨域访问

procedure IterateFrames(const AWB: IWebBrowser2);var Doc: IHTMLDocument2; Container: IOleContainer; Enumerator: ActiveX.IEnumUnknown; Unknown: IUnknown; Browser: IWebBrowser2; Fetched: Longint; NewDoc: IHTMLDocument2;begin if (Assigned(AWB.Document)) and (Supports(AWB.Document, IHTMLDocument2, Doc)) then begin // Recursive searching. // ACHTUNG! We cannot use the document‘s frames c...

delphi7学习:文件构成

Delphi 是以工程为中心来开发应用程序的,即每个应用程序都是一个工程,由一个或多个文件及工程文件组成。组成工程的几种文件包括:工程文件、单元文件、窗体文件、资源文件、工程选项及桌面配置文件、中间编译单元、备份文件、包文件等。1.工程文件( .dpr)工程文件的扩展名为.dpr。工程文件包含了应用程序的入口,位于“ Begin”和“ End”之间。注意:用户应该尽量避免修改工程文件内的代码,除非确实有修改它的原因,否则最好...

Delphi Code Editor 之 基本操作【图】

Delphi Code Editor 之 基本操作毫无疑问,Delphi是高度可视化的。这是使用Delphi进行编程的最大好处之一。当然,任何一个有用的程序中都有大量手工编写的代码。当读者开始编写应用程序的UI部分后,可能会多花些事件来学习Delphi Code Editor。Code Editor有些特性,当大家知道后,一定会喜欢的。我们将从四个方面进行介绍:基本的编辑器操作(Basic Editor Operations)专用编辑器特性(Specialized editor features)Code Editor...

delphi杀进程的两种方式

delphi杀进程的两种方式uint unit Tlhelp32;第一种:比较简单,根据标题,找到窗口,再找到进程,杀死进程 procedure KillProgram(WindowTitle : string);const PROCESS_TERMINATE = $0001;var ProcessHandle : THandle; ProcessID: Integer; TheWindow : HWND;begin TheWindow := FindWindow(nil, PChar(WindowTitle)); GetWindowThreadProcessID(TheWindow, @ProcessID); ProcessHandle := OpenProcess(PROCESS_TERMINATE...

DELPHI版传奇引擎学习菜鸟篇(applem2)-03【代码】【图】

3.2 Gmain.pas单元这是引擎控制台的主窗口,就是之前说的那个4500行代码的单元,对大神来说,这不算什么,对我看来说,光是理清里边的关系就很吃力.我知道也许从程序的架构角度去理解会好一些,但咱不懂那些,只好继续以一个菜鸟的方式按单元\按页面逐项查看,期待能获得一些营养.接口部分也有近500行代码,虽然我是初学delphi,但也知道把所有的功能和定义都放到一个单元对以后维护带来很大不变,这份代码是谁写的我不清楚,但是至少不像比较标...

04.Delphi通过接口IInterface实现多重继承【代码】

IInterface表示申明了一些函数,自己本身没有实现部分,需要由继承它的类来实现函数uSayHello代码如下unit uSayHello;interfaceusesSysUtils,Windows,Messages,Classes,Graphics,Controls,Forms,Dialogs;type// IInterface表示申明了一些函数,自己本身没有实现部分,需要由继承它的类来实现函数ISpeakChinese = interface(IInterface)function SayHello: string;end;// IInterface表示申明了一些函数,自己本身没有实现部分,需要...

zw版【转发·台湾nvp系列Delphi例程】HALCON OverpaintRegion2【图】

zw版【转发·台湾nvp系列Delphi例程】HALCON OverpaintRegion2unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, OleCtrls, HALCONXLib_TLB;type TForm1 = class(TForm) HWindowXCtrl1: THWindowXCtrl; Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations }...

Delphi2010中DataSnap技术网摘【代码】【图】

Delphi2010中DataSnap技术网摘一、为DataSnap系统服务程序添加描述这几天一直在研究Delphi 2010的DataSnap,感觉功能真是很强大,现在足有理由证明Delphi7该下岗了。DataSnap有三种服务模式,其中Service Application方式建立的Windows服务没有描述,描述部分是空的,可用如下方法添加服务描述:procedure TServerContainer.ServiceAfterInstall(Sender: TService); varreg: TRegistry; beginreg := TRegistry.Create;trywith reg ...

Delphi XE5教程7:单元引用和uses 子句【代码】【图】

内容源自Delphi XE5 UPDATE 2官方帮助《Delphi Reference》,本人水平有限,欢迎各位高人修正相关错误!也欢迎各位加入到Delphi学习资料汉化中来,有兴趣者可QQ:34484690@qq.com 3 Unit References and the Uses Clause 3 单元引用和uses 子句 A uses clause lists units used by the program, library, or unit in which the clause appears. A uses clause can occur inuses 子句列出了被程序、库或单元引用的单...

DbgridEh数据导出到Excel的方法(Delphi)

本文内容严重参考了网上其他牛人的代码,并做了一些修改,使得参数更加简单,结构更清晰,所以就厚着脸皮说是原创。 uses DBGridEhImpExp;procedure TFrm_func.DbGridEhToExcel(ADgEh: TDBGridEh);var ExpClass: TDBGridEhExportclass; Ext: string; FSaveDialog: TSaveDialog;begin try if ADgEh.DataSource.DataSet.IsEmpty then begin Application.MessageBox(PChar(‘没有可导出的数据‘), PChar(‘提示‘), MB...

delphi 面向对象实用技能教学二(封装)

面向对象编程手法,是一项综合技能,单独把谁拿出来说都不合适。本次重写 TSimpleThread ,使其能在 D7 下运行。基于 TSimpleThread ,重磅推出 TSimpleUI.ExeProcInMainThread ,命名更精准,消除使用时的疑惑。详情如下:1.TSimpleThread ,本博客线程教程中,已详细介绍。2.TSimpleUI , 在 UI Thread 或称之为 MainThread 中执行 Proc 。3.TManagementBase , 管理基类,用于编写线程程序,在此类中实现了 ThreadDispMsg(AMsg:stri...

Delphi -- 创建 桌面、发送到...、快速启动栏、开始菜单、程序菜单、右键菜 单【代码】【图】

{================================================================= 功 能: 创建 桌面、发送到...、快速启动栏、开始菜单、程序菜单、右键菜单 快捷方式 参 数: FileName : 快捷方式执行文件名 Description : 快捷方式描述信息 Arguements : 快捷方式执行参数 ShowName : 快捷方式显示名称 Location : 快捷方式类别 id : 需设置状态的队列号(255 为设置) CreateOrDelete: 是创建还是删除(默认为创建 true) 返 回 值: 无 备 注: ...

Delphi按名字调用方法高级解决方案

Delphi按名字调用方法高级解决方案 博客分类: 编程基础DelphiJ#ASPDOS数据结构 按名字调用方法似乎一直以来都是大家比较关注的技术,在论坛上有一个经典的答复: type TProcedure = procedure(Test: string) of object; procedure ExecuteRoutine(Obj: TObject; Name, Param: string); var PMethod: TMethod; AProcedure: TProcedure; begin PMethod.Data := Pointer(Obj); PMethod.Code := Obj.MethodAddre...