喫茶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 のバージョンの違いかも知れませんが，
とりあえず確認してみてください．

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

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

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