喫茶XRAYトップページ

[スレッド全体]
[9903] Windows API の引数の型返信　削除
2016/5/11 (水) 17:58:37 Mr.XRAY
> と，えっ !? Windows 10．う〜む，Windows 10 ですか....

Windows 10 には Delphi 7 以前の Delphiは入っているんですが，
セットが面倒なので，とりあえず，以下を確認していただけますか ?
下の図の，PdhOpenQuery 関数の引数とその型です．

Windows のバージョンによって，引数の型が違っていることがあります．
マイクロソフトの「普通」にあることですが... (^^
あるいは，jwaPdh.pas のバージョンの違いかも知れませんが，
とりあえず確認してみてください．

[9904] Re:Windows API の引数の型返信　削除
2016/5/11 (水) 18:05:17 Mr.XRAY
> 下の図の，PdhOpenQuery 関数の引数とその型です．

図の様な引数の表示の仕方が不明な場合は，以下を参考にしてください．

http://mrxray.on.coocan.jp/Delphi/Others/A_IDETechnique.htm#06

[9905] Re:Windows API の引数の型返信　削除
2016/5/11 (水) 18:42:23 Mr.XRAY
> Windows のバージョンによって，引数の型が違っていることがあります．
> マイクロソフトの「普通」にあることですが... (^^
> あるいは，jwaPdh.pas のバージョンの違いかも知れませんが，

失礼 ! Delphi のバージョンによって違うこともありますね (^^;

[9906] Re:Windows API の引数の型返信　削除
2016/5/11 (水) 18:43:35 福士
ｓｓさん、Mr.XRAYさん、こんにちは。

手元にあったVer2.3のJwaPdh.pasでは

function PdhOpenQuery(szDataSource: LPCTSTR; dwUserData: DWORD_PTR;
  var phQuery: PDH_HQUERY): PDH_STATUS; stdcall;

という定義でしたので、おそらくファイルローカル変数Queryの定義を
  Query    : Cardinal = 0;
ではなく
  Query: HQUERY = 0;
とすればよいのではないかと。

> > と，えっ !? Windows 10．う〜む，Windows 10 ですか....
OSの違いでコンパイルエラーになることは考えにくいです…。
[9907] Re2:Windows API の引数の型返信　削除
2016/5/11 (水) 19:01:52 Mr.XRAY
▼ 福士さん

> > > と，えっ !? Windows 10．う〜む，Windows 10 ですか....
> OSの違いでコンパイルエラーになることは考えにくいです…。

ハハハッ．確かに．

[9908] Re2:Windows API の引数の型返信　削除
2016/5/11 (水) 19:12:19 Mr.XRAY
▼ 福士さん

> 手元にあったVer2.3のJwaPdh.pasでは
>
> function PdhOpenQuery(szDataSource: LPCTSTR; dwUserData: DWORD_PTR;
>   var phQuery: PDH_HQUERY): PDH_STATUS; stdcall;
>
> という定義でしたので、おそらくファイルローカル変数Queryの定義を

そうか，サンプルを作成する時に，[Cttl] + [Shift] + [Space] で表示された
引数の型をそのまま使ってしまったからですね．
反省 !!
HQUERY にしておけば間違いないですね．
勉強になりました m(_ _)m

[9910] Re3:Windows API の引数の型返信　削除
2016/5/11 (水) 21:46:06 ｓｓ
 ▼ 福士さん
 ▼ Mr.XRAYさん
  　ありがとうございました。
　 確かに、以下を変更すると大丈夫でした。
 　Query: HQUERY = 0;
　 h    : HQUERY;

>
> > 手元にあったVer2.3のJwaPdh.pasでは
> >
> > function PdhOpenQuery(szDataSource: LPCTSTR; dwUserData: DWORD_PTR;
> >   var phQuery: PDH_HQUERY): PDH_STATUS; stdcall;
> >
> > という定義でしたので、おそらくファイルローカル変数Queryの定義を
>
> そうか，サンプルを作成する時に，[Cttl] + [Shift] + [Space] で表示された
> 引数の型をそのまま使ってしまったからですね．
> 反省 !!
> HQUERY にしておけば間違いないですね．
> 勉強になりました m(_ _)m
[▼次のスレッド]
INCM/CMT
Cyclamen v3.82