喫茶XRAYトップページ
[9471]
AVIファイルの再生
返信
削除
2015/12/17 (木) 09:03:06
Mr.XRAY
[AVIファイルの動作について]
http://
hpcgi3.
nifty.
com/
e-
papy/
DelphiBB
S/
wwwlng.
cgi?
print+
201512/
15120004
.
txt
にレスしたのですが，下の画像のようになります．
>Delphi 7 のフォルダにある cool.avi を再生させてみました．
は，本当は，Harry さんのレスのように，EXE があるフォルダにコピー
して実行しています．
procedure TForm1.Button1Click(Sender: TObject);
begin
Animate1.FileName := ExtractFilePath(Application.ExeName) + 'cool.avi';
Animate1.Active := True;
end;
[9472]
表示するけど動かない
返信
削除
2015/12/17 (木) 09:08:49
Mr.XRAY
> [AVIファイルの動作について]
>
http://
hpcgi3.
nifty.
com/
e-
papy/
DelphiBB
S/
wwwlng.
cgi?
print+
201512/
15120004
.
txt
質問された方のレスにある「表示するけど動かない」
というのは，例えば，以下の図は，両方とも「表示しているけど動かない」
です．
この文章だけだと，具体的に状況が... 分かりませんね．
「何が，どのように」というように書いてないので．
ましてや「動作しません」じゃ，何がどう動作しないのか全く不明です．
それにしても，不思議です．どうしてなのかな ?
ちなみに，前の書き込みの gif アニメは以下のコードで作成しました．
{$WRITEABLECONST ON}
procedure TForm1.Button1Click(Sender: TObject);
const
ID_Value : SmallInt = 1;
begin
Animate1.FileName := ExtractFilePath(Application.ExeName) + 'cool.avi';
Animate1.Play(ID_Value, ID_Value, 1);
//ここに，このフォームの画像をキャプチャして保存するコード
//実際のコードは省略
inc(ID_Value);
if ID_Value >= Animate1.FrameCount then begin
ShowMessage('END');
end;
end;
[9477]
Re:表示するけど動かない
返信
削除
2015/12/17 (木) 11:49:32
Mr.XRAY
> それにしても，不思議です．どうしてなのかな ?
結果，実はオブジェクト・インスペクタのイベントの定義が消えていた．
というのが昔ありました．まさかね...
「動作しない」というのが，実際どういう状況か分かれば，
ある程度の推測はできるのですが．
これも昔ありました．
「パソコンが動作しません」
この場合「何が」かは書いてあるのですが，
「何が」だけでは，無理です．ハイ．
Harry さんが指摘はしているんですけどね．
INCM/CMT
Cyclamen v3.82