- 博客(22)
- 资源 (9)
- 收藏
- 关注
转载 dateuntil单元详解
unit DateUtils;interfaceuses SysUtils, Math, Types;// 把完整时间分解成日期和时间两部分function DateOf(const AValue: TDateTime): TDateTime;function TimeOf(const AValue: TDateTime): TDateTime;// 判断是否有效时间 function IsIn
2017-05-27 09:40:17 1066
转载 delphi数据类型
Delphi 数据类型列表分类范围字节备注简单类型序数整数Integer-2147483648 .. 21474836474有符号32位Cardinal0 .. 42949672954无符号32位Shortint-128
2017-05-26 13:47:49 275
转载 字节转string
for i:=1 to 31 dobegin memo1.text :=memo1.text +' '+inttohex(JulyTemperature[i],2);end;为什么要将int转换成hex?JulyTemperature是一个数组,其中的温度是Byte型,为什么用inttohex?求赐教。只是个人喜好,习惯用16进制显
2017-05-24 15:28:41 592
转载 bytesof函数解析
function BytesOf(const Val: RawByteString): TBytes;var Len: Integer;begin Len := Length(Val); SetLength(Result, Len); Move(Val[1], Result[0], Len);end;
2017-05-24 13:43:25 2122
转载 字符串转UTF8格式
将字符串转换成 UTF8 编码的函数这种转换一般用于网页地址; 我不知道 Delphi 是不是有现成的函数, 用到了就写了一个.//函数:function ToUTF8Encode(str: string): string;var b: Byte;begin for b in BytesOf(UTF8Encode(str)) do Result
2017-05-24 13:41:34 2617
转载 服务器与客户端回叫
服务器与客户端回叫 从Delphi2010开始,DataSnap支持回叫(Call Back)机制。这样,在调用耗时较长的方法时,通过回叫机制,返回服务器进程或正在处理的目标对象。 一、客户端实现步骤 在客户端声明TClientModule1的单元文件uClientModule中: 1、声明一个从TDBXCallback继承下来的对象(用于回叫参数值)
2017-05-24 00:33:21 390 1
转载 回叫信道
回叫信道 DataSnap XE3新增回叫信道功能。技术关键点: (1)TDBXCallback机制; (2)TDServer.BroadcastMessage方法; (3)TDSClientCallbackChanneManager1.RegisterCallback方法; 一、回叫的方式 1、服务器端回叫所有(同一信道)客户端
2017-05-24 00:23:05 292
转载 调用DLL函数例子
function funMain(inList:PAnsiChar;OutList:PAnsiChar):integer;stdcall;extern 'XX.dll'; var inList,OutList:PAnsiChar Str_InList,Str_Outlist:string;begin Get
2017-05-23 23:15:59 1170
转载 控件加提示
你可以利用THintWindow,创建一个自己的Hint。一、窗口的Type 加入 THintControl = class(TComponent)二、窗口的implementation加入THintControl的实现部分 三、Buuton等控件的MouseUp或Click事件中加入相应代码 此处,可以重新设置显示长度和背景色,体现个性化。具体代码如下
2017-05-23 16:44:50 274
转载 判断窗体存在
var form:Tform2;procedure TForm1.Button1Click(Sender: TObject);begin if form=nil then //也可写成if not Assigned(form) then begin form:=Tform2.Create(application); end
2017-05-23 16:19:05 268
转载 image从数据库中获取图片方法
procedure TForm1.GetPicture(pos:string;TempQuery: TADOQuery);var MS_JpegStream:TMemoryStream;begin try MS_JpegStream:=TMemoryStream.Create; with tempQuery do
2017-05-23 15:59:15 1375
转载 关于乱码各种贴
最近关于中文显示乱码的贴子比较多,所以也做了个总结:可以参考一下杨涛涛版主的《各种乱码问题汇总》http://topic.csdn.net/u/20071124/08/3b7eae69-ed1d-4a77-8895-9930bf3601af.htmlMySQL字符集的原理介绍。摘录于官方文档。http://dev.mysql.com/doc/refman/5.1/zh/charset.
2017-05-23 09:40:11 386
转载 mysql编码修改为utf8
mysql 创建 数据库时指定编码很重要,很多开发者都使用了默认编码,乱码问题可是防不胜防。制定数据库的编码可以很大程度上避免倒入导出带来的乱码问题。 网页数据一般采用UTF8编码,而数据库默认为latin 。我们可以通过修改数据库默认编码方式为UTF8来减少数据库创建时的设置,也能最大限度的避免因粗心造成的乱码问题。 我们遵循的标准是,数据库,表,字段和页面或文本的编码要统一起
2017-05-22 15:49:17 854
转载 自动释放数据集
function TdmService.GetData(sql: string): TDBXReader;var cmd: TDBXCommand; Reader: TDBXReader; LDataSet: TClientDataSet;begin cmd := SQLConnection1.DBXConnection.CreateComm
2017-05-22 13:48:38 371
转载 图像基本处理方法
//浮雕 procedureEmboss(SrcBmp,DestBmp:TBitmap;AzimuthChange:integer);overload;var i, j, Gray, Azimuthvalue, R, G, B:integer; SrcRGB, SrcRGB1, SrcRGB2, DestRGB: pRGBTriple;begin fo
2017-05-22 11:57:30 264
转载 实现图片滚动浏览代码滚动源代码
?1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950
2017-05-22 10:51:31 1247
转载 mysql支持的数据类型
一.数值类型Mysql支持所有标准SQL中的数值类型,其中包括严格数据类型(INTEGER,SMALLINT,DECIMAL,NUMBERIC),以及近似数值数据类型(FLOAT,REAL,DOUBLE PRESISION),并在此基础上进行扩展。扩展后增加了TINYINT,MEDIUMINT,BIGINT这3种长度不同的整形,并增加了BIT类型,用来存放位数据。
2017-05-18 14:17:59 308
转载 ocx注册单元
unit UAutoRegActiveX;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComObj; //加入ComObj单元type TAutoRegActiveXFrm = class(TForm) procedure FormCr
2017-05-17 13:00:34 337
转载 BASE64测试
function GetSizeCoder3To4(InputCount: Integer): Integer; inline; begin Result := (InputCount+2) div 3 * 4 end; procedure Base64Encode(InputCount: Integer; const Input: Pointer; Outpu
2017-05-16 09:48:54 398
转载 文件传输发送端
发送端:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ScktComp, StdCtrls, ComCtrls, ExtCtrls, ToolWin;type TForm1 = cl
2017-05-16 09:42:32 243
转载 文件上传下载接收端
接收端:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls, ComCtrls, ScktComp, ToolWin;type TDataFlag=r
2017-05-16 09:41:20 222
转载 原型模式定义
关键字: 原型模式,对象克隆,Prototype,Clone概述:在这篇文件中,讲述原型模式定义、结构、应用、实现。深入讨论了Delphi中原型模式的实现方法。特别研究了原型模式的核心技术——对象克隆技术在Delphi中的实现途径。本文还探讨了对象引用复制和对象克隆的区别,以及VCL的持久对象机制、对象流化技术。1、原型模式解说原型模式通过给出一个原型对象来指明所要创建对象的类
2017-05-15 00:16:05 537
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人