随笔分类 -  Delphi

1 2 下一页

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 天上星 阅读(61) 评论(0) 推荐(0)

Delphi調用Excel的相關方法，感謝原作者
摘要：內容來源https://www.cnblogs.com/brightsea/p/2085673.html,感謝原作者DELPHI中EXCEL组件的使用方法: 一) 使用动态创建的方法 首先创建 Excel 对象，使用ComObj: var ExcelApp: Variant; ExcelApp := 阅读全文

posted @ 2022-07-09 09:42 天上星 阅读(165) 评论(0) 推荐(0)

Delphi调用Oracle CBlob字段处理
该文被密码保护。

posted @ 2021-05-13 11:13 天上星 阅读(0) 评论(0) 推荐(0)

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 天上星 阅读(302) 评论(0) 推荐(0)

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 天上星 阅读(284) 评论(0) 推荐(0)

获取关机信息及键盘或鼠标无响应的时长
摘要：procedure WMQUERYENDSESSON(var AMessage:TWMQueryEndSession);message WM_QUERYENDSESSION; //达到多少秒 function LeaveTimeBySeconds:Cardinal; 实现： procedure WM 阅读全文

posted @ 2020-10-08 09:47 天上星 阅读(209) 评论(0) 推荐(0)

TNativeXML用法（轉）
摘要：1.https://www.cnblogs.com/hejoy91/archive/2013/05/29/3105878.html NativeXml可以在官网上下载，下载后将文件夹放在指定地方，打开DELPHI在其环境变量中引用NativeXml路径，然后在程序中引用NativeXml单元，我们就 阅读全文

posted @ 2020-08-17 14:12 天上星 阅读(547) 评论(0) 推荐(0)

对Excel操作(VBA)
摘要：经常用到，但有时会忘记，把大体用法写在blog中，方便查看。里面有每个功能的注解 uses ComObj; procedure TForm1.Button1Click(Sender: TObject); var ExcelApp,workbook,sheet:OleVariant; begin {創 阅读全文

posted @ 2020-07-16 10:53 天上星 阅读(590) 评论(0) 推荐(0)

獲取本機所有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 天上星 阅读(187) 评论(0) 推荐(0)

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 天上星 阅读(328) 评论(0) 推荐(0)

Delphi 二维码产生和扫描
摘要：Zint用于产生二维码。 Zxing用读取二维码。 VFrames.pas和VSample.pas用于摄像头。 另附带摄像头相关的类库，也可用开源的dspack也可用于摄像头的需求。 以上为开源的信息，请在sourceforge.net上下载。 本例用zint.dll的版本为2.6.0. 请在项目根 阅读全文

posted @ 2018-11-30 16:29 天上星 阅读(4857) 评论(2) 推荐(0)

FireDac Pooling
摘要：1.建立FDManager的ConnectionDef。并设置此Pooling为True. 2.建立Thread类进行多个FDConnection连接DB。 3.本列是oracle远程数据.如下图: Open pooling是建立FDManger中的Connection. Thread按钮是建立连接 阅读全文

posted @ 2018-06-14 15:11 天上星 阅读(838) 评论(0) 推荐(0)

Oracle解析xml的存储过程
该文被密码保护。

posted @ 2018-05-21 17:53 天上星 阅读(0) 评论(0) 推荐(0)

Delphi 7生成XML
摘要：文件格式为： 2.把此文件转成XML(用Delphi7): 3 生成子元素的内容为： 4 生成元素属性内容为： 5:可以把以上的内容做为参数传给数据库进行处理，保证事物的原子性(具休调用待后续提供). 阅读全文

posted @ 2018-05-18 12:04 天上星 阅读(2213) 评论(0) 推荐(0)

Delphi 调用oracle有返回数据集的存储过程
该文被密码保护。

posted @ 2018-05-02 11:00 天上星 阅读(0) 评论(0) 推荐(0)

DataSnap Session expired处理。
摘要：测试环境：RAD 10.2.3 建立DataSet Server服务端连接oracle数据库。 1.客户端用FDConnection连接服务端，协议为TCP/IP时，当服务端重启，不用再重启客户端。 2.客户端如果用DSRestConnection时，用产生的代理类进行远程调用时，如果把服务端重启， 阅读全文

posted @ 2018-04-14 15:30 天上星 阅读(753) 评论(0) 推荐(0)

CodeSoft和BarTender打印的调用
该文被密码保护。

posted @ 2017-06-21 10:12 天上星 阅读(407) 评论(0) 推荐(0)

Ole连接数据库断开检测
摘要：今天在处理客户网络时，会发现常出现程序连接不上数据库的情况，如网络中断，断电等，此时的Ado连接属性还是为True.本程序用Delphi开发，用的是AdoConnection，当网络断开时，它的Connected还是为True.后来就用TApplicationEvents这个类的OnExceptio... 阅读全文

posted @ 2015-07-09 16:50 天上星 阅读(401) 评论(0) 推荐(0)

求一范围内的素数（质数）
摘要：有时去面试时会问到这样的问题，说难也不难，说不难也难，其实理清思路问题就不大了。根据网上所谓的最佳方案，我们来理顺下它的思路；素数也叫质数，即只能被１和自身整除的数就叫质数，能被其它的数整除的数叫合数，一个合数可以分解为二个或多个质数，即多个质数的乘积就为合数。算法的思路： 1.建立给定数据的... 阅读全文

posted @ 2015-06-11 15:18 天上星 阅读(1682) 评论(0) 推荐(0)

TDBGrideh表头自动排序设置
摘要：自动显示标题行的升降排序标志符（▽降序△升序）并做相应排序DBGridEh组件可以在标题行单元格中显示小三角形升、降排序标志符图片，在运行时可点击标题行，图片自动切换并做相应排序。具体属性设置如下：1、uses EhLibAdo;(如果客户端用ADO控件)；2、设置DBGridEh的Column的T... 阅读全文

posted @ 2015-01-14 10:34 天上星 阅读(1243) 评论(0) 推荐(0)

1 2 下一页

导航