ODAC讀寫BLOB
摘要：var tf:TBlob; ts:TMemoryStream; /////显示原始上传图像 DataModule1.OraQuery1.SQL.Clear; DataModule1.OraQuery1.SQL.Add('select tp from base where id='+QuotedStr
阅读全文
posted @ 2022-10-06 10:43
随笔分类 - Delphi
Delphi調用Excel的相關方法，感謝原作者
摘要：內容來源https://www.cnblogs.com/brightsea/p/2085673.html,感謝原作者DELPHI中EXCEL组件的使用方法: 一) 使用动态创建的方法 首先创建 Excel 对象，使用ComObj: var ExcelApp: Variant; ExcelApp :=
阅读全文
posted @ 2022-07-09 09:42
indy 發郵件的一些說明
摘要：官网地址：https://www.indyproject.org/2005/08/17/html-messages/ 截文： HTML Messages POSTED AUGUST 17, 2005 RLEBEAU47 A question that is asked frequently is:
阅读全文
posted @ 2020-10-30 16:17
oraSession直连
摘要：通过TCP/IP连接DB,无需安装Oracle客户端. procedure TForm1.Button1Click(Sender: TObject); begin self.OraSession1.Connected :=False; Self.OraSession1.Options.Direct:
阅读全文
posted @ 2020-10-14 11:55
获取关机信息及键盘或鼠标无响应的时长
摘要：procedure WMQUERYENDSESSON(var AMessage:TWMQueryEndSession);message WM_QUERYENDSESSION; //达到多少秒 function LeaveTimeBySeconds:Cardinal; 实现： procedure WM
阅读全文
posted @ 2020-10-08 09:47
TNativeXML用法（轉）
摘要：1.https://www.cnblogs.com/hejoy91/archive/2013/05/29/3105878.html NativeXml可以在官网上下载，下载后将文件夹放在指定地方，打开DELPHI在其环境变量中引用NativeXml路径，然后在程序中引用NativeXml单元，我们就
阅读全文
posted @ 2020-08-17 14:12
对Excel操作(VBA)
摘要：经常用到，但有时会忘记，把大体用法写在blog中，方便查看。里面有每个功能的注解 uses ComObj; procedure TForm1.Button1Click(Sender: TObject); var ExcelApp,workbook,sheet:OleVariant; begin {創
阅读全文
posted @ 2020-07-16 10:53
獲取本機所有IP和建立映射函數
摘要：//初始化套接字function TformMain.InitSocket(var AErr: string): Boolean; var AWD:TWSAData; begin Result := False; AErr:=''; Result:= WSAStartup(MakeWord(2,0)
阅读全文
posted @ 2020-04-30 16:06
Delphi调用oracle包的方法
摘要：调用方法如下: with ClientDataSet1 do begin close; CommandText :='begin sajet.Pkg_Test.GetTestValue(:o);end;'; Params.Clear; Params.CreateParam(ftWideString,
阅读全文
posted @ 2020-03-19 09:49
Delphi 二维码产生和扫描
摘要：Zint用于产生二维码。 Zxing用读取二维码。 VFrames.pas和VSample.pas用于摄像头。 另附带摄像头相关的类库，也可用开源的dspack也可用于摄像头的需求。 以上为开源的信息，请在sourceforge.net上下载。 本例用zint.dll的版本为2.6.0. 请在项目根
阅读全文
posted @ 2018-11-30 16:29
FireDac Pooling
摘要：1.建立FDManager的ConnectionDef。并设置此Pooling为True. 2.建立Thread类进行多个FDConnection连接DB。 3.本列是oracle远程数据.如下图: Open pooling是建立FDManger中的Connection. Thread按钮是建立连接
阅读全文
posted @ 2018-06-14 15:11
Delphi 7生成XML
摘要：文件格式为： 2.把此文件转成XML(用Delphi7): 3 生成子元素的内容为： 4 生成元素属性内容为： 5:可以把以上的内容做为参数传给数据库进行处理，保证事物的原子性(具休调用待后续提供).
阅读全文
posted @ 2018-05-18 12:04
DataSnap Session expired处理。
摘要：测试环境：RAD 10.2.3 建立DataSet Server服务端连接oracle数据库。 1.客户端用FDConnection连接服务端，协议为TCP/IP时，当服务端重启，不用再重启客户端。 2.客户端如果用DSRestConnection时，用产生的代理类进行远程调用时，如果把服务端重启，
阅读全文
posted @ 2018-04-14 15:30
Ole连接数据库断开检测
摘要：今天在处理客户网络时，会发现常出现程序连接不上数据库的情况，如网络中断，断电等，此时的Ado连接属性还是为True.本程序用Delphi开发，用的是AdoConnection，当网络断开时，它的Connected还是为True.后来就用TApplicationEvents这个类的OnExceptio...
阅读全文
posted @ 2015-07-09 16:50
求一范围内的素数（质数）
摘要：有时去面试时会问到这样的问题，说难也不难，说不难也难，其实理清思路问题就不大了。根据网上所谓的最佳方案，我们来理顺下它的思路；素数也叫质数，即只能被１和自身整除的数就叫质数，能被其它的数整除的数叫合数，一个合数可以分解为二个或多个质数，即多个质数的乘积就为合数。算法的思路： 1.建立给定数据的...
阅读全文
posted @ 2015-06-11 15:18
