天上星 - 博客园

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

获取关机信息及键盘或鼠标无响应的时长

摘要： procedure WMQUERYENDSESSON(var AMessage:TWMQueryEndSession);message WM_QUERYENDSESSION; //达到多少秒 function LeaveTimeBySeconds:Cardinal; 实现： procedure WM 阅读全文

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

DBConnection释放说明

摘要：连接DB后的Connection释放顺序为： 1.DBConnection.Close(); 断开和DB的连接 2.DBConnection.Dispose(); 释放资源 3.DBConnection=null; 以上虽简单但重要。阅读全文

posted @ 2020-09-30 09:26 天上星阅读(1033) 评论(0) 推荐(0)

发送邮件

摘要：出处:　https://blog.csdn.net/zwc0910/article/details/8299306?utm_medium=distribute.pc_aggpage_search_result.none-task-blog-2~all~first_rank_v2~rank_v25-1 阅读全文

posted @ 2020-09-09 16:29 天上星阅读(153) 评论(0) 推荐(0)

文件操作

摘要：１.判断文件是否处于打开状态下 [DllImport("kernel32.dll")] public static extern IntPtr _lopen(string file, int readwrite); [DllImport("kernel32.dll")] public static 阅读全文

posted @ 2020-09-02 11:21 天上星阅读(201) 评论(0) 推荐(0)

plsql中的一些知識

摘要：１.RAW(長度)類型相當於varchar等類型，用於保存對應的字節數。２.utl_raw.cast_to_raw(字符串)：把每個字符串對應的Ascii的字節碼顯示出來。 utl_raw.cast_to_varchar2(二進制字符) ：把二進制字符對應的varchar2顯示出來。３.ASC 阅读全文

posted @ 2020-08-31 09:48 天上星阅读(227) 评论(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 天上星阅读(542) 评论(0) 推荐(0)

批處理文章引用

摘要：後續有好的資料會修改此處。謝謝這些資料的提供者. １.http://docs.30c.org/dosbat/index.html 2.借用別人的BAT命令大全，表示感謝： 1 echo 和 @ @ #关闭单行回显 echo off #从下一行开始关闭回显 @echo off #从本行开始关闭回显。一阅读全文

posted @ 2020-07-24 09:05 天上星阅读(159) 评论(0) 推荐(0)

对Excel操作(VBA)

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

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