Q&A

  • Twebbrowse에 관련된 2개의 질문입니다.
아래문서는 보았습니다.
그런데 TFrm.wbHTMLDocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant)를 어떻게 불러오는지 모르겠습니다.
아시는 분 부탁드립니다.
====== 아래 ======
IE webbrowser 프레임이 완전히 로드되었는지 점검

TFrm에 FFirstRun : boolean을 넣는다.

procedure TFrm.FormCreate(Sender: TObject);
begin
        // 처음
        FFirstRun := true;

        // 초기화
        wbHTML.Navigate('about:blank');
end;


procedure TFrm.wbHTMLDocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
var
        pHtml : IDispatch;
begin
        if (FFirstRun = true) then // 브라우저 콘트롤이 초기화시
        begin
                FFirstRun := false;
                exit;
        end;

        // 전체 문서 DocComplete
        pHtml := wbHTML.DefaultDispatch;

        if(pDisp = pHtml) then // 프레임 전체의 로딩 완료
                ShowMessage('all frame complete')
        else
                ShowMessage('frame complete');
end;

그리고 두번째 질문은 twebbrose에서 전부 로드가 된 후 id,passwd를 자동으로 넣은 후 다음과 같이 자동 로그인되도록 이미지 이름에  #13값을 넣었습니다. 그런데 로그인 되지 않고 그대로 입니다.

procedure TForm1.Button2Click(Sender: TObject);
var id_1, pw_1 : string;

begin

id_1 := 'hahaha';
pw_1 := 'hohoho';

WebBrowser1.OleObject.document.all.USER_ID.value := id_1 ;
WebBrowser1.OleObject.document.all.PASSWD.value := pw_1;
WebBrowser1.OleObject.document.all.imageField.value := #13 ;
endl

부탁드립니다.
0  COMMENTS