喫茶XRAYトップページ

[スレッド全体]
[11561] 488_ウェブブラウザを起動して終了を検出について返信　削除
2017/11/17 (金) 13:45:49 peterpan
このスペースでこのような質問をすることが許されることなのか分かりません。
失礼あるいはルール違反であればお許しください。

以下のサンプルをダウンロードし，実行しようとしたところエラーが発生します。
自力で解決できないのでここにアップさせていただきました。
よろしければ解決方法をご教示願います。

【対象サンプル】
488_ウェブブラウザを起動して終了を検出 - Microsoft Edge 対応
01_起動したウェブブラウザの終了を待つ

【エラー状況】

Shell32_TLB

procedure TFileSearchBand.SetSearchParameters(var pbstrSearchID: WideString; bNavToResults: WordBool);
begin
  DefaultInterface.SetSearchParameters(pbstrSearchID, bNavToResults, EmptyParam, EmptyParam);
end;

procedure TFileSearchBand.SetSearchParameters(var pbstrSearchID: WideString;
                                              bNavToResults: WordBool; var pvarScope: OleVariant);
begin
  DefaultInterface.SetSearchParameters(pbstrSearchID, bNavToResults, pvarScope, EmptyParam);
end;

[dcc32 エラー] Shell32_TLB.pas(3427): E2033 変数実パラメータと変数仮パラメータとは同一の型でなければなりません
[dcc32 エラー] Shell32_TLB.pas(3427): E2033 変数実パラメータと変数仮パラメータとは同一の型でなければなりません
[dcc32 エラー] Shell32_TLB.pas(3433): E2033 変数実パラメータと変数仮パラメータとは同一の型でなければなりません

【実行環境】

Windows10
Delphi 10.2 Tokyo

【質問者】

peterpan

peterpan@deluxe.ocn.ne.jp


[11563] Re:488_ウェブブラウザを起動して終了を検出について返信　削除
2017/11/17 (金) 15:02:57 Mr.XRAY
▼ peterpanさん

> このスペースでこのような質問をすることが許されることなのか分かりません。
> 失礼あるいはルール違反であればお許しください。

許されません．
ここはくだらないことを書くところです．ウソです．
くだらないことを書いているのは私だけです．ハハハッ．

> [dcc32 エラー] Shell32_TLB.pas(3427): E2033 変数実パラメータと変数仮パラメータとは同一の型でなければなりません
> [dcc32 エラー] Shell32_TLB.pas(3427): E2033 変数実パラメータと変数仮パラメータとは同一の型でなければなりません
> [dcc32 エラー] Shell32_TLB.pas(3433): E2033 変数実パラメータと変数仮パラメータとは同一の型でなければなりません

これは文字通り引数の型が違いますね．
Shell32_TLB を Delphi 10.2 Tokyo で作成するとどうかなるかですが．
ちょっと時間をください．

調べる時に不便なのでリンクと...

[488][01_起動したウェブブラウザの終了を待つ]
http://mrxray.on.coocan.jp/Delphi/plSamples/488_BrowseURL_ShellExecute.htm#01

[11564] Re2:488_ウェブブラウザを起動して終了を検出について返信　削除
2017/11/17 (金) 15:22:29 Mr.XRAY
> これは文字通り引数の型が違いますね．
> Shell32_TLB を Delphi 10.2 Tokyo で作成するとどうかなるかですが．
> ちょっと時間をください．

Delphi 10.2 Tokyo ではこの引数が var 渡しになっています．

このような場合は以下のように変更して使用するしかありません．
このようなことは Windows API 関係の関数類を使用する時にたまにあります．
Shell32_TLB を Delphi 10.2 Tokyo で作成し直すと，
もしかしたら修正が不要かも知れません．

procedure TFileSearchBand.SetSearchParameters(var pbstrSearchID: WideString; bNavToResults: WordBool);
var
  LEmpParam : OleVariant;
begin
//  DefaultInterface.SetSearchParameters(pbstrSearchID, bNavToResults, EmptyParam, EmptyParam);
  DefaultInterface.SetSearchParameters(pbstrSearchID, bNavToResults, LEmpParam, LEmpParam);
end;

[11565] ちなみにEdgeは返信　削除
2017/11/17 (金) 15:40:36 Mr.XRAY
Edge ですが，こんな記事があります．

[WebブラウザシェアランキングTOP10(日本国内・世界)]
https://webrage.jp/techblog/pc_browser_share/

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