文章分类 - Delphi API
Delphi 函数
摘要：出处：http://www.cnblogs.com/huangygdelphi/articles/1969357.html通过显示一个对话框来让用户选择一个目录。注意：在使用前要在Uses 语句中添加包含FileCtrl 的说明。函数原型如下：function SelectDirectory(const Caption: string; const Root: WideString;out Directory: string): Boolean; overload;function SelectDirectory(var Directory: string; Options: TSelectD
阅读全文
摘要：Delphi 显示选择文件夹对话框 (有新建按钮) 附实例 //转自：http://kb.cnblogs.com/a/1409558/这篇文章连注解也没有，晕uses ShlObj选择文件夹对话框。入口参数：Handle：调用者句柄Caption：对话框标题InitFolder：初始文件夹；SelectedFolder：返回选择结果返回值：如果用户选择了路径并确定，返回True。并由SelectedFolder返回选择结果。否则返回False}截图:Code highlighting produced by Actipro CodeHighlighter (freeware)http://ww
阅读全文
摘要：在Delphi中，定位文件的操作主要有两种方法。一种是直接定位文件，即通过“打开”对话框（OpenDialog）控件来实现。另一种是只定位到文件夹，然后再在此文件夹内寻找文件，这种定位方法是利用Delphi提供的SelectDirectory函数。这个函数是在FileCtrl单元中定义的，因此在使用时不要忘记在Uses中加入单元名。 下面就以一个例子来说明这两种方法在Delphi中的具体实现： 首先建立一个新的工程，然后在窗体上加入两个按钮控件、一个“打开”对话框，再加入两个标签控件作为两种实现结果的存储控件。 各个控件的主要属性设置如下： Button1中： Captio...
阅读全文
摘要：原理分析: 互斥对象是系统内核对象, 各线程都可以拥有它, 谁拥有谁就能执行; 执行完毕, 用 ReleaseMutex 函数释放拥有权, 以让其他等待的线程使用. 其他线程可用 WaitForSingleObject 函数排队等候(等候也可以理解为排队申请). 使用过程:var hMutex: THandle; {应该先声明一个全局的互斥句柄}CreateMutex {建立一个互斥对象}WaitForSingleObject {用等待函数排队等候}ReleaseMutex {释放拥有权}CloseHandle {最后释放互斥对象} ReleaseMutex、...
阅读全文
摘要：有一个Form1,里面有image1和webBrowser1,我用WebBrowser1连接到一个有验证码的网页，想把里面的图片提取到image1里，应该怎么做？问题补充：我指的是图片。例如：http://china.alibaba.com/member/join.htm验证码的地址是： http://checkcode.china.alibaba.com/service/checkcode?sessionID=e9EgR8RbEt2F8k68tQGjCKJ9NZnf8%24cS那里的图片是每次都变化的。我需要的是把WebBrowser里显示的验证码加载到TImage的对象里。下面的图像如果看
阅读全文
摘要：这个问题来自论坛提问，示例代码如下，主要是要了解Document对象 //------这个论坛居然不支持delphi代码样式unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, OleCtrls, SHDocVw, StdCtrls,mshtml;type TForm1 = class(TForm) WebBrowser1: TWebBrowser; Button1: TButton; Memo1: TMemo; proc...
阅读全文
摘要：改编自：http://www.cnblogs.com/del/archive/2008/08/06/1261580.htmlfunction RunJs(const JsCode, JsVar: string): string;var script: OleVariant;begin try script := CreateOleObject('ScriptControl'); script.Language := 'JavaScript'; script.ExecuteStatement(JsCode); Result := script.Eval(JsVar
阅读全文
摘要：摘 要：使用ActiveX Scripting技术，可以在应用程序中集成使用脚本语言。本文介绍如何应用这一技术在Delphi应用程序中添加VBScript支持。关键词：ActiveX脚本描述；Delphi；VBScript１．引言 Delphi语言是Borland公司开发的一种功能强大的编程语言,它基于串口和面向对象，并兼有VC的强大功能和VB的快速开发、易学易用的优点，具有开发效率高、界面制作美观方便、可实现各种操作功能等特点。VBS全称Visual Basic Script，是一种简单易学，功能强大的脚本语言，应用极为广泛。本文介绍了通过ActiveX Scripting技术在Delph.
阅读全文
摘要：问题来源: http://www.cnblogs.com/del/archive/2008/07/30/1256669.html#1272732源码下载: http://files.cnblogs.com/del/Dephi-JavaScript.rar本例测试用的 Html 文件(包含三个要测试的 Js 函数):本例效果图:代码文件:unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, OleCtrls..
阅读全文
摘要：出处：http://www.aau.cn/thread-2419-1-1.html//提供了于个新的思路，很有价值的贴子！！今天晚上天气清凉，万里航空，到处都是星星。。。。。。之后就请教游戏找个 POST 的 数据，是加密的，进入正题！网站地址：（非广告，让大家自己尝试记忆才深刻）http://bbs.duowan.com/logging.php?action=login(抓包工具 HttpWatch) 打开抓包监视，随便填写 用户名和密码,点提交，如下图: POST抓到的流的数据为formhash=1187cd59&referer=index.php&loginfield=u
阅读全文
摘要：假如网页中有这样的语句:<script>varstr = "Hello";i = 99;</script>//读取网页脚本中的变量:procedure TForm1.Button1Click(Sender: TObject);vars: string;i: Integer;begins := WebBrowser1.OleObject.document.Script.str;i := WebBrowser1.OleObject.document.Script.num;ShowMessage(s); //HelloShowMessage(IntToSt
阅读全文
摘要：delphi TScriptControl 相关 以下的代码给我也不知道怎么用。。。。晕 但是还是有价值的，先保留！http://www.koders.com/delphi/fid0D20D82FDA39F3C1785367A7E148CB37F74669C7.aspx
阅读全文
摘要：Delphi程序中运行JavaScript脚本代码微软Windows操作系统中有一个叫ScriptControl的OCX组件利用这个组件，可以在自己的程序中运行JavaScript或VBScript这两种脚本代码使用很简单，新建一个工程，在窗体中放一个Button1控件在Button1控件的Click事件中写代码如下：procedure TForm1.Button1Click(Sender: TObject);varjs:OleVariant;beginjs:=CreateOleObject('ScriptControl');//创建组件js.Language:='Ja
阅读全文
摘要：function StrPosCount(subs:string;source:string):integer;var Str : string;begin Result := 0; str := source; while Pos(Subs,Str)<>0 do begin Delete(Str,Pos(Subs,Str),Length(Subs)); Inc(Result); end;end;转自：http://zhidao.baidu.com/question/182085850.html
阅读全文
摘要：//这是一个控制台程序；procedure Abc; var str,s,s1,s2:string; pstr:pChar;begin str := '123456'; s := IntToHex(Integer(@str),8); //如果要输出地址，需要把地址强制转换为整形才可以输出；相对于这方面vc++直接就可以输出屏幕了 s1 := IntToHex(Integer(@str[1]),8); s2 := IntToHex(Integer(@str[2]),8); Writeln(s); Writeln(s1); Writeln(s2);end;begin Writeln
阅读全文
摘要：调用一个DLL比写一个DLL要容易一些。首先给大家介绍的是静态调用方法，稍后将介绍动态调用方法，并就两种方法做一个比较。同样的，我们先举一个静态调用的例子。unit Unit1;interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Edit1: TEdit; Button1: TButton; procedure Button1Click(Sender: TObject); private { Priv
阅读全文
摘要：delphi之调用外部dll中的函数分早绑定和晚绑定两种方法：http://wenku.baidu.com/view/2e83081b6bd97f192279e98e.html
阅读全文
摘要：inherited就是调用祖先类的函数，如果不带参数就是默认调用同名函数如果带参数则表明子类中的函数个数可能比祖先类要多取其中的几个参数传过去例如祖先类有个函数 Create(AName:string);子类有个函数 Create(AName:string;AComponent:TObject);override;那么子类的Create函数内就可以这样调用祖先类：procedure TAClass.Create(AName:string;AComponent:TObject);begin Inherited Create(AName);end;转自：http://zhidao.baidu.co
阅读全文
摘要：接口 对于Object Pascal语言来说，最近一段时间最有意义的改进就是从Delphi3开始支持接口(interface)，接口定义了能够与一个对象进行交互操作的一组过程和函数。对一个接口进行定义包含两个方面的内容，一方面是实现这个接口，另一方面是定义接口的客户。一个类能实现多个接口，即提供多个让客户用来控制对象的“表现方式”。 正如名字所表现的，一个接口就是对象和客户通信的接口。这个概念像C++中的PUREVIRTUAL类。实现接口的函数和过程是支持这个接口的类的工作。 在这里你将学到接口的语言元素，要想在应用程序中使用接口，请参考COM和ActiveX方面的资料； 1.定义接口 就像所
阅读全文
摘要：花了两个小时做完了DELPHI中的数据集导入到EXCEL中的问题，在使用中要添加OleServer，控件使用DELPHI自带的Severs下的ExcelApplication，ExcelWorkbook，ExcelWorksheet三个控件。其中所有的变量都可以自定义，包括文件路径的保存，文件名字的设置，EXCEL中字体的大小，行宽列高等。在添加数据集的过程中，注意自身的循环和数据的对应关系即可。unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
阅读全文
浙公网安备 33010602011771号