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;


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



目次へ戻る / トップページへ戻る
この文書の無断転載を禁じます
Copyright ぜえた
Copyright kana