全欣 的专栏

Delphi 编写调用WebService接口的小程序最近由于项目需要在编写一个webservice的客户端，网上找来了不少资料，都说可以通过delphi自带的向导来生成调用接口的文件。如对天气预报的webservice调用http://www.webxml.com.cn/WebServices/WeatherWebService.asmx?wsdl ，查看各地的天气预报1、打开delphi开发软件到 File--> New--> Application 新建一个工程，在窗体上放置两个

1. 概述 对于开发人员来说，多线程是必备的知识，但相对来说，也是比较难的知识点。Delphi是一门古老而优秀的编程语言，它对多线程的处理有一些特殊的地方，本文尝试做一些简单的讲解，可以当作Delphi的多线程基础入门知识来阅读。如无特殊说明，所有例子都在XP操作系统中和Delphi7中调试通过。2. 一个简单的例子 在这一节中，我们将建立一个极为简单的例子，阐述Delphi中多线程的用法。2.1 实现步骤 第一步：在Delphi7 I...

unit uThread;interfaceuses Classes;type Th = class(TThread) private { Private declarations } protected procedure Execute; override; end;以上是创建的一个多线程我在另外一个单元里Unit1有一个函数function Myfun(username,password:string):boolean现在要.

加入控件TFrxreport、frxDesigner1，导出部分添加TfrxSimpleTextExport、TfrxXLSExport、TfrxPDFExport、TfrxHtmlExport等表示要导出的几种类型。如果没有TFrxDesigner控件将不能进行报表设计。另外添加TfrxDBDataset 数据源（在Form或Data Module中加入都行）可以在设计时查看到的Da

一、环境 1、Delphi 2006 （Version10.0.2151.25345） 2、FastReport4.5 full source，下载地址(www.ccrun.com) 这个版本支持Delphi 4~7, 2005, C++Builder 4~6, BDS2006, RAD Studio 2007 3、目录结构D:\EFine\控件\FastReport4.5，解压后

转自：http://blog.youkuaiyun.com/yunqian09/article/details/5554527我的办法，增加一个timer 设置间隔100ms，通过timer的使能否，控制报警声音开关procedure TForm1.Timer1Timer(Sender: TObject);begin   Windows.Beep(1200+i_f,10+i_f);

转自：http://blog.youkuaiyun.com/bdmh/article/details/42193951.FastReport中如果访问报表中的对象？可以使用FindObject方法。TfrxMemoView(frxReport1.FindObject(’memo1′)).Text:=’FastReport’;2.FastReport中如何使用上下标？设置frxmemov

delphi fastreport4.5 的使用

Windows 2000/XP和2003等支持一种叫做"服务程序"的东西.程序作为服务启动有以下几个好处:     (1)不用登陆进系统即可运行.    (2)具有SYSTEM特权.所以你在进程管理器里面是无法结束它的.    笔者在2003年为一公司开发机顶盒项目的时候,曾经写过课件上传和媒体服务,下面就介绍一下如何用Delphi7创建一个Service程序.     运

delphi服务程序(service)的调试

这个一般是在使用COM或者调用ADO控件时出现的错误，通常情况下都是程序的问题。调用了com,ole函数库前就要coinitialize,因为在应用程序中，delphi会自动在initialize 单元加上对co...函数的调用，在dll中要自己调用。    但在Delphi开中的PubDBConn中的如下代码竞也提示“尚未调用 CoInitialize”procedure Createa

本文主要讲解了如何使用delphi新建服务，停止系统服务，以及获取服务状态和新建系统服务器的方法，以下是关键代码：unit Servicescontrol;    interface     uses Windows,Messages,SysUtils,Winsvc,Dialogs;      function  StartServices(Const  SvrName:S

var  　　      systemtime:Tsystemtime;  　　DateTime:TDateTime;  begin  　　DateTime:=StrToDateTime(Edit1.text);  //获得时间（TDateTime格式）  　　DateTimeToSystemTime(DateTime,systemtime);  //把Delphi的TDate

利用飞信的协议可以在线收发消息，或是向手机发送消息。由此，可以自己来完成一个IM工具。本文即是对飞信SDK的使用方法，及如何开发作一个说明。一、引用FetionSDK飞信是采用C#开发的，所有的程序集均是.NET，因此我们也需要使用Delphi.NET/Chrome来进行相关的开发。在Chrome中，新建一个工程，并引入FetionSDK.dll，当然您也可以使用Delphi200

delphi编程用outlook发送邮件的方法，以下是关键代码：// uses ComObj,Dialogs function TForm1.SendMailWithAttachments(Email, Subject : string; Body : Widestring ; Filename : string): boolean;var    outlook : varia

解释用于 Jet 的 Microsoft OLE DB 提供程序返回的错误信息表明以下情况之一：    Microsoft® Access 数据库不是受保护的数据库，且指定的登录和密码不是无密码的 Admin。    Access 数据库受到保护，并且 HKEY_LOCAL_MACHINE\Software\Microsoft\Jet\4.0\SystemDB 注册表键值未指向

现在的个项目需要用到发短信的功能，所以网上买了个西门子T35i 芯片的短信猫，但实际编程时才发现只能发短信，一般的DLL不支持发长短信，但公司会经常发长短信，联系卖家要求给个发长短信的动态库，但卖家说他那只有这个，长短信要收钱开发的，晕。（怀疑是故意的），然后又买了个支持长短信惠通猫（szhto.ocx、HTCOM.dll不支持线程），开始还行，但用久了不知为啥总是死机一样，发/接不了短信，并且总

使用TADOConnection对象连接网络数据库（以MySQL为例），当本地网络断开时，连接对象的Connected属性不会发生变化，一直是True。即使将连接对象的KeepConnection属性设置为false，若网络断开，在不尝试连接数据库的情况下，Connected属性也是true；在尝试连接数据库失败之后，Connected属性才变为false。[delphi] v

方法一：使用Delphi调用BarTender打印条码，在网上搜索了一下，很多都是介绍导入ActiveX组件，其实完全没有必要。用OLE控件完全可以解决。但需要注意所使用的BarTender必须是正式的安装版(PS:破解版好像也可以)，试用版和绿色版都不可以二次开发。下面是测试通过的列子：(需要引用ComObj.Pas文件)直接写代码：procedure TForm1.

通常在Delphi的应用程序中，我们会调用到很多的资源，例如图片，动画（AVI），声音，甚至于别的执行文件。当然，把这些资源分布到不同的目录不失为一个好办法，但是有没有可能把这些资源编译成标准的资源从而链接到一个执行文件里面呢？我们可以自己做一个RC文件，例如 sample.rc ，RC文件其实就是一个资源文件的描述文本，通过“记事本”程序创建就行了。然后可以输入一些我们要定义的资源，例如

本方法只针对的是华视cvr-100UC 二代身份证读卡。只是写了主要的部分，可以把函数等放入公共文件中，引用，调用即可。剩下的自己琢磨吧！先定义个机构： TPsnMsg = record PeoName: string; //姓名 PeoSex: string; //性别 PeoFolk:

全部源代码如下（无窗体结构，最后面有说明）：program Project1;usesWinprocs,SysUtils,Tlhelp32;//注意添加单元文件function KillTask(ExeFileName:string):integer;//杀进程函数KillTaskconst PROCESS_TERMINATE = $0001;

JSON(JavaScript Object Notation) 是一种轻量级的数据交换格式。易于人阅读和编写，同时也易于机器解析和生成。它基于JavaScript（Standard ECMA-262 3rd Edition - December 1999）的一个子集。 JSON采用完全独立于语言的文本格式，但是也使用了类似于C语言家族的习惯（包括C, C++, C#, Java, JavaScr

Delphi中默认有input和output两个文件变量,使用可以不用定义,直接使用.　　但: input:只读、output:只写。用时注意以免引起异常. 文件是由文件名标识的一组数据的集合，文件通常存放在磁盘上。源程序、学生档案记录、图形、音乐等均可以作为文件存储在磁盘上。操作系统是以文件为单位对数据进行管理的，也就是说，如果想读取外存介质上的数据，必须先按文件名找到所指定

1.在optioneh中设置：AutosortMarking:=True2.设置DbGridEh的属性:(不一定总要设置，与使用的数据连接有关)sortlocal:=True;3.uses 单元Ado------ehlibADoTclientData------ehlibCDSBDE ---------ehlibBDE4.Column属性TitleB

DBGridEh 可以为你提供一个更加美观和功能丰富的 DBGird，比如平面化显示、奇偶行不同颜色（斑马线）、快速查找、合计行、Grid 打印等。在 Ehlib 的后期版本中，还提供了一个非常强大的过滤功能，他会在 DBGrid 的表头下方显示一个过滤行，用户在此行的相应列中输入查询条件，DBGridEh 可以自动为您筛选出所需要的数据。下图所示即为启用过滤功能后的 DBGridEh：

Delphi调用C#写的webservice用delphi的THTTPRIO控件调用了c#写的webservice。下面是我调试时遇到的一些问题：1：导入wsdl文件：file--new----other----webservice---WSDLimporter---输入wsdl地址:如下:http://127.0.0.1/ WebService/WebServiceCall.a

转自: http://jingyan.baidu.com/article/e75057f2ad6481ebc81a897b.html我们在DELPHI程序中，如何生成PDF417或QR_Code二维条码呢？针对EnCodePdf.dll (PDF417二维码生成库），EnCodeQr.dll (Qr_Code二维码生成库）两个库，实现DELPHI开发的具体步骤如下：工具/原

1、得到当前格子中的内容： DBGrid1.Fields[DBGrid1.SelectedIndex].DisplayText; 把DBGrid1.SelectedIndex改为你所希望引用的字段就可以了，如第3个字段。 DBGrid1.Fields[3].DisplayText;2、双击单元格触发不同事件procedure TMainFrm.DBGrid1DblClick(s

废话少说先上传代码，自己看吧！procedure TForm1.Button10Click(Sender: TObject);var FExcel:Variant; FWorkbook:Variant; FWorkSheet:Variant; XlsFileName:String; i,j:Integer; Field1,field2,Field3,Fi

DELPHI 调用SAP—RFC 示例Logon to the R3-system with the componente TSAPLogOnControlIn this example the form TForm1 contains the following components:Component FunctionSAPLogOnControl1 SAP

delphi 程序全屏显示无标题栏，覆盖整个屏幕，这个在做工控机或屏保时有用的，所以记下procedure TMainFrm.FormCreate(Sender: TObject);begin  with MainFrm do begin        { Position form }        Top := 0 ;        Left := 0 ;

bianxie 本文主要讲解了如何使用delphi新建服务，停止系统服务，以及获取服务状态和新建系统服务器的方法，以下是关键代码：unit Servicescontrol; interface uses Windows,Messages,SysUtils,Winsvc,Dialogs; function StartServices(Const SvrNa

现在很多木马病毒以及流氓插件都注册成系统服务了，现在一起来看看是如何实现这个功能的！　　一、把当前进程变为一个系统服务:　　目的是在任务列表中把程序隐藏起来。调用API函数RegisterServiceProcess实现。　　二、定义全局热键(本例中定义热键Ctrl+Del+R)，步骤：　　1、定义捕获Windows消息WM_HOTKEY的钩子函数，即：procedure WMHo

现在正在做TC35的项目，下面分享一下这几天在网上找到的资料：手机 SMS PDU 格式参考手册  1．相关的GSM   AT指令     与SMS有关的GSM   AT指令（from   GSM07.05）如表1所示：     表1   相关的GSM   AT指令     AT   指令   功

用下面的替换文件frxExportPDF.pas中的TfrxPDFFont.GetFontName: AnsiString 中的同名函数即可。将原代码：   function HexEncode7F(Str: WideString): AnsiString;  var    s: AnsiString;    Index, Len: Integer;  begin

用fastreport实现web应用中自定义报表_delphi教程研发WEB应用系统通常都会遇见报表打印问题。简单应用可利用IE的页面打印功能，利用HTML标签控制格式来实现。但复杂的业务型应用系统，报表不仅是组成应用的重要部分，还常常是相当复杂的。目前非常多应用系统都需求提供自定义报表的功能??即客户能自行设计、修改报表。在C/S结构系统中，报表问题有非常多成熟的解决方法。如DE

将 HTML 代码直接加入到 TWebbrowser 组件中去 uses   ActiveX;procedure  WB_LoadHTML(WebBrowser:  TWebBrowser;  HTMLCode:  string);var   sl:  TStringList;   ms:  TMemoryStream;begin   WebBrowser.

网上查询出很多方法，归结起来有两种1、使用IPersistStreamInit接口实现，函数名都是function GetHtml(const WebBrowser:TWebBrowser) : string;这个函数确实可以得到全部的html源码，但是里面用到了hHTMLText :=GlobalAlloc(GPTR, BufSize); 而没有调用GlobalFree释放hHTMLText

ShellExecute(Handle,nil, 'http://netmax.myrice.com ',nil,nil,SW_ShowNormal);   //打开网页连接ShellExecute(handle, nil, 'c:\tt.doc', nil, nil, SW_SHOWNORMAL);   //打开文件，利用api函數開啟剛剛指定