아래문서는 보았습니다.
그런데 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
부탁드립니다.