HTMLにSubmitボタンを動的追加するには？ (ID:44023)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

Mr.XRAYさん、ありがとうございます。

サンプルでは、TEmbeddedWB を使っていたので、使わないように修正して試してみました。
HTMLの最後に追加する事ができましたが、<form></form>間に入らず、POSTすることが
できませんでした。

〜〜ソース〜〜
procedure TForm1.WebBrowser1DocumentComplete(ASender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
var
  Doc3: IHTMLDocument3;
  inputElements: IHTMLInputElement;
  SL          : TStringList;
  iElementCol : IHTMLElementCollection;
  iElement    : IHTMLElement;
begin
  Doc3 := WebBrowser1.Document as IHTMLDocument3;
  if Doc3.getElementById('form_submit') = nil then begin
    SL := TStringList.Create;
    try
      SL.Add('<input value="ログイン" name="submit" type="submit" id="form_submit" />');
      iElementCol := Doc3.getElementsByTagName('body');
      iElement    := iElementCol.item(0, 0) as IHTMLElement;
      iElement.insertAdjacentHTML('BeforeEnd', SL.text);
    finally
      FreeAndNil(SL);
    end;
  end;
end;
〜〜ソースここまで〜〜

ご教授頂いた内容を参考に、いろいろ試したところ、継続確認は、必要ですが、以下の内容でいけた感じです。

ありがとうございました。

〜〜ソース〜〜
procedure TForm1.WebBrowser1DocumentComplete(ASender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
var
  Doc3: IHTMLDocument3;
  inputElements: IHTMLInputElement;
  SL          : TStringList;
  iElementCol : IHTMLElementCollection;
  iElement    : IHTMLElement;
begin
  Doc3 := WebBrowser1.Document as IHTMLDocument3;
  if Doc3.getElementById('form_submit') = nil then begin
    iElement := Doc3.getElementsBytagName('span').Item('submit',0) as IHTMLElement;
    iElement.innerHTML := '<input value="ログイン" name="submit" type="submit" id="form_submit" />';
  end;
end;
〜〜ソースここまで〜〜

monaaさん、IEなどからのアクセスをやんわりではなく、一切シャットアウトが目的である為、
このような対応を考えておりました。

←解決時は質問者本人がここをチェックしてください。

戻る