自定义博客皮肤VIP专享

*博客头图:

格式为PNG、JPG,宽度*高度大于1920*100像素,不超过2MB,主视觉建议放在右侧,请参照线上博客头图

请上传大于1920*100像素的图片!

博客底图:

图片格式为PNG、JPG,不超过1MB,可上下左右平铺至整个背景

栏目图:

图片格式为PNG、JPG,图片宽度*高度为300*38像素,不超过0.5MB

主标题颜色:

RGB颜色,例如:#AFAFAF

Hover:

RGB颜色,例如:#AFAFAF

副标题颜色:

RGB颜色,例如:#AFAFAF

自定义博客皮肤

-+

  • 博客(25)
  • 资源 (3)
  • 收藏
  • 关注

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

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

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

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

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

2005-06-28 11:29:00 1871

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

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

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

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

2005-06-28 11:13:00 3652

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

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

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

2005-06-28 10:27:00 3145

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

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

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

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

2005-06-21 14:05:00 359

原创 一个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 2050 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 1404

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

原创 转载,实现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 2718

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

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

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

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

2005-06-14 17:21:00 376

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

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 440

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

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

ActiveMQ in Action

ActiveMQ in Action英文版。介绍ActiveMQ原理,安装,应用等。

2010-10-31

Beginning Android

Beginning Android电子版。

2009-08-17

Script Control执行自定义过程

通过Script Control从一个Form调用另外一个Form中的过程

2007-06-11

空空如也

TA创建的收藏夹 TA关注的收藏夹

TA关注的人

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