Delphi初心者のための寺子屋

1 名前：デフォルトの名無しさん mailto:sage [2005/11/23(水) 23:31:08 ] Delphi初心者が問題をコツコツと解きながらレベルアップするためのスレです。 643 名前：デフォルトの名無しさん mailto:sage [2009/06/19(金) 03:57:52 ] update 3/4は適用した？ 644 名前：デフォルトの名無しさん mailto:sage [2009/06/19(金) 04:53:37 ] >>643 エラーが出るとか言っているから入れてなさそうだよな 645 名前：デフォルトの名無しさん mailto:sage [2009/06/19(金) 11:41:58 ] >>642 そのまま見れるように直してみた。URLはそのまま 646 名前：ミ,,ﾟДﾟ彡 ◆A6VzDeLphI mailto:sage [2009/06/19(金) 12:27:46 ] 親切ですね 647 名前：デフォルトの名無しさん mailto:sage [2009/06/19(金) 13:32:54 ] >>638 ここからUpdate3を落としてインスコしてね ttp://cc.embarcadero.com/item/26921 日本語Readme ttp://edn.embarcadero.com/article/39592/ >>646 暇は世界を救う 648 名前：デフォルトの名無しさん mailto:sage [2009/06/22(月) 16:23:41 ] 楽しい。 type 　TRecHoge = record 　　X: Integer; 　　Answer: string; 　end; function Hoge(value: Integer): TRecHoge; var 　returnValue: TRecHoge; begin 　if value = 1 then begin 　　returnValue.Answer := '戻り値をセットしました。'; 　　Result := returnValue; 　end; end; procedure HogeCall; var 　buf: TRecHoge; begin 　buf := Hoge(0); 　ShowMessage(buf.Answer); 　buf := Hoge(1); 　ShowMessage(buf.Answer); 　buf := Hoge(0); 　ShowMessage(buf.Answer); end; 649 名前：デフォルトの名無しさん mailto:sage [2009/06/22(月) 16:33:49 ] Result または関数名に値を代入せずに関数の実行が終了した場合，関数の戻り値は未定義になります。 650 名前：デフォルトの名無しさん mailto:sage [2009/06/22(月) 16:46:58 ] >>649 その通りなんだけど、レコード型を戻り値にした場合はコンパイラが警告出さないんだよね。 651 名前：デフォルトの名無しさん mailto:sage [2009/06/22(月) 16:57:06 ] value=0のときの記述をするかローカル変数は前もってクリアしておく このクセを付ければどの言語に移ってもおｋ 652 名前：デフォルトの名無しさん mailto:sage [2009/06/22(月) 16:58:06 ] 日本語がおかしいやｗ ローカル変数を前もってクリアしておくというクセを付けとけばいいよと 653 名前：デフォルトの名無しさん mailto:sage [2009/06/22(月) 17:50:33 ] >>652 この場合、ローカル変数をクリアするのは解決にならないと思われ 654 名前：デフォルトの名無しさん mailto:sage [2009/06/23(火) 17:32:25 ] Windowsのフォルダ選択ダイアログって開けましたっけ？ 655 名前：デフォルトの名無しさん [2009/06/23(火) 18:31:00 ] ＞ SGet: String; ＞ if WinExec( PChar( SGet), SW_SHOW) < 31 then ＞[DCC エラー] main.pas(1314): E2010 'Char' と 'AnsiChar' には互換性がありません D2009だと何でエラーになるのですか？ 656 名前：デフォルトの名無しさん mailto:sage [2009/06/23(火) 19:49:14 ] >>664 SelectDirectory？ >>655 edn.embarcadero.com/jp/print/38791 って、ここは質問スレじゃない気がする 657 名前：デフォルトの名無しさん mailto:sage [2009/06/23(火) 21:32:38 ] ここは未来の質問に答えるスレですか？ 658 名前：654 mailto:sage [2009/06/25(木) 08:58:33 ] >>656 SelectDirectoryってWin標準じゃないですよね？ 659 名前：デフォルトの名無しさん mailto:sage [2009/06/25(木) 09:04:54 ] Delphiの関数でしょ。 660 名前：デフォルトの名無しさん mailto:sage [2009/06/25(木) 09:20:05 ] >>658 マルチ氏ね pc12.2ch.net/test/read.cgi/tech/1217575832/662-664 661 名前：デフォルトの名無しさん mailto:sage [2009/06/25(木) 12:47:10 ] >>648 しばらく触ってなかったが、俺のDel７では 　TRecHoge = record ですらエラーで受け付けん・・・？何が不正な文字列だ？ 662 名前：デフォルトの名無しさん mailto:sage [2009/06/25(木) 12:48:02 ] 全角スペースが混ざってるとかじゃないの 663 名前：デフォルトの名無しさん mailto:sage [2009/06/25(木) 15:27:32 ] うわ、インデントの前のスペースだった・・・ こんなだったっけ？ コピペでそのまま使えた気がするけどな 664 名前：デフォルトの名無しさん mailto:sage [2009/06/25(木) 18:26:52 ] 全角スペースでインデントすると手っ取り早いからね。 ＆ｎｂｓｐ；にすればコピペだけでちゃんと動く。 >>650 構造体にはフィールドの内容によってゴミのままの部分も出てくるから 全部代入するのを強制するのは無駄って話だね。 type // Win32APIでまれによくある構造体     TMyRec = record         flags: byte; // foo, bar, bazを使うかどうかを指定するビットフラグ;         foo: Integer;         bar: Char;         baz: String;     end;     　 665 名前：デフォルトの名無しさん [2009/07/10(金) 21:28:27 ] 久しぶりに Delphi2009 使ってみたけど、 Update3/4 適用済でもダメだわこれ。 666 名前：デフォルトの名無しさん mailto:sage [2009/07/11(土) 10:09:37 ] Delphi2.0使えば？ 667 名前：デフォルトの名無しさん mailto:sage [2009/07/11(土) 15:59:56 ] >>665 どこがどうだめなの？updateしようと思ってるんだけど 668 名前：デフォルトの名無しさん mailto:sage [2009/07/11(土) 21:51:37 ] お勧めは Delphi８ 669 名前：デフォルトの名無しさん mailto:sage [2009/07/11(土) 22:18:04 ] >>668 Del7だろ常考 670 名前：デフォルトの名無しさん mailto:sage [2009/07/12(日) 13:03:31 ] 結局、どうダメなのかよ。generics周りですかね 671 名前：デフォルトの名無しさん [2009/07/16(木) 08:56:16 ] F1キーを押したときの処理を書きたいのですが、 フォーム毎に書くと大変なので、 TApplicationにやらせたいと思っていますが、 できますか？ 672 名前：デフォルトの名無しさん mailto:sage [2009/07/16(木) 11:15:06 ] TAppじゃなくTMyForm/TFormEx=class(TForm)でやったら。 これに共通の処理足しまくるとめっちゃ快適になる。 で、使うときはTForm1 = class(TFormEx)とかに書き換えるだけ。 自分ならTAction継承した独自のアクションに F1のショートカット設定してそっちに振るけどな。 673 名前：デフォルトの名無しさん mailto:sage [2009/07/16(木) 11:17:29 ] なるほど、TFormExも検討してみまつ 674 名前：foi.americanprogress.org mailto:age [2009/08/17(月) 17:49:50 ] 自動焼人 ★　＝　自動保守 ◆KAWORUKOFI　＝　自動保守#K9K?_D[L 名言集　その１ 『アパッチ砲はワシが作った』 jbbs.livedoor.jp/bbs/read.cgi/internet/134/1229674638/5062 自分の管理するしたらばで借りた掲示板にて > 5062 ：自動保守 ◆AOIMAD.NZM [] ：2009/08/16(日) 00:46:29 ID:nQYgq9jg0 > そもそも、アパッチ砲っていうのは、私が指揮官になった時代に私の先輩たちが導入して > 先輩たちが命名したもの、っていうかまぁ、そういう砲は今まで存在してないから > 名前つけなくちゃいけないしｗ > > ってことで、使っているうちに広まった名前なので、それが正式名称になるんじゃないかと。 > > www.paradisearmy.com/doujin/pasok_apache.htm（俺の先輩が命名） > www.paradisearmy.com/doujin/pasok_hping.htm（俺が命名？） ※注　「アパッチ砲」の正式名称は「Apache Jmeter」で、もちろん自動焼人の先輩が作ったものではありません ---------------------------------------------- この自動焼人 ★メールマガジンの配信停止をご希望される方は qb5.2ch.net/test/read.cgi/sec2chd/1250169591/ にて自動焼人 ★までご連絡ください 675 名前：デフォルトの名無しさん mailto:sage [2009/08/21(金) 00:58:10 ] 動的配列どころかIntegerですら危険だよ。 threadvar以外のものは全部保護すべき。 676 名前：デフォルトの名無しさん [2009/09/09(水) 10:00:19 ] Del5で作ったアプリをDel2007に移行してるんだけど、 ボタンを貼り付けても、今風の角が取れたボタンになるFormと、 昔ながらの角張ったボタンになってしまうFormに分かれてしまう。 ボタンのプロパティいじっても今風にならないんだが、なぜなんだ？ 677 名前：デフォルトの名無しさん mailto:sage [2009/09/09(水) 10:59:57 ] 同じように貼ってみて 両方コピーしてメモ帳とかに張ってみたら異なるプロパティ判るんじゃないかな？ 678 名前：676 mailto:sage [2009/09/09(水) 11:28:42 ] >>677 なるほど！ 早速やってみます。 679 名前：デフォルトの名無しさん mailto:sage [2009/09/09(水) 11:32:21 ] ALT+F12使えよ。 680 名前：デフォルトの名無しさん mailto:sage [2009/09/10(木) 23:39:57 ] is演算子、as演算子は C++でいうdynamic_castとほぼ同じような物ですか？ 681 名前：デフォルトの名無しさん mailto:sage [2009/09/12(土) 03:25:53 ] 未だにD6使いのバカ野郎です。 次の環境を模索してます。 .Net ですか？ Win32ですか？ Delphi(Object Pascal)は生き残りますか？ D6から成長してない45歳、会社で唯一人のプログラマっす。 682 名前：デフォルトの名無しさん mailto:sage [2009/09/12(土) 09:03:21 ] BCB++で両方やればいいじゃん 683 名前：デフォルトの名無しさん mailto:sage [2009/09/12(土) 09:11:13 ] ＞会社で唯一　人のプログラマ 他のヤツは人じゃないのか 684 名前：デフォルトの名無しさん mailto:sage [2009/09/12(土) 10:09:25 ] ただひとりｗ 685 名前：デフォルトの名無しさん mailto:sage [2009/09/12(土) 16:51:07 ] Delphiが生き残ってると言える状況かどうかは別にして 45歳ならDelphiより自分の職業プログラマ人生の方が先に終（ｒｙ 686 名前：デフォルトの名無しさん mailto:sage [2009/09/12(土) 17:43:54 ] でも、プログラマただ一人ってよくないか？そういうところは開発メインじゃないだろうし。 いわゆる、近所のPCの便利屋さんみたいな立場。 すごい重宝がられているはずだが。 687 名前：デフォルトの名無しさん mailto:sage [2009/09/12(土) 17:44:37 ] >>681 マジレスすると.NET(C#)だろ。 688 名前：デフォルトの名無しさん mailto:sage [2009/09/13(日) 17:02:36 ] D6で事足りるならD6でいいんじゃない？ Win32で事足りるなら･･･ 自営や零細相手に細々とやってるがまだまだD7でいけそう。 用途次第、客ありきなら相手次第やね。維持＞発展ならｗ 689 名前：デフォルトの名無しさん mailto:sage [2009/09/15(火) 03:12:17 ] これだけ普及したWin32がそうそう無くなるわけないし、 Win32上でWin16がエミュレーションで動いているようにWin64上にもWin32のエミュレーションがあるから、 仮にWin64がメインストリームになったとしてもWin32で事足りる場面が多いと思う 現実的に考えるとWin64がメインになるのはまだまだ先のことだろうしWin32は安泰 690 名前：デフォルトの名無しさん mailto:sage [2009/09/16(水) 13:49:53 ] D6からD2010にすれば、ﾄﾞﾄﾈﾄ、Win32/64、カバーになるんじゃね？ さらにDelがARMプロセッサも将来サポートするとか逝ってるし、って組み込み不要なんだろｗ なら、ﾄﾞﾄﾈﾄ系なんか捨てといて、スクリプト系のウェブアプリ作れるようになった方がプラスかも。 691 名前：デフォルトの名無しさん mailto:sage [2009/09/16(水) 14:25:47 ] そこまでDelに頼ってやる必要も時間もねーなｗ 692 名前：デフォルトの名無しさん mailto:sage [2009/09/16(水) 15:04:34 ] その前に質問者はすでにDel厨ｗｗｗｗｗ 693 名前：デフォルトの名無しさん mailto:sage [2009/09/19(土) 22:20:34 ] 言語がひとつしかできないやつって終わってるね 694 名前：デフォルトの名無しさん mailto:sage [2009/09/19(土) 22:26:34 ] Delphi程度なら片手間で習得できないとお話にならない 695 名前：デフォルトの名無しさん mailto:sage [2009/09/20(日) 01:29:39 ] >>693 日本語しかまともに喋れない大半の日本人終わったな 696 名前：デフォルトの名無しさん mailto:sage [2009/09/20(日) 10:15:11 ] 日本語すらもまともに書けないねらー達はどうなる？ 697 名前：デフォルトの名無しさん mailto:sage [2009/09/20(日) 17:31:27 ] Del厨になる 698 名前：デフォルトの名無しさん [2009/09/24(木) 16:50:32 ] メインフォームじゃないウィンドウで最小化ボタンを押すと、 タスクバーに入らずデスクトップ左下にアイコン化してしまう（ためタスクバーから復帰できない）のですが、 対処方法はありますか？ 699 名前：デフォルトの名無しさん mailto:sage [2009/09/24(木) 17:40:20 ] >>698 hpcgi1.nifty.com/MADIA/DelphiBBS/wwwlng.cgi?print+200601/06010024.txt 700 名前：デフォルトの名無しさん mailto:sage [2009/09/24(木) 17:55:27 ] �d>>699 しかし、ﾋﾞﾐｮにやりたいことと違う。。。 701 名前：デフォルトの名無しさん mailto:sage [2009/09/24(木) 18:30:41 ] >>698 子窓を最小化したときにタスクバーに入れたいなら ttp://www2.big.or.jp/~osamu/Delphi/Tips/edit.cgi?file=0232.txt&rev=1.3 アプリケーションごと仕舞いたいなら ttp://delfusa.main.jp/delfusafloor/archive/www.nifty.ne.jp_forum_fdelphi/samples/01178.html 702 名前：デフォルトの名無しさん [2009/10/17(土) 23:35:42 ] delphi5の初心者です。コンボボックスで｢3｣を選択した際に、 グリットを可変させて、変数ABCを 1,1にA　1,2にB　1,3にCを グリット内に書き出したいのですが、わかりません。 どなたか、お知恵を拝借したく思います。 突然の乱入すみません。よろしくお願いします。 procedure TForm1.ComboBox1Change(Sender: TObject); var x :integer ; y :string ; lp:integer; z :string; begin z:='ABC'; x:=combobox1.ItemIndex ; y:=combobox1.Items[x]; StringGrid1.RowCount:=StrToInt(y)+1; // 項目部設定 StringGrid1.Cells[1,0] := '東京'; StringGrid1.Cells[2,0] := '大阪'; StringGrid1.Cells[3,0] := '沖縄'; for lp:=1 to strtoint(y) do begin StringGrid1.Cells[0,lp] := inttostr(lp); 703 名前：デフォルトの名無しさん mailto:sage [2009/10/20(火) 00:26:33 ] 変数ABCなんて無いじゃん 704 名前：デフォルトの名無しさん [2009/10/28(水) 14:19:49 ] Delphi6のプロジェクトをDelphi2010に移行してとりあえずコンパイルできるようにしようと思って Char→AnsiChar string→AnsiStringで置換掛けてコンパイルしてみました。 ところが実行時にStrToIntでエラーが出ます。 処理するレコードは固定長レコードなのですがある項目が全角日本語だったり半角だったりするために Ansiにしたことで変換対象のロケーションが以前と違っていることが判りました。 StrToIntの引数は固定長だしと直値で指定している箇所がたくさんあり、 全角半角を判定してとかはやりたくないのですがいい方法は無いでしょうか？ 705 名前：デフォルトの名無しさん mailto:sage [2009/10/28(水) 15:39:11 ] 何気に2005以前のユーザーは年末までに買えばアップグレード料金でとか いう戦略でアップグレードしてる奴多そうだな。 706 名前：704 [2009/10/28(水) 18:35:39 ] すいません、他スレで聞いてみるので質問を取り消します。 707 名前：デフォルトの名無しさん [2009/11/14(土) 15:36:17 ] delphi5と6（フリー版）、TURBODELPHIを使っています。 次のようなプログラムを考えています。 プログラムを起動 ↓ ファイル（群）を選択 ↓ 選択したファイル（群）をプログラムに取り込み（一つのファイルにする）パスワードをかける。 ↓ 取り込み処理終わり 復元処理 ↓ プログラムを実行、パスワードを入力 ↓ 一定回数パスワードを間違えたら、プログラムごとファイルを消去。 こういう事って可能ですか？ 取り込み処理では圧縮をしてもしなくても構いませんが、最終的に一つのファイルになるのが必須です。 708 名前：デフォルトの名無しさん mailto:sage [2009/11/14(土) 16:31:36 ] そりゃできるのは当たり前だけど、そういう動作はいかがなものかと思うが 709 名前：デフォルトの名無しさん mailto:sage [2009/11/14(土) 16:33:13 ] 第一自身を消去したところであらかじめコピーをされてたら何の意味もない 710 名前：707 [2009/11/14(土) 19:38:02 ] >>708、709 >>あらかじめコピーをされてたら何の意味もない それについては次のステップの課題なんだけど、コピーをされたら内部で「パスワード」を変更するようにする。 つまり、永久に開く事が不可能となる、というのを考えている。 >>そういう動作はいかがなものかと思うが これは、セキュリティ対策の一環としてアイデアが出たモノで、これで決定というわけではない。 ただ、試行して結果が好ましかったら本採用になる。 というわけで、いくつかある仕様の一つなので、今の段階では善し悪しが判定できない。 という事情があります。 711 名前：デフォルトの名無しさん mailto:sage [2009/11/14(土) 19:48:14 ] >>710 コピーされたかどうかが分かるぐらいなら、ソフトの不法コピー問題なんて起こらないよ 712 名前：デフォルトの名無しさん mailto:sage [2009/11/14(土) 22:09:53 ] >710 なんか根本的なところが間違ってる、とまではいわないまでも、考え違いをしているような気がする。 もういちどスタートラインに戻って考え直してみてはいかが？ 713 名前：デフォルトの名無しさん mailto:sage [2009/11/15(日) 02:54:06 ] >>710 それが可能かどうか判断が付かないレベルでは、作るのは到底無理だと思うよ 714 名前：デフォルトの名無しさん mailto:sage [2009/11/15(日) 02:56:31 ] >>711 ファイルシステムから作れば可能ではあると思うよｗ 715 名前：デフォルトの名無しさん mailto:sage [2009/11/15(日) 08:45:08 ] >>710 まず先に、OSのファイルコピーなどをフックするrootkitをインストールか動作させる必要があるなｗ 716 名前：デフォルトの名無しさん mailto:sage [2009/11/15(日) 08:47:03 ] ああでも、あらかじめコピーしたら意味ないかｗ他のOSでブートしてコピーとか、ファイル共有越しにコピーとかいくらでも方法あるな 717 名前：デフォルトの名無しさん mailto:sage [2009/11/15(日) 09:42:22 ] すべてのOSに常駐してコピーを監視するウィルスのようなソフトを作るとかｗ 718 名前：デフォルトの名無しさん [2009/11/15(日) 18:04:25 ] ６なんですが、本体が手に入ったとして、インストール番号とかは現在も取得できるのでしょうか？ 以下のURLを見ると、インストール番号などがないと使用許諾コードを取得できないようなのですが。 edn.embarcadero.com/article/33580 719 名前：デフォルトの名無しさん mailto:sage [2009/11/15(日) 18:16:41 ] 電話すればいいんだっけ？ 720 名前：デフォルトの名無しさん mailto:sage [2009/11/18(水) 22:29:21 ] www.eurus.dti.ne.jp/~yoneyama/Word/art/w_art-33.gif delphiで画像の一番上左から4番目のワードアートと似たような文字を表示したいのですが、 可能でしょうか？ win32apiのパスを使えばできそうだけど、分からないですorz 721 名前：デフォルトの名無しさん mailto:sage [2009/11/18(水) 23:36:43 ] ok 722 名前：デフォルトの名無しさん mailto:sage [2009/11/20(金) 11:01:05 ] >>720 Officeのワードアート機能を使うサンプルは見たことがあるけど 直接表示するのは知らないなあ。 723 名前：デフォルトの名無しさん mailto:sage [2009/11/20(金) 20:42:25 ] これか？ ttp://hpcgi1.nifty.com/MADIA/DelphiBBS/wwwlng.cgi?print+200904/09040002.txt 724 名前：デフォルトの名無しさん mailto:sage [2009/11/21(土) 20:56:27 ] >>723 そんな感じです！文字を変形させるのに使う計算が理解できなくて苦しんでます。 www.geocities.jp/asumaroyuumaro/program/winapi/path/flattenpath.html これを元にやってみてはいるんですが、うまくいかないorz 725 名前：デフォルトの名無しさん mailto:sage [2009/11/26(木) 17:43:14 ] までも無料版のdelfaiってあるのですか？ 726 名前：デフォルトの名無しさん mailto:sage [2009/12/01(火) 19:06:18 ] 誰かくだすれ建てないのかな 俺のホストじゃ無理だった 727 名前：デフォルトの名無しさん mailto:sage [2009/12/02(水) 00:20:06 ] >>726 俺じゃないが pc12.2ch.net/test/read.cgi/tech/1259667697/ 728 名前：デフォルトの名無しさん mailto:sage [2009/12/03(木) 17:30:13 ] デルフォイ　デルフォイ 729 名前：デフォルトの名無しさん [2009/12/05(土) 00:23:18 ] TMemorystreamの基本的な使い方を教えて下さい。 ・整数値を書き込む、読み出す ・文字列を書き込む、読み出す ・あるアドレスからあるサイズだけ読み出すってのがわかりません。 730 名前：デフォルトの名無しさん mailto:sage [2009/12/05(土) 01:53:26 ] マルチ乙 731 名前：デフォルトの名無しさん mailto:sage [2009/12/05(土) 09:00:01 ] >729 その前に派生元であるTStreamの使い方を調べるべきだ。 >730 またお前か。さっさと吊れ。 732 名前：デフォルトの名無しさん mailto:sage [2009/12/05(土) 16:02:24 ] さっさと吊れ（ｷﾘｯ だってｗ くっさｗｗ 733 名前：デフォルトの名無しさん mailto:sage [2009/12/05(土) 19:53:23 ] ｷﾓｲ 734 名前：デフォルトの名無しさん mailto:sage [2009/12/05(土) 23:01:04 ] >>732 　　　　　　 _, ._ 　　んもー ／ NMO 　　　　　（ ・ω・） 　　　　　○=｛=｝〇, 　　　　 　|:::::::::＼, ', ´ 　　　.ｗｗし ｗ`（.＠）ｗｗｗｗｗｗｗｗ 735 名前：デフォルトの名無しさん mailto:sage [2009/12/05(土) 23:57:36 ] さっさと吊れ（ｷﾘｯ だってｖ くっさｖｖ 736 名前：デフォルトの名無しさん [2009/12/07(月) 22:09:28 ] case文なんてelseifがあればいらねんじゃね 737 名前：デフォルトの名無しさん mailto:sage [2009/12/07(月) 23:14:26 ] 　　　　 /: : : : : __: :/: : ::/: : :／/: : :/l::|: : :i: :l: : :ヽ: : :丶: : 丶ヾ　　　　＿＿＿ 　　 　 /;,, : : : //::/: : 7l,;:≠-::/: : / .l::|: : :l: :|;,,;!: : :!l: : :i: : : :|: : ::､　 ／　　　　 ヽ 　　　 /ヽヽ: ://: :!:,X~::|: /;,,;,/: :／　 ﾘ!: ::/ﾉ　 l｀ヽl !: : |: : : :l: :l: ﾘ /　そ　そ　お　＼ 　　　/: : ヽヾ/: : l/::l |／|||llllヾ,､　　/ |: :/ , -==､　l＼:::|: : : :|i: |　/ 　 う　う　 前　　| .　　 /: : : //ヾ ; :|!: ｲ､||ll|||||::||　　　 ﾉノ　 ｲ|||||||ヾ､ |: ::|!: : ｲ: ::|/　 　な　思　が 　　 /: : ://: : :ヽｿ::ヽl |{ i||ll"ﾝ　　　 ´　　　i| l|||l"l　｀|: /|: : /'!/l 　 　 ん　う 　∠: : : ~: : : : : : : :丶ゝ-―-　　　　　 , 　ｰ=z_ｿ　　 |/ ﾊﾒ;, :: ::|.　　　だ　ん 　　 i|::ﾊ: : : : : : : : : : : ､ﾍﾍﾍﾍ　　　　 ､　　ﾍﾍﾍﾍﾍ /: : : : : ＼,|.　　　ろ　な 　　 |!l　|: : : : : : : : :､: ::＼　　　　､-―-,　　　　　　/ : : :丶;,,;,:ミヽ　　 う　 ら 　　　　　丶: :ﾊ､lヽ: :ヽ: : ::＼__　　｀~　"　　　　　 /: : ﾄ; lヽ）　　　ゝ 　　　　　　 ﾚ　｀|　｀､l｀､＞=ﾆ´　　　　　　　 ,　　_´ : :}　｀　　　／ 　　　　　　　　 ,,､r"^~´"''''"t-｀r､ _　　-､　´ヽノ　＼ﾉ　　　／　　　　お ・ 　　　　　　　,;'~　　_r-- ､__　　　　　~f､_>'､_　　　　　　　　 |　　で　　前 ・ 　　　　　　f~　　,;"　　　　　~"t___　　　　ﾐ､ ^'t　 　 　 　 　|　　は　　ん ・ 　　　　　 ,"　　,~　　　　　　　　　ヾ~'-､__　ﾐ_ξ丶　　　　　|　　な　　中 ・ 　　　　　;'　　,ｲ　.. 　　　　　　　　　ヽ_　　 ヾ､0ヽ丶　　　　l　　　　　　　　　/ 　　　　 （　;":: |:　:: ..　　　　　　　　　 .｀,　　 ヾ　丶 !　　　　＼＿＿＿＿／ 　　　　　;;;; :: 入:: :: :: 　 　　　l｀ｰ-､　　 ）l　　 ヾ　丶 　　　　　"~､ｿ:: :い:: :　　　　　＼_　　ノ　,　　　 ヾ　丶 738 名前：デフォルトの名無しさん mailto:sage [2009/12/07(月) 23:23:22 ] まあ、１０年ぶりにプログラム組もうとしたら、すっかり 頭の中がリセットされていたことに笑いが止まらなかった。 739 名前：デフォルトの名無しさん [2009/12/08(火) 08:17:29 ] ならデルヒなんてやめとけ 740 名前：デフォルトの名無しさん mailto:sage [2009/12/08(火) 14:12:11 ] >>739 　　　　　　＿＿＿_ 　　　　 ／　　　　　 ＼ 　　　 /|　　 _ =　　　　ﾐ 　　　彡　 -､ , ､ _,-　 ミ _ 　　 { `|　,=･ｧ = ,r･=､, |´ } 　　 ヽ{!　 '" ,　',:､ '" ,' |}ノ　　　黙れ小僧！ 　　　　|　　/`'ｰ'"ヽ-　ﾄ､ ＿＿,.-ヽ ﾉー＝-' }　/:: ＼_ : : : : : :／`ｰ､＿_ノ-'/ : : : |: :`ー : : : : く: ／:| ＼_,.-"/:: : : : |: : : : : : : ／: : :|/|:::∧ /:: : : ／: : : : : : :|: : : : :| /:く　/:: : : ;＼: : : : : : : :|: : : : :|'::::::::/: : :◎: :/: : : : 741 名前：デフォルトの名無しさん mailto:sage [2009/12/11(金) 16:05:26 ] TStringGridを継承したコンポーネントを作ってるんですが、設計の都合でVCLのGrid.pasを 改造する必要が出てきました。 今作ってるコンポーネント以外にはGrid.pasの変更を波及させたくないので、コンポーネントの プロジェクトからだけ改造したGrid.pasを参照するようにしたいんですが、うまく行きません。 ソースコード上はAlt+↑で継承元を辿っていくとちゃんと改造したGrid.pasに辿り着くんですが、 いざコンパイルを掛けるとTCustmoGridに追加した変数が認識されずエラーとなります。 こういう場合はどうしたら良いでしょうか？ 　A.諦めて継承先のコンポーネントで何とかする 　B.DELPHIが参照しているVCL本体を置き換える。 　C.改造したGrid.pasをGrid2.pasのように別名保存し、コンポーネントのプロジェクト内では 　　Grid.pasの代わりにGrid2.pasを参照する。 のような案を考えましたが、他に何か良い案が有れば宜しくお願いします。 742 名前：デフォルトの名無しさん mailto:sage [2009/12/11(金) 16:14:00 ] 修正部分だけコーディングしてあとは元のコードを使うようにできるんじゃなかったっけ？ それくらいじゃ対処できないってんならＣ案だろうけど。 743 名前：デフォルトの名無しさん mailto:sage [2009/12/11(金) 16:43:05 ] >>741 プロジェクトのフォルダに改造したGrid.pasを入れればそっちを参照するんじゃない？ その方法が開発チーム内で許されていればだけど。 744 名前：デフォルトの名無しさん mailto:sage [2009/12/12(土) 00:33:54 ] そもそもGrid.pasを改造する必要が本当にあったのか 745 名前：741 mailto:sage [2009/12/14(月) 03:56:07 ] 今作ってるプロジェクトはパッケージなんですが、通常のプロジェクトとは違って>>743の方法が使えないみたいです。 containsにGrids.pasを書くと、 「パッケージ 'vcl' はすでにユニット 'Grids' を含んでいます」 というエラーが発生してコンパイルできません。 containsに書かずにプロジェクトのソースディレクトリにGrids.pasを置くとvclパッケージ内部のGrids.pasが優先して参照されてしまいます。 継承先でどうにかする方法も模索中ですが、TCustomGridがprivateで持っているメンバーにたくさんアクセスする必要があるため難航しています。 746 名前：デフォルトの名無しさん mailto:sage [2009/12/14(月) 10:30:49 ] ひょっとして「実行時パッケージを使って構築」にチェック入れてる？ vclを外す事は許されないんだろうか。 747 名前：デフォルトの名無しさん mailto:sage [2009/12/14(月) 13:53:58 ] >>745 対象バージョンが固定ならprivateメンバーにアクセスする方法はいくらでもある まあ別にバージョン固定じゃなくてもその分分岐すればいいんだけど 748 名前：741 mailto:sage [2009/12/17(木) 19:21:57 ] >>746 チェックは入れていません。 というかチェックボックスが触れない状態です。 >>747 例えばどんな方法が有るでしょうか？ 749 名前：デフォルトの名無しさん [2009/12/17(木) 22:12:16 ] すみません。教えて下さい。 TClientDataSet が保っているデータセットを 結合して１つのDBGridに表示したいのですが、 どうすればいいでしょうか？ 宜しくお願いします。 750 名前：デフォルトの名無しさん mailto:sage [2009/12/17(木) 23:15:32 ] >>749 一方のDataSetにFieldKindがfkLookupの TFieldを用意し、他方のDataSetを参照すればいけそう。な気 がする。 やり方 つttp://docwiki.embarcadero.com/RADStudio/ja/参照項目を 定義する 751 名前：デフォルトの名無しさん mailto:sage [2009/12/17(木) 23:25:32 ] >>748 最初に確認すべきだったけど、Delphiのバージョンとエディションは？ 752 名前：デフォルトの名無しさん [2009/12/17(木) 23:45:34 ] >>750 的確なアドバイスありがとうございました。 これで眠れそうです。 753 名前：デフォルトの名無しさん mailto:sage [2009/12/18(金) 00:05:15 ] >>748 TObjectからTCustomGridまでに宣言されてるすべてのメンバー変数を抽出して、 それをレコードか何かとして宣言して、インスタンスをそのレコードでキャストすれば直接アクセスできる それぞれの変数間に詰め物もあるけど、その辺はデバッガでメモリ覗く等して一度調べればOK 多少語弊があるかもしれないけど、簡単に言えばクラスってのは継承できるレコードに過ぎないからね 他にもprivate変数をpublicにしただけのクローンクラスを作ってキャストしても同じ効果が得られる もちろん目的のprivate変数自体のオフセットが分かってればインスタンスアドレスから直接取り出した方が早いけど ただしこの説明で何やってるかピンと来なければ危険なのでやらない方がいい 754 名前：デフォルトの名無しさん mailto:sage [2009/12/19(土) 03:15:07 ] オブジェクト指向における継承の概念をしっかり理解しない人が コンポーネント改造しようだなんて１０年早い 755 名前：デフォルトの名無しさん mailto:sage [2009/12/19(土) 04:03:16 ] こういうことを書いてる人が本当に理解できてた例を見た試しがない 756 名前：デフォルトの名無しさん mailto:sage [2009/12/19(土) 04:49:30 ] ｆｔＴｉｍｅｓｔａｍｐ型が使えなくて泣いてみたりして 757 名前：デフォルトの名無しさん [2010/01/13(水) 14:25:34 ] フォルダ作成機能付きのフォルダ選択ダイアログありますか？ 758 名前：デフォルトの名無しさん mailto:sage [2010/01/13(水) 14:33:43 ] >>757 SelectDirectory（Delphi2009で確認） 759 名前：デフォルトの名無しさん [2010/01/13(水) 16:19:00 ] BDEを使わずにODBCアクセスってどうやれば良いですか？ 760 名前：デフォルトの名無しさん mailto:sage [2010/01/13(水) 20:57:58 ] がんばる 761 名前：デフォルトの名無しさん mailto:sage [2010/01/14(木) 00:03:06 ] つActiveX 762 名前：デフォルトの名無しさん mailto:sage [2010/01/14(木) 14:09:31 ] ActiveXでODBCアクセスって出来ましたっけ？ 763 名前：デフォルトの名無しさん mailto:sage [2010/01/15(金) 10:30:36 ] ADOがあるじゃない 764 名前：デフォルトの名無しさん mailto:sage [2010/03/24(水) 23:33:45 ] sites.google.com/site/delphibasics/ 765 名前：デフォルトの名無しさん mailto:sage [2010/03/27(土) 18:22:08 ] Delphi の購入で、Pro版かEnt版かで悩んでいます。 開発ターゲットは、SQLServerを使うDBアプリです。 Ent版ならSQLServerのNativeDriverが付いてきますよね。 でも、Pro版でもADOやODBC経由でSQLserverを使えるはず。 ADOやODBC経由と比較し、NativeDriveerが使えるメリットって、 何があるのでしょうか？ 766 名前：デフォルトの名無しさん mailto:sage [2010/03/27(土) 18:31:43 ] ・Delphi付属のDBコンポーネントが使える ・SQLServerの全機能をDelphiから扱える 767 名前：デフォルトの名無しさん mailto:sage [2010/03/27(土) 21:07:41 ] リモートでDBXを使える(ProはDBXをリモートで使えない)。 768 名前：デフォルトの名無しさん mailto:sage [2010/04/03(土) 18:51:03 ] >>767が、とっても重要で見落としてはいけないことを言った 769 名前：デフォルトの名無しさん mailto:sage [2010/04/07(水) 18:11:25 ] フォームのクライアント領域の一部に長方形や円を描きたいと思い、フォームのOnPaintで Self.Canvas.Brush.Color := clBlack; Self.Canvas.Rectangle(10, 10, 200, 100); のようにしました。 この描画結果をデザイン時でもに見えるようにするにはどうしたら良いでしょうか？ フォーム自体のコードではデザイン時に無反応なので無理だと判断しています。 そこで、試しにカスタムコンポーネントTDrawTestを作って constructor TDrawTest.Create(AOwner: TComponent); begin 　inherited; 　if AOwner is TForm then begin 　　FParent := TForm(AOwner); 　　FParent.OnPaint := Self.ParentDraw; 　　FParent.OnResize := Self.ParentDraw; 　end; end; procedure TDrawTest.ParentDraw(Sender: TObject); begin 　FParent.Canvas.Brush.Color := clBlack; 　FParent.Canvas.Rectangle(10, 10, 200, 100); end; のようにしてやり、このコンポーネントを対象のフォームに配置しました。 すると、デザイン時にフォームをリサイズした時に長方形が描画されたのですが、フォームを他の画面の後ろに隠して再び前に出した時など、サイズ変更が伴わない再描画処理では長方形が描画されませんでした。 処理対象のイベントを増やしていけば一応は動作するのでしょうが、根本的に方法がおかしいような気もします。 何か良い方法は無いでしょうか？ 770 名前：デフォルトの名無しさん mailto:sage [2010/04/07(水) 20:03:16 ] 新規作成→ダイアログで作ったダイアログでOKを押しても 条件によって、そのダイアログを表示し続けるにはどうしたらいいですか？ 771 名前：デフォルトの名無しさん mailto:sage [2010/04/07(水) 22:21:30 ] フォーム(ダイアログ)のOnCloseQueryでCanCloseにFalseを設定する。 772 名前：770 mailto:sage [2010/04/08(木) 10:10:55 ] トンです。 773 名前：デフォルトの名無しさん [2010/04/13(火) 17:59:42 ] IdHTTPでgetメソッド行うときってtimeout設定出来ましたっけ？ timeoutでググルと下が出てきましたがエラー一覧だった： ttp://mrxray.on.coocan.jp/Delphi/plSamples/772_Indy_HTTPGet.htm 774 名前：デフォルトの名無しさん mailto:sage [2010/04/14(水) 00:28:13 ] Indy10ならTIdHTTP.ReadTimeoutはどう？ 775 名前：773 mailto:sage [2010/04/14(水) 11:42:49 ] C++ Builder 6なので、TIdHTTP.ReadTimeoutが無いみたいです。 実際に発生しているエラーは、 Getメソッドを繰り返し行って４回目くらいに、Connection Closed Gracefully、が発生です。 どうもＰＣのスペックが悪いのか（Win7のネットブック）、時間がかかってるのが目に見えるようなのでやっぱタイムアウトかな、と思います。 776 名前：デフォルトの名無しさん mailto:sage [2010/04/14(水) 13:54:12 ] Gracefullyの意味を辞書で調べてくるといいと思うよ＾＾ 777 名前：773 mailto:sage [2010/04/14(水) 13:58:30 ] ＞ttp://hpcgi1.nifty.com/MADIA/DelphiBBS/wwwlng.cgi?print+200512/05120092.txt （FTPですが）にも書いてあるように、 VCLコントロールが内部から投げてる例外って意味ですが、 やっぱ、その場合にもエラー処理を行うのが対処みたいで、 正常終了ということでは無さそうです。 実際、 ＞Connection Closed Gracefully が発生しているのは、 何十〜何百台あるＰＣの１、２台だけっぽいです。 778 名前：デフォルトの名無しさん mailto:sage [2010/04/14(水) 20:08:50 ] ネットワークものは素人の推測でどうこうするのではなく、まずはWiresharkでパケットをキャプれ。 話はそれからだ。 TIdHTTP.ReadTimeoutはIndy9にもある。というかあんまり古いバージョンはお勧めしない。 C++Builder6ならIndy9まではあげたほうがいい。 779 名前：デフォルトの名無しさん mailto:sage [2010/04/14(水) 21:32:31 ] >>775 Connection Closed Gracefullyがでるときは大抵POSTミスやら通信ミスってるだけだろ 780 名前：デフォルトの名無しさん mailto:sage [2010/04/14(水) 22:24:20 ] Connection Closed Gracefully自体には悪い意味はなくGracefull shutdown(ttp://msdn.microsoft.com/en-us/library/ms738547%28VS.85%29.aspx) のことだろ？たぶん。Gracefullな手順踏んで正常にコネクションが切断されただけだろ。 タイムアウトじゃねぇかな。 781 名前：デフォルトの名無しさん mailto:sage [2010/04/14(水) 22:33:06 ] うそ書いた。正常にコネクション切断されたなら、タイムアウトすると矛盾するな。 すまそ。 782 名前：デフォルトの名無しさん mailto:sage [2010/04/15(木) 14:24:25 ] HTTP 1.0と1.1の違い知ってる？　前者はコネクションをいちいち切る　後者はつなげたまま 783 名前：デフォルトの名無しさん mailto:sage [2010/04/16(金) 16:25:23 ] Delphi 2010に、TurboPower SysToolsをインストールしようとしています。 EDN（エンバカデロデベロッパーネットワーク）のWebページの通りにインストールしたのですが、 コンパイルエラーになってしまいます。 エラーメッセージとエラー箇所のコードを下記に示します。 対処方法を教えていただけないでしょうか？ ■エラーメッセージは次の通りです。 　[DCC エラー] StBarC.pas(1751): E2030 case 文のラベルが重複して定義されています 　[DCC 警告] StBarC.pas(1752): W1063 指定された AnsiChar 定数 (#$84) を WideChar に 　　　拡大変換した結果、情報が失われました ■エラー箇所のコードは次の通りです。 　> procedure GetACode128CDigit (c : Char; var Index : Integer; 　> var bcDigitPos : Integer); 　> var 　> J : Integer; 　> 　> begin 　> case (c) of 　> #130 : bcDigits[bcDigitPos + 1] := 98; {rest are manufactured characters} 　> #131 : bcDigits[bcDigitPos + 1] := 97;　　＜− ★ここで上記のコンパイルエラーになります★ 784 名前：デフォルトの名無しさん mailto:sage [2010/04/16(金) 19:05:28 ] AnsiChar(c) 785 名前：デフォルトの名無しさん mailto:sage [2010/04/16(金) 21:21:42 ] >>784 ありがとう。やってみます。 Delphi2010+TurboPowerSysToolsのインストール解説ページにソースコードの 変更が必要など書いてなかったです。 必要なら書いてほしいなぁ・・・ 786 名前：デフォルトの名無しさん mailto:sage [2010/04/24(土) 06:25:15 ] >>783 Delphi 2010に、TurboPower SysToolsをインストールするＨＰって、 　edn.embarcadero.com/article/40498 だよな。 公式ページに掲載されてる情報なんだから、コード修正なんて不要だと思うのだが。 787 名前：デフォルトの名無しさん mailto:sage [2010/04/24(土) 13:21:27 ] やってみてから言えよ屑 788 名前：デフォルトの名無しさん mailto:sage [2010/04/25(日) 04:57:24 ] やってみました。 確かに StBarC.pas の数箇所で変更が必要です。 修正箇所は、こんな感じ。 修正前：　Case c : 修正後：　Case AnsiChar(c) : 修正前： if c in [...] 修正後：if CharInSet(c, [...]) >>787へ 批判するだけで建設的な意見を書き込めない「無能者」は、 どんな社会でも受け入れられないでしょう。 幸いにも受け入れられる社会を見つけても、そこはキミと同じ無能者 の巣窟だろうね。 789 名前：デフォルトの名無しさん mailto:sage [2010/04/25(日) 07:31:19 ] マジになんなよ 790 名前：デフォルトの名無しさん mailto:sage [2010/04/26(月) 03:45:29 ] >>788 公式だからと鵜呑みにしたのは無能じゃないの？ 馬鹿なの？ 791 名前：デフォルトの名無しさん mailto:sage [2010/04/26(月) 15:14:30 ] >>788 見当違いの>>786みたいなレスも社会では受け入れられないよね、無能の屑さん＾＾ 792 名前：デフォルトの名無しさん mailto:sage [2010/04/27(火) 20:09:24 ] デルフィアン！ 793 名前：デフォルトの名無しさん mailto:sage [2010/04/28(水) 21:01:59 ] スペル・デルフィン 794 名前：デフォルトの名無しさん mailto:sage [2010/05/10(月) 19:51:14 ] delphi使っている人って、 独法などで研究やっている人が多いんだよね？ちがう？ 795 名前：デフォルトの名無しさん mailto:sage [2010/05/11(火) 00:03:18 ] ちがうね 796 名前：デフォルトの名無しさん mailto:sage [2010/05/14(金) 12:00:40 ] おじゃまします、IDE上で、コード上の大文字/小文字の区別をさせる、何かしらの設定みたいなものって無いんでしょうか とりあえずヘルプなど当たってみましたが、見つけることができませんでした 例えばMessageBoxとmessageBoxを区別したい(表記が統一されていなければわかるようにしたい)のですが… 797 名前：デフォルトの名無しさん mailto:sage [2010/05/14(金) 12:04:26 ] >>796 何したいのかよくわかんないけど、検索のオプションには大小区別のオプションはあるよ。 798 名前：デフォルトの名無しさん mailto:sage [2010/05/14(金) 15:36:56 ] なるほど、レスありがとうございます いえ、色々な人間がコーディングしていると、人によってはMessageBoxだったり、またある人はmessageboxだったり、messageBOXだったり、まちまちになるとソースが読みにくくなるんです。 まぁ一括置換をしてやれば良いんですが、できればコーディングしている段階で、その人がわかるようにコンパイルで弾いてやれないかなと思ったんです 神経質といえば神経質ですね 799 名前：デフォルトの名無しさん mailto:sage [2010/05/15(土) 13:46:44 ] Canvasにアルミのヘアライン仕上げみたいな描画をしたいのですが、 やり方載ってるページとか無いですかね？ 検索してもPhotoshopでのやり方とかは出てくるんですがねぇ・・・ Bitmapに保存しておいて、それを貼り付ける方法も考えたのですが、 出来れば、コードで描きたいんですけど。 800 名前：デフォルトの名無しさん mailto:sage [2010/05/15(土) 18:39:30 ] >799 漏れはプログラムは組めるが絵心が無いんで Illustratorでヘアライン仕上げみたいな描画をする方法を教えてくれ。 そうしたら実現コード考えてもいい。 801 名前：デフォルトの名無しさん mailto:sage [2010/05/17(月) 11:34:05 ] タイマーをいくつも使ってイベントで処理するのと、 マルチスレッドってやつ使うのとは何が違うの？ タイマー使った方がお手軽に並列処理出来ると思ったけど 違うっぽいんで教えてくだしゃぁ 802 名前：デフォルトの名無しさん mailto:sage [2010/05/17(月) 15:24:36 ] >>800 すみません、規制で書き込みませんでした。 ttp://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1225706387?fr=shopping_search こんな感じですが。 よろしくお願いします。 803 名前：デフォルトの名無しさん mailto:sage [2010/05/17(月) 15:46:02 ] >>801 タイマーのインターバルを50msec位にして、タイマーのイベントで100msec位かかる処理を行うとどうなりますか？ また、スレッドを50msec毎に作成して100msec位かかる処理を行うとどうなりますか？ 804 名前：デフォルトの名無しさん mailto:sage [2010/05/17(月) 22:31:38 ] >801 タイマを使うってのはメインスレッドの中で処理が順次行われていくってこと。例えていうなら 中の人が5分おきに電話で起こされて仕事をしてまた寝るってのを繰り返す感じ。だから 処理は並行には行われない。それに対してスレッドのほうは中の人を5人用意してそれぞれに 仕事を割り振って一斉に(でなくてもいいけど)平行して仕事をしてもらう。でも1つしかない 資源は排他的に扱う(一度に一人だけが使用する)ようにしなければならない。 勘違いしやすいのは、タイマはタイマ割り込みではなく、指定した時間が経過したことを 示すフラグでしかない(WM_TIMERはフラグが立ったことの通知)というあたり。 805 名前：デフォルトの名無しさん mailto:sage [2010/05/17(月) 23:45:33 ] >>803,804 ありがとうございました。 すっきりしますた。 806 名前：デフォルトの名無しさん mailto:sage [2010/05/18(火) 01:06:28 ] >>802 なんかオレにも出来そうだな。 ちょっと書いてみるか。 807 名前：デフォルトの名無しさん mailto:sage [2010/05/21(金) 12:26:43 ] 複数のスレッドが並列処理されることは保証されるの？　片方のスレッドが停滞することは ありえないの？ 808 名前：デフォルトの名無しさん mailto:sage [2010/05/21(金) 12:48:02 ] >>803の答えはどうなるの？　タイマは呼び出しスタックが積み上がるイメージだけど 809 名前：デフォルトの名無しさん mailto:sage [2010/05/21(金) 13:35:27 ] >>807 マルチタスクで片方のタスクが停滞することはありえないの？ 810 名前：806 mailto:sage [2010/05/22(土) 21:35:02 ] 挫折 811 名前：デフォルトの名無しさん [2010/05/24(月) 14:48:48 ] Exeのアイコンをタスクバーでは非表示にして、 タスクバーのツールバー（？）に表示するには、 どうしたら良いのでしょう？ 812 名前：デフォルトの名無しさん mailto:sage [2010/05/24(月) 15:15:45 ] タスクトレイ？ 813 名前：デフォルトの名無しさん mailto:sage [2010/05/24(月) 15:51:40 ] その通りです！！！ タスクバーのアイコンを非表示にして、タスクトレイにアイコンを表示したいでつ。 814 名前：デフォルトの名無しさん mailto:sage [2010/05/24(月) 16:10:48 ] そうか。わかった。 815 名前：デフォルトの名無しさん [2010/05/24(月) 16:12:33 ] 教えて下さいorz 816 名前：デフォルトの名無しさん mailto:sage [2010/05/24(月) 16:23:18 ] >>815 えっと、質問何だったっけ？ 817 名前：デフォルトの名無しさん mailto:sage [2010/05/24(月) 17:19:24 ] 見つけました： ttp://kazina.seesaa.net/article/20890953.html 818 名前：デフォルトの名無しさん mailto:sage [2010/05/27(木) 11:18:13 ] Delphi 6 を最近始めました。 　シリアル通信で マイクロソフトのActiveX MSCOMM32.OCX　を使った場合 　処理の途中でポートが開いているか判別するのに if MSComm1.PortOpen = False then // クローズ状態 begin { ポートがクローズしていた場合の処理 } end　else begin { ポートがオープンしていた場合の処理 } end; とやるところを、CommX で www.moriq.com/apollo/ext/comm/Phi/CommX.html ttp://www.moriq.com/delphi/CommX106.lzh TCommX.Handleプロパティ >property Handle: THandle; >通信ハンドルの値を示します。 819 名前：デフォルトの名無しさん mailto:sage [2010/05/27(木) 11:19:16 ] -続き- >このプロパティは、拡張のために用意されています。 >また、オープンされていない状態のときは、 >必ず -1 となるので通信コンポーネントの状態を知ることもできます。 とあるので if CommX1.Handle = -1 then // クローズ状態？ begin { ポートがクローズしていた場合の処理 } end　else begin { ポートがオープンしていた場合の処理 } end; とやってもポートopen/close 関わらず片一方の処理しかできません。 ポートの開閉状態を知るのに何かコツでもあるのでしょうか？ 検索を掛けても、手動でボタンなどを操作するソースばかりでわかりません。 壮絶な勘違いをしているかもしれませんが、教えてください。 820 名前：818-819 です mailto:sage [2010/05/27(木) 17:43:42 ] 半分　自己解決です。 この場合の if CommX1.Handle = -1 then −１は Integer型「符号あり整数値」＝　−１ 　じゃなくて Cardinal(UINT)型　＝　４２９４９６７２９５ 　になるんですね・・・ 又は　１６進数で　＝　ＦＦＦＦＦＦＦＦ if CommX1.Handle = 4294967295 then if CommX1.Handle = $FFFFFFFF then で逝けました・・・ 821 名前：デフォルトの名無しさん mailto:sage [2010/05/27(木) 21:00:45 ] つ INVALID_HANDLE_VALUE 822 名前：818-819 です mailto:sage [2010/05/27(木) 22:47:47 ] >>821 (〃▽〃) おぉそのような文字列があったのですね・・・ しかし、MSCOMM32.OCX　から CommX に変えると、シリアル経由で １秒間隔毎にだらだらと送られてくる文字を足していって #13#10 で区切って文字列にし、 必用な部分を抜いて、別に送ると これまでの約５倍ほどの遅延が発生するようになってしまいました。 ttp://sourceforge.net/projects/comport/files/ TComPort に切り替えて読み込みの遅延は押さえ込めそうなのですが、 今度は>>818 の処理をさせる書式が見当たりません。 どなたか判る方、教えていただけませんでしょうか？ 823 名前：デフォルトの名無しさん mailto:sage [2010/05/27(木) 22:56:05 ] 遅延はやり方が悪いだけだろ 824 名前：デフォルトの名無しさん mailto:sage [2010/05/27(木) 23:55:38 ] >822 つ Connected 825 名前：824 mailto:sage [2010/05/28(金) 00:00:45 ] >822 あ、OnRxCharのようなデータの受信イベントで処理するのが常道だから。 826 名前：818-819 です mailto:sage [2010/05/28(金) 01:56:16 ] >>824 行けました・・とサクっと書きたかったのですが、 最初入れていたのが　TComPort component version 1.50　で、その書式だとエラー なんとか比較的新しいコンポーネントに入れなおして突破できました。 ありがとうございました。 >>825 地道に理解していきます　m(＿　＿)m 827 名前：デフォルトの名無しさん [2010/06/18(金) 14:29:38 ] BDE無しでODBC使いたいです。 828 名前：デフォルトの名無しさん mailto:sage [2010/06/18(金) 16:33:12 ] ADOは？ 829 名前：827 mailto:sage [2010/06/18(金) 17:01:15 ] �d 実は、C++ Builder 6 なんですが、ADO経由でODBC出来るんでしたっけ？ 830 名前：デフォルトの名無しさん mailto:sage [2010/06/18(金) 17:07:22 ] detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1126289866 831 名前：827 mailto:sage [2010/06/18(金) 17:09:14 ] �d とりあえず、ADOアクセス検討してみまつ。

---

---

[ 新着レスの取得/表示 (agate) ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef