- 博客(77)
- 资源 (9)
- 收藏
- 关注
RSS订阅转载 滚屏截图
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls;const TAGCOLOR : TColor = $00FEFEFE;type TFo
2017-06-29 21:26:35
782
转载 DockPanel
DockPanel是指WeifenLuo.WinFormsUI.Docking控件，它是一个开源的控件，能够实现.Net风格的标签页面，就像VS开发环境一样的多文档界面，可以随意拖动、浮动、停靠等。 使用该控制时，首先需要将动态链接库WeifenLuo.WinFormsUI.Docking.dll添加到VS开发环境中，最好是放在VS安装目录中存放dll文件的目录，然后在工具栏容器下
2017-06-29 21:15:49
711
转载 TdxDockPanel
procedure TMainFormFrm.blbModelClick(Sender: TObject);var lDockPanel: TdxDockPanel;begin gGlobalObjects.Section.Enter; try lDockPanel := dxdpRoleView; if (lDockPanel = nil) then
2017-06-29 21:13:56
675
转载 停靠技术
随着软件技术的不断进步，软件界面也越来越美观，操作也越来越方便。综观市面上比较专业的各种软件，我们会发现大部分都提供窗体停靠的功能，特别象工具软件，基本上都或多或少有停靠功能。自然，Delphi也支持停靠，而且她和VCL紧密结合，对于广大的Delphi程式员来说更是一大福音。让我们省去枯燥的编码时间。把注意力集中在核心程式的构思上。 先让我们来复习一下VCL的结构，在T
2017-06-29 21:10:34
3021
转载 mysql导入数据表
在命令行下mysql的数据导出有个很好用命令mysqldump,它的参数有一大把,可以这样查看:mysqldump最常用的:mysqldump -uroot -pmysql databasefoo table1 table2 > foo.sql这样就可以将数据库databasefoo的表table1,table2以sql形式导入foo.sql中,其中-uroot参数表示访问数据库的
2017-06-29 13:39:55
5113
转载 datasnap经典
datasnap的初步-回调函数服务器端TServerMethods1 =class(TComponent) private { Private declarations } public { Public declarations } functionTest(funcCallBack: TDBXCallback):boolean
2017-06-29 08:52:55
1141
转载 mysql 判断是否包含该字符串
方法一：SELECT * FROM users WHERE emails like "%b@email.com%";方法二：利用MySQL 字符串函数 find_in_set();SELECT * FROM users WHERE find_in_set('aa@email.com', emails);这样是可以的，怎么理解呢？
2017-06-28 08:58:02
473
转载 rdp协议介绍
RedirectPrinters:=True; //使用本地打印机RedirectDrives:=True; //使用本地硬盘RedirectPorts:=True; //使用本地端口RedirectSmartCards:=True; //使用本地智能卡
2017-06-27 09:37:55
453
转载 接收和提交ＣＯＯＫＩＥ
下面是简单的介绍：首先在Form上放idHttp, IdCookieManager，并将两者联系在一起（通过idHttp的CookieManager），剩下的 你就专心实现你要完成的东西就可以啦。不知道你玩过KOK没有，下面的代码是登陆KOK注册页面的部分代码：unit Unit1;interfaceuses Windows, Messages, SysU
2017-06-24 23:20:17
1254
转载 hmac_SHA256加密
procedure hmac_SHA256_init(var ctx: THMAC_Context; key: pointer; klen: word); {-initialize HMAC context with key} {$ifdef DLL} stdcall; {$endif} procedure hmac_SHA256_inits(var ctx:
2017-06-24 23:18:25
2878
转载 两位小数点
var S:string;begin S:=Format('%.2f',[StrToFloat(FieldByName('单价').asString)]);end;
2017-06-23 07:46:15
237
转载 IDHTTP获取网页的内容或源码
ts:=TStringList.Create;RespData:=TStringStream.Create('');IdHTTP1.Request.UserAgent := 'Mozilla/5.0 (Windows NT 6.1; WOW64; Trident/7.0; rv:11.0) like Gecko';try for i := 0 to 1000 do
2017-06-22 16:36:32
747
转载 获取随机数组
var s:array of string; i:Integer; S1:string;begin SetLength(S,7); s[0]:='你拨打的电话通话中'; s[1]:='客户没有意思购买'; s[2]:='有空再说，现在很忙'; s[3]:='电话关机呢，下次联系'; s[4]:=
2017-06-22 15:21:11
318
转载 Application.ProcessMessages的作用
Application.ProcessMessages的作用是让Application去处理消息队伍中的消息。举例说明它的用处：你有一程序，要做一循环，for i:= 0 to query1.recordcount-1 dobegin做某事；endl;运行的时候你会发现，当转到另一程序再转回来的时候，窗体变发白了，除了那个DBGRID。这是为什么，这是因为当你转回自
2017-06-22 15:11:24
987
转载 截取不确定长度语法
截取不确定长度语法function GetRootPath(const Path: string): string;var Len: integer;begin Len := Pos('/', Path); if Len = 0 then Len := Length(Path) + 1; Result := Copy(Path, 1 Len - 1);
2017-06-21 16:03:39
340
2
转载 md5加密
uses //增加IdHashMessageDigest,IdGlobal,IdHash 三个function MD5_32(str:String):String;var MyMD5: TIdHashMessageDigest5; Digest: T4x4LongWordRecord;begin MyMD5 := TIdHashMessag
2017-06-21 15:48:44
200
转载 自适应分辨率
unit uMyClassHelpers;{实现窗体自适应调整尺寸以适应不同屏幕分辩率的显示问题。 陈小斌，2012年3月5日}interfaceUses SysUtils,Windows,Classes,Graphics, Controls,Forms,Dialogs, Math, uMySysUtils;Const //记录设计时的
2017-06-21 10:37:15
1418
转载 自适应单元引用
给你一段代码，网上转的：unit uMyClassHelpers;//实现窗体自适应调整尺寸以适应不同屏幕分辩率的显示问题。// 陈小斌，2012年3月5日interfaceUses SysUtils,Windows,Classes,Graphics, Controls,Forms,Dialogs, Math,typinfo;// uMyS
2017-06-21 09:24:28
398
转载 delphi 程序窗体及控件自适应分辨率
unit untFixForm;interfaceusesClasses, SysUtils, Controls, Forms;typeTFontedControl = class(TControl)public property Font;end;TFontMapping = record SWidth:Integer; SHeigh
2017-06-21 09:21:47
2520
1
转载 自适应分辨率
Delphi窗体自适应屏幕分辨率//注意: AForm界面控件的ParentFont要False//AForm-传入的窗体 OrgWidth,orgHeight-软件设计时的分辨率宽*高//如果窗体里有特殊控件,请在下面代码【特殊控件1】、【特殊控件2】处修改函数即可procedure AutoFixForm(AForm: TForm; OrgWidth,orgHeight: I
2017-06-21 08:59:15
358
转载 读写INI
1、EDIT字体，由font属性决定。2、fron三个重要属性 （1）Name （2）size （3）color3、写入iniDelphi/Pascal code?123456789procedure TOldBirthDayFrm.B
2017-06-20 22:35:22
143
转载 设置本地时间格式
SetLocaleInfo(LOCALE_SYSTEM_DEFAULT, LOCALE_IDIGITS, '2'); SetLocaleInfo(LOCALE_SYSTEM_DEFAULT, LOCALE_ICURRDIGITS, '2'); SetLocaleInfo(LOCALE_SYSTEM_DEFAULT, LOCALE_SSHORTDATE, 'yyyy-MM
2017-06-20 20:17:58
724
转载 timer事件执行
timer事件执行 procedure Tfrm.GetFromFouce(Sender: TObject);var TopHandle: HWND ;begin TopHandle := FindWindow(nil,ShowHintInfo); if not (GetParent(TopHandle) = frm.Handle) then
2017-06-19 22:44:08
726
转载 铺满整个屏幕
procedure TMainFrm.FormCreate(Sender: TObject);begin with MainFrm do begin { Position form } Top := 0 ; Left := 0 ; { Go full screen} BorderStyle :=
2017-06-19 22:21:43
190
转载 线程接收和发送
客户端发送线程：Procedure TThreadSend.Execute;Begin While true Do Begin Sleep (10) ; If Not Terminated Then Begin If assigned (CalTwoDimentionRiverNet) Th
2017-06-19 21:38:46
909
转载 复制图片过程
CopyBmpFromXpress((control1 as TImage).Picture.Bitmap,picfilename);procedure CopyBmpFromXpress(DestImage: TBitmap;strSourceFilePath: string);var MemStream:TMemoryStream; pdata:PChar;
2017-06-19 21:25:05
235
转载 datasnap源代码解析
TIdHTTPWebBrokerBridge = class(TIdCustomHTTPServer) private procedure RunWebModuleClass(AThread: TIdContext; ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo); pro
2017-06-19 15:12:53
695
原创 校验和函数
//添加校验和函数 add by nextop 20170615function GetXorC(AStr: string):Byte;var i,Count:integer; bTemp :Byte; IDATALEN:INTEGER; ADATA:ARRAY OF STRING; IBEGININDEX:INTEGER;begin Resul
2017-06-19 14:28:42
1003
转载 idhttp下载文件添加进度条
procedure TfrmMain.IdHTTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode; const AWorkCountMax: Integer);begin ProgressBar1.Max:=AWorkCountMax; ProgressBar1.Min:=0; ProgressBar
2017-06-19 10:30:57
832
转载 通过ＷＭＩ获取系统信息
通过WMI获取网卡MAC地址、硬盘序列号、主板序列号、CPU ID、BIOS序列号Delphi通过WMI获取系统信息uses ActiveX, ComObj;function GetWMIProperty(WMIType, WMIProperty: string): string;var Wmi, Objs, Obj: OleVariant; Enum: IEnum
2017-06-19 10:25:35
1797
转载 计算机字符编码详解
from http://www.guokr.com/blog/763017/http://blog.csdn.net/stilling2006/article/details/4129700下载一个文档，一打开发现是乱码，不抓狂才怪…… 你们都知道，这都是字符编码闯的祸。ASCII、ANSI、GB18030、Unicode、UTF-8、UTF-8 with BOM、UTF with
2017-06-15 20:50:04
239
转载 旧系统兼容问题
1.试试打下2K系统的SP4补丁或者2.下载自己电脑版本的KERNEL32.dll文件，看好32位或64位，复制到windows-system32文件夹替换； 下载kernel32.dll文件并解压 将解压得到的dll文件复制到系统目录下： Windows 95/98/Me系统，则复制到C:\WINdows\system32\
2017-06-15 17:29:55
285
转载 退出程序的区别
1.Application.Exit(); //只能退出主线程，无法退出程序中的子线程2.System.Environment.Exit(0); //可以退出程序的所有线程,终止此进程并为基础操作系统提供指定的退出代码。3.Application.Exit() //通知所有消息泵必须终止，并且在处理了消息以后关闭所有
2017-06-15 16:50:59
468
原创 十六进制字符串异或校验函数，自创
function TForm1.GetXorC(AStr: string):Byte;var i,Count:integer; bTemp :Byte; IDATALEN:INTEGER; ADATA:ARRAY OF STRING; IBEGININDEX:INTEGER;begin Result:= 0; bTemp := 0; Co
2017-06-15 10:49:42
2739
原创 自己写的异或校验函数
function TForm1.GetXorC(AStr: string):Byte;var i,Count:integer; bTemp :Byte; IDATALEN:INTEGER; ADATA:ARRAY OF STRING; IBEGININDEX:INTEGER;begin Result:= 0; bTemp := 0; Co
2017-06-15 10:32:57
1426
原创 // 十六进制字符串 换成字符数组转
// 十六进制字符串 换成字符数组转procedure StringToByte(var aData: array of Byte; sStr: string; iBeginIndex: integer);var i, iDataLen: integer;begin iDataLen := length(sStr); if (iDataLen mod 2)
2017-06-15 09:49:14
294
原创 异或校验方法
function BytesXor(buffer:array of byte):Integer;vari:integer;beginResult:=$0;for i:=Low(buffer) to High(buffer) dobeginresult:=result xor buffer[i];end;end;
2017-06-15 09:38:07
4646
原创 将含字符串转换为十六进制
// 将含字符串转换为十六进制function GBStrToHex(aStr: string): AnsiString;var i: integer; DataStr, ReturnStr: AnsiString;begin DataStr := aStr; ReturnStr := ''; for i := 1 to length(DataStr) d
2017-06-15 08:47:29
368
原创 字符串转成十六进制串
function strtoascii(inputAnsi:string): string;//字符串转换为ascii值,转换值是一个各单独值相加后的结果var i :integer; Ansitemp,OutPutAnsi:STRING;begin OutPutAnsi:=''; For i:=0 To Length(inputAnsi) Do
2017-06-14 18:03:03
267
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人