在浏览技术站的时候看到，多年前学习的delphi也能开发android，十分高兴（当年放弃是因为找工作不好找，所以开始学习别的）。因为在学习android的java过程中发现，自己还是很不适应。
赶紧下载RAD Studio XE6。ISO有5G多下载回来。我的操作系统是win7 64位，C盘保留了18G。悲催的是C盘被写满了，还是没有装完，只能重装。费了不少力气把软件删除。安装过程中把执行部分放到其他盘，但是装完不能启动。
无奈下载了RAD Studio XE7，又是5G多，使用网上写的30天试用码，还是不能用。下载安装等工作用了差不多两天，还是没有搞定。真是想说爱你不容易。
再等等，如有确认能安装成功的文档，我在测试吧。
uses DateUtils;
procedure TForm1.Button1Click(Sender: TObject);
var
unix_time:int64;
begin
//系统时间转化成unix时间戳
unix_time:=Datetimetounix(strToDateTime(‘2010-05-01 00:00:00’));
Memo1.Lines.Add(IntToStr(unix_time));
//unix时间戳转化为系统时间
Memo1.Lines.Add(DateTimeToStr(UnixToDateTime(unix_time)));
end;
procedure TForm1.Button1Click(Sender: TObject);
var
Doc: IHTMLDocument2;
userinputelement, pwdinputelement: ihtmlinputelement;
begin
doc := WebBrowser1.document as ihtmldocument2;
userinputelement := (doc.all.item(‘username’, 0) as ihtmlinputelement);
userinputelement.value := Trim(‘aaaaaaaa’);
pwdinputelement := (doc.all.item(‘userpwd’, 0) as ihtmlinputelement);
pwdinputelement.value := Trim(‘bbbbbbb’);
//模拟点击按钮
//WebBrowser1.OleObject.document.all.item(‘btnLogin’).click;
//根据按钮ID来模拟点击
// WebBrowser1.OleObject.document.getElementByID(‘btnLogin’).click ;
//按第几个按钮来点击
//WebBrowser1.OleObject.document.getElementsByTagName(‘Input’).item(4).click;
//串
//模拟登录如下。
WebBrowser1.oleobject.document.Forms.Item(0, 3).submit;
end;
【收集人：张子萌 】
1. Form1中调用Form2窗口
Form2.ShowModal; //显示form2窗口
Form2.close; //关闭窗口
2. 获取title，可查看UTF-8编码
procedure TForm2.Button1Click(Sender: TObject); //获取title
var
webboby:string;
r:TRegExpr;
s1:string;
charseti:integer;
gethttp:Tidhttp;
begin
gethttp:=Tidhttp.Create(self);
webboby:=gethttp.Get(Edit1.Text);
charseti:=pos(‘charset=’,webboby);
if (copy(webboby,charseti+8,3)=’utf’) or (copy(webboby,charseti+8,3)=’UTF’) then
webboby:=UTF8Decode(webboby);
s1:=”;
r:= TRegExpr.Create;
try // ensure memory clean-up
r.Expr
if r.Exec(webboby) then
REPEAT
s1 :=r.Match [0];
Edit2.Text:=s1;
UNTIL not
r.ExecNext;
finally
r.Free;
end;
end;
传递‘autostart’参数给程序，启动button按钮
if paramstr(1)=’autostart’ then
begin
Button6.Click;
end;