Delphi实现网页自动登陆
比如操作
CSDN的登录
先用WebBrowser定位到登录页面
WebBrowser1.Navigate('http://passport.csdn.net/UserLogin.aspx?from=http://community.csdn.net/');
然后，看其HTML源代码，发现
名字为 ctl00$CPH_Content$tb_LoginNameOrLoginEmail的元素就是 其用户名的输入框了。
此时
使用
(WebBrowser1.Document as IHTMLDOCUMENT2).all.item('ctl00$CPH_Content$tb_LoginNameOrLoginEmail',emptyParam)来得到这个元素了。
var
UserEdt,LogBtn: IHTMLELEMENT;
begin
UserEdt := (WebBrowser1.Document as IHTMLDOCUMENT2).all.item('ctl00$CPH_Content$tb_LoginNameOrLoginEmail',emptyParam) as IHTMLELEMENT;
UserEdt.setAttribute('value','test',0);//这里就设置了test到输入用户名的编辑框中了 。
//依此一样，输入密码，验证码
//然后找那个登录按钮，通过他的HTML源代码，可以知道，那个按钮其实是个图片，元素的名字叫 “ctl00$CPH_Content$Image_Login”
//同样的方法
LogBtn := (WebBrowser1.Document as IHTMLDOCUMENT2).all.item('ctl00$CPH_Content$Image_Login',emptyParam) as IHTMLELEMENT;
LogBtn.Click;//调用按钮的点击事件开始登录。
end;
===============================================================================
因为我发现他网页源代码里按钮里有事件 所以我模拟按钮的点击事件可以达到功能。
procedure TForm1.WebBrowser1NavigateComplete2(Sender: TObject;\\登入
const pDisp: IDispatch; var URL: OleVariant);
var
vDocument:IHTMLDocument2;
useredt,userPASS:IHTMLELEMENT;
begin
if q then
begin
UserEdt := (WebBrowser1.Document as IHTMLDOCUMENT2).all.item('logUsers',emptyParam) as IHTMLELEMENT;
UserEdt.setAttribute('value','cc3802',0);
Userpass := (WebBrowser1.Document as IHTMLDOCUMENT2).all.item('logPasses',emptyParam) as IHTMLELEMENT;
Userpass.setAttribute('value','*******',0);
q:=false;
vDocument := WebBrowser1.Document as IHTMLDocument2;
vDocument.parentWindow.execScript('document.loginForm.submit()', 'javascript');
end;
end;
procedure TForm1.Button7Click(Sender: T
相关文档：
最近需要安装第三方组件，在网络上找到一些资料转过来看看
由于组件提供的方式不同，所以安装的方法也是不一样的，下面就目前常见的各种形式的组件的安装方法介绍一下。
1 只有一个DCU文件的组件。DCU文件是编译好的单元文件，这样的组件是作者不想把源码公� ......
1、保证你传递的参数要正确：C++中的char *对应PASCAL中的pchar。
2：C++中导出的函数的参数调用方式要和你DELPHI中的导入的函数参数调用方式要一致!
例如： C++的参数调用方式 对应的DELPHI的参数调用方式
_declspec ......
前段时间因为项目需要，获取指定文件的图标，绕了很多弯子，现在弄出来了，跟大家共享下.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,ShellAPI, ExtCtrls;
type
TForm1 = class(TForm)
l ......
var
L,i:integer;
Ustr,str:string;
p:char;
begin
str:='123456789ABCDEFG'
L:=length(str);
for i:=1 to l do begin
p:=str[i];
str[i]:=str[l-(i-1)];
......
Delphi编写系统服务六：在服务中使用COM组件 收藏
在服务中调用COM组件不能像在桌面程序中直接创建，在每次创建之前先调用CoInitialize(nil)，释放的时候调用CoUninitialize。例如：调用ADO组件
var
Qry: TADOQuery;
begin
CoInitialize(nil);
Qry := TADOQuery.Create(nil);
tr ......
