- 博客(34)
- 资源 (1)
- 收藏
- 关注
转载 XE5 JSON与Delphi Object的互换
转自:http://blog.csdn.net/cmdasm/article/details/12784627unit Unit2;interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl
2015-01-20 16:29:20
1018
转载 等待函数(保持界面正常响应)
取自网络//延时函数,msec 为毫秒procedure Delay(msec: single);var FirstTickCount: real;begin if msec > 0 then begin FirstTickCount := GetTickCount(); FirstTickCount := FirstTickCount
2015-01-05 17:17:28
3523
转载 DALFactory有什么作用
DALFactory有什么作用DAL是指Data Access Layer,DALFactory是用于创建数据访问对象的工厂,本质上是采用了抽象工厂的设计模式,目的是支持多种数据访问层,比如sql server和oracle两种实现;同时又利用了.net的反射机制,通过配置文件即可确定采用哪种数据访问实现;IDAL是数据访问层接口,这样做的好处是使业务逻辑层调用数据访问层的接口即可实现数据库的
2014-03-05 13:29:45
1372
原创 Delphi XE(Indy10)TIdBytes转AnsiString的实现
TIdBytes 类型引用自单元 IdGlobal;其原型定义为 TIdBytes = array of Byte;转换函数如下:经过测试多次发送后在字符串尾部不会出现乱码或多余字符function IdBytesToAnsiString(ParamBytes: TIdBytes): AnsiString;var i: Integer; S: Ansi
2013-07-18 11:45:13
8506
转载 史上最全谷歌Android开发工具Android Studio下载地址汇总
转载自:http://www.eoeandroid.com/thread-275579-1-1.html好吧,好多童鞋网速不好或者是下载不了,给大家整理了一套最全的Android Studio下载地址大全,包括Windows版本,Mac下OS X版本和Linux版本Android Studio官方下载地址页面【Windows版】Android Studio 官方下载地址
2013-05-22 09:44:23
1793
转载 Delphi Idhttp的 Get 和 Post 方法
Delphi Idhttp的 Get 和 Post 方法 procedure TForm1.FormCreate(Sender: TObject);var Param: TStringList; RStream: TStringStream;begin Param := TStringList.Create; RStream := TStringStream.Cre
2013-05-09 15:25:58
3021
原创 Delphi - WebBrowser载入自定义HTML内容并显示
use Winapi.ActiveX; //调用IPersistStreamInit类procedure TForm1.Button2Click(Sender: TObject); var PostList: TStringList; Response, StrStream: TStringStream; ResultString: string;
2013-05-09 15:17:04
6008
转载 SQLServer2008/2005 生成数据字典SQL语句
(转自:http://www.cnblogs.com/tulips/archive/2009/05/02/1447648.html)以前用那个SQL语句来生成那个SQLServer库的数据字典,在SQL2000下用的挺好的,最近装上了那个SQL2008来研究,突然发现不能在2008下用了,查了查资料,发现2008下有一些改动贴上来留个记号SQLServer2008/
2013-03-19 10:22:31
799
原创 使用自定义分隔符分离字符串 解决Delphi7下TStringList.Delimiter分离无法跳过空格问题
{函数功能:使用自定义分隔符分离字符串并以Stringlist返回参数说明: Source: 源字符串 Deli: 自定义分离符StringList: 返回分离结果}procedure SplitString(Source,Deli:string; var StringList :TStringList);var EndOfCurrentString: Int
2013-01-31 09:36:14
3327
原创 break , continue , exit 的区别
1. break 跳出当前循环体 2. continue 从此位置直接跳出当前循环(次)代码,跳至循环开始处继续执行循环 3. exit 退出当前模块(过程、函数) EG:1. breakfunction GetI: Integer;begin Result := StrToInt(Form1.Edit1.text);end;procedur
2012-11-28 10:44:47
854
转载 等待函数(界面保持响应正常)不同于Sleep
等待函数(界面保持响应正常)不同于Sleep// 自定义函数procedure WaitTime(MSecs: integer);var FirstTickCount, Now: Longint;begin FirstTickCount := Windows.GetTickCount(); repeat Application.ProcessMessages
2012-11-24 16:45:44
914
转载 C#跨线程调用窗体控件的问题
前段时间遇到跨线程调用窗体控件的问题,其实一句话System.Windows.Forms.Control.CheckForIllegalCrossThreadCalls = false;就可以解决,但感觉会有不稳定因素,因此在网上找了一些相应的文章感觉还不错,第一种用的比较顺手:(注:在devexpress控件中用DevExpress.Data.CurrencyDataController.D
2012-08-23 11:31:08
1870
转载 ActiveX和JavaScript交互(Delphi版本)
利用Delphi的ActiveForm,可以很方便地开发出可以嵌入IE的ActiveX组件,无需知道太多幕后的COM知识。如何使得OCX可以很方便地调用Web上的JavaScript函数呢,研究了一个下午,使用ActvieForm的Events接口搞定。说穿了不值钱,只要一句代码就搞定,但是Google半天,琢磨了N久,看来还是基本功不扎实。(1) 首先在ActiveForm的项目中找到rid
2012-08-21 13:34:19
1169
转载 activex控件中调用html页面中的javascript
activex控件中调用html页面中的javascript(转)关于delphi中开发activex控件,并从activex控件中调用html页面中的javascript。这几天在搞个需要activex控件来实现的项目,丫丫的activex控件应该属于都快被人遗忘的技术了。delphi中开发activex控件其实挺简单的,唯一的问题就是怎么调用页面中的javascript呢。搜了
2012-08-21 13:29:38
1615
3
转载 ExpressQuantumGrid.Suite.v6.30 在Delphi 7中的安装
ExpressQuantumGrid.Suite.v6.30 在Delphi 7中的安装 大名鼎鼎的Grid控件,没有找到打好包的,以下是手动安装步骤=====================1、必须配套安装如下7组控件,已经安装过的则跳过XP Theme ManagerExpressGDI+ LibraryExpressLibraryExpressExport LibraryE
2010-05-26 09:43:00
983
原创 字符串整理
字符串: 1.ShortString类型,长度0-255,用于兼容老版本的Delphi,存储AnsiChar; 2.AnsiString类型,长度4Bytes-2GB,Delphi主用,存储AnsiChar,动态分配空间; 3.WideString类型,长度4Bytes-2GB,多服务及多语言使用,存储WideChar,动态分配空间; 4.一般情况下使用Stri
2010-05-17 11:11:00
789
原创 ASCII表
ASCII表 ASCII值控制字符ASCII值控制字符ASCII值控制字符ASCII值控制字符0NUT32(space)64@96、1SOH33!65A97a2STX34”66B98b3ETX35#
2010-03-24 10:57:00
549
转载 用Delphi编程时---如何利用线程
============================================================================Windows95是Microsoft公司的第一个真正的多任务操作系统。在每一时刻可以有多个进程同时工作,而每一个进程又包含有多个线程。但只有一个处理器的计算机不可能真正地“同时”执行多个线程,而是操作系统把时间分成若干个时间片,然后把一个个时
2010-02-23 10:48:00
746
原创 在DBGrid中实现鼠标滚轮的上下滚屏功能
type TDBGrid=class(DBCGrids.TDBGrid) public function DoMouseWheel(Shift:TShiftState; WheelDelta:Integer; MousePos:TPoint):Boolean;override; end; Type .....
2010-01-05 15:07:00
854
原创 SendMessage->>Windows消息大全
Windows是一个消息驱动式系统,SendMessage是应用程序和应用程序之间进行消息传递的主要手段之一,这里我搜集整理了SendMessage函数的详细参数介绍,以备自用。VFP声明:DECLARE INTEGER SendMessage IN user32; INTEGER hWnd,; INTEGER wMsg,; INTEGER wParam,; INTEGER
2010-01-05 15:01:00
3194
1
原创 SQL语句left join/right join/inner join 的用法比较
假设有A,B两个表。 表A记录如下: aID aNum 1 a20050111 2 a20050112 3 a20050113 4 a20050114 5 a20050115 表B记录如下: bID bName 1 2006032401 2 2006032402 3 2006032403 4
2009-11-27 14:23:00
706
转载 FindWindow和FindWindowEX的语法和用法
FindWindow(lpClassName, {窗口的类名}lpWindowName: PChar {窗口的标题}): HWND; {返回窗口的句柄; 失败返回 0}//FindWindowEx 比 FindWindow 多出两个句柄参数:FindWindowEx(Parent: HWND; {要查找子窗口的父窗口句柄}Child: HWND
2009-11-04 17:23:00
1223
转载 API函数大全
(DELPHI)API函数大全1. API之网络函数 WNetAddConnection 创建同一个网络资源的永久性连接WNetAddConnection2 创建同一个网络资源的连接WNetAddConnection3 创建同一个网络资源的连接WNetCancelConnection 结束一个网络连接WNetCancelConnection2 结束一个网络连接WNetCloseEnum
2009-11-04 17:21:00
696
转载 Delphi 中DLL的调用技巧
提起DLL您一定不会陌生,在Windows中有着大量的以DLL为后缀的文件,它们是保证Windows正常运行和维护升级的重要保证。(举个例子,笔者的Win95 System目录下尽有500多个DLL文件。)其实,DLL是一种特殊的可执行文件。说它特殊主要是因为一般它都不能直接运行,需要宿主程序比如*.EXE程序或其他DLL的动态调用才能够使用。简单的说,在通常情况下DLL是经过编译的函数
2009-11-04 17:20:00
924
转载 TString简谈
KeyLife富翁笔记 作者 : gigijava标题 : TStrings简谈(Delphi) 关键字: 分类 : 个人专区 密级 : 公开 Delphi TStrings是一个抽象类,在实际开发中,是除了基本类型外,应用得最多的。 常规的用法大家都知道,现在来讨论它的一些高级的用法。 先把要讨论的几个属性列出来: 1、CommaText 2、Delimiter & Delimit
2009-11-04 17:18:00
1034
原创 FastReport 2.5的安装方法
请按照下面的步骤进行安装fastreport250安装与注册方法如下(对D7,D6的安装方法一样):先执行fr250d.exe,然后再严格按照下面的方式操作,绝对可行,验证无数次了。1. Copy fr_class.pas to the installation folder "/FastReports/FastReport/sources/" (default folder)将fr
2009-11-04 17:16:00
3527
原创 限制TEdit 内只能输入数字
限制TEdit内只能输入数字值 ----KeyPress事件------ if not (key in[0..9,#8]) then key:=#0; //(#8为BackSpace键) 弹出式对话框--------------------if Application.MessageBox(确认操作?, 提示,MB_YESNO+MB_ICONINF
2009-11-04 17:12:00
838
原创 SDK2000的DLL实现方法
对SDK2000视频开发包的DLL方式操作 将已经翻译的VideoSDK2000U.pas单元放入改工程文件夹中 相关引用操作完整代码如下:---------------------------------------unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Grap
2009-11-04 17:08:00
1532
原创 Delphi中控件的动态创建
网上搜集资料 参考写的代码 实现控件的动态创建 完整代码如下: (实现界面)-------------------unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls,
2009-11-04 17:01:00
1319
原创 XML文件数据的读写查询[NativeXML控件实现]
利用第三方-NativeXML控件来实现XML文件的读、查功能 完整代码如下:----------------------------(很多测试代码未删除 均已//注释)unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Di
2009-11-04 16:38:00
1766
1
原创 数据库的备份与还原+INI文件数据库参数配置
利用SQL语句来完成对SQL Server数据库的备份与还原功能 仅以练习 完成代码如下:------------------------------unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs,
2009-11-04 16:26:00
856
原创 DLL 的静态调用实例代码
自己写了一MinMax.dll文件 里面定义了2个函数Min、Max 在测试中使用了静态调用的方法 完整代码如下:----------------------------------------unit unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics,
2009-11-04 16:19:00
632
转载 FlashGet下载风格进度条
制作FlashGet下载风格进度条许多知名的下载软件中都有下载管理器,用一个TListView来显示下载的进程,你可以清楚的看到已经下载了多少,还有多少内容仍需下载,这样的控件,Delphi自身并未提供,但我们可以在TListView的基础之上加入进度条控件(TProgressBar)来实现这一功能,这样就能既能满足我们的实际需求,又不用“牺牲”口袋里白花花的银子,还能增加我们对控件嵌套
2009-11-04 16:07:00
861
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人