2005年06月_TechnoFantasy

原创 IWebbrowser2 支持的接口和服务

InterfacesServicesIConnectionPointContainerIDispatchIExternalConnectionIHlinkFrameIOleCommandTargetIServiceProviderITargetFrameITargetFrame2ITargetNotifyIUnknownIUrlHistoryNotifyIWebBrowserIWebBrowser

2005-06-29 18:38:00 2257

原创 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 2745

原创 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 1948

原创 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 2030

原创 CSDN问答：webbrowser控件浏览页面时，点右键查看属性时程序死掉的问题

使用webbrowser控件，浏览页面时，点右键查看属性时程序死掉，表现为无法点击弹出的属性窗口，也无法点击程序，回车键也不行，但是按esc可以关闭属性窗口。已知解决方法：设置程序form的border不为bsnone,就正常。但是现在程序必须使用无边框窗体。用下面的代码先修改一下窗体的Style就可以了：var x:Integer;begin x := GetwindowLong(form1

2005-06-28 11:29:00 1884

原创 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 2015

原创 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 2552

原创 CSDN问答：网络下载相关

我在用VB在做一个东西,现需要一个函数能实现如下功能:将指定URL处的文件下载到指定的文件夹里,并能保持原来的类型不变.参数有三:一个是URL,指定文件的下载地址,一个是本地保存路径,是个文件夹,比如说"D:/TMP",一个是文件类型,比如PDF,DOC可以通过Microsoft Internet Transfer Control来实现下载：strURL = "http://www.GreatSi

2005-06-28 11:13:00 3669

原创 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 2782

原创 CSDN问答：用WEBBROWSER怎么复制粘贴不能用了

在webbrowser中显示的网页，选中其中文字进行复制好像不起作用，不管是用鼠标右键还是直接CTRL-C，都没有复制到剪切板去，无法粘贴出来。在窗体的OnCreate事件中加入如下代码：OleInitialize(nil);在OnClose事件中加入代码：OleUninitialize;procedure TForm1.FormCreate(Sender: TObject);begin Ole

2005-06-28 10:27:00 3168

原创 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 4626

原创生成MHT的开发手记（6月27日）

今天的重点在如何将页面中的img提取出来然后生成base64编码的字符串。昨天写的URLLocalFileName函数可以根据一个URL获得其本地的文件名，今天写了一个base64EncodeResource函数可以将url指向的资源编码到base64的函数。这个函数需要判断url指向的资源在本地有没有缓存，如果有的话就打开并获取文件内容然后编码。如果没有的话就创建一个TIdHTTP对象，下载这个

2005-06-27 18:23:00 2474

原创如何获得剪贴板中的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 2181 1

原创最近在微软专家新闻组问得问题（3）

Q：我编写了一个利用socket实现POP3邮件检查的程序，但是在显示邮件的Title的时候出现了问题在我获得的邮件内容中title这行是这样的：Subject: =?GB2312?B?vPK1pdPKvP61xLLiytQ=?=这个应该是一个MIME编码的，因为原来邮件的Title是：简单邮件的测试，MIME编码以后是：vPK1pdPKvP61xLLiytQ=但是怎么会多出来的 =?GB2312

2005-06-21 14:05:00 370

原创一个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 2061 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 1418

原创 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 1755

原创转载，实现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 2736

原创转载，一个可以解析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 1992

原创 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 1620

原创最近在微软专家新闻组上面问的问题(2)

Q : 当一个系统安装了超星阅读器，那么，在IE里边输入book:// 就会启动IE如果装了realplayer 就算用http://的方式，访问一个ram的文件，也会被realplayer执行。。请问上述两种情况IE是怎样实现的？是纪录在注册表么？我们如何做才能有这个效果呢A : Internet Explorer就想Windows系统(Explorer)一样是通过在系统注册表中查询文件类型关联

2005-06-14 17:21:00 388

原创最近在微软专家新闻组上面问的问题

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 457

原创如何在BHO中将自己的IDocHostUIHandler实现连接到IE上

首先需要再BHO中维护一个IWebbrowser2接口，然后通过这个接口获得一个IHTMLDocument2接口，然后通过择个接口获得ICustomDoc 借口，然后通过ICustomDoc 接口的SetUIHandle方法将自己的IDocHostUIHandler实现连接到IE上面：HRESULT CFindHook::ChangeUIHandler() { CComPtr spDo

2005-06-12 12:21:00 2565

原创是否连接到互联网中

检测是否连接到Internet以及是通过何种方式（Modem,LAN,Proxy）连接到Internet的http://www.applevb.com/sourcecode/connect_to_net.zip

2005-06-06 19:15:00 1523

原创如何在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 2020