귀하는 손님 이십니다
로그인
회원가입
  
  델마당 공식 은행계좌
  하나은행 227-910235-83607
  예금주 이상국(운영진)
프로젝트 게시판
투표게시판
델마당소개
기초부터 활용까지! 델파이 교육 - 데브기어
 광고문의 :
媛뺤쥖, 똻, 젙蹂 媛뺤쥖, 똻, 젙蹂 입니다.
글내용 - 媛뺤쥖, 똻, 젙蹂
 class name쑝濡 쎒 element 븸꽭뒪
coding
(沅뚯닚샇)
2018-07-30 삤썑 1:41:55
카테고리: 똻
958회 조회



등록된 파일이 없습니다.
吏덈Ц뿉 삱씪삩 湲뿉 븳 蹂댁땐.

<p class="btn">
  <input type="image" id="searchpng" src="/images/btn/search.png" onclick="search(1);" title="寃깋" alt="寃깋" />
</p>

쐞 媛숈씠 id 媛 二쇱뼱吏硫

WebBrowser1.Document.getElementById('searchpng').Click;
쑝濡 빐떦 쎒 踰꾪듉쓣 겢由븳 寃 泥섎읆 븷 닔 엳뒗뜲


<a href="#" title="寃깋" onclick="fnSearchCorpName(); return false;" class="btn-sprite type-00 vmiddle search-btn"><span>寃깋</span></a>

쐞 媛숈씠 id 媛 二쇱뼱吏吏 븡븯쓣 寃쎌슦뿉뒗
뼱뼸寃 빐떦 쎒 踰꾪듉씠 겢由맂 寃 泥섎읆 븷 닔 엳뒗媛媛 吏덈Ц쓽 슂吏떎.


id 떊 class 꽕엫쓣 씠슜븯뒗 肄붾뱶瑜
씪諛섑솕 빐꽌 븿닔瑜 留뚮뱾硫 떎쓬怨 媛숈씠 留뚮뱾 닔 엳떎.

uses MsHtml;

procedure invokeClickByClass(Doc: IDispatch; className: string);
var
  I: Integer;
begin
  with ((Doc as IHTMLDocument2).body as IHTMLElement2).getElementsByTagName('*') do
  for I := 0 to Pred(length) do
    with item(I, EmptyParam) as IHTMLElement do
    if AnsiSameText(_className, className) then
    begin
      click();
      Break;
    end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  invokeClickByClass(WebBrowser1.Document, 'btn-sprite type-00 vmiddle search-btn');
end;



洹몃윭굹 궗슜릺뒗 IE 쎒釉뚮씪슦졇媛 援щ쾭쟾씠 븘땲怨
VCL뿉꽌 IHTMLDocument7 DOM 씤꽣럹씠뒪瑜 젙쓽빐 넃怨 엳떎硫

떎쓬怨 媛숈씠 肄붾뱶瑜 뜑 媛꾨왂븯寃 옉꽦븷 닔 엳떎.

procedure invokeClickByClassName(Doc: IDispatch; csName: string);
begin
  ((Doc as IHTMLDocument7).getElementsByClassName(csName).item(0, EmptyParam) as IHTMLElement).click();
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  invokeClickByClassName(WebBrowser1.Document, 'btn-sprite type-00 vmiddle search-btn');
end;