Video for Windows




Delphi7での使い方等のメモ。

  • ユニットファイルVfW.pasはTorry’s Delphi(http://www.torry.net/)のVCL->Effects and Multimedia->Videoから入手
  • VfW.pas中でole2がusesされているのでライブラリパスにLib\Delphi2を加えておく
  • ビルドすると「定数式が範囲を超えました」というエラーがいくつか発生する。これはCardinal型の引数に対して負の数を指定しているために発生しているのでCardinal型にキャストすればいい

Result := ICSendMessage(hic, ICM_ABOUT, -1, ICMF_ABOUT_QUERY) = ICERR_OK;

これを

Result := ICSendMessage(hic, ICM_ABOUT, Cardinal(-1), ICMF_ABOUT_QUERY) = ICERR_OK;

とすればいい

これで警告はいっぱい出るものの、エラーはなくなるはず。

そこからは他に解説サイトがあるので。



コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です