新建Webbroker项目: 选择类型: 开始可以使用:Indy VCL Application 方便调试,完成后,再新建一个DLL 项目,引用业务单元.   示例代码如下: unit uDataModuleMain; interface uses   SysUtils, Classes, HTTPApp, HTTPProd; type   TWebModule2 = class(TWebModule)     ppTest: TPageProducer;     procedure ppTes…

Delphi ServerSocket,ClientSocket示例 2008-05-09 16:20 Delphi TServerSocket,TClientSocket实现传送文件代码 1.建立两个工程Server及Client, 分别放TServerSocket及TClientSocket控件,Demo,Edit控件等. 2.设置TServerSocket name为 SS, ServerType为stNonBlocking,TClientSocket name为cs,ClientType…

var Form : IHTMLFormElement ; D:IHTMLDocument2 ; begin with WebBrowser1 do begin D := Document as IHTMLDocument2; Form := D.Forms.item( ) as IHTMLFormElement; //form1为表单名 //title为表单中的文本框 (form.item( ) ); (form.item( ) ); (form.item( ) as IHTMLElement…

自:http://www.delphibbs.com/keylife/iblog_show.asp?xid=20713 ================================================================ -- :: xml基础操作实例,因为刚开始学,如果有不对的地方,请批评指正,代码如下: unit XMLOptionUnit; //===========================================================…

环境: OS:Windows Server 2003  Enterprise sp2 34位 IIS:6.0 ISAPI: delphi xe 编译的webbroker isapi dll 32位 (可以压缩)   1:安装IIS (略) 2:新建网站,配置基本选项 3:打开ISAPI扩展 4:复制ISAPI文件到网站目录 5:网站执行权限   调用测试.…

环境: OS:Windows Server 2008 R2 Enterprise sp1 64位 IIS:7.5 ISAPI: delphi xe 编译的webbroker isapi  dll  32位 (不能压缩)   1:安装IIS (略),ISAPI打上勾安装 2:新建网站,配置好基本的选项(主页,端口等) 3:ISAPI DLL 复制到网站目录 4:启动ISAP 5:32位兼容选项打开 (重要)   测试运行.…

示例代码已经放出!请移步使用delphi+intraweb进行微信开发1~4代码示例进行下载,虽为示例代码但是是从我项目中移出来的,封装很完备适于自行扩展和修改. 在上一讲当中我做了个简单的微信文本消息回显应用,当时是以微信明文方式实现的,其实微信推荐的是消息应该加密传输以增加安全性,所以这讲说说微信消息的加解密. 在微信的帮助页面上可以下载微信消息加解密的例程,可惜的是没有Delphi语言的示例,网上搜索一番,没有人贡献出写好的Delphi版的微信加解密算法单元,好在有官方示例的C#版的,那就…

让Delphi的DataSnap发挥最大效率 让Delphi的DataSnap发挥最大效率 一个DataSnap的应用程序由两个层组成: DataSnap服务器,它有一个带有一个或者更多DataSetProvider组件的远程数据模块:DataSnap客户端,它带有一个xxxConnection组件和一个或者多个连接到DataSetProviders的ClientDataSets. 你可以不使用ClientDataSet而换用XMLBroker组件,后者是专门用在InternetExpress…

Delphi Win API函数 操作帮助文件 HtmlHelpA函数介绍 函数原型:HWND HtmlHelpA( HWND hwndCaller, LPCSTR pszFile, UINT uCommand, DWORD_PTR dwData ); Delphi 中引用:function HtmlHelpA (hwndcaller:Longint; lpHelpFile:string; wCommand:Longint;dwData:string): HWND;stdcall; extern…

DELPHI 通过ZLib来压缩文件夹 unit Unit1; interface uses ZLib, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; const cBufferSize = $; cIdent: ] = 'zsf'; cVersion = $; cErrorIdent = -; cErrorVersion = -; type TFileH…

  因为dll文件已驻留内存,可用intrabob进行调试,也可用PWS进行调试,不过要换文件. IntraBob是资深程序员Dr.Bob编写的免费工具软件,用于测试Delphi编写 的CGI/WinCGI/ISAPI程序,它可以代替PWS/IIS等WWW服务器软件, 调试本地的CGI/WinCGI/ISAPI程序,其原理是模拟PWS/IIS接受WWW请求, 并根据您的设置将类似于“http://www.123.com/testisapi.dll” 的远程URL映射到本地文件,如“d:\intr…

前几讲重点阐述的是使用iw进行微信开发的技术难点及解决方法,提供的都是代码片段(微信消息加解密是完整代码),实际上我始终感觉按照教程实作是掌握一门技术的最重要的方法!不过对于刚刚接触这类开发的朋友来说可能学习曲线陡峭了点,既然如此,特意放出了前4讲的示例代码,去掉了数据库相关操作,保留了最精华的代码部分,直接编译即可进行测试. 下载地址:http://download.csdn.net/detail/netwizard/9475970 此虽为示例代码但是是从我一个即将完工的商业项目中拷贝出来的,…

下面以Delphi调用触摸屏动态库xtkutility.dll为例子,说明如何静态加载DLL和动态加载DLL. 直接上代码. 1.静态加载示例 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) btnEnableTouch: TButton; btnDi…

用Web App Debugger简单调试ISAPI   以isapi为例: 1.新建一个project,用isapi/nsapi: 2.remove这个project中所有的unit: 3.加进你用Web App Debugger调试出来的工程的unit : (千万注意:不要把有form的unit加进去,不然不能运行) 4.建一个虚拟目录,指向你的工程所在的目录: 5.这样你在url中输入:http://你的虚拟目录/工程名.dll. 这是在你自己机上这样设置,如果你要发布到其他没有装delp…

*Delphi之通过代码示例学习XML解析.StringReplace的用法 这个程序可以用于解析任何合法的XML字符串. 首先是看一下程序的运行效果: 以解析这样一个XML的字符串为例: <?xml version="1.0" encoding="UTF-8"?><BookInfo><Owner><OwnerName>张三</OwnerName><OwnerAge>1234</Owner…

在Delphi或者其它程序中我们经常需要调用别人写好的DLL类库,下面直接上示例代码演示如何进行动态和静态的调用方法: { **********************************************************} { } { DLL动态调用与静态调用的例子 } { 编译环境 Delphi XE } { 转载或编译请不要修改此文件 } { ******************************************************* ***} { **…

直接上代码吧,这个示例在Excel中输出一个M2: unit FfrmMain; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, RzButton; type TfrmMain = class(TForm) RzBitBtn1: TRzBitBtn…

{ Copyright ?1999 by Delphi 5 Developer's Guide - Xavier Pacheco and Steve Teixeira } unit MainFrm; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; const FName = 'test.txt'; type TMainForm = class(TF…

淘宝IP地址库:http://ip.taobao.com,里面有REST API 说明. Delphi XE 调试通过,关键代码如下: var IdHTTP: TIdHTTP; RequestURL: string; ResponseStream: TStringStream; JO, JData: TJSONObject; begin IdHTTP := TIdHTTP.Create(nil); IdHTTP.ReadTimeout := 0; IdHTTP.AllowCookies := T…

  1.新建一个web工程,请选中最下面一项:Web App Debugger executable,Coclass name我们设为demo1: 2.在弹出的WebModule2中右击,在弹出的Action编辑框中新建一个webaction,选中,设置Default属性为True,在其onaction事件中编写如下代码,输出一个仅显示‘hello,dephi!’的html页: 3.请先运行一遍,向Web服务器注册: 4.设置断点,运行: 5.点击Tools->Web App Debugger:…

Web Service和ISAPI的区别与联系   1.Web Service 是一种新的web应用程序分支,他们是自包含.自描述.模块化的应用,可以发布.定位.通过web调用.Web Service可以执行从简单的请求到复杂商务处理的任何功能.一旦部署以后,其他Web Service应用程序可以发现并调用它部署的服务. Web Service是一种应用程序,它可以使用标准的互联网协议,像超文本传输协议(HTTP)和XML,将功能纲领性地体现在互联网和企业内部网上.可将Web服务视作Web上的组…

[delphi] view plaincopyprint? SysUtils.StrToDate(); SysUtils.StrToDateDef(); SysUtils.TryStrToDate(); SysUtils.StrToTime(); SysUtils.StrToTimeDef(); SysUtils.TryStrToTime(); SysUtils.StrToDateTime(); SysUtils.StrToDateTimeDef(); SysUtils.TryStrToDate…

Delphi XE2 版本调用大漠插件方法:打开Component->Import Component->默认Import a Type Library,点击Next->找到Dm.dll(若未注册,点击add添加)选中,点击Next->设置下Unit Dir Name,点击Next->点击Finish.此时会在设置的路径下自动生成Dm_TLB.pas. 编写代码,待可执行文件生成后,将“dm_soft.txt”放在同一个目录下,如果Dm.dll未注册,也将其一并放在目录下,在…

Delphi可以通过创建开机启动项键值的方法,将程序添加到开机启动项中.通过本实例代码就可以为您的程序添加到快速启动中,随着Windows一起启动,开机即运行的程序.该实例代码简单,主要是通过添加注册表键值来实现.具体的功能代码如下所示:unit dy97;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs,registry, StdCtrls, ExtC…

这个DEMO的是一个定义了一个窗体插件接口,把其他窗口注册到这个窗体插件接口中.主程序运行起来,就遍历一下窗体插件接口,把每个窗体内嵌到对话框中 运行效果如下 主窗口代码如下 unit Frm_Main; interface { 本程序演示了如何使用QPlugins来做模块间的松散耦合,使用了Execute来传递,实际上 也可以约定接口直接调用(请参考 MultiInstance 示例) } uses Winapi.Windows, Winapi.Messages, System.SysUtil…

这个程序可以用于解析任何合法的XML字符串. 首先是看一下程序的运行效果: 以解析这样一个XML的字符串为例: <?xml version="1.0" encoding="UTF-8"?><BookInfo><Owner><OwnerName>张三</OwnerName><OwnerAge>1234</OwnerAge></Owner><BookMes><…

本应用程序的Hook: unit UFrmMain; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) btnClose: TButton; btnSetHook: TButton; btnSizeLongInt: TButton; procedure btnCloseClic…

//MyInt.pas unit MyInt; interface {$IFNDEF MYLIB} function MyAdd(a,b:integer):integer ;stdcall; {$ENDIF} implementation {$IFNDEF MYLIB} function MyAdd; external 'MyLib.dll' name 'MyAdd'; {$ENDIF} end. //MyLib.dpr library MyLib; { Important note about…

unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls, ShellAPI;type  TForm1 = class(TForm)    Memo1: TMemo;    procedure FormCreate(Sender: TObject);  private    // 当文件拖放至窗体中后,系统将向窗体发…

最近做一个读市民卡的项目,读卡器公司提供的读市民卡dll是用C++写的. 下面记录一些自己的心得,供需要的朋友参考. 声明dll函数要加上stdcall关键字,否则可能会报地址非法的错误. 代码: unit cMain; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, ADODB, StdCtrls, ComCtrls,ActiveX, E…