- 博客(220)
- 资源 (63)
- 收藏
- 关注
转载 替换sql查询非法字符
/// /// 替换非法字符 (杨军 06.9.6-11:52am) /// /// 需要检查的字符串 /// string public static string ReplaceDangerCode (string Temp) { Temp = Temp.Replace("“”",""); Temp = Temp.Rep
2012-07-31 22:01:29 1194
转载 彩色图象变黑白图象
Bitmap objbitmap;int i;int j;Color objOldColor;int intImgWidth;int intImgHeight;int intPixelColorR;int intPixelColorG;int intPixelColorB;Color objNewColor;objbitmap=(Bitmap) outl
2012-07-31 22:00:49 1035
转载 自定义控件基础知识
自定义控件基础知识一 、概述Windows 窗体控件是可再次使用的组件,它们封装了用户界面功能,并且可以用于客户端 Windows 应用程序。“Windows 窗体”不仅提供了许多现成控件,还提供了自行开发控件的基础结构。可以组合现有控件、扩展现有控件或创作自己的自定义控件。Windows 窗体控件是从 System.Windows.Forms.Control 直接或间接派生的类。以下列表
2012-07-31 15:07:21 754
转载 一次性保存DataSet的方法
#region 采用DataSet提交数据 //取得选取语句 private string GetSelectSql(DataSet ds,string strTbName) { string strSql=""; DataTable dt; if (strTbName=="") { dt=ds.Tables[0
2012-07-30 22:57:12 908
转载 nativeXml使用方法
使用 CreateName 建立可直接指定根节点的名称varXmlDoc: TnativeXml;Node:TxmlNode;BeginXmlDoc := TNativeXml.CreateName('Data'); //创建根节点的语法 XmlDoc.XmlFormat := xfReadable;添加节点有以下几种方法:Node:=xmlDoc.Root.N
2012-07-30 22:55:13 2918
转载 一个最简单的Delphi2010的PNG异形窗口方法
关于Delphi用PNG做异形窗口的资料有不少.都是用GDIPlus或者TPNGImage组件加载PNG图像做的.但是我很懒,不想引用的GDIPlus,也不想去找PNGImage下载.好在从Delphi2009开始Delphi中就收购了PNGImage,并集成到后继的版本中.Delphi2010又包装了微软的IWICImagingFactory接口,这样处理PNG的工作就交给操作系统去做了.函数很
2012-07-30 22:54:33 815
转载 Delphi XE2 新技术说明
看看XE 2中到底有什么新东西。 1. VCL Style如果你对Web编程很熟,VCL Style就是delphi版的css,想像一下只要换一个style,所有的按钮菜单表格都换了新的颜色和风格,十分酷。XE2中自带了预定义的几种Style,用户可以添加新的并且和其他人分享。2. 64Bit Support大部分人可能用不到,可对少数用大内存的程序应该就非常有用了。3. Fi
2012-07-30 22:30:53 1201
转载 Memo 的当前行、当前列与当前字符
procedure TForm1.Memo1Click(Sender: TObject);beginText := Format('当前列:%d, 当前行:%d', [Memo1.CaretPos.X, Memo1.CaretPos.Y]);end;//用 API 实现procedure TForm1.Memo1Click(Sender: TObject);varL
2012-07-30 22:30:31 789
转载 ICS TFTPClient 的相关操作。
unit UindexFTP; interface uses SysUtils, Classes ,StrUtils ,OverbyteIcsWndControl, OverbyteIcsFtpCli; type TFindFile = procedure(FileName,EditTime,Attribute,Owner,Group,Size:string
2012-07-30 22:30:01 1160
转载 Delphi:INDY组件IDFTP/IDHTTP的connecttimeout超时问题
DELPHI中,indy组件是一套性能还不错的网络套件,使用这个组件里的Tidftp、Tidhttp等功能可以十分方便地进行网络交互。但正是由于indy的功能太多了,封装了上百种的协议,也同时产生了不少的兼容问题,有些错误甚至需要重写indy底层协议才能解决。 飘易最近使用delphi开发了一个软件,使用indy的TIDftp组件,由于indy是阻塞式的通讯方式,所以在网络出现异常或
2012-07-30 22:29:25 5167 1
原创 Delphi "不正常地定义参数对象。提供了不一致或不完整的信息"
执行SQL的Insert语句会提示“不正常地定义参数对象。提供了不一致或不完整的信息”将TADOQuery.ParamCheck设置为False即可
2012-07-30 22:28:35 1964
转载 快递查询
开发环境:delphi 7hems.exe 主程序com.txt 快递公司,格式为:中文|快递100中的代码注意:请将中的your_apikey改为你自己申请到的APIKEY(没有请申请)即可,默认程序集成作者自己的,嘻嘻其它:感谢快递100提供的接口开发:hpping网址:mykd.tk邮件:hpping@hpping.com2011.5.9un
2012-07-30 22:28:06 1359
转载 DELPHI 关闭进程
unit Tlhelp323;interfaceuses Windows,SysUtils,Tlhelp32;function KillTask(ExeFileName: string): Integer; //关闭进程function EnableDebugPrivilege: Boolean; //提升权限 func
2012-07-30 22:00:12 874
转载 Delphi idFTP
FTP是一个标准协议,它是在计算机和网络之间交换文件的最简单的方法。FTP也是应用TCP/IP协议的应用协议标准。FTP通常于将作者的文件上传至服务器,或从服务器上下传文件的一种普遍的使用方式作为用户,您可以用非常简单的DOS界面来使用FTP,也可以使用由第三方提供的软件(如FLASHFXP)来对服务器的数据进行删除,重命名等操作。当然,使用这些之前,必须先要登录服务器,用指定的用
2012-07-30 21:59:35 1732
原创 FastReport 设置Report中控件值并打印
//启用打印参数 sSql:='Select * from BillBHMaster Where MBHNo=' + QuotedStr(sBillNo) + ' and IsPrint=''Y'''; //这一行为自己写的函数,根据SQL获取数据集 cf_dbSelectSQL(qryExpressPrint,sSql)
2012-07-30 21:59:06 2163
转载 cxGrid使用技巧
小技巧:用代码展开/收缩主从结构 Self.tvDepartment.ViewData.Expand(True); Self.tvDepartment.ViewData.Collaspe(True); 注:tvDepartment为主表对应的TableView 技巧二:在内置右键菜单的后面增加菜单项 首先应在Form上加一个cxGri
2012-07-30 21:43:07 998
转载 排列组合
///////代码开始function PermutationCombination(mArr: array of string; mStrings: TStrings): Boolean;var I, J: Integer; T: string; S: string;begin Result := False; if not Assigned(mS
2012-07-30 21:42:36 533
转载 'Could not convert variant of type (Array Byte) into type (Integer)
This is actually a report for ExpressQuantumGrid Suite (not ExpressEditors Library) but it is not obvious how to change the Product/Technology on the Edit Issue page after the ticket has already been
2012-07-30 21:42:05 2041
转载 cnpack多国语言控件帮助
CnPack多语组件是CnPack组件包中的一个重要组成部分,主要用来用来实现多语言界面。它们虽未组成可安装的独立组件包,但它们功能相对独立,在组件板上独占一页,和其他组件关联不大。1、 最简单的多语组件的使用步骤1. 建立一空工程,拖放一些可视化组件在上面。保存。2. 拖一TCnHashLangFileStorage,添加一语言
2012-07-30 21:41:40 1061
转载 Delphi清除右下角的托盘上无用的托盘图标(刷新托盘)
windows下,有时候结束一个托盘程序的进程会遇到这样的情况,程序退出后,托盘的图标还在,但鼠标移过去之后就消失了,delphi里如何实现刷新托盘呢? 用TerminateProcess把一个进程结束后有个问题,就是如果该程序在托盘有图标的话,这个图标并不会在它被结束时也消失。当然你用鼠标从上面移过可以解决这个问题,但本人在用自己的刷新辅助软件“疯狂刷新”的时候,每5分钟结束一次,一天下来如
2012-07-30 21:21:27 2073
转载 Delphi 控制外部程序
最近做一个项目,需要从外部控制挰序,好比做一个外挂,要获取游戏里各个控件的句柄,然后对它进行操作。在网上查了查,这方面的例子无一例外都是C++的,找不到Delphi的,在几个网站上问了,回答的人都说不知道,并且推荐我用C++进行开发,难道Delphi真的不能对外部程序操作?经过一天的努力,我证明了Delphi也是可以做到的,并且比C++做起来更方便,我把它做成一个控件,以便随时拖出来就用。
2012-07-30 21:20:59 1865
转载 手机短信(SMS)PDU编码与解码
PDU简介及其格式PDU是大多数手机短信通讯的核心,仅有少数手机只支持Text模式。PDU模式比起Text模式可以提供能为强大的功能,但其编码较Text模式困难。无论哪种模式,我们都可以通过AT指令控制终端实现短信的发送、接收、删除等管理。下面主要介绍PDU的构成及编码解码。PDU的构成PDU是由一串由“0-9”及“A-F”组成。表面上看起来就是一组16进制的数所组成的。下面举一个
2012-07-30 21:20:01 3531
转载 Delphi -修改文件夹的修改、创建日期 (Delphi7 /D2010 区别)
Delphi7:Uses:ShellAPI;procedure SetFileDateTime(FileName: string;dtDate:TDateTime);var hFile:THandle; ModifyTime:SYSTEMTIME; ModifyFileTime,UpdateFileTime:FILETIME; sDateTime:Str
2012-07-27 15:14:44 1794 1
原创 Delphi2010 关闭指定的程序进程。
//记事本 cf_KillTask('NOTEPAD.EXE'); //写字板 cf_KillTask('WORDPAD.EXE'); //WORD cf_KillTask('WINWORD.EXE'); //QQ cf_KillTask
2012-07-25 14:17:10 795
原创 RAD Studio XE (DelphiXE)官网下载地址 注册方法 及 破解工具
1.用邮箱到em网站注册edn帐号,已有帐号的不用这步,登陆即可https://members.embarcadero.com/newuser.aspx?returnurl=http://edn.embarcadero.com/2.到em的试用版下载地址下载自己要的软件 可以选rad studioxe,delphi xe ,RadPHP XE,Prism XE等 http:
2012-07-25 14:16:28 3407
转载 Delphi 窗体置顶(总在最前面)
代码如下:SetWindowPos(Handle,HWND_TOPMOST,Left,Top,Width,Height,SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE);只要改变相应参数还可实现其他效果,如隐藏、固定不动等。下面我举一个复选框的例子:procedure TForm1.checkBox1Click(Sender: TObjec
2012-07-25 14:15:41 12985
转载 Delphi中提示“尚未调用CoInitialize错误”的解决方法
网上有许多此类文章,但大多是转载,连实践都没实践过,巨垃圾。所以我来发一篇实践之后的总结方案。首先要添加引用uses ActiveX然后再出现问题的函数或过程最前端,添加CoInitialize(nil);最后一句添加CoUninitialize;问题就轻易解决了!~
2012-07-25 13:58:56 1814
转载 Delphi调用其他应用程序
运行其他exe程序加WinProcs单元str:=ExtractFilePath(Application.ExeName)+'\服装\服装进销存管理系统.exe';(str为变量)WinExec(pchar(str),sw_normal);运行其他程序加shellapi单元str:='C:\Documents and Settings\Administrator\桌面\KZ
2012-07-25 13:57:49 607
转载 Delphi中强制结束一个进程
强制结束一个进程的 API 为 TerminateProcessBOOL TerminateProcess(HANDLE hProcess, // 进程句柄UINT uExitCode // 退出代码 );你可以使用语句 invoke TerminateProcess,structProcInfo.hProcess,0 来结束进程,要注意的是如果可能的话,尽量不要在程序中强
2012-07-25 13:57:26 1013
转载 Delphi中SpComm串口通信的实现
Delphi是一种具有功能强大、简便易用和代码执行速度快等优点的可视化快速应用开发工具,它在构架企业信息系统方面发挥着越来越重要的作用,许多程序员愿意选择 Delphi作为开发工具编制各种应用程序。但是,美中不足之处是 Delphi没有自带的串口通信控件,在它的帮助文档里也没有提及串口通信,这就给编制通信程序的开发人员带来许多不便。 目前,利用 Delphi实现串口通信的常用的方法有 3种:一是利
2012-07-25 10:37:56 1783
转载 cxgrid中lookupcombobox查找改进
//自带的cxgrid并能在lookupcombobox中进行多列查询,在其他地方收集到一些资料,可实现多列查询,但只能从某列的开关开始录入,下面是实现的代码,只是我还想要实现模糊查询,若哪位仁兄做出来,望告知//将cxgride中的lookupcombobox的查询条件修改为可多列查询(查询只能是显示列)cxCustomData.pas //修改一TcxCustomD
2012-07-25 10:36:54 1927
转载 RAD Studio XE (DelphiXE)官网下载地址与注册
1.用邮箱到em网站注册edn帐号,已有帐号的不用这步,登陆即可https://members.embarcadero.com/newuser.aspx?returnurl=http://edn.embarcadero.com/2.到em的试用版下载地址下载自己要的软件可以选rad studioxe,delphi xe ,RadPHP XE,Prism XE等 http://w
2012-07-24 22:13:02 2113
转载 在delphi中调用结果集的办法
create or replace package mypkastype t_cursor is ref cursor;function func(a number) return t_cursor;procedure proc(name varchar2,c out t_cursor,a number);end;/create or replace package
2012-07-24 22:12:35 6518
转载 Delphi中用TListView显示数据库数据
图1 主界面设置TQuery组件的DatabaseName属性设置为DBDEMOS,SQL属性设置为select * from country,Active属性设置为True。然后添加程序初始化代码如下:procedure TForm1.FormCreate(Sender: TObject);var i:Integer; TempColumn:TListColumn;
2012-07-24 22:12:04 1096
转载 Delphi MSComm 实时串口通讯
MSComm控件具有丰富的与串口通信密切相关的属性,提供了对串口进行的多种操作,进而使串行通信变得十分简便。MSComm的控件属性较多,常用的属性如下:1).CommPort:设置或返回串行端口号,缺省为1。2).Setting:设置或返回串口通信参数,格式为“波特率,奇偶校验位,数据位,停止位”。例如:MSComm1.Setting:=9600,n,8,13).PortOpen:打开
2012-07-24 22:11:31 1393
转载 Delphi中MsComm控件的安装使用
Delphi中MsComm控件的安装使用 Delphi 具有功能强大、简便易用和代码执行速度快等特点,是全球公认的快速应用开发工具技术的先驱者。但是在对串口通信的控制上Delphi的帮助文档和其他书籍中很少提及,这恰恰又是在开发应用系统时会经常遇到的问题。用过VB的程序员都知道 VB的MSComm通信控件具有丰富的与串口通信密切相关的属性及事件,提供了一系列标准通信命令的接口,可
2012-07-24 22:10:52 1646
转载 C# BackgroundWork 用法
当用户执行一个非常耗时的操作时,如果不借助Thread编程,用户就会感觉界面反映很迟钝。在.Net 2.0中可以通过BackgroundWork非常方便地进行Thread编程,大致的步骤是:1、调用BackgroundWorker的 RunWorkerAsync方法(可以传递参数),它将调用DoWork事件2、在DoWork的事件响应代码中调用耗时的操作,此例中是 PingIPs函数3
2012-07-24 22:10:28 1147
原创 Delphi最新组件集
DevExpressVCL5.2 下载Fast report 4.9.105 下载Ehlib 5.2.84 下载TMS component Pack 5.7.0.1 下载unidac 3.0.0.9 下载SynEdit for D2010 下载
2012-07-24 22:09:50 564
转载 Delphi自动清除临时文件及备份文件的批处理
title= 压缩备份Delphi工程@ECHO OFF:color 后面的数字,第一位代表背景色,第二位的数字代表前景色color 0a:删除临时文件del /S *.~*del /s *.cfgdel /s *.dofdel /s *.ddpdel /s *.dcudel /s *.dskdel /S *.hppdel /S *.mpsd
2012-07-24 22:09:30 1546
转载 delphi数据库图片的存取
一、 原理介绍--流式数据的类型及其应用在Dephi中提供了TStream来支持对流式数据的操作。TStream是万流之源。但由于它是一个抽象类,故不能被直接使用;而要使用其相应的子类,如:TFileStream 、TStringStream、TMemoryStream、TBlobStream、TWinSocketStream和TOleStream。TStream提供了统一、简洁的
2012-07-24 22:09:01 814
Visual Assist X_10.9.2062
2015-08-19
Visual_Assist_X_10.8.2042.0_Cracked
2014-07-04
《Visual Studio插件》(Whole Tomato Visual Assist X)V10.7.1903 注册机
2012-04-28
Whole Tomato Visual.Assist.X.v10.6.1859.0 破解版
2011-10-17
DevExpress C#三方中文完整说明
2011-09-22
Foxit PDF Editor 2.2.1
2011-05-31
Visual+Assist+X+10.6.1849.0.rar
2011-05-25
Visual Assist X 1845 破解版
2011-04-06
Delphi写的通用终端AT短信收发程序(修正Bug版)
2011-01-18
Delphi写的通用AT短信收发程序
2011-01-14
Unicode SynEdit for Delhi7/2010
2010-08-20
DevArt.UniDAC.v.3.00.0.10 for Delphi7/Delphi2010
2010-08-20
Tiny PDF 虚拟打印机
2010-06-18
SkypeContrl 接口方法组件 Delphi组件
2010-05-18
DevExpress.QuantumGrid4.5 中文 图解 教程
2010-05-18
Skype4COM represents the Skype API 1.0.31.0
2010-05-12
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人