- 博客(128)
- 资源 (3)
- 收藏
- 关注
原创 Merlion.Common.Base64Decoder
public class Base64Decoder { char[] source; int length, length2, length3; int blockCount; int paddingCount; public Base64Decoder(char[] input) { int temp = 0; source = input; length = inp
2005-07-26 13:31:00 2217
原创 Merlion.Common.Base64Encoder
public class Base64Encoder { byte[] source; int length, length2; int blockCount; int paddingCount; //Encode from string, include charset public Base64Encoder(StringBuilder s, string charset) {
2005-07-26 13:30:00 2084
原创 .NET 2.0中发送邮件的问题
写了一个发送邮件的类: public class SendMail { private static string m_UserName; private static string m_Password; private static string m_HostName; static string returnMSG = ""; public static void NewMailS
2005-07-24 22:36:00 5029 4
原创 2005年7月16日李开复与学生对话的谈话记录
当前聊天室活动 : 论坛管理员 (发贴人):李开复博士拥有卡内基梅隆大学计算机科学博士学位。他曾以最高荣誉毕业于哥伦比亚大学,获计算机学士学位。李开复博士是美国电气和电子工程师协会院士。Kai-Fu (专家):问: 对了,开复先生,您第一天工作的感觉是什么?答: 我第一天在苹果工作的时候,“体验文化“是最重要的。我和每一个同事约了一小时的会议或午餐,以一对一的方式理解:(1)他们的个人背景(不要低
2005-07-16 11:29:00 4060
原创 简单的获得两个字符串相似度的代码
自己瞎想出来的,每个字符都有一个权值,字符串前面1/3的权值是3,中间1/3是2,最后1/3是1。总权值就是所有字符的权值相加。然后两个字符串从开始一个一个字符的对比,相同的就加上这个字符的权值。最后得到的权值乘以100去除总权值,得到的就是一个0-100的基本权值。然后用:(两个字符串长度差 * 40) div 短字符串长度得到一个差值(如果 两个字符串长度差 > 短字符串长度 直接设差值为40
2005-07-15 18:20:00 2203
原创 Delphi POPUP blocker
unit Unit1;{$WARN SYMBOL_PLATFORM OFF}interfaceuses Windows, ActiveX, Classes, ComObj, shdocvw, mshtml;type TpopBlocker = class(TComObject, IDispatch, IObjectWithSite) protected function GetType
2005-07-13 19:57:00 2151
原创 微软专家论坛上的问题(XML)
我有这样一个XML: Rui Chen First Name Last Name Submit1 转换的XSL是这样写的:xmlns:xsl="http://www.w3.org/1999/XSL/Transform"> My Test
2005-07-08 12:10:00 342
原创 CSDN问答:用UrlDownloadToFile下载时得到下载的进度(转载)
frmUpdate = class(TForm,IBindStatusCallback) ImgTop: TImage; LblTop: TLabel; SpdBtnClose: TSpeedButton; Bevel1: TBevel; plStatus: TPanel; plInfo: TPanel; btnCancel: TFlatSpeedButt
2005-07-06 15:35:00 4164 2
原创 IWebbrowser2 支持的接口和服务
InterfacesServicesIConnectionPointContainerIDispatchIExternalConnectionIHlinkFrameIOleCommandTargetIServiceProviderITargetFrameITargetFrame2ITargetNotifyIUnknownIUrlHistoryNotifyIWebBrowserIWebBrowser
2005-06-29 18:38:00 2244
原创 CSDN问答:webbrowser所显示的网页怎么无法响应回车键
默认的情况下Delphi的TwebBrowser控件是不支持Enter的,这使一些多行文本框变得无法录入,解决的办法如下:unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, OleCtrls, SHDocVw_TLB, ActiveX,
2005-06-29 13:01:00 2732
原创 CSDN问答:怎样根据文件的扩展名,找到系统中该类型文件默认的显示图标
http://community.csdn.net/Expert/topic/3923/3923699.xml?temp=.3165094调用SHGetFileInfo函数,假设sExt是你的文件名。var sfi:TSHFileInfo; i:Integer;begin //获得文件的扩展名 i:= slIcon.IndexOf(sExt); if i>-1 then Resul
2005-06-28 11:35:00 1936
原创 CSDN问答:如何模拟输入用户名、密码来访问网络邻居
localname:本地磁盘号 如:Y: Z: remotename: 共享路径 如 ://server/shareusername : 用户名password: 密码function connectserver(localname: string; remotename: string; username: string; password: string): boolean;var NetS
2005-06-28 11:33:00 2017
原创 CSDN问答:webbrowser控件浏览页面时,点右键查看属性时程序死掉的问题
使用webbrowser控件,浏览页面时,点右键查看属性时程序死掉,表现为无法点击弹出的属性窗口,也无法点击程序,回车键也不行,但是按esc可以关闭属性窗口。已知解决方法:设置程序form的border不为bsnone,就正常。但是现在程序必须使用无边框窗体。用下面的代码先修改一下窗体的Style就可以了:var x:Integer;begin x := GetwindowLong(form1
2005-06-28 11:29:00 1873
原创 CSDN问答:怎样程序控制IE窗口的左侧搜索栏是否打开
procedure TForm1.Button1Click(Sender: TObject);var xWin:TShellWindows; i : integer; x1,x2,x3 : olevariant;begin x1 := {30D02401-6A81-11D0-8274-00C04FD5AE38}; x2 := True; x3 := 0; xWin := TShe
2005-06-28 11:22:00 2005
原创 CSDN问答:在VB6程序中安装打印机
Install a new printer on the system:http://www.devx.com/vb2themax/Tip/19284Private Type PRINTER_INFO_2 pServerName As String pPrinterName As String pShareName As String pPortName A
2005-06-28 11:17:00 2540
原创 CSDN问答:网络下载相关
我在用VB在做一个东西,现需要一个函数能实现如下功能:将指定URL处的文件下载到指定的文件夹里,并能保持原来的类型不变.参数有三:一个是URL,指定文件的下载地址,一个是本地保存路径,是个文件夹,比如说"D:/TMP",一个是文件类型,比如PDF,DOC可以通过Microsoft Internet Transfer Control来实现下载:strURL = "http://www.GreatSi
2005-06-28 11:13:00 3653
原创 CSDN问答:如何查看本机有哪些端口被打开
获得当前系统的Tcp所有打开端口及IP地址 提交日期:2003-11-22 作者:cjsh 关键词:TCP 端口 IP地址 Ip Helper API //GetTcpTable函数单元unit untIPHLPAPI;interfaceusesWindows, sysutils, WinSock;typeEIpHlpError = class(Exception);//-----------
2005-06-28 10:42:00 2769
原创 CSDN问答:用WEBBROWSER怎么复制粘贴不能用了
在webbrowser中显示的网页,选中其中文字进行复制好像不起作用,不管是用鼠标右键还是直接CTRL-C,都没有复制到剪切板去,无法粘贴出来。在窗体的OnCreate事件中加入如下代码:OleInitialize(nil);在OnClose事件中加入代码:OleUninitialize;procedure TForm1.FormCreate(Sender: TObject);begin Ole
2005-06-28 10:27:00 3147
原创 CSDN问答:如何使用代码清除IE的自动完成表单
http://community.csdn.net/Expert/topic/4057/4057856.xml?temp=.2689783我现在只找到开/关自动完成的方法,就是将:HKEY_CURRENT_USER/Software/Microsoft/Windows/CurrentVersion/Explorer/AutoComplete下面的AutoSuggest的值修改为Yes或者No这里有
2005-06-28 10:23:00 4611
原创 生成MHT的开发手记(6月27日)
今天的重点在如何将页面中的img提取出来然后生成base64编码的字符串。昨天写的URLLocalFileName函数可以根据一个URL获得其本地的文件名,今天写了一个base64EncodeResource函数可以将url指向的资源编码到base64的函数。这个函数需要判断url指向的资源在本地有没有缓存,如果有的话就打开并获取文件内容然后编码。如果没有的话就创建一个TIdHTTP对象,下载这个
2005-06-27 18:23:00 2461
原创 如何获得剪贴板中的HTML格式的数据
procedure TForm1.Button1Click(Sender: TObject);var CF_HTML : UINT; clpHandle : THandle; cf : TClipboard;begin CF_HTML := registerclipboardformat(HTML Format); clpHandle := GetClipboardData(CF_H
2005-06-22 23:16:00 2169 1
原创 最近在微软专家新闻组问得问题(3)
Q:我编写了一个利用socket实现POP3邮件检查的程序,但是在显示邮件的Title的时候出现了问题在我获得的邮件内容中title这行是这样的:Subject: =?GB2312?B?vPK1pdPKvP61xLLiytQ=?=这个应该是一个MIME编码的,因为原来邮件的Title是:简单邮件的测试,MIME编码以后是:vPK1pdPKvP61xLLiytQ=但是怎么会多出来的 =?GB2312
2005-06-21 14:05:00 360
原创 一个Base64编码解码的代码(未完成)
从网上找的多数不支持中文的编码解码,做了一下修改,支持中文的解码,编码还没有完成。Public key(1 To 3) As LongPrivate Const base64 = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/"Public Sub GenKey() Dim d As Long, phi As
2005-06-19 10:45:00 2051 1
转载 转贴,获得系统程序安装列表
{ Author: Cosmin Pîrlitu E-mail: cosmin.pirlitu@lush.ro The following code uses one ListBox (lbApps) and one button (btnGetApps) placed on the form (frmMain). When the user clicks on the "Get App L
2005-06-14 19:55:00 1406
原创 CSDN问答:如何创建一个执行FTP的批处理文件
1、先创建一个文本文件,把登录明、密码和你要执行的操作写进去:2222233333asciiget DosFtpFile.txtquit其中第一行是用户名,第二行是密码,最后一行是退出命令。然后保存这个文件,假设文件名是sss.ftp2、创建bat文件,这个文件只有一行:ftp -s:sss.ftp ftp.myserver.com其中sss.ftp是你第一步创建的文件名,ftp.myserver
2005-06-14 19:44:00 1740
原创 转载,实现IExtractImage接口
Whenever you use the thumbnail view in the shell, the shell will display a small preview of the file; in order to produce the preview the shell uses the IExtractImage interface wich is declared as fol
2005-06-14 19:31:00 2721
原创 转载,一个可以解析HTML中链接和图片URL的代码
function ExtractHtmlTagValues(const HtmlText: string; TagName, AttribName: string; var Values: TStrings): integer; function FindFirstCharAfterSpace(const Line: string; StartPos: integer): Integer; var
2005-06-14 19:29:00 1977
原创 CSDN文答:怎样使TWebbrowser中的复制粘贴生效
在窗体的OnCreate事件中加入如下代码:OleInitialize(nil);在OnClose事件中加入代码:OleUninitialize;procedure TForm1.FormCreate(Sender: TObject);begin OleInitialize(nil);end;procedure TForm1.FormClose(Sender: TObject; var Acti
2005-06-14 19:26:00 1605
原创 最近在微软专家新闻组上面问的问题(2)
Q : 当一个系统安装了超星阅读器,那么,在IE里边输入book:// 就会启动IE如果装了realplayer 就算用http://的方式,访问一个ram的文件,也会被realplayer执行。。请问上述两种情况IE是怎样实现的?是纪录在注册表么?我们如何做才能有这个效果呢A : Internet Explorer就想Windows系统(Explorer)一样是通过在系统注册表中查询文件类型关联
2005-06-14 17:21:00 377
原创 最近在微软专家新闻组上面问的问题
Q : 在IE6中,当光标悬停在一个图片上时,会显示一个对图片操作的工具栏。我如何编程实现这样的功能?谢谢。A:SAMPLE: ColorFrm Demonstrates ActiveX Control with Popup Toolbarhttp://support.microsoft.com/kb/166193/可以用Asynchronous Pluggable Protocol 自己处理特定
2005-06-14 17:10:00 441
原创 如何在BHO中将自己的IDocHostUIHandler实现连接到IE上
首先需要再BHO中维护一个IWebbrowser2接口,然后通过这个接口获得一个IHTMLDocument2接口,然后通过择个接口获得ICustomDoc 借口,然后通过ICustomDoc 接口的SetUIHandle方法将自己的IDocHostUIHandler实现连接到IE上面:HRESULT CFindHook::ChangeUIHandler() { CComPtr spDo
2005-06-12 12:21:00 2547
原创 是否连接到互联网中
检测是否连接到Internet以及是通过何种方式(Modem,LAN,Proxy)连接到Internet的http://www.applevb.com/sourcecode/connect_to_net.zip
2005-06-06 19:15:00 1509
原创 如何在VB中压缩access数据库
Private Sub Form_Load() Text1.Text = App.Path & "/db1.mdb"End SubPrivate Sub Command1_Click() On Error Resume Next Dim sNewName As String Dim sBakFile As String sNewName = Text1.Text sDatabase =
2005-06-06 19:14:00 2006
原创 Winsock POP3教程(二)
获取邮件LIST命令和RETR命令 LIST命令和RETR命令只能在“处理”状态下执行,就是说只有在用户登录以后才可以执行这两个命令。LIST命令获得邮件服务器中的邮件列表。该命令的格式如下: LIST [msg] 其中参数msg是可选的参数,该参数指定要列举的邮件的编号,该参数不能指定为一个已经标记为删除的邮件的编号。 如果没有指定参数而且命令调用成功,邮件服务器首先会返
2005-05-20 11:13:00 2264
原创 Visual Basic常见问题解答
下载和安装常见问题Visual Basic的一般编程问题Visual Basic 的API 编程Visual Basic访问数据库的常见问题应用程序的发布Visual Basic.NET更多常见问题解答http://support.microsoft.com/gp/vbfaq#8?spid=2971&sid=global
2005-05-19 09:25:00 1611
原创 HOW TO:在 Windows 2000 中启用自动登录
概要本文介绍如何设置 Windows 2000 专业版的自动登录功能。注意,Windows 2000 Server 或 Advanced Server 中无此选项。 返回页首 在非域系统中防止出现要求输入密码的提示1.在控制面板中,双击“用户和密码”。2.单击清除“要使用本机,用户必须输入用户名和密码”复选框。备注:在不是域成员的系统上不出现此选项。3.单击高级选项卡。4.单击清除“要求用户在登录
2005-05-19 09:21:00 1523
原创 winsock POP3教程(一)
了解POP3POP3简介 POP3是Post Office Protocol - Version 3的简称,这个协议是目前绝大多数电子邮件程序使用的收邮件程序,通过该协议,电子邮件客户端程序可以登录到电子邮件服务器上接受电子邮件。POP3协议是一种脱机模型的协议,当客户端查询并下载电子邮件后,客户端就与服务器端断开连接,用户在客户端可以随意的删除、修改邮件的内容。POP3的通信方式 初
2005-05-17 10:28:00 2847
原创 W3C XForm的特性
支持手持设备、电视机以及台式机中的浏览器,以及打印机和扫描仪丰富的用户界面来满足商业、消费以及设备控制程序分离数据、逻辑以及表示增强的国际化支持支持结构化的表单数据增强的表单逻辑一个页面中包含多个表单,一个表单包含多个页面支持暂停和继续(应该是对简单流程的暂停和继续的支持)无缝的集成其他XML标记集简单的开发模式基于XML窗体可以发送到不同的位置另外,不知道对于XForm,是否提供了对于面向对象的
2005-05-07 18:32:00 1317
原创 关于所谓Rich Internet Application得简单想法
最近看了一些Rich Internet Application得东东,包括Macromedia的Flex以及Mozilla的XUL架构。对于实现一个Rich Internet Application我有了一些基本的想法,一个Rich Internet Application应该有以下的一些特性:丰富的控件支持控件可以显示不同的效果以及具有不同的外观,用户可以通过一种方式来改变控件的外观(例如Dat
2005-05-04 15:37:00 1327
原创 实现IE脱机工作和联机工作的切换
function SetOffline:Boolean; //设定浏览器为离线状态var ConInfo:INTERNET_CONNECTED_INFO;begin ConInfo.dwConnectedState := INTERNET_STATE_DISCONNECTED_BY_USER; ConInfo.dwFlags := ISO_FORCE_DISCONNECTED; In
2005-04-09 16:45:00 2169
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人