|
|
表題の件について質問させてください。
次のようなコードの場合なのですが、Edit1から任意のサイズを入力してAVI出力する際、
出力されたファイルのサイズ(Width,Height)が
起動してから一回目の値に固定されてしまうようなのですが、
これはどのようにすれば変更できるのでしょうか？
(＊TButton1つ、TEdit1つを設置)
procedure TForm1.Button1Click(Sender: TObject);
var
i : integer;
bmp : TBitmap;
begin
GKAvi1.FileName := 'c:\temp.avi';
GKAvi1.SetWidth(strtoint(Edit1.text));(もしくは width := )
GKAvi1.SetHeight(strtoint(Edit1.text));(もしくは height := )
GKAvi1.Open;
bmp := TBitmap.Create;
bmp.LoadFromFile('c:\temp.bmp');
for i := 0 to 10 do
begin
gkavi1.Write(bmp);
end;
gkavi1.Close;
bmp.Free;
end;
出力結果
1回目 Edit1.text = '500' 出力ファイル 500px*500px
2回目 Edit1.text = '100' 出力ファイル 500px*500px(!100の入力で500pxのまま)
|
|
