喫茶XRAYトップページ

[スレッド全体]
[9901] 無題返信　削除
2016/5/11 (水) 16:37:13 ｓｓ
お世話になります。

Mr.Xray様

サンプルプログラム集の475_パフォーマンスカウンタで CPU 使用率
の03_コア別の CPU 使用率に興味があり、コンパイルしてみました。
98行目と１４７行目の部分でエラーとなりました。

98行目 　if  PdhOpenQuery(nil, 0, Query) <> ERROR_SUCCESS then exit;
147行目　  Status := PdhAddCounter(Query, PChar(CounterPath), 0, h);


[DCC エラー] Unit1.pas(98): E2033 変数実パラメータと変数仮パラメータと
　　　　　　 は同一の型でなければなりません
なぜでしょうか？

　環境は、Windows10　Pro
　　　　　DelphiXE2　Proです。

　環境の問題でしょうか？

よろしくお願いします。
[9902] Re: 無題返信　削除
2016/5/11 (水) 17:46:50 Mr.XRAY
▼ ｓｓさん，どうもです．
当サイトのサンプルに興味を持っていただき，ありがとうございます．

> サンプルプログラム集の475_パフォーマンスカウンタで CPU 使用率
> の03_コア別の CPU 使用率に興味があり、コンパイルしてみました。
> 98行目と１４７行目の部分でエラーとなりました。

えっと，できればリンク等あると嬉しいです．探す手間が省けるので...
上の方の，ページ内の目次をクリックすると，以下のアドレスがブラウザの
URL 欄に表示されます．これをコピーします．
http://mrxray.on.coocan.jp/Delphi/plSamples/475_CpuUsageRate.htm#03

(お前のサイトだろう，そんなのすぐわかるだろう !! ハイ，スミマセンです)

> [DCC エラー] Unit1.pas(98): E2033 変数実パラメータと変数仮パラメータと
> 　　　　　　 は同一の型でなければなりません
> なぜでしょうか？

エラーが発生して，動作しない時はですね．何故と考える前に，
まず，あきらめることです．
人生には，時にはあきらめる，という決断も必要なのです．
山の場合は「勇気ある撤退」といいます (笑)

と，冗談はさておき，ちょっと待ってくださいませ．
と，えっ !? Windows 10．う〜む，Windows 10 ですか....

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

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

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

[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の違いでコンパイルエラーになることは考えにくいです…。

ハハハッ．確かに．

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