プリクラもどきのようなアプリを作ることになりまして,そのため,とりあえずコンポーネントを探してきて,Delphi Super PageにあったTVideoというコンポーネントで,ビデオ入力の画面への表示はできるようになりました。
コンポーネントの機能で,クリップボードやビットマップへの書き出しが可能なので,撮影した後の処理は自力でできると思っているのですが,プリクラもどきであるので,「キャプチャーされて流れている映像の上にビットマップを重ねたい」のです。
透明色を設定してあるビットマップのフレームをメニューから選択して,撮影するときにビデオ入力を画面に表示して,その上にフレームを重ねたいということです。
しかし,コンポーネントのエリアにTImageを重ねても,何をしても,キャプチャー画面が最上位に来てしまいます。高速描画なとこなのでそうなってるのだとは思うんですが,ビットマップを重ねる方法や,その他の実現方法などありましたら教えてください。
VFWを直接いじればいいんでしょうが,VCLしか使えてないような人間なので。

開発環境は,Delphi 3.1です。今は6のPersonalを使っていますが,コンポーネントが対応していないので。
よろしくお願いします。

このQ&Aに関連する最新のQ&A

A 回答 (1件)

こんにちは、honiyonです。



 フレームを TBitmapオブジェクトに入れて、 Transparentをtrueにして下さい。
 あとは、キャプチャ画像の入っている画像オブジェクトに対して Drawしてあげるだけで出来ると思います。(多分キャプチャ画像も Bitmapでないと失敗するかも?)
例)
FrameCG.LoadFromFile('FRAME.BMP');
FrameCG.Transparent := true;
FrameCG.TransparentColor := clWhite;
CaptureCG.Canvas(0, 0, FrameCG);

 ヘルプで TBitmapオブジェクトの TransparentやTransparentColorを参照してみてください。

 参考になれば幸いです(..

この回答への補足

回答ありがとうございます。
しかしビデオキャプチャーのコンポーネントの方に,Canvasが無いと言われちゃうんです。
なんか無理そうなので,少々(というかかなり)強引にコンポーネント側のSavetoDIBでビットマップ書き出し -> Imageに読み込み,で,教えてもらったようにDrawしてます。フレームレートが10から5くらいで十分なので,速度的にもついてきていて。イベントに使うだけだしいいや。と投げてます。^^;
いろいろいじるのは,まだ出来ないので...
せめてクリップボード経由で読み込むようにはするつもりです。

どうもお手数おかけしました。m(__)m

補足日時:2001/09/27 17:45
    • good
    • 0

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

Q立教大の上重選手について

98年の夏の甲子園で松坂と延長17回を投げ合ったPL学園の上重投手が印象に残っていますが、その後立教大学へ進みました。
その上重選手が、4月から日テレのアナウンサーになると聞きました。
彼はもう野球を辞めてしまうのでしょうか?大学時代は完全試合を達成したそうですが、スカウトの目から見てプロでは通用しないと判断されたのか、また上重本人がプロ野球選手よりもアナウンサーになりたいと希望しているのか、またそれ以外の理由があるのか?
ご存知の方、教えてください。よろしくお願いします。

Aベストアンサー

No.1の方のスポニチの記事は1年前の記事です。
その後、昨年11月のドラフト会議は指名されませんでしたので、
このまま日テレに入社されることと思います。

よって、プロ入りの可能性はほとんど無いと思います。

QDelphiで後ろにあるTPanelや重ねたTImageをBitmapにしたい。

例えばPageControlで複数のTabSheetが存在するなかで
Page2に置いたTPanel上の複数のTImageを重ねてそれらに
Bitmapを読み込んだ状態で
Page1を表示した状態でPage2のTPanelをキャプチャイメージとして
得られるのでしょうか。

Page2を表示中であれば問題なく希望の動作をするのですが
現状ではPage1のつまり表示中のその座標の状態が取れてしまい
非表示の座標は取れないものなのかなと思っています。
何か方法はあるのでしょうか。

イメージ
Form
PageControl
Page1 Page2
---TPanel---
TImage1
TImage2

Page2を表示していればTPanelで希望のイメージが取れます。
Page1を表示しているとPage1の状態のイメージが取れます。

Aベストアンサー

.PaintTo メソッド (TWinControl.PaintTo) でキャプチャするとどうなるでしょう ?

Qgoing や go to の使い方 

I'm [going to go to] the movies→映画に行くつもりです

I'm [going to go] home→家に帰ります

I'm [going to] Fukui→私は福井に行く

I'm [going] shopping tomorrow→明日、買い物に行きます


going や go to の使い方がよく解りません。どなたか解りやすい説明 教えて頂きたいです。
宜しくお願い致します(>_<)

Aベストアンサー

こんにちは

be going to は 「~しそうだ」「~するつもりだ」と、近い未来の予測や、話者の意図などを表す連語です。「~」の部分、つまりto の後ろは、原則その文の動詞の原形が来ます。

つまり、I play tennis. → I'm going to play tennis.となります。


質問者様が混乱していらっしゃるのは、goが続く場合だと思います。
goが後ろに続く場合も、原則そのままgoing to go とします。

例)I go to school. → I'm going to go to school.

しかし、goが続くことに抵抗を感じるのか、後ろのto go が消えて現在進行形と同じ形にすることがあります。

例)I go to school. → I'm going (to go) to school. ()内を省略してしまう。


従って、質問者様の文章はそれぞれ、

I go to the movies. 
 →I'm going to go to the movies.
 →I'm going to the movies.

I go home.
 →I'm going to go home.
 →I'm going home.

I go to Fukui.
 →I'm going to go to Fukui.
 →I'm going to Fukui.

I go shopping.
 →I'm going to go shopping tomorrow.
 →I'm going shopping tomorrow.

と、どちらでもあらわすことができます。
現在の主にアメリカでは、be going to goの形が一般的に使われていますので、どちらかでなければならないということはないと思います。いずれにしても、近い未来や、発話者の意図を表すものだと理解すればよいと思います。

こんにちは

be going to は 「~しそうだ」「~するつもりだ」と、近い未来の予測や、話者の意図などを表す連語です。「~」の部分、つまりto の後ろは、原則その文の動詞の原形が来ます。

つまり、I play tennis. → I'm going to play tennis.となります。


質問者様が混乱していらっしゃるのは、goが続く場合だと思います。
goが後ろに続く場合も、原則そのままgoing to go とします。

例)I go to school. → I'm going to go to school.

しかし、goが続くことに抵抗を感じるのか、後ろのto go が消え...続きを読む

QTurbo Delphi .NET で VCL をスタティックリンクする方法は?

フリー版のTurbo Delphi .NET をダウンロードして勉強中です。

VCLフォームのプロジェクトを作成し、他のパソコンで動かすため、VCL for .NET をスタティックリンクしたいのですが方法が判りません。

フリー版では出来ないのでしょうか?

なお、Windowsフォームのプロジェクトなら、.NET 1.1 がインストールしたパソコンで動きます。

Aベストアンサー

【BDSで試しています。Turboでできない場合はすみません。】

下記の手順でVCL for .NETユニットをリンクしてやればよいと思います。この手順は、ヘルプの「Delphi ユニットのアプリケーションへのリンク」にあります。

(1)メニュー[表示]でプロジェクトマネージャを表示します。
(2)プロジェクトマネージャの参照先のBorland.Delphi.dllを右クリックします。
(3)「Delphiユニットにおけるリンク」をクリックしてチェックします。
(4)参照先Borland.xxxの全てについて(3)を繰り返します。

オブジェクトインスペクタを表示している場合、参照先をクリックするとアセンブリプロパティの「ユニットのリンク」でTrue/Falseがわかります。これをいじっても同等です。

コンパイルするとexeの大きさが1MB超になりました。

Qbe going to について

Be going to の形について教えてください。

http://oshiete.goo.ne.jp/qa/6863342.html
上記の質問をみて、I'm going to go shopping.=I'm going shopping.と略せるのはわかりました。
でも、I'm going to shopping.は間違いですか?(going と shoppingの間の『to』は不要なのか?)

では『今夜クラブに行くの場合』はどうでしょうか?
I'm going to go clubbing tonight.
=I'm going clubbing tonight. か I'm going to clubbing tonight. のどちらですか??

あと、この文章はどうでしょうか?
My mother is going to go to a concert next Saturday.
この文章は下記のように略せますか??
My mother is going to a concert next Saturday.

あきれてしまうような質問かもしれませんが、教えていただけると大変助かります。
よろしくお願いします。

Be going to の形について教えてください。

http://oshiete.goo.ne.jp/qa/6863342.html
上記の質問をみて、I'm going to go shopping.=I'm going shopping.と略せるのはわかりました。
でも、I'm going to shopping.は間違いですか?(going と shoppingの間の『to』は不要なのか?)

では『今夜クラブに行くの場合』はどうでしょうか?
I'm going to go clubbing tonight.
=I'm going clubbing tonight. か I'm going to clubbing tonight. のどちらですか??

あと、この文章はどうでしょうか?
My mother...続きを読む

Aベストアンサー

これ面倒くさいのが、go shoppingで一つのイディオムなんです。なので整理すると、

I am going to go shopping. = 未来形+go shopping
I am going shopping, = 進行形 + go shopping
I am going to shopping = 間違え
I am going to shopping centers = 進行形 + 地名なのでOkay

です。ぼくも書いててgoing to shoppingありだよなぁ、となりかけました。わかりにくいですが、こんな感じです。テスト目的でない限り、細かいニュアンスには今はこだわらなくていいと思いますけど。ニュアンスを要するもの、抽象的な概念などは日本語を通さず、英語のみで学ぶ段階にならないとこんがらがるだけだと思いますよ、ちょっと大きなお世話っぽいですが。

Qテキスト,TStringList,commmaText, Writeln関係でのバグ??(Delphi)

どーも。ちょっとわかる方が居たら教えていただきたいんですが、、、。

TStringListまたはWriteLn関数、commatextあたりでなにかバグは報告され
ていますでしょうか??

TStringlistから読み込んでテキストファイルに落としてやりとりをしている
のですが急におかしな動きをするようになってしまいました。
いくつかの端末にそのプログラムはインストールされていてここ半年ほどは
正常に動作していました。
急にひとつの端末だけ以前のようにテキストファイルが作れなくなってしまい
ました。
莫大な数の文字数が入っていたときにもおかしくなってしまったのですが、今
回はそのようなことは無いようです。

TStringListにて作成されたリストをコンマテキストでテキストファイル
に落としている最中に、途中で莫大な量のNULL値が入ってしまいます。
その項目の後にもまだデータはあります。
ある項目のデータの行の途中で急にNULL値。
他の端末では出ないのに、そこの端末では何度やってもその現象が出ます。
なぜ???
バグをいろいろ検索してみているのですが、見当たりませんし、、、。

もしこのようなテキスト、Tstring等でバグの情報をお持ちでしたら教えてく
ださい。

どーも。ちょっとわかる方が居たら教えていただきたいんですが、、、。

TStringListまたはWriteLn関数、commatextあたりでなにかバグは報告され
ていますでしょうか??

TStringlistから読み込んでテキストファイルに落としてやりとりをしている
のですが急におかしな動きをするようになってしまいました。
いくつかの端末にそのプログラムはインストールされていてここ半年ほどは
正常に動作していました。
急にひとつの端末だけ以前のようにテキストファイルが作れなくなってしまい
ました。
莫大...続きを読む

Aベストアンサー

こんばんは.

Delphi 5には質問のようなバグは無いようですね.
CSVデータに問題があるのではないでしょうか?たとえば,時刻や日付等をCSVに含んでいる場合,システム日付を取得するときは「地域のオプション」に左右されますよね.そうすると,予期していたフォーマットが異なるということが考えられます.
また,CommaTextはスペースを","に変更しているのでTrim関数などを使用してはどうでしょうか?

ちょっと回答になっていないかもしれませんが検討してみてください.

Qwe (wii/going to/are going) play tennis tomorrow こ

we (wii/going to/are going) play tennis tomorrow
このかっこの中に入る正しいのは何故willなのでしょうか?
going toで〜をするという意味になりますよね答えはwillだったのですがこれはgoing toでも問題ないのでしょうか??

Aベストアンサー

ジグソーパズルと一緒です。
are going to という選択肢が無いだけです。
will = be going to と覚えましょう。

Q[delphi]コンポーネントの流用について

すこし前にdelphi4と、計氏の作成した[MP3Player]という
コンポーネントを利用して簡単なMP3プレーヤーを作成しました。

最近delphi6personalがフリーになったと聞いて 
もう一度このコンポーネントを利用して作成してみようと
試みたのですが、何故かコンポーネントのインストールが
出来ませんでした。
確かに対応バージョンにdelphi6が無かったので無理な話だとは思うのですが、もしインストールできる方法をご存知の方が居られましたら是非ご教授下さい。

また、delphi6でも利用できるMP3再生コンポーネントが
ありましたらお教え頂ければ幸いです。

よろしくお願いいたします。

Aベストアンサー

こんにちは、honiyonです。

 そのコンポーネントにソースはついていますか?

 Delphi4と6では、内部仕様が結構変わっていると思います。
 ソースがついているなら、ソースを 6用に修正して使うことが出来ると思います。
 但し、ライセンスによって改変が禁じられている場合は作者に連絡して対応を待つしかないですね。

 因みに、標準でついているTMediaPlayerを使ってMP3を再生する事が出来ます。
 (Personalにもついているかは不明...)
 ついていなければ、WindowsMediaコンポーネントをインポートすれば良いです。

 参考になれば幸いです(..

Q「going」について教えてください

How is it going?
How is your golf going?
「going」はどのような意味で使われているのですか?

Aベストアンサー

こんにちは。7/31のご質問ではお返事を有難うございました。

ご質問1:
<「going」はどのような意味で使われているのですか?>

1.このgoはここでは「進行する」の意味で使われています。

2.この用法では、「物」「物事」が主語になります。
例:
How are thing going?「形勢はどうですか?」
Everything went well.「万事うまくいった」

3.Goingは進行形として使われています。従って、ご質問文は「進行の状態」=「進行がどの程度まで進んでいるか」を訊いているのです。

4.ご質問文の訳の流れは

(1)How is it going?:
(直訳)「それは、どのように、進行していますか?」
→(意訳)「(それの)調子はどう?」


(2)How is your golf going?
(直訳)「あなたのゴルフは、どのように、進行していますか?」
→(直訳)「ゴルフの調子(腕前)はどう?」

となり、それぞれ
「それうまくいってる?」
「ゴルフ上達してる?」
という意味を暗示して訊いている疑問文なのです。

以上ご参考までに。

こんにちは。7/31のご質問ではお返事を有難うございました。

ご質問1:
<「going」はどのような意味で使われているのですか?>

1.このgoはここでは「進行する」の意味で使われています。

2.この用法では、「物」「物事」が主語になります。
例:
How are thing going?「形勢はどうですか?」
Everything went well.「万事うまくいった」

3.Goingは進行形として使われています。従って、ご質問文は「進行の状態」=「進行がどの程度まで進んでいるか」を訊いているのです。

4.ご質...続きを読む

QDelphiでコンポーネントを動かす

Delphiでプログラムを組んでるものなのですが質問があります。
Buttonなどのコンポーネントをドラッグ&ドロップで動かせるようにするにはどうすればいいですか?

Aベストアンサー

Delphiで趣味で開発をしてます。直接はお答えできませんが、こちらで聞くよりも下記URLで検索した方が可能性がはるかに高いと思います。私はいつもこのページにお世話になってますしDelphiプログラマでしたらぜひ知っておくべきURLですよ。

同じページにメーリングリストの案内もありますので、MLに入会して質問するのもいいと思います。ただし、ルールとして過去ログをきちんと探してから質問することをお忘れなく。

参考URL:http://www2.big.or.jp/~osamu/Delphi/


人気Q&Aランキング

おすすめ情報