uses
  ShellAPI;

{$R *.dfm}

//=============================================================================
//  PNG画像ファイルをGIF画像ファイルに変換
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
var
  LCmdExePath : string;
  LCmdLine    : string;
begin
  //使用するImageMagickのコマンドラインツールのパス
  LCmdExePath := ExpandFileName('..\magick.exe');

  //コマンドパラメータ
  LCmdLine := ExpandFileName('logo.png')
            + ' -resize 300'
            + ' ' + ExpandFileName('logo.gif');

  ShellExecute(0, '', PChar(LCmdExePath), PChar(LCmdLine), nil, SW_HIDE);
end;

uses
  ShellAPI;

{$R *.dfm}

//=============================================================================
//  PDF文書ファイルをJPEG画像ファイルに変換
//  全ページを変換する場合
//  ページ数が多いと非常に時間がかかる
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
var
  LCmdExePath : string;
  LCmdLine    : string;
begin
  //使用するImageMagickのコマンドラインツールのパス
  LCmdExePath := ExpandFileName('..\magick.exe');

  //コマンドパラメータ
  LCmdLine := ' -density 96'
            + ' ' + ExpandFileName('テスト.pdf')
            + ' ' + ExpandFileName('TestAcro.jpg');

  ShellExecute(0, '', PChar(LCmdExePath), PChar(LCmdLine), nil, SW_HIDE);
end;

//=============================================================================
//  PDF文書ファイルをJPEG画像ファイルに変換
//  ページ範囲を指定して変換する場合
//=============================================================================
procedure TForm1.Button2Click(Sender: TObject);
var
  LCmdExePath : string;
  LCmdLine    : string;
begin
  //使用するImageMagickのコマンドラインツールのパス
  LCmdExePath := ExpandFileName('..\magick.exe');

  //コマンドパラメータ
  LCmdLine := ' -density 96'
            + ' ' + ExpandFileName('テスト.pdf[1-3]')
            + ' ' + ExpandFileName('TestAcro.jpg');

  ShellExecute(0, '', PChar(LCmdExePath), PChar(LCmdLine), nil, SW_HIDE);
end;

  LCmdLine := 'テスト.pdf[0-3,9] TestAcro.pdf';

  WandExport = 'CORE_RL_Wand_.dll';

     ↓ 以下に変更

  WandExport = 'CORE_RL_MagickWand_.dll';

implementation

uses
  magick_wand,
  ImageMagick;

{$R *.dfm}

//=============================================================================
//  PascalMagickを使用してPNG形式の画像ファイルをGIF形式の画像ファイルに変換
//
//  [備考]
//  ファイル名の文字列はコードページをUTF-8とする
//  Ansi版のDelphiの場合はString型(Ansi版ではAnsiString型と同じ)で動作する
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
var
  LReadPath  : UTF8String;
  LWritePath : UTF8String;
  Lwand      : PMagickWand;
begin
  LReadPath  := ExpandFileName('logo.png');
  LWritePath := ExpandFileName('logo.gif');

  MagickWandGenesis;
  Lwand := NewMagickWand;
  try
    MagickReadImage(Lwand, PChar(LReadPath));
    MagickMinifyImage(Lwand);
    MagickWriteImage(Lwand, PChar(LWritePath));
  finally
    DestroyMagickWand(Lwand);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  LReadPath  : UTF8String;
  LWritePath : UTF8String;
  Lwand      : PMagickWand;
begin
  LReadPath  := UTF8String(ExpandFileName('logo.png'));
  LWritePath := UTF8String(ExpandFileName('logo.gif'));

  MagickWandGenesis;
  Lwand := NewMagickWand;
  try
    MagickReadImage(Lwand, Pointer(LReadPath));
    MagickMinifyImage(Lwand);
    MagickWriteImage(Lwand, Pointer(LWritePath));
  finally
    DestroyMagickWand(Lwand);
  end;
end;

function MagickQueryFormats(Pattern: PChar; var count: Integer): PPChar; 
  cdecl; external WandExport;

implementation

uses
  magick_wand,
  ImageMagick;

{$R *.dfm}

//=============================================================================
//  ImageMagickのバージョン情報の取得
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
var
  LPAnsiCopy : PAnsiChar;
  LPAnsiVer  : PAnsiChar;
  LVersion   : Cardinal;
  LText      : String;
begin
  MagickWandGenesis;
  try
    LPAnsiCopy := PAnsiChar(MagickGetCopyright);
    LPAnsiVer  := PAnsiChar(MagickGetVersion(@LVersion));
    LText := string(LPAnsiCopy) + sLineBreak
           + string(LPAnsiVer) + '  ' + IntToStr(LVersion);
  finally
    MagickWandTerminus;
  end;
  MessageBox(Handle, PChar(LText), '情報', MB_ICONINFORMATION);
end;

//=============================================================================
//  ImageMagickがサポートする画像の種類のリスト
//=============================================================================
procedure TForm1.Button2Click(Sender: TObject);
type
  PCharArray = array of PAnsiChar;
var
  LPattern   : UTF8String;
  LStr       : string;
  LPAChararr : PCharArray;
  LTypeCount : Integer;
  LTypeNo    : Integer;
begin
  try
    LPattern := '*';
    LPAChararr := PCharArray(MagickQueryFormats(PChar(LPattern), LTypeCount));

    ListBox1.Items.Clear;
    ListBox1.Items.BeginUpdate;
    for LTypeNo := 0 to LTypeCount - 1 do begin
      try
        LStr := LPAChararr[LTypeNo];
        if Trim(LStr) <> '' then begin
        ListBox1.Items.Add(FormatFloat('000', LTypeNo + 1) + '   ' + LStr);
        end;
      except
      end;
      Application.ProcessMessages;
    end;
    ListBox1.Items.Add('--------------------');
    ListBox1.Items.Add('Total : ' + IntToStr(LTypeCount));
    ListBox1.Items.EndUpdate;
    ListBox1.Update;
  finally
    SetLength(LPAChararr, 0);
  end;
end;

implementation

uses
  plCommandRedirect;

{$R *.dfm}

//=============================================================================
//  ImageMagickのコマンド実行結果を取得
//  リダイレクトの機能を使用して結果を文字血で受け取る
//  画像のサイズ等の情報を取得する例
//
//  このコードは「文字列の暗黙的なキャスト」の警告が表示される
//  UTF-8で受け取ってUnicodeに変換しないと，内容によっては文字化けする
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
var
  LCmdRedirect : TplCommandRedirect;
  LCmdLine     : string;
  LResultStr   : UTF8String;
begin
  Memo1.Clear;
  Memo1.Update;

  LCmdRedirect := TplCommandRedirect.Create;
  try
    LCmdLine := 'magick identify logo.png';

    LResultStr := LCmdRedirect.GrabStdOutText(LCmdLine);
    Memo1.Text := UTF8ToUnicodeString(LResultStr);
  finally
    FreeAndNil(LCmdRedirect);
  end;
end;

//=============================================================================
//  ImageMagickのコマンド実行結果を取得
//  リダイレクトの機能を使用して結果を文字血で受け取る
//  画像の詳細な情報を取得する例
//
//  このコードは「文字列の暗黙的なキャスト」の警告が表示される
//  UTF-8で受け取ってUnicodeに変換しないと，内容によっては文字化けする
//=============================================================================
procedure TForm1.Button2Click(Sender: TObject);
var
  LCmdRedirect : TplCommandRedirect;
  LCmdLine     : string;
  LResultStr   : UTF8String;
begin
  Memo1.Clear;
  Memo1.Update;

  LCmdRedirect := TplCommandRedirect.Create;
  try
    LCmdLine := 'magick identify -verbose logo.png';

    LResultStr := LCmdRedirect.GrabStdOutText(LCmdLine);
    Memo1.Text := UTF8ToUnicodeString(LResultStr);
  finally
    FreeAndNil(LCmdRedirect);
  end;
end;

    LCmdLine := 'magick identify -list format';

implementation

uses
  ActiveX,
  ImageMagickObject_TLB;

{$R *.dfm}

//=============================================================================
//  ImageMagickを使用してPNG形式の画像をGIF形式の画像に変換
//  タイプライブラリの取り込みで作成したユニットを使用する例
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
var
  LImgMagick : TMagickImage;
  LVarArray  : OleVariant;
begin
  LImgMagick := TMagickImage.Create(Self);
  try
    //コマンドを格納する配列を作成
    LVarArray := VarArrayCreate([0, 3], varVariant);

    //コマンドラインツールのオプションの指定と違うので注意
    //空白で区切って設定する値は各配列要素に格納する
    LVarArray[0] := ExpandFileName('logo.png');
    LVarArray[1] := '-resize';
    LVarArray[2] := '300';
    LVarArray[3] := ExpandFileName('logo.gif');

    LImgMagick.Convert(PSafeArray(TVarData(LVarArray).VArray));
  finally
    FreeAndNil(LImgMagick);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  LImgMagick : TMagickImage;
  LVarArray  : OleVariant;
  LMessage   : OleVariant;
  LStr       : string;
begin
  LImgMagick := TMagickImage.Create(Self);
  try
    //コマンドを格納する配列を作成
    LVarArray := VarArrayCreate([0, 2], varVariant);

    //空白で区切って設定する値は各配列要素に格納する
    LVarArray[0] := '-format';
    LVarArray[1] := '幅 : %w\n高さ : %h';
    LVarArray[2] := ExpandFileName('logo.png');

    LMessage := LImgMagick.Identify(PSafeArray(TVarData(LVarArray).VArray));
    LStr     := UTF8ToString(LMessage);
    MessageBox(0, PChar(LStr), '情報', MB_ICONINFORMATION);
  finally
    FreeAndNil(LImgMagick);
  end;
end;

//=============================================================================
//  フォーム生成時の処理
//  ファイル検索用に，環境変数のPATHを設定
//=============================================================================
procedure TForm1.FormCreate(Sender: TObject);
var
  LEnvStr   : string;
  LPathList : string;
begin
  LEnvStr := 'PATH';

  LPathList := GetEnvironmentVariable(LEnvStr);
  LPathList := 'C:\ImageMagick;' + LPathList;
  SetEnvironmentVariable(PChar(LEnvStr), PChar(LPathList));
end;

//=============================================================================
//  PNG画像ファイルをGIF画像ファイルに変換
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
var
  LCmdExePath : string;
  LCmdLine    : string;
  LWorkDir    : string;
begin
  LCmdExePath := 'magick.exe';
  LWorkDir    := 'C:\ImageMagick';

  //コマンドパラメータ
  LCmdLine := ExpandFileName('logo.png')
            + ' -resize 300'
            + ' ' + 'logo.gif';

  ShellExecute(0, '', PChar(LCmdExePath), PChar(LCmdLine), PChar(LWorkDir), SW_HIDE);
end;