Webbrowser 코드 수집
6490 단어 코드delphiwebbrowserDelphi
방법: 웹 브라우저 컨트롤 두 개를 놓고 아래와 같이 오타가 납니다.
procedure TForm1.WebBrowser1NewWindow2(Sender: TObject; var PpDisp: IDispatch;
var Cancel: WordBool);
begin
PpDisp := WebBrowser2.Application;
end;
procedure TForm1.WebBrowser2BeforeNavigate2(Sender: TObject;
const PDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
Headers: OleVariant; var Cancel: WordBool);
var
urlStr: string;
begin
urlStr := string(URL);
WebBrowser1.Navigate(urlStr );
Cancel := True;
end;
USER MSHTML; ActiveX;
procedure TForm1.Button2Click(Sender: TObject);
var
doc:IHTMLDocument2;
all:IHTMLElementCollection;
len,i:integer;
item:OleVariant;
begin
doc:=WebBrowser1 .Document as IHTMLDocument2;
all:=doc.Get_links;//doc.Links
len:=all.length;
for i:=0 to len-1 do begin
item:=all.item(i,varempty);//EmpryParam
memo1.lines.add(item.href);
end;
end;
/////////////////////////////////////////////////////////////////////////////////////////////////
Memo1.Text:=WebBrowser1.OleObject.document.documentelement.innerhtml;
//////////////////////////////////////////////////////////////////////////////////////////////////
procedure TForm1.WebBrowser1NewWindow2(Sender: TObject;
var ppDisp: IDispatch; var Cancel: WordBool);
begin
cancel:=true
end;
//////////////////////////////////////////////////////////////////////////////////////////////
procedure TForm1.WebBrowser1NewWindow2(Sender: TObject;
var ppDisp: IDispatch; var Cancel: WordBool);
var
NewApp: TForm1;
begin
NewApp := TForm1.Create(Owner);
NewApp.Visible := true;
ppdisp := NewApp.webbrowser1.Application;
end
/////////////////////////////////////////////////////////////////////////////////////////////////
procedure TForm1.Button1Click(Sender: TObject);
var
HTMLDocument: IHTMLDocument2;
begin
HTMLDocument := WebBrowser1.Document as IHTMLDocument2;
Memo1.Text := HTMLDocument.body.innerText;
end;
///////////////////////////////////////////////////////////////////////////////////////////////////////
uses Activex;
。
initialization
oleinitialize(nil);
finalization
oleuninitialize;
//////////////////////////////////////////////////////////////////////////////////////////////////////
procedure TForm1.Button2Click(Sender: TObject);
begin
WebBrowser1.ExecWB(OLECMDID_SELECTALL, OLECMDEXECOPT_PROMPTUSER, EmptyParam, EmptyParam); //
WebBrowser1.ExecWB(OLECMDID_COPY, OLECMDEXECOPT_PROMPTUSER, EmptyParam, EmptyParam); //
end;
uses mshtml;
var
HtmlDoc:IHTMLDocument2;
myitem:Olevariant;
i:integer;
begin
myitem := WebBrowser1.Document;
for i := 0 to myitem.all.length - 1 do
begin
if myitem.all.item(i).tagName = 'SELECT' then //
begin
myitem.all.item(i).value:='2'; // '2' value="
end;
if myitem.all.item(i).tagName = 'INPUT' then
begin
if Uppercase(myitem.all.item(i).type)='RADIO' then
begin
if myitem.all.item(i).value=' ' then myitem.all.item(i).checked:=true;
end;
end;
end;
end;
var
o : Olevariant;
begin
o := WebBrowser.OleObject.document.all.item('LoginUserID',0); //
o.value := 'TEST';
o := WebBrowser.oleobject.document.all.item('LoginPassword',0); //
o.value := 'TEST'
WebBrowser.oleobject.document.Forms.Item(0, 0).submit; //
{
o :=WebBrowser.oleobject.document.all.item('Login',0); //
o.Click; // ,
}
end;
JAVASCRIPT
WebBrowser1.OleObject.document.parentWindow.execScript('GSLogin()','javascript');
frames ,FrameIndex Frame
var
o : Olevariant;
begin
//
o := WebBrowser.oleobject.document.documentelement.document.frames.item(FrameIndex).document.all.item('LoginUserID',0);
o.value := 'TEST';
//
o := WebBrowser.oleobject.document.documentelement.document.frames.item(FramIndex).document.all.item('LoginPassword',0);
o.value := 'TEST'
//
WebBrowser.oleobject.document.documentelement.document.frames.item(FramIndex).document.Forms.Item(0, 0).submit;
{
//
o :=WebBrowser.oleobject.document.documentelement.document.frames.item(FramIndex)..document.all.item('Login',0);
o.Click; // ,
}
end;
WebBrowser1.oleobject.Document.getElementById('button').Click;
///////////////////////////////////////////////////////////////////////////////////////
1 item (0 )
WebBrowser1.OleObject.document.getElementsByTagName('input').item(1).click;
name, name
WebBrowser1.OleObject.document.all.item('Registered1').click
http://www.cnblogs.com/xe2011/p/3144861.html(Twebbrowers 작업 관련)
Webbrowes의 라디오가 선택되었는지 판단합니다.
웹 페이지 소스:
if Web1.OleObject.document.Frames.item(0).document.all.item('typeTab',2).checked then
이 내용에 흥미가 있습니까?
현재 기사가 여러분의 문제를 해결하지 못하는 경우 AI 엔진은 머신러닝 분석(스마트 모델이 방금 만들어져 부정확한 경우가 있을 수 있음)을 통해 가장 유사한 기사를 추천합니다:
vue 단일 페이지에 여러 개의 echarts 도표가 있을 때의 공용 코드 쓰기html에서: 데이터 처리는 말할 필요가 없다.응, 직접 그림을 그려: 공통 섹션: 이 페이지를 떠날 때 파괴: 추가 정보: Vue + Echarts 차트 표시 및 동적 렌더링 준비 작업 echarts 의존 설치 n...
텍스트를 자유롭게 공유하거나 복사할 수 있습니다.하지만 이 문서의 URL은 참조 URL로 남겨 두십시오.
CC BY-SA 2.5, CC BY-SA 3.0 및 CC BY-SA 4.0에 따라 라이센스가 부여됩니다.