喫茶XRAYトップページ

[スレッド全体]
[11237] Re7:PostメソッドでPostURLにデータを送る　について返信　削除
2017/7/7 (金) 18:19:15 SO
▼ satoさん

>[11233] FormのWEbBrowse上に表示されている画面の印刷ボタン押下で

と書かれていたので、TWebBrowserに変更したかと思ってました。

IE限定でいくなら、IEオブジェクトに HTML(FORMタグ)をセットしてPOSTすればよいかと思います。

http://mrxray.on.coocan.jp/Delphi/plSamples/941_IEObject_InputClick.htm
[11258] Re8:PostメソッドでPostURLにデータを送る　について返信　削除
2017/7/11 (火) 16:55:59 sato
▼ SOさん
お世話になります。
書き方がまずかったようですのでもう一度整理しました。
1.これまで、urlにGetメソッドで引数を渡し、IEで結果を表示していました。
  ShellExecute(Handle,'open',PChar(url),'','',SW_SHOWDEFAULT);
2.サーバーの仕様が変わり、Postメソッドで引数を渡すように変更されたが、
　Postメソッドで引数を渡しながらIEを起動する方法が分からなかったので
3.WEbBrowserの引数PostDataにパラメータをセットして、
　WEbBrowser.Navigate(....)で開くとIEで表示したのとまったく同じに表示された。
4.ところが、WEbBrowser上に表示されている、jspで動く「印刷」ボタンを押した
　時にjavaのエラーが出る。（これは、WEbBrowserに変えてOleContainerを
　使っても同じくエラーになる）IEオブジェクトによって動作が異なるのでしょうか
5.疑問は、jspで動くボタンの挙動が、IEそのものの画面とWEbBrowser上とでは
　どうして違うのかという事です。
6.最終的には、ボタンの動作が正常にできるなら、WEbBrowserで表示させたいの
　ですが、エラーを防げないなら、IEでもいいのですが、
　Getメソッドで引数を渡しながら、IEを起動させる方法がいまだに分かりません。
[11259] Re9:PostメソッドでPostURLにデータを送る　について返信　削除
2017/7/11 (火) 19:04:02 taka
▼ satoさん
>ShellExecute(Handle,'open',PChar(url),'','',SW_SHOWDEFAULT);
は、ユーザーがデフォルトとして設定したブラウザへ送るコマンドになりますので
IEに送りたいというなら
ShellExecute(Handle,'open','iexplore',PChar(url),'',SW_SHOWDEFAULT);
とするほうが正しい処理です。

スクリプトエラー
(1) スクリプトが原因で不具合コードがある場合がほとんどなので
    IEで問題のURLを開いて、F12キーを押しデバッグする
(2) WebBrowserコントロールのローカルセキュリティの問題としてあきらめる

>エラーを防げないなら、IEでもいいのですが、
>Getメソッドで引数を渡しながら、IEを起動させる方法がいまだに分かりません。
ヒント
09_IE の新規起動 - CreateOleObject を OleVariantで扱う

[11260] Re9:PostメソッドでPostURLにデータを送る　について返信　削除
2017/7/11 (火) 19:39:22 Mr.XRAY
▼ satoさん．こんにちは．思いついたところだけですが，

> 4.ところが、WEbBrowser上に表示されている、jspで動く「印刷」ボタンを押した
> 　時にjavaのエラーが出る。（これは、WEbBrowserに変えてOleContainerを
> 　使っても同じくエラーになる）IEオブジェクトによって動作が異なるのでしょうか

これなんですが，そのようになる可能性はあるかも知れません．
マイクロソフトでは，TWebBrowser コンポーネントのレンダリングモードを
IE 7 互換にしていますが，これは互換性のためと言っています．
このレンダリングと関係あるかも知れません．

[06_IE コンポーネントのレンダリングの互換モードを確認]
http://mrxray.on.coocan.jp/Delphi/plSamples/944_plGooleSearch.htm#06

(注: レンダリングモードを IE 11 互換にしても IE 11 と同じになるわけではありません)

JavaScript のエラーはおそらく TWebBrowser では発生すると思います．
デフォルトのままではです．
コーディングが必要と思われますが，TEmbeddedWB コンポーネントを使用すると
オプションの設定である程度制御が可能なようです．

もう少し調べてみないと詳しくは分かりません．
以前ブラウザについて結構ネットで調べたことがあるつもりなんですが (^^;

[11268] Re10:PostメソッドでPostURLにデータを送る　について返信　削除
2017/7/12 (水) 08:28:59 SO
> JavaScript のエラーはおそらく TWebBrowser では発生すると思います．
> デフォルトのままではです．
> コーディングが必要と思われますが，TEmbeddedWB コンポーネントを使用すると
> オプションの設定である程度制御が可能なようです．

Chromeという手もありますね！
http://mrxray.on.coocan.jp/Delphi/plSamples/932_GoogleChromeControl.htm
http://mrxray.on.coocan.jp/Delphi/plSamples/934_GoogleChrome_CEF4Delphi.htm
[11263] Re9:PostメソッドでPostURLにデータを送る　について返信　削除
2017/7/11 (火) 19:57:50 SO
▼ satoさん

お二方が既にレスしていますので、ココだけ。

スクリプトエラーというのは、ResultPrintForm()のエラーでしょうか？
であるなら、Javascriptになっているはずなので、
コードをココに貼り付けることはできますか？
場合によっては、Javascriptでやっていることを自前でやることで解決するかも？

エラー箇所が分からない場合、
takaさんの「IEで問題のURLを開いて、F12キーを押しデバッグする」にて確認してください。
[11264] Re9:PostメソッドでPostURLにデータを送る　について返信　削除
2017/7/12 (水) 00:17:56 taka
▼ satoさん
>JavaAppletを使用するため
javaが絡んでいるのですね
あー・・・。 javascriptと勘違いしていました。

JavaApplet TWebBrowser で検索するとたくさんでてきますよ
素のTWebBrowserでは無理でしょうね
TEmbeddedWB コンポーネントに差し替えてもできるか？うーん・・・。
頑張ってください (^ ^)/


[11265] Re10:PostメソッドでPostURLにデータを送る　について返信　削除
2017/7/12 (水) 08:01:37 SO
▼ takaさん
> ▼ satoさん
> >JavaAppletを使用するため
> javaが絡んでいるのですね
> あー・・・。 javascriptと勘違いしていました。

...同上 m(_ _)m

>INPUT TYPE="BUTTON" .....印刷.....OnClick="return ResultPrintForm()">というソースのところで、
>HTTPステータス500-java.lang.NullPointerExceptionという、javaのエラーがでます。

これのことでしょうけど...
サーバーサイドがjspで実装されているだけで、
クライアント側が必要なデータをPOSTないしGETしてあげればjspでもphpでも動くと思います。

ResultPrintForm()の関数をエミュレートというか、
自前で同じような動作をさせることで解決することが可能の場合があるので、
ResultPrintForm()の中身を書いてもらえれば、なんとかなるかも...

# というか、インスタンスが生成されていないオブジェクトにアクセスしようとしてますけど、
# イレギュラーな動きなのかなぁ？
[11267] Re11:PostメソッドでPostURLにデータを送る　について返信　削除
2017/7/12 (水) 08:07:03 SO
▼ SOさん
> ▼ takaさん
> > ▼ satoさん
> > >JavaAppletを使用するため

...あれ？
Javaアプレット？
JSP？
どちら？

>INPUT TYPE="BUTTON" .....印刷.....OnClick="return ResultPrintForm()">というソースのところで、
>HTTPステータス500-java.lang.NullPointerExceptionという、javaのエラーがでます。

って書いてるので、アプレットでは無いと思ってますけど...(^^;A
[11269] Re12:PostメソッドでPostURLにデータを送る　について返信　削除
2017/7/12 (水) 09:33:29 SO
全く関係ないんですけど、
大昔にJBuilderなるものがありましたねー。
https://ja.wikipedia.org/wiki/JBuilder
[11270] Re13:PostメソッドでPostURLにデータを送る　について返信　削除
2017/7/12 (水) 16:36:26 sato
▼ SOさん、takaさん、マスター
みなさん本当にありがとうございました。半分あきらめかけていたのですが
F12でResultPrintForm()の中身を見ることができました。
function ResultPrintForm(){
   url="jsp/ResultReport.jsp";
   newwin=window.open(url,'new','fullscreen=yes,scrollbars=1');
   newwin.moveTo(0,0)
}
となっていたので、WebBrowser上では新しいウィンドウが開けないのかと思い
procedure TForm1.WebBrowser1NewWindow2(Sender: TObject;
  var ppDisp: IDispatch; var Cancel: WordBool);
begin
  WebBrowser2.RegisterAsBrowser:=True;
  ppDisp:=WebBrowser2.Application;
  Cansel:=False;
end;
と、ダミーのWebBrowser2を使うことでエラーが出なくなって喜んだのもつかの間
一度印刷ボタンを押したあとに、二度目の押下でエラーになりガックリ。
いろいろと探し回り
papyさんの掲示板で
http://www.papy.in/bbs/delphi/200809/08090044.html
procedure TForm1.WebBrowser1NewWindow2(Sender: TObject;
  var ppDisp: IDispatch; var Cancel: WordBool);
begin
  OpenNewWindow := True;
  if not Assigned(TempWB) then begin
   TempWB := TWebBrowser.Create(Self);
// TempWB.Visible := False;  TempWB.Width := 0;  TempWB.Height := 0;
   TempWB.OnBeforeNavigate2 := WebBrowser1BeforeNavigate2;
  end;
  ppDisp := TempWB.ControlInterface.Application;
end;
を見つけ、さっそく試したところバッチリでした。
あわてていたので環境を書くのを忘れていました。Win7,Delphi7,IE8　です。
みなさん、春子さん本当にありがとうございました。
SOさん最初から最後までお世話になりました。
マスター、これで連休中安心して白山に行ってこれます。


[11271] Re14:PostメソッドでPostURLにデータを送る　について返信　削除
2017/7/12 (水) 16:47:14 SO
▼ satoさん

お〜、バッチリだそうで、良かったです。

[11273] Re14:PostメソッドでPostURLにデータを送る　について返信　削除
2017/7/12 (水) 19:55:42 Mr.XRAY
▼ satoさん

問題が解決してよかったと思いますが，

> マスター、これで連休中安心して白山に行ってこれます。

あっー，私白山行ったことないんですよね．
くやしい〜，行きたい山の一つなんです．
楽しんできてください．

[11274] Re15:PostメソッドでPostURLにデータを送る　について返信　削除
2017/7/12 (水) 19:59:23 Mr.XRAY
> 楽しんできてください．

これですね．うちの山の仲間が使う言葉なんです．
普通，山に行くと言うと「気を付けて」
なんですが，我々は「楽しんでこいや」なんです．

[11275] Re16:PostメソッドでPostURLにデータを送る　について返信　削除
2017/7/13 (木) 01:02:27 sato
▼ Mr.XRAYさん
> 楽しんでこいや
(思わず)すみません。お先です。
海の日に登る偏屈物ですが、梅雨明けで(まだかな)雪もまだ多くて、
それほどの人出ではなく、高山植物勢揃い。だといいのですが。
本当は人出をさけて、のんびり、別山市ノ瀬道から釈迦新道を行くつもり
でしたが、釈迦新道は崖崩れで通行止めだそうです。
20年ほど前、別山市ノ瀬道から中宮温泉に行ったことがあります。
他に見られないほど、避難小屋が充実、水も豊富なので気に入っています。
しかし、年々体力の衰えには勝てず、テントが重くなってきました。
でも、40年くらい前、槍ヶ岳の肩の小屋で１畳に３人くらいの事があって、
その後はずっとテントです。
帰ったら、また純喫茶XRAYで、谷川の清流で淹れたおいしいコーヒーを
いただきに参ります。
[11266] Re10:PostメソッドでPostURLにデータを送る　について返信　削除
2017/7/12 (水) 08:03:10 Mr.XRAY
> javaが絡んでいるのですね
> あー・・・。 javascriptと勘違いしていました。

ありっ，私も．

> 素のTWebBrowserでは無理でしょうね

多分，そう思います．

[▼次のスレッド]
INCM/CMT
Cyclamen v3.82