Delphi用 SPIの宣言

type
// TPictureInfo
  PPictureInfo = ^TPictureInfo;
  TPictureInfo = packed record
    Left:       Longint;
    Top:        Longint;
    Width:      Longint;
    Height:     Longint;
    x_Density:  Word;
    y_Density:  Word;
    colorDepth: Smallint;
    hInfo:      HLOCAL;
  end;

// TFileInfo
  PFileInfo = ^TFileInfo;
  TFileInfo = record
    Method:    array[0..7] of Char;
    Position:  Longint;
    CompSize:  Longint;
    FileSize:  Longint;
    TimeStamp: Longint;
    Path:      array[0..199] of Char;
    FileName:  array[0..199] of Char;
    CRC:       Longint;
  end;

// TProgressCallback(Callback function)
  TProgressCallback = function(nNum, nDenom: Integer; lData: Longint): Integer;
stdcall;

// Plug-inに関する情報を得る

function GetPluginInfo(InfoNo: Integer; Buf: PChar; BufLen: Integer): Integer; stdcall; export;

// 展開可能な(対応している)ファイル形式か調べる

function IsSupported(FileName: PChar; DW: DWORD): Integer; stdcall; export;

// 画像ファイルに関する情報を得る

function GetPictureInfo(: Buf: PChar; Len: Longint; Flag: Integer;
var PictureInfo: TPictureInfo
): Integer; stdcall; export;

// 画像を展開する

function GetPicture(: Buf: PChar; Len: Longint; Flag: Integer;
var HBInfo: HLOCAL; var HBm: HLOCAL;
ProgressCallback: TProgressCallback; lData: Longint
): Integer; stdcall; export;

// プレビュー・カタログ表示用画像縮小展開ルーティン

function GetPreview(: Buf: PChar; Len: Longint; Flag: Integer;
var HBInfo: HLOCAL; var HBm: HLOCAL;
ProgressCallback: TProgressCallback; lData: Longint
): Integer; stdcall; export;

// アーカイブ内のすべてのファイルの情報を取得する

function GetArchiveInfo(: Buf: PChar; Len: Longint; Flag: Integer;
var PictureInfoHandle: HLocal
): Integer; stdcall; export;

// アーカイブ内の指定したファイルの情報を取得する

function GetFileInfo(: Buf: PChar; Len: Longint; FileName: PChar; Flag: Integer;
var FileInfo: TFileInfo
): Integer; stdcall; export;

// アーカイブ内のファイルを取得する

function GetFile(: Src: PChar; Len: Longint; Dest: PChar; Flag: Integer;
ProgressCallback: TProgressCallback; lData: Longint
): Integer; stdcall; export;

// Plug-in設定ダイアログ表示

function ConfigurationDlg(Parent: HWND; fnc: Integer): Integer; stdcall; export;

この宣言の提供はぜえたさんです。

目次へ戻る / トップページへ戻る