Q&A

  • 델파이로 홈페이지에 로그인하는 방법 좀....
http://www.nhic.or.kr/wbl/wblz/wblz_0100_i.jsp



위 사이트에서 로그인할때

1.
아래처럼... html 코드가 inline frame에 들어있는경우...

<IFRAME WIDTH="670" HEIGHT="500" FRAMEBORDER="no" SCROLLING="no" SRC="/wby/wbya/wbya_0110_r.jsp" MARGINWIDTH="0" MARGINHEIGHT="0" NAME="a" HSPACE="0" VSPACE="0"></IFRAME>

2.
<td width="381"><input type="image" border="0" style="border-style:none;" name="imageField" src="/images/searchbu2.gif" width="58" height="17"></td>

  for m := 0 to Document.forms.length - 1 do
  begin
       ovElements := Document.forms.item(m).elements;
       for i := 0 to ovElements.Length - 1 do
       begin
            try
               if (compareText(ovElements.item(i).type, 'text') = 0) and
               (compareText(ovElements.item(i).name, 'USER_ID') = 0) then
                  ovElements.item(i).value := '11';
               except
               end;
               if (compareText(ovElements.item(i).type, 'image') = 0) or
                 (compareText(ovElements.item(i).name, 'imageField') = 0)
                  then
                      ovElements.item(i).click;
               except
                end;

위의 imagefield 버튼을 클릭하기 위해서 했는데..... USER_ID는 잘되는데..

왜 image를 찾는 부분은 if문 안으로 들어가질 않는지.....알려주세요...

어떻게 아이디와 비밀번호를 넣고 login 버튼을 누를수 있는지....좀.....

자세히 알려주시면 감사하겠습니다.....

제가 초보중의 왕초보라.......죄송합니다.........제발 자세히 자세히 .......제발.....

1  COMMENTS
  • Profile
    nilriri™ 2004.11.05 20:16
    uses
      .... MSHTML;

        Self.WebBrowser1.OleObject.Document.All.USER_ID.value := Self.Edit2.Text;

        Self.WebBrowser1.OleObject.Document.All.PASSWD.value := Self.Edit3.Text;

    procedure TForm1.Button2Click(Sender: TObject);
    var
      iDoc2 : iHTMLDocument2;
      iW2   : iHTMLWindow2;
    begin
      try
        iDoc2 := Self.WebBrowser1.DefaultInterface.Document as iHTMLDocument2;

        iW2 := iDoc2.parentWindow;

        iW2.execScript('document.myForm.submit()','JavaScript');
      except
      end;

    end;