C言語との対比 (ID：23288)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

Ｃさんskさん
ご教授頂戴したとおり幾つか試してみました。
①（要所だけソースを記載します）
//===== ＰＳＬＡＤライブラリの構造体宣言
  type fxPRNINFO = Record
    szPrinterName : array[1..256] of Char;
    szDriverName : array[1..256] of Char;
    wSpecVersion : Word;
    wDriverVersion : Word;
    pDevmode: ^TDevMode;   ←ここを変更
  end;

Function fxPAPI_Get(hAPI: THandle; lpPrninfo: ^fxPRNINFO): Boolean;
         stdcall;external DllName;               ↑ここを変更

var
  hAPI: THandle;
  lpPrninfo: fxPRNINFO;

if (fxPAPI_Get(hAPI,@lpPrninfo)) = True then
                      ↑ここを変更

そうしますと、コンパイルエラーで
[エラー] Unit1.pas(97): 'fxPRNINFO' と 'Pointer' には互換性がありません  と表示されます。
そこで
②
//===== ＰＳＬＡＤライブラリの構造体宣言
  type ^fxPRNINFO = Record ←ここを変更
    szPrinterName : array[1..256] of Char;
    szDriverName : array[1..256] of Char;
    wSpecVersion : Word;
    wDriverVersion : Word;
    pDevmode: ^TDevMode;   ←ここを変更
  end;

Function fxPAPI_Get(hAPI: THandle; lpPrninfo: ^fxPRNINFO): Boolean;
         stdcall;external DllName;               ↑ここを変更

var
  hAPI: THandle;
  lpPrninfo: ^fxPRNINFO;→ここを変更

if (fxPAPI_Get(hAPI,@lpPrninfo)) = True then
                      ↑ここを変更

しますと
[エラー] Unit1.pas(24): 識別子 が必要な場所に '^' があります
(typeの^fxPRNINFOでエラー）
となってしましまいます。

何度も申し訳ありませんが、原因がありましたらお教え頂ければ
助かります。

←解決時は質問者本人がここをチェックしてください。

戻る