easy007-优快云博客

原创在流中查找任意字串

开发中有时需要在流中查找某个字串,这些字串有可能是ASCII表后半部分或混杂.但是网上提供的例程效果不佳而且代码冗长.后来自己抽个时间写了一个,代码极少,效率很高.仅供各位参考:function ScanStream(T:Tstream;S:String):integer;var i,j:integer;p:Pchar;begingetMem(p,T.size);//分配内存T.ReadB

2007-04-08 03:17:00 494

原创在Delphi中利用CreateRemoteThread远程注入例子

在Delphi中利用CreateRemoteThread远程注入例子作者：来自：阅读次数： [大中小] 花

2007-04-02 14:49:00 1526

原创正则表达式(regular expression)

前言正则表达式是烦琐的，但是强大的，学会之后的应用会让你除了提高效率外，会给你带来绝对的成就感。只要认真去阅读这些资料，加上应用的时候进行一定的参考，掌握正则表达式不是问题。索引1._引子2._正则表达式的历史3._正则表达式定义3.1_普通字符3.2_非打印字符3.3_特殊字符3.4_限定符3.5_定位符3.6_选择3.7_后向引用4._各种操作符的运算优先级5

2007-01-12 09:53:00 648

原创不下载直接从TMEMORYSTREAM中读取图片.

procedure TForm1.Button1Click(Sender: TObject);var tms: tmemorystream; jpg: tjpegimage;begin tms := tmemorystream.Create; IdHTTP1.Get(http://218.204.253.41/ydPicFile/pic/20060526/A11235/A1123516.

2007-01-12 09:17:00 719

原创几个获取Windows系统信息的Delphi程序

1、获取Windows版本信息可以通过Windows API函数GetVersionEx来获得。具体程序如下： Procedure Tform1.Button1Click(sender:TObject); Var OSV

2007-01-06 22:09:00 654

原创 Base64编码/解码Delphi源码

Base64编码/解码Delphi源码 Posted on 2006-03-03 17:39 天地狂虫阅读(72) 评论(0) 编辑收藏引用网摘 <!--<rdf:RDF xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#"xmlns:dc="http://purl.org/dc/elements/1.1/"

2007-01-05 02:25:00 2439

原创 ListView的用法(一)

ListView的用法(一)//增加 i := ListView1.Items.Count; with ListView1 do begin ListItem:=Items.Add; ListItem.Caption:= IntToStr(i); ListItem.SubItems.Add(第 +IntToStr(i)+ 行); ListItem.SubItems.Add(第三列

2007-01-03 22:00:00 879

原创让程序只运行一次(Delphi)

让程序只运行一次(Delphi) 公司开发的软件需要对串口进行操作，每次打开软件后程序自动去打开串口寻找连接到串口上的设备，但是如果用户不知道打开了两次，那么第二次打开的程序是不能正常使用的，因为对串口的操作时独占的，第一个程序独占了串口的使用权，其他程序无法再使用那一个串口，当然如果PC机器上有两个串口，那第二个程序也是可以用的。为了解决这个问题，必须限制对串口操作的软件只能打开一个

2007-01-03 21:58:00 2173

原创 Delphi小技巧

Delphi小技巧2007-01-01 16:17 在网上收集的一些小技巧，收藏起来。 ◇[DELPHI]网络邻居复制文件 uses shellapi; copyfile(pchar(newfile.txt),pchar

2007-01-03 21:30:00 631

原创提示信息框（MessageBox）的应用

提示信息框（MessageBox）的应用2006-11-29 17:46 提示信息框（MessageBox）的应用提交日期:2003-7-27 关键词:MessageBox 　　应用程序中的提示信息处理程序是非常出重要的部分，用户要知道他输入的资料到底正不正确，或者是应

2007-01-03 20:59:00 2057 1

原创打造自己的Windows终端服务客户端

打造自己的Windows终端服务客户端2006-12-02 08:40 1. 首先确保你的机器上存在mstscax.dll，如果没有这个文件，可以从http://download.microsoft.com/download/whistler/tools/1.0/wxp/en-

2007-01-03 20:56:00 2041

原创用UDP协议的木马编写方法（Delphi版）

用UDP协议的木马编写方法（Delphi版）2006-12-03 16:11 木马的一个很重要的功能就是远程监视屏幕，下面的文章讲述了怎样利用UDP协议来实现，而不是我们通常用到的tcp/ip协议，很有特色，值得一学。一、软硬件要求。 Windows95/98对等

2007-01-03 20:43:00 1905

原创 BCB/Delphi中常用的VCL函数说明

BCB/Delphi中常用的VCL函数说明2007-01-02 18:09 关键字：VCL,常用函数,说明,BCB,Delphi,C++Builder,内存分配,文件操作,磁盘目录管理,字符串操作 --------------------内存分配---

2007-01-03 20:30:00 584

◇[DELPHI]产生鼠标拖动效果通过MouseMove事件、DragOver事件、EndDrag事件实现，例如在PANEL上的LABEL：var xpanel,ypanel,xlabel,ylabel:integer;PANEL的MouseMove事件：xpanel:=x;ypanel:=y;PANEL的DragOver事件：xpanel:=x;ypanel:=y;LABEL的MouseMove

2006-12-31 02:57:00 767

原创自动创建控件

这个是摘自网上的,var a: Tedit; begin a := TEdit.create(self); a.parent := form1; a.left := 0; a.top := 0; a.Text := test;

2006-12-16 10:09:00 526

Delphi XE 版本俄罗斯方块

Delphi XE 版本俄罗斯方块,有完整的注释,

2020-02-16

63535310delaunay.rar

delphi 采用三角网进行等值线的绘制，尚未平滑，填充。

2019-05-10

delphi DBX,ADO,FD效率测试.rar

delphi DBX,ADO,FD效率测试,DBX的效率是真高。

2019-05-10

RadStudioKeygen10.2.3 亲测可用

New(RadStudioVersion); With RadStudioVersion^ Do Begin Name := 'Rad Studio 10.2.3 Tokyo 2631'; Ver := '25.0.29899.2631'; BDSVersion := '19.0'; LicVerStr := '10.2 Tokyo'; LicHostPID := 8219; LicHostSKU := 52; LicDelphiPID := '2025'; LicCBuilderPID := '4022'; BdsPatchInfo.Crc := $3D387FC1; BdsPatchInfo.Sha1 := '111eeb9c9061b1e125318799d1b6de83ce9d2499'; BdsPatchInfo.PatchOffset := $1E92D; BdsPatchInfo.FinalizeArrayOffset := $10E100; LicenseManagerPatchInfo.Crc := $9F380FEB; LicenseManagerPatchInfo.Sha1 := '9e8ad67357cbd2e2a4cc851fc2d582f7f89882ea'; LicenseManagerPatchInfo.PatchOffset := $1E4939; LicenseManagerPatchInfo.FinalizeArrayOffset := $607828; mOasisRuntimePatchInfo.Sha1 := '30dc7ee5931b2f88904c60b5469144673bc544a8'; mOasisRuntimePatchInfo.PatchOffset := $166F85; SetupGUID := '{426F14E1-A160-430C-A48D-E84ED4F49171}'; ISOUrl := 'http://altd.embarcadero.com/download/radstudio/10.2/delphicbuilder10_2_3_2631.iso'; ISOMd5 := '1bd28e95596ffed061e57e28e155666d'; End;

2018-05-05