看那个页面提交到哪个页面
然后将其POST过去
然后将其POST过去
解决方案 »
- 使用IdTcp组件尝试性远程屏幕传输出现意外错误、希望各位能帮助
- 请问,如何把字符串‘xxxx’,转换成'hh:nn'日期格式,谢谢~~!!
- 。。。。。。兄弟我求职,哪位兄弟家招人哪???????
- 深圳朋友,请进......
- 程序的登录问题
- 创建的一个小问题?不明白...
- 抢分了!不是高手请勿进来、
- 怎样去掉form上的最大化,和最小化的图标,以及不能使form最大和最小化!急!
- 我用ADO组件做多线程数据库查询程序,怎么有时会出现这样的错误‘Connection is busy with results For another command’;
- 重赏之下,必有勇夫?
- 一个ClientDataSet存在缓存中记录的条数?
- 怎样给LABEL控件内的文字加入链接呢?
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, SysTray, ExtCtrls, OleCtrls, SHDocVw, StdCtrls, Buttons,
MPlayer;type
TForm1 = class(TForm)
SysTray1: TSysTray;
pmSysTray: TPopupMenu;
Label1: TLabel;
edtTimer: TEdit;
btnStart: TBitBtn;
btnStop: TBitBtn;
btnExit: TBitBtn;
Timer1: TTimer;
Bevel1: TBevel;
Label3: TLabel;
pmiRestore: TMenuItem;
pmiMinimize: TMenuItem;
N1: TMenuItem;
pmiAbout: TMenuItem;
pmiExit: TMenuItem;
WebBrowser1: TWebBrowser;
Image1: TImage;
Image2: TImage;
Timer2: TTimer;
Image3: TImage;
MediaPlayer1: TMediaPlayer;
procedure btnStartClick(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure btnStopClick(Sender: TObject);
procedure btnExitClick(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
procedure pmiRestoreClick(Sender: TObject);
procedure pmiMinimizeClick(Sender: TObject);
procedure pmiExitClick(Sender: TObject);
procedure SysTray1IconDoubleClick(Sender: TObject;
Button: TMouseButton; X, Y: Integer);
procedure pmiAboutClick(Sender: TObject);
procedure WebBrowser1StatusTextChange(Sender: TObject;
const Text: WideString);
procedure Timer2Timer(Sender: TObject);
private
procedure WMSysCommand(var Message: TMessage); message WM_SYSCOMMAND;
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;
Flag: Boolean;implementationuses Unit2;{$R *.dfm}procedure TForm1.WMSysCommand(var Message:TMessage);
begin
if Message.WParam = SC_ICON then //最小化了
begin
Hide;
pmiRestore.Enabled:=True;
pmiMinimize.Enabled:=False;
end
else
inherited;
end;procedure TForm1.btnStartClick(Sender: TObject);
var
timer: integer;
begin
if timer1.Enabled then
timer1.Enabled:=False; try
timer:=strtoint(edtTimer.Text);
except
on EConvertError do
begin
Showmessage('请正确填写时间间隔!');
exit;
end;
end; WebBrowser1.Navigate('http://www.google.com');
//WebBrowser1.Navigate('http://192.168.0.20'); timer1.Interval:=timer;
timer1.Enabled:=True;
btnStart.Enabled:=False;
btnStop.Enabled:=True;
end;procedure TForm1.Timer1Timer(Sender: TObject);
begin
Timer2.Enabled:=False;
SysTray1.Icon:=Image3.Picture.Icon;
WebBrowser1.Navigate('http://www.google.com');
//WebBrowser1.Navigate('http://192.168.0.20');
end;procedure TForm1.btnStopClick(Sender: TObject);
begin
timer1.Enabled:=False;
timer2.Enabled:=False;
SysTray1.Icon:=Image3.Picture.Icon;
btnStart.Enabled:=True;
btnStop.Enabled:=False;
end;procedure TForm1.btnExitClick(Sender: TObject);
begin
close;
end;procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if timer1.Enabled then
begin
CanClose:=False;
ShowMessage('请停止监测后关闭程序!');
end
else
CanClose:=True;
end;procedure TForm1.pmiRestoreClick(Sender: TObject);
begin
Show;
pmiRestore.Enabled:=False;
pmiMinimize.Enabled:=True;
end;procedure TForm1.pmiMinimizeClick(Sender: TObject);
begin
Hide;
pmiRestore.Enabled:=True;
pmiMinimize.Enabled:=False;
end;procedure TForm1.pmiExitClick(Sender: TObject);
begin
Close;
end;procedure TForm1.SysTray1IconDoubleClick(Sender: TObject;
Button: TMouseButton; X, Y: Integer);
begin
if Button = mbLeft then
begin
if pmiMinimize.Enabled then
begin
Hide;
pmiRestore.Enabled:=True;
pmiMinimize.Enabled:=False;
end
else begin
Show;
pmiRestore.Enabled:=False;
pmiMinimize.Enabled:=True;
end;
end;
end;procedure TForm1.pmiAboutClick(Sender: TObject);
begin
Form2.ShowModal;
end;procedure TForm1.WebBrowser1StatusTextChange(Sender: TObject;
const Text: WideString);
begin
if (Text='Web 地址已经找到。请等待回应...') or (Text='正在打开网页 http://www.google.com/...') then
Timer2.Enabled:=True;
//showmessage(Text);
end;procedure TForm1.Timer2Timer(Sender: TObject);
begin
if Flag then
begin
SysTray1.Icon:=Image2.Picture.Icon;
Flag:=False;
MediaPlayer1.play;
end
else begin
SysTray1.Icon:=Image1.Picture.Icon;
Flag:=True;
MediaPlayer1.play;
end;
end;end.
var
vPostData, vHeaders: OleVariant;
iLoop: Integer;
begin
vHeaders:= 'Content-Type: application/x-www-form-urlencoded'+ #10#13#0;
vPostData:= VarArrayCreate([0, Length(APostData)], varByte);
for iLoop := 0 to Length(APostData)- 1 do
begin
vPostData[iLoop]:= Ord(APostData[iLoop + 1]);
end;
vPostData[Length(APostData)] := 0;
TVarData(vPostData).vType:= varArray; AWebBrowser.Navigate(AURL, EmptyParam, EmptyParam, vPostData, vHeaders);
end;