喫茶XRAYトップページ

[スレッド全体]
[9471] AVIファイルの再生返信　削除
2015/12/17 (木) 09:03:06 Mr.XRAY
[AVIファイルの動作について]
http://hpcgi3.nifty.com/e-papy/DelphiBBS/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/DelphiBBS/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