正己的专栏

记录工作、学习和生活

如何判断网页邮箱出通过邮件客户端工具发送过来的(smtp发送),还是通过网页邮箱发过来的(HTTP发送)

可以根据文件头判断网易邮箱发送使用的工具。 通过网页邮箱发送的邮件,邮件头包含下面的信息,注意其中的 ajax-webmail-wmsvr42 标识的是网页邮箱工具。 Received: from ymail$126.com ( [104.215.168.136] ) by  ajax-web...

2019-01-10 09:16:25

阅读数 111

评论数 0

delphi工具栏按钮显示不完整,高度不能调整的原因

使用delphi工具按组件发现了一个问题,将工具栏TToolBar中一个TToolButton按钮的Style属性由tbsButton改成tbsDropDown后,发现工具栏上的图片最下方一条没有显示出来,也就是图片的最下方少一条。 从改变这个属性来开,将Style属性从tbsButton改成t...

2017-05-18 14:53:25

阅读数 834

评论数 0

Delphi中的SHA256算法

在Delphi xe中可以直接使用 TIdHashSHA256 来实现SHA256算法,代码如下 uses IdHashSHA, IdSSLOpenSSLHeaders; var SHA256 : TIdHashSHA256; SHA256 := TIdHashSHA256.Create; ...

2017-04-24 09:06:57

阅读数 3135

评论数 2

TWebBrowser出现 Method pasteHTML not supported by automation object 解决方法

先看下面的源码,在TWebBrowser当前编辑位置插入一个图片,是通过源码的方法插入的。 var urlStr : string; ovSelection: OleVariant; ovTextRange: OleVariant; tmpStr : string; ...

2017-04-11 09:37:55

阅读数 976

评论数 0

delphi 中 使用 TIdHTTP 提交Post数据

var fhttpRequest: TIdHTTP; PostData : TStringStream; tmpStr : String; begin fhttpRequest := TIdHTTP.Create(nil); with fhttpRequest do begin ...

2017-04-07 09:52:22

阅读数 8978

评论数 0

IHTMLElement.getAttribute 出现参数无效的解决方法

调用 IHTMLElement.getAttribute('href') 时,如果被调用的链接是错误的链接,比如 abc,也就是说href后面是个错误的url时,会出现“无效参数”错误对对话框。 改进方法 IHTMLElement.getAttribute('href', 2),也就是增加一个参数...

2017-03-31 17:48:24

阅读数 1711

评论数 0

Delphi 从 TWebBrowser中获得当前输入处的链接

var unsubscribeStr : string; ovSelection: OleVariant; innerDom, ovTextRange, nnode: OleVariant; begin ovSelection := Edit.doc.selectio...

2017-03-31 15:25:02

阅读数 531

评论数 0

Win 10下 Twebbrowser无法通过pasteHTML插入Mailto 链接

var unsubscribeStr : string; ovSelection: OleVariant; innerDom, ovTextRange, nnode: OleVariant; ovSelection := Edit.OleObject.Document.selec...

2017-03-31 14:25:43

阅读数 1023

评论数 0

Delphi 获得Windows操作系统主版本号

function GetOSMajorVersion: integer;//获取操作系统主版本号 var osVerInfo: TOSVersionInfo; begin Result := 5; //默认是xp的主版本号 osVerInfo.dwOSVersionInfoSize :=...

2017-03-30 09:43:40

阅读数 2134

评论数 0

Delphi 取得IE版本的方法

方法1:读取注册表 function GetIEVersion : string; //获得IE的版本号 var reg : TRegistry; begin reg := TRegistry.Create; reg.RootKey := HKEY_LOCAL_MACHINE; r...

2017-03-29 09:11:15

阅读数 1222

评论数 0

Delphi读取文本文件出现 No mapping for the Unicode character exists in the target multi-byte code page

TStringList.LoadFromFile时会出现 No mapping for the Unicode character exists in the target multi-byte code page提示 如下代码 var tmpStrs : TStrings; begin ...

2017-03-24 16:16:32

阅读数 1541

评论数 0

Delphi 下的Base64编码和解码

function Base64Encode(s : string) : string; //base64 编码 var base64 : TIdEncoderMIME; tmpBytes : TBytes; begin base64 := TIdEncoderMIME.Create(...

2017-03-23 10:17:14

阅读数 5939

评论数 0

delphi 禁用掉窗口中的所有组件

procedure DisableAllControls(m_form: TWinControl; m_enable : Boolean = false); var i : integer; begin //禁用窗口中所有组件 //m_enabled = true 表示启用 for i...

2017-03-22 15:25:34

阅读数 697

评论数 0

delphi 判断目录是否有写入权限

没有找到判断目录是否有写入权限,自己写了一个,我觉得应该是有相应的函数的,但是没有找到。 function DirWritable(m_dir : string) : boolean; //目录是否有写入权限 var tmpStrs: TStrings; //测试数据目录是否写权限 ...

2017-03-21 09:16:54

阅读数 793

评论数 0

为TMenuItem增加指针Data属性

Delphi的有些组件中都包含.Data属性,比如TTreeNode,.Data属性可以认为是一个指针,可以指向任何类或者结构,方便后续操作。 但是TMenuItem没有.Data属性,下面介绍最简单的方法为TMenuItem增加.Data属性。 在需要使用的.pas文件前面写上如下代码 t...

2017-03-09 09:36:03

阅读数 343

评论数 0

Delphi 中哈希表TStringHash和THashedStringList性能速度

Delphi的IniFiles单元中有两个哈希表类TStringHash和THashedStringList 【TStringHash】 优点:速度快,尤其是添加时(调用.Add)速度比THashedStringList快得多。 缺点: 1、Key只能是字符串,Value只能是数字...

2017-02-17 17:08:54

阅读数 2328

评论数 0

Delphi出现 No mapping for the Unicode character exists in the target multi-byte code page 处理方法

当调用 TStrings.LoadFromFile(html_file_name, TEncoding.UTF8); 出现 No mapping for the Unicode character exists in the target multi-byte code page错误。 这种错误...

2017-01-18 10:43:57

阅读数 4204

评论数 0

NSIS实现自定义选择数据保存目录窗口

NSIS实现如下界面,选择数据保存目录,这个窗口将会在选择安装目录窗口后出现 代码如下 Var DataDir ;定义数据目录位置 !insertmacro MUI_PAGE_WELCOME ;欢迎页面 !insertmacro MUI_PAGE_DIRECTORY ;调用...

2017-01-13 17:38:04

阅读数 1724

评论数 0

使用Indy组件出现 Already connected. 异常的处理方法

在使用Indy的邮件组件(TIdSMTP相关)的时候,有时候会出现 Already connected. 但是调用了Disconnect函数以后,下次再次调用Connect的时候还是会出现 Already connected.  解决方法       if TIdSMTP.IOHandler ...

2017-01-05 17:52:35

阅读数 1467

评论数 0

delphi 建立目录函数汇总

1、function CreateDir(const Dir: string): Boolean; 所属单元 System.SysUtils 建立目录,不支持多级建立,例如 CreateDir('c:\a\b\c'),如果c:\a\b目录不存在的话函数会返回失败。 2、function Force...

2016-11-17 12:00:46

阅读数 411

评论数 0

提示
确定要删除当前文章?
取消 删除
关闭
关闭