Delphi - 随笔分类 - zyb2016

Delphi ado连接DBF数据

摘要：使用adoconnection 提供者选择 Microsoft Jet 4.0 OLEDB Provider "所有"那里编辑 Extended Properties， dbf文件的话设置为dBase 5.0,db文件的话设置为Paradox 7.X （dbf就是dbase或Vfox数据库，db就是阅读全文

posted @ 2020-12-11 15:30 zyb2016 阅读(308) 评论(0) 推荐(0)

delphi强制终止进程

摘要：function KillTask(ExeFileName: string): Integer;const PROCESS_TERMINATE = $0001;var ContinueLoop: BOOL; FSnapshotHandle: THandle; FProcessEntry32: TPr 阅读全文

posted @ 2020-12-09 10:18 zyb2016 阅读(351) 评论(0) 推荐(0)

字节数组倒序

摘要：procedure SwapBytesArr(var BytesArr:array of Byte);var i,h:Integer;begin h:=High(BytesArr); if h=1 then Exit; for i:=0 to (h div 2)-1 do begin BytesAr 阅读全文

posted @ 2020-07-28 09:53 zyb2016 阅读(524) 评论(0) 推荐(0)

delphi superobject解析复杂json

摘要：var JO, JO1, JO2, JRec: ISuperObject; JA1,JA2:TSuperArray; JT:TSuperAvlTree; JTI:TSuperAvlIterator; iCount,iField:integer; begin JT := SO(memo1.lines. 阅读全文

posted @ 2020-07-17 15:11 zyb2016 阅读(830) 评论(0) 推荐(0)

delphi实现起泡提示效果

摘要：unit Unit1;interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl 阅读全文

posted @ 2020-07-17 15:04 zyb2016 阅读(253) 评论(0) 推荐(0)

启动delphi 2010 后无响应，过很久（几十秒后），出现错误框“displayNotification:堆栈溢出

摘要：现象：启动delphi 2010 后无响应主界面白色，过段时间，出现错误框“displayNotification:堆栈溢出”，无法正常使用功能。原因是IDE启动的时候加载了一个网页，正是用的自带浏览器最终解决方法：在IE浏览器的Internet选项中，删除历史记录，我一般就不用IE浏览器，所以阅读全文

posted @ 2020-07-11 19:05 zyb2016 阅读(365) 评论(0) 推荐(0)

捕获adoconnection异常

摘要：添加ApplicationEvents控件，在 onException添加如下代码 if (E is EOleException) and ((E as EOleException).ErrorCode= -2147467259) and ADOConnection1.Connected then 阅读全文

posted @ 2020-06-29 16:04 zyb2016 阅读(302) 评论(0) 推荐(0)

aodquery，clientdataset数据控件之间的速度区别

摘要：出于兴趣，我写了一个小测试台来演示这个可能的性能问题，并使用TAdoQuery比较它的性能，TAdoQuery从我的服务器获取CDS数据，以将自身的数据保存到本地磁盘文件或从本地磁盘文件加载数据。我使用的代码如下所示，可以肯定的加以改进和更加严格。广义上讲，它使用TAdoQuery从服务器表中检阅读全文

posted @ 2020-06-15 11:47 zyb2016 阅读(264) 评论(0) 推荐(0)

delphi 操作excel复制区域功能呢

摘要：uses ComObj；代码很简单就不用备注了吧 varExcelApp:Variant;c1,c2,r1,r2:Variant;begin try ExcelApp := CreateOleObject('Excel.Application'); ExcelApp.WorkBooks.Open( 阅读全文

posted @ 2020-04-29 16:33 zyb2016 阅读(541) 评论(0) 推荐(0)

图像识别，借助百度云，上传图片实现逻辑

摘要：procedure APIAddImage(FileName: string); begin try ResponseStream := TStringStream.Create(''); SourceStream := TStringStream.Create(''); try URL := 'h 阅读全文

posted @ 2020-03-26 10:16 zyb2016 阅读(517) 评论(0) 推荐(0)

Windows环境下Zookeeper安装和使用

摘要：一、简介 ZooKeeper是一个分布式的，开放源码的分布式应用程序协调服务，是Google的Chubby一个开源的实现，是Hadoop和Hbase的重要组件。它是一个为分布式应用提供一致性服务的软件，提供的功能包括：配置维护、域名服务、分布式同步、组服务等。ZooKeeper的目标就是封装好复杂易阅读全文

posted @ 2020-03-13 13:45 zyb2016 阅读(230) 评论(0) 推荐(0)

char、pchar、string互相转换

摘要：1.string转换成pchar 可以使用pchar进行强制类型转换，也可以使用StrPCopy函数 [delphi] view plain copy var s:string; p,p1:PChar; begin s:='Hello Delphi'; p:=PChar(s); ShowMessag 阅读全文

posted @ 2020-02-28 14:25 zyb2016 阅读(501) 评论(0) 推荐(0)

delphi中的pansichar和pchar等类型的区别

摘要：varc: Char; {Char 类型的取值范围是: #0..#255, 用十六进制表示是: #$0..#$FF}begin{用十进制方式赋值:}c := #65;ShowMessage(c); {A} {用十六进制方式赋值:}c := #$41;ShowMessage(c); {A} {用 Ch 阅读全文

posted @ 2020-02-28 14:18 zyb2016 阅读(1388) 评论(0) 推荐(0)

delphi IdSMTP发送邮件

摘要：TIdPOP3组件简介 TIdPOP3 是用来接收邮件服务器的邮件信息到用户端的一个组件。它实现了RFC 1939协议。在使用TIdPOP3组件时需设置它的几个成员属性。 Host ：指定邮件服务器，一般为pop3邮件服务器的地址，如 pop3.126.com。 Username ：用户名，也就是阅读全文

posted @ 2020-02-28 13:55 zyb2016 阅读(1379) 评论(0) 推荐(0)

centos安装出现dracut-initqueue timeout错误

摘要：dracut:/# cd /dev dracut:/# ls 这样子你就会看到所有的设备信息。找到sda4, 不一定是sda4，有可能是其他的，实在不确定就拔了优盘看一下哪个消失了 dracut:/# reboot 重启之后在install页面按e键 > 修改vmlinuz initrd=ini 阅读全文

posted @ 2020-01-04 16:55 zyb2016 阅读(9510) 评论(0) 推荐(1)

ClientDataSet.locate报错问题

摘要：数据集循环之后如果使用locate定位，需要首先将数据集first 阅读全文

posted @ 2020-01-02 14:11 zyb2016 阅读(231) 评论(0) 推荐(0)

序列化ADODataSet, ADOQuery

摘要：服务端直接将TADOQuery查询出来的数据直接转换成TStream自己进行传递，到客户端用一个TADOQuery对象还原流就可以了。方法一是将recordset保存成流接口->转成OleVariant ->写入流 class function TADOTools.saveToStream2( 阅读全文

posted @ 2019-11-21 16:12 zyb2016 阅读(259) 评论(0) 推荐(0)

服务端OLEVARIANT数据之后传输

摘要：将OLEVARIANT数据流化，然后对流进行压缩，还原成OLEVARIANT以后再发送。 procedure StreamToVariant(Stream: TStream; var V: OLEVariant);var P : Pointer;begin try V := VarArrayCrea 阅读全文

posted @ 2019-11-21 16:07 zyb2016 阅读(153) 评论(0) 推荐(0)

delphi窗体按钮灰化禁用

摘要：1。使最小化按钮变灰：setwindowlong(handle,gwl_style,getwindowlong(handle,gwl_style) and not ws_minimizebox );2。使最大化按钮变灰：setwindowlong(handle,gwl_style,getwindow 阅读全文

posted @ 2019-10-14 11:49 zyb2016 阅读(819) 评论(0) 推荐(0)

sqlserver查找断号，回收单据号

摘要：declare @L varchar(20), @R varchar(20), @Len int, @FromNo int, @F1 intselect @L='19011', @R='', @Len=3, @FromNo=1Select F1,F2from (Select F1=(Row_numb 阅读全文

posted @ 2019-10-09 17:21 zyb2016 阅读(426) 评论(0) 推荐(0)

随笔分类 - Delphi