🚀 go-pugleaf

HIRAO <hirao@dog.net0726.or.jp> wrote in message
news:842u63$fpk@www.net0726.or.jp...
> 林 知紀 wrote in message <83u3iq$i92$1@nw041.infoweb.ne.jp>...
> >フォローありがとうございます。
> >
> >原因というか元凶が判明しました。
> >Image1.Refresh
> >のコードを実行するのに異常に時間がかかるようです。
> >結局　TForm.Canvas　に直接描画する形をとり、
> >パフォーマンスの低下を防ぐことが出来ました。
>
> 　僕はC++Builderのユーザですが途中からおじゃまさせていただきます。
> ＶＣＬは同じだと思いますので・・・
>
> 　そう言う方法で問題が発生しないと言うことは、TImageの中のバッファ
> 用のビットマップのデバイスコンテキストと画面のデバイスコンテキスト
> が合っていないから、変換に時間がかかっているのではないでしょうか？
> （ソースが付いていましたらデバッガーで追いかけてみると良いかも、
> せっかくパスカルのソース読めるのですからもったいないですよ（＾＾；；）

すいません。ほぼ初心者なのでHIRAOさんが何を言わんとしてるのか
よく分からないのですが、もしかしてCPUデバッガのことなんでしょうか？
だとしたら今の僕には手におえない・・・

> 　TImageの中にはバッファ用のビットマップが自動的に作られますので、
> それを画面モード切替後に消去して作り直せばいけるかもしれません。
>
> 　PictureプロパティーのTPictureオブジェクトを解放してみてはどうでしょうか
？
> それでもだめでしたら、TImage自体を動的生成するようにしてみるとか…

最初はその方法を考えたのですが、
メモリから開放するのは簡単に出来たんですけど
動的生成がうまいこと出来なくて
とりあえず別の方法を試してみたら
TForm.Canvasでうまくいったので
そちらのほうは追求してません。
だれか動的生成の詳しい方法を教えてくれたら
その先を実験してここにレポートします。

> >でも TImage を使うことをまるっきり諦めなければならないので
> >汎用性やプログラムの構築に関する生産性が悪くなりそうです。
> >まあどちらにせよほとんどTBitmapで表示するための画像を作成してるので
> >僕自身は大して困らなさそうです。
>
> 　バッファリングをしないあるいは自分でするのでしたら、
> TPaintBoxが使えるかも…

今のところTForm.Canvasだと少し馬鹿っぽいので
TPaintBoxを使っています。
ただTForm.CanvasとTPainBox.Canvasに共通する欠点として
フォームが他のアプリケーションのウインドウに隠されたときなどの
フォームの自動描画が行われないことがあります。
仕方がないのでOnPaintイベントに以下のコードを書き込んでいるのですが
これだと画面に表示するのは常に同じ画像変数でなければならないという
不便が生じます。

var
Bitmap:TBitmap

procedure TForm1.PaintBox1Paint(Sender: TObject);
begin
    Paintbox1.Canvas.Draw(0,0,Bitmap);
end;

> >> Windowsの描画は、DC（デバイスコンテキスト）を使って
> >> 行われるのが普通です。
> >> Delphiからでも、DC関連のAPIは直接操作できますので
> >> Cを無理に使う必要はありません。　
> >
> >APIを使うと２～３倍くらい早くなるような感じがしますが
> >目にもとまらぬ速さで結局ウェイトを入れるので意味なしでした。
> >APIを直接操作することになれていないので
> >Delphiのコードを使うことにします。
>
> 　そのＶＣＬの自動化の部分がオーバーヘッドになりますから、
> 小さいビットマップをたくさん扱ったりとかの処理だと確かに差が
> 出ますね…　でも大きいビットマップの場合はそれ自体のデーター
> 転送に時間がかかりますので差が全然出ませんでした。
> 　場合によっては遅いかもしれませんが、いろいろ自動化されているのは
> 魅力的ですよね。ＭＦＣ何かは素のAPIに近いみたいですから面倒くさそう
> ですよ…
> （将来はlunix版なんかも出るらしいですし…　そうなればマイナーから
> 一気にグローバルですし（＾＾；；）

当初APIを直接呼んだときに早くなったように感じたのは
どうも気のせいだったような気がしてきました。
ただ
TImage.Canvas.Draw(0,0,Bitmap);と
TPaintBox.Canvas.Draw(0,0,Bitmap);には
速度の差が生じているように感じます。
(TImageのほうが遅い)


一応、今回の問題点はTImageを使わないという形で
(多分)うまいこといくのではないかと思います。
C++に乗り換えようかと思ったのですが、
皆さんの話を聞くとどうもDelphiのほうが断然使いやすいようなので
当分Delphiを使いつづけます。
そのうちにPascal用のヘッダーとかが簡単に入手できる
世の中になるのではないかと期待しています。

ご意見どうもありがとうございました。
この先もいろいろと実験してみて結果をリポートします。


--
くるくるくるくるくるくるくるくるくるくるくるくる

　　　林　知紀
　　　fwhx4467@mb.infoweb.ne.jp

くるくるくるくるくるくるくるくるくるくるくるくる