<?xml version="1.0" encoding="utf-8" ?><rss version="2.0"><channel><title><![CDATA[weishigao的博客]]></title><description><![CDATA[]]></description><link>https://blog.youkuaiyun.com/weishigao</link><language>zh-cn</language><generator>https://blog.youkuaiyun.com/</generator><copyright><![CDATA[Copyright &copy; weishigao]]></copyright><item><title><![CDATA[参数传递时var的使用]]></title><link>https://blog.youkuaiyun.com/weishigao/article/details/113889041</link><guid>https://blog.youkuaiyun.com/weishigao/article/details/113889041</guid><author>weishigao</author><pubDate>Sat, 20 Feb 2021 18:24:39 +0800</pubDate><description><![CDATA[主要代码：


var
 Form2: TForm2;
 AA,BB:string;
 CC:Integer;

implementation

{$R *.dfm}

procedure TForm2.init;
begin
 AA:= 'A';
 BB:= 'B';
 CC:= 1;
end;

procedure TForm2.Button1Click(Sender: TObject);
begin
 init;
 proc1(AA,BB,CC);
 Outmsg(Memo1);
e...]]></description><category></category></item><item><title><![CDATA[字符集代码页标识符（备查）]]></title><link>https://blog.youkuaiyun.com/weishigao/article/details/98892651</link><guid>https://blog.youkuaiyun.com/weishigao/article/details/98892651</guid><author>weishigao</author><pubDate>Thu, 08 Aug 2019 22:45:14 +0800</pubDate><description><![CDATA[下表定义了可用的代码页标识符。


	在不同的计算机上，ANSI代码页可能不同，或者可以为单个计算机更改，从而导致数据损坏。为了得到最一致的结果，应用程序应该使用Unicode，如UTF-8或UTF-16，而不是特定的代码页。

	Identifier
				.NET Name
				Additional information
			037
				IBM037
				IBM EBCDIC...]]></description><category></category></item><item><title><![CDATA[Delphi XE系列安装socket控件]]></title><link>https://blog.youkuaiyun.com/weishigao/article/details/95309009</link><guid>https://blog.youkuaiyun.com/weishigao/article/details/95309009</guid><author>weishigao</author><pubDate>Wed, 10 Jul 2019 10:01:42 +0800</pubDate><description><![CDATA[从Delphi7开始Tclientsocket, Tserversocket控件就不再默认加载了，需要手动安装：

1、Component——Install Packages。



2、点击“Add”，找到安装目录下的bin目录，在其中找dclsockets开头的bpl文件，选中，“打开”，即可。






...]]></description><category></category></item><item><title><![CDATA[delphi中删除文件夹的一些方法搜集及速度测试]]></title><link>https://blog.youkuaiyun.com/weishigao/article/details/90716105</link><guid>https://blog.youkuaiyun.com/weishigao/article/details/90716105</guid><author>weishigao</author><pubDate>Fri, 31 May 2019 15:06:49 +0800</pubDate><description><![CDATA[测试条件：

测试电脑：笔记本，i78550u，8g内存，64位win10系统。

目标文件夹，4,757 个文件，745 个文件夹，79.5 MB。

================================================

第一种：

 最简单，需要引用System.IOUtils单元，DEPHI2010之后的版本才有。

TDirectory.Delete('D:...]]></description><category></category></item><item><title><![CDATA[Delphi中WebBrowser控件的3个bug及解决方案]]></title><link>https://blog.youkuaiyun.com/weishigao/article/details/88287352</link><guid>https://blog.youkuaiyun.com/weishigao/article/details/88287352</guid><author>weishigao</author><pubDate>Thu, 07 Mar 2019 10:08:25 +0800</pubDate><description><![CDATA[1、如果打开的页面中，有通过javascript关闭页面的，只会把控件关闭，包含控件的窗口仍然存在，并且手工关闭窗口时，出现问题；

　　2、打开的页面，通过鼠标选定的内容，不能复制，无论是通过右键菜单复制，还是通过Ctrl+C快捷键复制，都不可以；

　　3、打开有WebBrowser控件的窗口，关闭窗口之后，内存得不到释放（此Bug在其他语言中也存在）。



　　以上三个问题，是必须解决的...]]></description><category></category></item><item><title><![CDATA[MessageBoxW和MessageBoxA和MessageBox的关系]]></title><link>https://blog.youkuaiyun.com/weishigao/article/details/88287315</link><guid>https://blog.youkuaiyun.com/weishigao/article/details/88287315</guid><author>weishigao</author><pubDate>Thu, 07 Mar 2019 10:07:50 +0800</pubDate><description><![CDATA[MessageBox是在库里声明了一个宏 当你使用宽字符的时候,也就是unicode的时候,自动帮你转换使用 MessageBoxW 而当你使用窄字符的时候,会自动帮你转换到 MEssageBoxA 
...]]></description><category></category></item><item><title><![CDATA[innerHTML、innerText和outerHTML、outerText的区别]]></title><link>https://blog.youkuaiyun.com/weishigao/article/details/88287281</link><guid>https://blog.youkuaiyun.com/weishigao/article/details/88287281</guid><author>weishigao</author><pubDate>Thu, 07 Mar 2019 10:07:17 +0800</pubDate><description><![CDATA[innerHTML 设置或获取位于对象起始和结束标签内的 HTML

outerHTML 设置或获取对象及其内容的 HTML 形式

innerText 设置或获取位于对象起始和结束标签内的文本

outerText 设置(包括标签)或获取(不包括标签)对象的文本







innerText和outerText在获取时是相同效果，但在设置时，innerText仅设置标签内的文本，而ou...]]></description><category></category></item><item><title><![CDATA[IHTMLDocument2]]></title><link>https://blog.youkuaiyun.com/weishigao/article/details/88287230</link><guid>https://blog.youkuaiyun.com/weishigao/article/details/88287230</guid><author>weishigao</author><pubDate>Thu, 07 Mar 2019 10:06:32 +0800</pubDate><description><![CDATA[{IHTMLDocument2 方法:}

write         //写入

writeln        //写入并换行

open         //打开一个流，以收集 document.write 或 document.writeln 的输出

close         //关闭并输出用 document.open 方...]]></description><category></category></item><item><title><![CDATA[Delphi 2007 报错:未找到导入的项目，请确认 <Import> 声明中的路径正确]]></title><link>https://blog.youkuaiyun.com/weishigao/article/details/88287132</link><guid>https://blog.youkuaiyun.com/weishigao/article/details/88287132</guid><author>weishigao</author><pubDate>Thu, 07 Mar 2019 10:04:50 +0800</pubDate><description><![CDATA[使用delphi2007开发，突然IDE没法用了，报错为找不到&quot;c:\Windows\Microsft.NET...\Borland.Delphi.Targets&quot; 云云。经多方查找资料，确认

原因在于操蛋的win10自动更新后，丢失了一部分文件导致的。解决办法就是在C盘搜索Borland.Delphi.Targets，找到该文件后，打开其目录，将Borland开头的几个文件都拷贝到delphi...]]></description><category></category></item><item><title><![CDATA[TComponentState详解]]></title><link>https://blog.youkuaiyun.com/weishigao/article/details/88287082</link><guid>https://blog.youkuaiyun.com/weishigao/article/details/88287082</guid><author>weishigao</author><pubDate>Thu, 07 Mar 2019 10:03:55 +0800</pubDate><description><![CDATA[TComponentState = set of (csLoading, csReading, csWriting, csDestroying,

  csDesigning, csAncestor, csUpdating, csFixups, csFreeNotification,csInline, csDesignInstance);



csAncestor：

该状态表示这一组件...]]></description><category></category></item><item><title><![CDATA[Delphi 皮肤控件AlphaControls的使用]]></title><link>https://blog.youkuaiyun.com/weishigao/article/details/88286816</link><guid>https://blog.youkuaiyun.com/weishigao/article/details/88286816</guid><author>weishigao</author><pubDate>Thu, 07 Mar 2019 10:00:07 +0800</pubDate><description><![CDATA[TsSkinManager 主控件

SkinDirectory 皮肤Skins文件夹路径

SkinName所要设置的皮肤名称

Active 是否启用皮肤

InternalSkins设置内嵌皮肤



TsSkinProvider 样式控件

usessConst,sDefaults;
procedureTForm1.FormCreate(Sender:TObject...]]></description><category></category></item><item><title><![CDATA[ScriptControl控件属性与方法]]></title><link>https://blog.youkuaiyun.com/weishigao/article/details/85166223</link><guid>https://blog.youkuaiyun.com/weishigao/article/details/85166223</guid><author>weishigao</author><pubDate>Fri, 21 Dec 2018 18:51:29 +0800</pubDate><description><![CDATA[
'AllowUI:可读写,布尔值,检测是否允许运行用户的接口元素.如果为False,则诸如消息框之类的界面元素不可见.
'CodeObject: 返回宿主被调用的特定的公用成员对象.只读.
'Modules:只读.返回宿主提供给脚本的组件库模块.COM组件通常都是以对象收集的形式向用户提供可以留给用户二次开发的对象集合,每一个收集即一个Modules（模块）.
'Language:设置或获取脚本...]]></description><category></category></item><item><title><![CDATA[ADO Mode 属性]]></title><link>https://blog.youkuaiyun.com/weishigao/article/details/85007068</link><guid>https://blog.youkuaiyun.com/weishigao/article/details/85007068</guid><author>weishigao</author><pubDate>Fri, 14 Dec 2018 17:22:48 +0800</pubDate><description><![CDATA[定义和用法

Mode 属性可设置或返回一个 ConnectModeEnum 值，该值指示在 Connection, Record 或 Stream 对象中修改数据的权限。在对象关闭时，此属性为读写，在对象打开时为只读。

Connection 对象 - 默认是 adModeUnknown
	Record 对象 - 默认是 adModeRead
	Stream 对象 - 默认是 adModeRea...]]></description><category></category></item><item><title><![CDATA[TWebBrowser在不同操作系统打不开指定页面时DocumentComplete事件的区别]]></title><link>https://blog.youkuaiyun.com/weishigao/article/details/84787798</link><guid>https://blog.youkuaiyun.com/weishigao/article/details/84787798</guid><author>weishigao</author><pubDate>Tue, 04 Dec 2018 14:16:38 +0800</pubDate><description><![CDATA[XP系统
直接访问无法访问的地址时：
URL=http://192.168.1.1/
aintf.URL=res://C:\WINDOWS\system32\shdoclc.dll/navcancl.htm#http://192.168.1.1/
从正常页面跳转到无法访问的地址时：
URL=http://192.168.1.1/
aintf.URL=res://C:\WINDOWS\system3...]]></description><category></category></item></channel></rss>