くだすれDelphi（超初心者用）その18
939 ：デフォルトの名無しさん：04/10/10 01:28:13
>>931
procedure TForm1.Button1Click(Sender: TObject);
var
Rgn: HRGN;
Image1: TBitmap;
Image2: TBitmap;
begin
Image1 := TBitmap.Create;Image2 := TBitmap.Create;
try
Image1.LoadFromResourceName(HInstance,'testin.bmp');
Image2.Width := Image1.Width;Image2.Height := Image1.Height;
BeginPath(Image1.Canvas.Handle);
Image1.Canvas.Polygon([Point(50, 50), Point(100, 50),Point(100, 100), Point(50, 100)]);
EndPath(Image1.Canvas.Handle);
Rgn := PathToRegion(Image1.Canvas.Handle);
try
SelectClipRgn(Image2.Canvas.Handle, Rgn);
Image2.Canvas.CopyRect(Rect(0, 0, Image1.Width, Image1.Height),Image1.Canvas,Rect(0, 0, Image1.Width, Image1.Height));
finally
SelectClipRgn(Image2.Canvas.Handle,0);
DeleteObject(Rgn);
end;
Image2.Picture.SaveToFile('testout.BMP');
finally
Image1.Free;
Image2.Free;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
Rgn: HRGN;
Image1: TBitmap;
Image2: TBitmap;
begin
Image1 := TBitmap.Create;Image2 := TBitmap.Create;
try
Image1.LoadFromResourceName(HInstance,'testin.bmp');
Image2.Width := Image1.Width;Image2.Height := Image1.Height;
BeginPath(Image1.Canvas.Handle);
Image1.Canvas.Polygon([Point(50, 50), Point(100, 50),Point(100, 100), Point(50, 100)]);
EndPath(Image1.Canvas.Handle);
Rgn := PathToRegion(Image1.Canvas.Handle);
try
SelectClipRgn(Image2.Canvas.Handle, Rgn);
Image2.Canvas.CopyRect(Rect(0, 0, Image1.Width, Image1.Height),Image1.Canvas,Rect(0, 0, Image1.Width, Image1.Height));
finally
SelectClipRgn(Image2.Canvas.Handle,0);
DeleteObject(Rgn);
end;
Image2.Picture.SaveToFile('testout.BMP');
finally
Image1.Free;
Image2.Free;
end;
end;
940 ：デフォルトの名無しさん：04/10/10 01:35:42
942 ：デフォルトの名無しさん：04/10/10 01:48:26
.Picture消せ
943 ：デフォルトの名無しさん：04/10/10 02:18:45
939 です。
× Image2.Picture.SaveToFile('testout.BMP');
○ Image2.SaveToFile('testout.BMP');
× Image2.Picture.SaveToFile('testout.BMP');
○ Image2.SaveToFile('testout.BMP');
944 ：デフォルトの名無しさん：04/10/10 02:19:52
名前を bmp1 bmp2 とかにするといいものを Image1 とかにするから面倒なことに・・・・
945 ：デフォルトの名無しさん：04/10/10 03:31:36
「実行すると止まる」とはコンパイルエラーの事だったのか。
946 ：デフォルトの名無しさん：04/10/10 04:30:54
多次元配列
A: array[0..2, 1..3] of Integer;
で、
High(?) = 2 を求めるには?にどう書けば良いのでしょう？
High(A[0]) = 3 ですし。
A: array[0..2, 1..3] of Integer;
で、
High(?) = 2 を求めるには?にどう書けば良いのでしょう？
High(A[0]) = 3 ですし。
947 ：デフォルトの名無しさん：04/10/10 06:04:05
High(A)
できました。 ありがとうございます。
ついでに
A: array[0..1, 2..3, 4..5] of Integer;
で、4, 5を求める場合は
Low(A[0, 2])
High(A[0, 2])
でした。
ついでに
A: array[0..1, 2..3, 4..5] of Integer;
で、4, 5を求める場合は
Low(A[0, 2])
High(A[0, 2])
でした。
949 ：デフォルトの名無しさん：04/10/10 09:14:48
他人デバッグ
950 ：デフォルトの名無しさん：04/10/10 13:49:09
文章を読み上げる機能をつけたいんですが、コンポーネント
とか無いんでしょうか。
マイクロソフトのエンジンを使うとして、
メモに貼り付けた日本語を読んでくれるだけでいいんですが・・。
どなたか分るかた居ないでしょうか
とか無いんでしょうか。
マイクロソフトのエンジンを使うとして、
メモに貼り付けた日本語を読んでくれるだけでいいんですが・・。
どなたか分るかた居ないでしょうか
951 ：デフォルトの名無しさん：04/10/10 13:51:15
MSのって英語だけじゃなかったっけ？
IBMからSDK付で出てたような。
IBMからSDK付で出てたような。
952 ：デフォルトの名無しさん：04/10/10 13:58:34
上でComponentStateを教えてもらった者ですが、また新たな問題が・・
PageControlのコンポを作っていて、設計時に固定のTabSheetを動的に生成しています。
その処理はCreateWndメソッドをオーバーライドして、
if csDesigning in ComponentState thenの中で記述しています。
これでポトペタ時にはTabSheetもちゃんと表示され、実行時には作成されずちゃんと動作
するのですが、いったんフレームに貼り付けて設計し、そのフレームをフォームに貼り付けよう
とすると、「コンポーネント名TabSheetはすでに使われています」のようなメッセージがでて、
うまく動作しません・・・。
こんな場合にはどうすればいいんでしょう・・・・。どなたか教えてください！
PageControlのコンポを作っていて、設計時に固定のTabSheetを動的に生成しています。
その処理はCreateWndメソッドをオーバーライドして、
if csDesigning in ComponentState thenの中で記述しています。
これでポトペタ時にはTabSheetもちゃんと表示され、実行時には作成されずちゃんと動作
するのですが、いったんフレームに貼り付けて設計し、そのフレームをフォームに貼り付けよう
とすると、「コンポーネント名TabSheetはすでに使われています」のようなメッセージがでて、
うまく動作しません・・・。
こんな場合にはどうすればいいんでしょう・・・・。どなたか教えてください！
953 ：950：04/10/10 14:02:09
いろいろ試したら、やっとできました。
回答くださった方々、ありがとうございました
もう１つお願いします・・・・
BM(Tbitmap)の座標(100,100)にある点の色が何色か知るにはどうしたら良いのですか？
とりあえず黒かどうか判定するに
Canvas.Draw(0, 0, BM);
if Canvas.Pixels[300, 300] = clBlack then hantei := 0
という文を書いたのですが・・
黒ならhanteiの値を0にしてその後の処理を分岐しようかと
でもうまく行きません。何がまずいのでしょう？
Drawとかしなくても直接BMのある点の色を知る方法とか無いですか？
ヘルプを見てるのですが、「色を知る」 という情報が検索できません
「色を知る」が検索かけてそっくりそのまま出るとは思いませんが
回答くださった方々、ありがとうございました
もう１つお願いします・・・・
BM(Tbitmap)の座標(100,100)にある点の色が何色か知るにはどうしたら良いのですか？
とりあえず黒かどうか判定するに
Canvas.Draw(0, 0, BM);
if Canvas.Pixels[300, 300] = clBlack then hantei := 0
という文を書いたのですが・・
黒ならhanteiの値を0にしてその後の処理を分岐しようかと
でもうまく行きません。何がまずいのでしょう？
Drawとかしなくても直接BMのある点の色を知る方法とか無いですか？
ヘルプを見てるのですが、「色を知る」 という情報が検索できません
「色を知る」が検索かけてそっくりそのまま出るとは思いませんが
955 ：デフォルトの名無しさん：04/10/10 16:12:22
ここのまねをしたら、できました。
http://homepage1.nifty.com/MADIA/delphi/Win32API/getcolorcount.htm
一行文の色値を読み込んでから、その中から目的の座標の色を探すみたいですが
直に目的の座標の色を知る方法てないんでしょうか？
>>955
すみません、座標打ち間違いです。
http://homepage1.nifty.com/MADIA/delphi/Win32API/getcolorcount.htm
一行文の色値を読み込んでから、その中から目的の座標の色を探すみたいですが
直に目的の座標の色を知る方法てないんでしょうか？
>>955
すみません、座標打ち間違いです。
957 ：デフォルトの名無しさん：04/10/10 16:31:10
>>954
hanteiをhentaiと読み間違えたよ。それだけだけど。
hanteiをhentaiと読み間違えたよ。それだけだけど。
958 ：デフォルトの名無しさん：04/10/10 16:36:52
if BM.Canvas.Pixels[
959 ：デフォルトの名無しさん：04/10/10 20:12:13
DBGridに表示するデータについてなのですが、
データが0の時は'XP'、1の時は'Me'と表示するようなことをしたいのですが、
どうすればいいのでしょうか？
それと>>914で質問しました、DBGridのデータ再取得でいまだに悩んでおります。
DBGridでデータ一覧を表示＞別画面に移ってデータ改変＞またDBGridに戻る
といったような画面ハンドリングの場合、みなさんはどうやってDBGridのデータを再取得しているのでしょうか？
DBの種類や接続方法によって違うのでしょうが、参考に教えていただければうれしいです。
データが0の時は'XP'、1の時は'Me'と表示するようなことをしたいのですが、
どうすればいいのでしょうか？
それと>>914で質問しました、DBGridのデータ再取得でいまだに悩んでおります。
DBGridでデータ一覧を表示＞別画面に移ってデータ改変＞またDBGridに戻る
といったような画面ハンドリングの場合、みなさんはどうやってDBGridのデータを再取得しているのでしょうか？
DBの種類や接続方法によって違うのでしょうが、参考に教えていただければうれしいです。
960 ：デフォルトの名無しさん：04/10/10 22:06:09
チャット＆ファイル転送を兼ね備えたものを作っているのですが、
何故かローカルじゃないと接続できません。
どういった間違いがあるとこういう事が起こるのでしょうか？
例えば自分のプライベートIPを入れて接続しようとしても接続できません。
何故かローカルじゃないと接続できません。
どういった間違いがあるとこういう事が起こるのでしょうか？
例えば自分のプライベートIPを入れて接続しようとしても接続できません。
961 ：デフォルトの名無しさん：04/10/10 22:23:57
9割方DNSかデフォルトゲートウェイの設定が不良
962 ：デフォルトの名無しさん：04/10/10 22:43:33
またネットワークの基礎知識の無い奴が
ネットワークアプリ作ろうってのかい？
ネットワークアプリ作ろうってのかい？
963 ：デフォルトの名無しさん：04/10/10 22:52:08
>>950
MSのエンジン使いたいみたいだけど、
日本語にも対応するようになったんだな。
自分は以前、テレフォニー関係のツールで
合成エンジンが必要になって、MSのも
調べたが、当時は日本語ができなくて
結局、OKIのSmarttalkを使った。
OKIのはActiveXだから、Delでも簡単に実装できた。
MSのエンジン使いたいみたいだけど、
日本語にも対応するようになったんだな。
自分は以前、テレフォニー関係のツールで
合成エンジンが必要になって、MSのも
調べたが、当時は日本語ができなくて
結局、OKIのSmarttalkを使った。
OKIのはActiveXだから、Delでも簡単に実装できた。
964 ：デフォルトの名無しさん：04/10/10 23:31:02
965 ：デフォルトの名無しさん：04/10/10 23:41:37
おおおっっぱい♪ いもうとのおっぱい
みくろなおっぱい 洗濯かごの中
いっぱいオッパイの残り香イエエエエエ！
ダンシングしながらはいてみたよ！イエエエエエ
おっぱいみたいな肉まん当てたら疑似餌なおっぱい
アンダー60 トップ80 （笑い）
そんなミクロのオッパイ光恵ｋてやる是イエエエエエ
みくろなおっぱい 洗濯かごの中
いっぱいオッパイの残り香イエエエエエ！
ダンシングしながらはいてみたよ！イエエエエエ
おっぱいみたいな肉まん当てたら疑似餌なおっぱい
アンダー60 トップ80 （笑い）
そんなミクロのオッパイ光恵ｋてやる是イエエエエエ
966 ：デフォルトの名無しさん：04/10/11 00:11:10
引数がキーと文字列でレジストリ値を加えたり
削除したりするソースを公開しているホームページを
知りませんか？
プログラムだけでもいいんですけど｡
削除したりするソースを公開しているホームページを
知りませんか？
プログラムだけでもいいんですけど｡
967 ：デフォルトの名無しさん：04/10/11 00:15:44
reg.exew
968 ：デフォルトの名無しさん：04/10/11 00:20:14
>>966
TRegIniFileかTRegistryで検索しろ
TRegIniFileかTRegistryで検索しろ
969 ：デフォルトの名無しさん：04/10/11 07:42:17
970 ：デフォルトの名無しさん：04/10/11 09:17:54
>>969
DBGridの表示内容改変はできないのですね。了解しました。
トランザクション再接続とは具体的にはどうすればいいのでしょうか。
再取得方法として、以下の方法で再接続してみたのですが、
ADOQuery.Active := False;
ADOQuery.Active := True;
DBGrid.Refresh;
でも
DataSource.DataSet.Close;
DataSource.DataSet.Open;
DBGrid.Refresh;
でもだめなのです。
だめというか、同じ処理を2〜4回やると再取得できているというのが現状です。
なぜ一回ではダメで複数回で反応するのかがまったくの謎なのです。。。
DBGridの表示内容改変はできないのですね。了解しました。
トランザクション再接続とは具体的にはどうすればいいのでしょうか。
再取得方法として、以下の方法で再接続してみたのですが、
ADOQuery.Active := False;
ADOQuery.Active := True;
DBGrid.Refresh;
でも
DataSource.DataSet.Close;
DataSource.DataSet.Open;
DBGrid.Refresh;
でもだめなのです。
だめというか、同じ処理を2〜4回やると再取得できているというのが現状です。
なぜ一回ではダメで複数回で反応するのかがまったくの謎なのです。。。
971 ：デフォルトの名無しさん：04/10/11 09:24:17
そろそろ次スレ。
972 ：デフォルトの名無しさん：04/10/11 09:31:23
973 ：デフォルトの名無しさん：04/10/11 10:14:44
TEditorってシェアウェアなんだけど機能制限ってあるんですか？
ある程度、物になったら払ってもいいかなとは思ってますけど・・・
ある程度、物になったら払ってもいいかなとは思ってますけど・・・
974 ：デフォルトの名無しさん：04/10/11 10:49:44
>>973
なぜここで聞く・・・・
なぜここで聞く・・・・
975 ：デフォルトの名無しさん：04/10/11 10:56:37
んだな。次スレで聞けや
976 ：ななしへたぐらま ◆XcB18Bks.Y ：04/10/11 18:32:07
>>975
超初心者向けスレッドでそういうボケをかますと本気にされそうですね．
念のために書いておくと>>974氏の意図は
「TEditorのおひさるページで調べるなり，作者に直接問い合わせるなりすればよいのに
なぜわざわざここで尋ねるのか？」
ということだと思われます．
超初心者向けスレッドでそういうボケをかますと本気にされそうですね．
念のために書いておくと>>974氏の意図は
「TEditorのおひさるページで調べるなり，作者に直接問い合わせるなりすればよいのに
なぜわざわざここで尋ねるのか？」
ということだと思われます．
977 ：デフォルトの名無しさん：04/10/11 21:27:30
すみません。TWebBrowser について詳しいサイトを教えてください。
日本語でも英語でもかまいません。よろしくお願いします。
日本語でも英語でもかまいません。よろしくお願いします。
978 ：デフォルトの名無しさん：04/10/11 23:22:44
>>977
ここで聞くより、検索した方が早いと思うが。
http://www.google.co.jp/search?q=TWebBrowser&hl=ja&oe=Shift_JIS&inlang=ja&lr=lang_ja&sa=X&oi=lrtip7
http://www.google.co.jp/search?q=TWebBrowser+%83T%83%93%83v%83%8B&hl=ja&inlang=ja&ie=Shift_JIS&oe=Shift_JIS
ここで聞くより、検索した方が早いと思うが。
http://www.google.co.jp/search?q=TWebBrowser&hl=ja&oe=Shift_JIS&inlang=ja&lr=lang_ja&sa=X&oi=lrtip7
http://www.google.co.jp/search?q=TWebBrowser+%83T%83%93%83v%83%8B&hl=ja&inlang=ja&ie=Shift_JIS&oe=Shift_JIS
979 ：デフォルトの名無しさん：04/10/11 23:30:22
980 ：デフォルトの名無しさん：04/10/12 00:12:51
>>970
ゴメン、ＡＤＯ使ってないのにレスしてしまった。
参考までにＩＢの場合で書くと、
DataSetをPostしてもトランザクションをコミットしないと実際にはＤＢに
書込まれないので、他のクライアントからは更新されてないように見える。
任意にサーバーのＤＢ更新したいならコミット処理を書く。
たぶん同じケースなんだと思うけど、ＡＤＯ知らないので詳細は不明。
ゴメン、ＡＤＯ使ってないのにレスしてしまった。
参考までにＩＢの場合で書くと、
DataSetをPostしてもトランザクションをコミットしないと実際にはＤＢに
書込まれないので、他のクライアントからは更新されてないように見える。
任意にサーバーのＤＢ更新したいならコミット処理を書く。
たぶん同じケースなんだと思うけど、ＡＤＯ知らないので詳細は不明。
981 ：デフォルトの名無しさん：04/10/12 00:34:13
perlで言うところのSpriteの様なライブラリのdelphi版はないでしょうか？
機能的にはSQLのサブセットを使ってテキストファイルに入出力を行うものです．
機能的にはSQLのサブセットを使ってテキストファイルに入出力を行うものです．
982 ：デフォルトの名無しさん：04/10/12 10:51:48
すれ違いですがお願いします。
WinXPでCD-ROMやリムーバブルドライブにメディアを挿入した時に
ドライブ内のファイルによって自動再生プログラムを選択する
ダイアログが表示されますが、その中に自作プログラムを入れたいのですが
どうすればよいでしょうか？
具体的には、デジカメのメモリーカードを挿した時に自動でHDDに取り込む
プログラムを作っています。
WinXPでCD-ROMやリムーバブルドライブにメディアを挿入した時に
ドライブ内のファイルによって自動再生プログラムを選択する
ダイアログが表示されますが、その中に自作プログラムを入れたいのですが
どうすればよいでしょうか？
具体的には、デジカメのメモリーカードを挿した時に自動でHDDに取り込む
プログラムを作っています。
983 ：デフォルトの名無しさん：04/10/12 20:22:30
自動起動するＣＤをエクスプローラで開き、autorun.infというファイルの中身を見れ。
もしくは"autorun.inf"でぐぐれ。
もしくは"autorun.inf"でぐぐれ。
984 ：デフォルトの名無しさん：04/10/12 22:53:27
そういうこっちゃねーだろ
985 ：デフォルトの名無しさん：04/10/12 23:04:40
>>983
オレもそう答えそうになって踏みとどまったのだよ
オレもそう答えそうになって踏みとどまったのだよ
986 ：デフォルトの名無しさん：04/10/12 23:10:36
987 ：デフォルトの名無しさん：04/10/12 23:54:12
＞すれ違いですがお願いします。
図々しい。
図々しい。