くだすれDelphi(超初心者用)その49

1 名前：デフォルトの名無しさん [2009/02/22(日) 22:10:29 ] Delphi(デルファイ)について、他のスレッドでは書き込めない超低レベル、 もしくは質問者自身何が何だか分からない質問を 勇気を持って書き込むスレッドです。 Delphi使いが優しくコメントを返しますが お礼はDelphiの布教と初心者の救済をお願いします。 <前スレ> くだすれDelphi(超初心者用)その48 pc11.2ch.net/test/read.cgi/tech/1225641040/ <過去スレ> DelWiki避難所（Delphi 関連の過去スレッド） delwiki.info/?%E3%83%AA%E3%83%B3%E3%82%AF%2F%E3%82%B3%E3%83%9F%E3%83%A5%E3%83%8B%E3%83%86%E3%82%A3%2FDelphi%20%E9%96%A2%E9%80%A3%E3%81%AE%E9%81%8E%E5%8E%BB%E3%82%B9%E3%83%AC%E3%83%83%E3%83%89 175 名前：デフォルトの名無しさん mailto:sage [2009/03/26(木) 23:08:33 ] はいはい破綻した破綻した ところで Extend Delphi Components Without the Need to Install in the IDE - Delphi Interceptor Classes ttp://delphi.about.com/od/delphitips2009/qt/interceptor.htm こんな手法はどうよ？ 176 名前：デフォルトの名無しさん mailto:sage [2009/03/26(木) 23:37:33 ] それTMemoでCtrl+A押した時に全選択とかの時にしか使ったことねーな 177 名前：デフォルトの名無しさん mailto:sage [2009/03/27(金) 01:25:50 ] えーと Delphi7Lite ってキーワードで調べてみなさい 178 名前：デフォルトの名無しさん mailto:sage [2009/03/27(金) 04:41:13 ] >>177 違法なもの勧めてんじゃねーよ厨房 179 名前：デフォルトの名無しさん mailto:sage [2009/03/27(金) 11:30:50 ] >>175 日本でもちょっと前に紹介されてるね ttp://twc.xrea.jp/20080116/ 知ってる人は普通にやってるテクニックだとは思うけど 180 名前：|Дﾟ彡 ◆A6VzDeLphI mailto:sage [2009/03/28(土) 00:54:36 ] すばらしいテクですな。 181 名前：デフォルトの名無しさん mailto:sage [2009/03/28(土) 01:03:05 ] 〜Exと拡張していたコンポをそれでリプレースしたい誘惑に駆られるな・・・ フサは日常的に置き換えちゃったりしてる？ 182 名前：|Дﾟ彡 ◆A6VzDeLphI mailto:sage [2009/03/28(土) 11:00:35 ] 時々。 コンポインストールは最近は使わない。 複数のDelphiバージョンつかっていたりして 面倒だし。 コンポインストールしないほうが楽かと。 183 名前：デフォルトの名無しさん mailto:sage [2009/03/28(土) 11:08:13 ] それじゃ Delphi 使う意味何所にあるのかしら。 184 名前：デフォルトの名無しさん mailto:sage [2009/03/28(土) 11:16:56 ] コンポインストールするとIDE重くなるしな 185 名前：デフォルトの名無しさん mailto:sage [2009/03/28(土) 11:20:50 ] インストールするけど使わなきゃ起動時間にも影響でないよ。 使いたいときに、プロジェクトオプションで有効にするだけですむ 186 名前：デフォルトの名無しさん mailto:sage [2009/03/28(土) 12:05:01 ] パレットにロードする時間が増えるから影響がないことはないっしょ 187 名前：デフォルトの名無しさん mailto:sage [2009/03/28(土) 16:05:47 ] それで遅くなるような PC / Video カードなら窓から投げ捨てな 188 名前：デフォルトの名無しさん mailto:sage [2009/03/28(土) 17:12:00 ] 俺が拾ってやるから 189 名前：デフォルトの名無しさん mailto:sage [2009/03/29(日) 23:12:03 ] IDEとコンポーネントが癒着しすぎてるのは確かだな。 プロジェクトごとにインストール出来るような仕組みが欲しい所。 現状一応チェックボックスで選べるようになってるけどもうちょっと進めて。 190 名前：デフォルトの名無しさん mailto:sage [2009/03/30(月) 10:02:08 ] パッケージ化しなくても、プロジェクト内のソースファイルからプロジェクト限定でパレットに登録できるようになればなぁ 191 名前：デフォルトの名無しさん mailto:sage [2009/03/31(火) 20:10:16 ] プロジェクト全体で定数を共有したいんだが方法ありますか？ 192 名前：デフォルトの名無しさん mailto:sage [2009/03/31(火) 20:33:18 ] uAppCommon.pas をusesしてるな 193 名前：デフォルトの名無しさん mailto:sage [2009/03/31(火) 22:07:30 ] おれもそんな感じ 194 名前：デフォルトの名無しさん mailto:sage [2009/04/02(木) 13:20:34 ] ファイルから読み込みたいお年頃 195 名前：デフォルトの名無しさん mailto:sage [2009/04/02(木) 15:52:23 ] 2つ質問したいことがあります。 ・Indyについて質問 homepage3.nifty.com/KENCH/open/indy/delphi_indy.htm このサイトの通りにIndyをインストールしようとしたのですが、 「開くメニューから読み込んで以下の順番でインストールします」 と書いてあるのですが、インストールとは何をすればいいのでしょうか？ 一応コンパイルかと思い、順番にコンパイルしてみたのですが、画像のようにIndyのアイコンがでてきません。 ・プログレスバーについて質問 ウェブブラウザを作っているのですが、プログレスバーの記述の仕方がわかりません。 IEのようにページを表示してる最中に進度をプログレスバーにしたいのですがどのように記述すればいいのでしょうか。 WindowsXP SP3 Delphi6 Personal お願いします。 196 名前：デフォルトの名無しさん mailto:sage [2009/04/02(木) 18:37:31 ] ttp://d.hatena.ne.jp/dayflower/20070926/1190787926 197 名前： ◆XcB18Bks.Y mailto:sage [2009/04/02(木) 19:19:30 ] 最近全然書き込みがないなぁと思ったら板移転していたのですね。 （お気に入りからだと移転に気づかない罠でした） 198 名前：デフォルトの名無しさん mailto:sage [2009/04/02(木) 20:36:55 ] マウスがフォームから出たらフラグを立てるというのはどうすればいいんでしょうか OnMouseMoveではフォーム上でしかイベントが起きませんし 199 名前：デフォルトの名無しさん mailto:sage [2009/04/02(木) 21:22:13 ] CM_MOUSEENTER CM_MOUSELEAVE メッセージが飛ぶからそれを捕まえる。 Delphi CM_MOUSEENTER で検索するとサンプルが出てくるよ。 200 名前：デフォルトの名無しさん mailto:sage [2009/04/02(木) 21:38:03 ] 回答ありがとうございます さっきまさにその方法で解決した所だったんですが今度はフォームの外でマウスボタンを放したイベントをキャッチできないか悩み中です やりたいことは、えーとお絵かきソフトの消しゴムみたいな物で、クリック中に発動 操作中にカーソルがフォームの外に出てまた戻ってきてもボタンを押したままならそのまま作業できるが、 ボタンをどこかで離したら、無効になる というものです 乱暴に操作するとカーソルがフォームの外に出ちゃう事もあると思うんですがそれでいちいちボタンを押しなおすのが面倒だと思うので 201 名前：デフォルトの名無しさん mailto:sage [2009/04/02(木) 22:04:07 ] MouseCaptureでできますた スレ汚しすみませｎ 202 名前：デフォルトの名無しさん mailto:sage [2009/04/02(木) 22:45:28 ] delphi自体のツールバーでも使われてるようなアイコンって、何処にありますか？ ネットで検索しててdelphiインストール時に一緒にインストールされると見たのですが、場所が分からずImageListに追加出来ません。 使用しているのはDelphi6です。 203 名前：デフォルトの名無しさん mailto:sage [2009/04/02(木) 22:52:19 ] C:\Program Files\Common Files\Borland Shared\Images\Buttons にあるけど古臭すぎて使い物にならない。 Visual C# Express入れるとProgram Files\Common Files\MSなんちゃら にそこそこモダンなビットマップが詰まってるよ。 204 名前：デフォルトの名無しさん mailto:sage [2009/04/02(木) 23:30:58 ] >>203 それってVC以外でコンパイルする物に使って良いの？ 205 名前：デフォルトの名無しさん mailto:sage [2009/04/02(木) 23:44:59 ] >>203 入れてみましたが見当たりませんでした。。。 「Program Files\Common Files\MSなんちゃら」というフォルダが見当たりません。 Pro版にはzipでアイコンが固めてあるという情報をグーグル先生が教えてくれたので、そっちを当たってみます。 206 名前：デフォルトの名無しさん mailto:sage [2009/04/02(木) 23:51:17 ] \Common7\VS2005ImageLibrary\VS2005ImageLibrary.zip でそ 207 名前：デフォルトの名無しさん [2009/04/03(金) 03:05:58 ] SQLiteのラッパー、Simple Delphi Wrapperについての質問です。 ttp://www.itwriting.com/blog/a-simple-delphi-wrapper-for-sqlite-3 下記の様にして、テーブルのインスタンスを作るとします。 　sqlTb := sqlDb.GetTable( 'SELECT * FROM hoge' ); この時、sqlTbのテーブルにある「カラム（列）の数」が知りたいのですが、 どうすればいいでしょうか？ ちなみにsqlTbには、まんまColCountというプロパティがあるのですが、 何故か、値は常に'0'です。 Delphi 2009です。よろしくお願いします。 208 名前：デフォルトの名無しさん [2009/04/03(金) 03:39:59 ] 2009+indy10のsmtpを使用してメ−るを送信すると、 空白メール届くのです。 ２００５でコンパイルしたものは正常に送信できるのですが、 教えていただけませんか 209 名前：デフォルトの名無しさん mailto:sage [2009/04/03(金) 03:48:50 ] 普通に文字コード絡みの問題だと思うが 210 名前：207 mailto:sage [2009/04/03(金) 03:54:51 ] すみません、自己解決しました。 colcountはCarginal型なのですが、表示の際にハマっていただけでした… 211 名前：デフォルトの名無しさん mailto:sage [2009/04/03(金) 05:59:39 ] すいません、言語ではなくこのソフトに関する質問なんですが 左下にある（初期レイアウトでは）プロパティの中の設定する値が記述されてる部分のフォントの色って変えること出来ますか？ ターボ、ｘｐです。よろしくお願いします。 212 名前：デフォルトの名無しさん mailto:sage [2009/04/03(金) 07:15:27 ] できません。 213 名前：デフォルトの名無しさん mailto:sage [2009/04/03(金) 09:53:53 ] なんでBooleanは8ビットも使ってしまうん？(´・ω・｀) 214 名前：デフォルトの名無しさん mailto:sage [2009/04/03(金) 09:58:22 ] パソコンのしくみ 215 名前：デフォルトの名無しさん mailto:sage [2009/04/03(金) 14:55:57 ] 8つのbooleanが詰まった1バイトのbooleans型を定義するといいよ。 216 名前：デフォルトの名無しさん mailto:sage [2009/04/03(金) 15:20:02 ] 2009のサンプルコンポーネントが相変わらす古いものしか入っていないんですが、 使えるShellListViewって何処にありますか？ 217 名前：デフォルトの名無しさん mailto:sage [2009/04/03(金) 18:56:04 ] 指定フォルダ内のファイル数を、サブフォルダ内のファイルも含めて取得したいです。 hoge -test1 hogehoge -test2 -test3 というようなフォルダ構造の場合、3を得たいという事です。 何か簡単な方法は無いものでしょうか。 FindFirstとFindNextでやろうとすると、サブフォルダ内の処理をする時に対象フォルダが移動する為、 FindNextで親フォルダを正しく検索する事ができません。 218 名前：デフォルトの名無しさん mailto:sage [2009/04/03(金) 19:26:54 ] はいはい再帰再帰 俺は太ってるから書けないけどね 219 名前：217 mailto:sage [2009/04/03(金) 19:48:16 ] FindFirstでフォルダを列挙して、それをFileListBoxに突っ込んでCountを足す事でファイルカウントにしました。 再帰は良く分かりませんが、動くので取り敢えず上記ので実装しますorz 220 名前：デフォルトの名無しさん mailto:sage [2009/04/03(金) 21:53:05 ] >219 つ ttp://www.google.co.jp/search?q=delphi+findfirst+%E5%86%8D%E5%B8%B0&sourceid=navclient-ff&ie=UTF-8&rlz=1B3GGGL_ja___JP225 221 名前：デフォルトの名無しさん mailto:sage [2009/04/04(土) 22:40:14 ] ttp://ja.uncyclopedia.info/wiki/%E5%86%8D%E5%B8%B0 222 名前： ◆XcB18Bks.Y mailto:sage [2009/04/06(月) 19:11:33 ] >>199 Turbo Delphi Explorerとか最近のバージョンだと OnMouseLeaveイベントが実装されていますね。 最初は知らなかったので今までのように 自分でメッセージに応答するコードを書き終わってから見つけて涙目でした。 223 名前：デフォルトの名無しさん mailto:sage [2009/04/07(火) 09:32:11 ] Delphi7でFirebirdのクライアントアプリケーションを開発してましたが、 この度Delphi2009にバージョンアップしました。以前のソースを一部修正して コンパイルは出来たのですが、実行すると一部文字列フィールドでサイズ不一致のエラーがでます。 データはVARCHAR(8)のSJIS_0208の項目に半角英数字で10文字セットされた行でエラーが出ていますが 対処法がわかりません。テーブルのデータ構造をVARCHAR(16)に再構築すればいけるかと思いますが、 できればテーブルはそのまま使いたいのですが、無理でしょうか？ 224 名前：デフォルトの名無しさん mailto:sage [2009/04/07(火) 20:45:23 ] 　　　　∧__∧ 　　　　(´･ω･) 　　無理どす 　　　　ﾊ∨/^ヽ 　　　ﾉ::[三ﾉ　:.､ 　　 i)､_;|*く;　　ﾉ 　　　　 |!: ::.".T~ 　　　　 ﾊ､___| """~""""""~"""~"""~" 225 名前：デフォルトの名無しさん mailto:sage [2009/04/08(水) 13:07:58 ] TMenuItemに複数のShortCutを設定するにはどうすればいいでしょうか？ 226 名前：デフォルトの名無しさん mailto:sage [2009/04/08(水) 13:55:40 ] パーテーションなどディスク上のデータを直接読みたいのですがどうすればいいでしょうか？ Delphi3です。10年くらいブランクがあるのでほとんど忘れてしまったorz 低レベルなアクセスだとやっぱりAPIを駆使でしょうか？ Delphi側で手軽に扱える便利な手続きが用意されてると有り難いのですが。。。 詳細はググりますんで、検索キーワードだけでもご紹介くださいませ 227 名前：デフォルトの名無しさん mailto:sage [2009/04/08(水) 14:07:16 ] >>225 TActionList&TActionだとセカンダリを指定できる。 MenuItemよりAction使っといた方が全体的に便利だよ。 228 名前：デフォルトの名無しさん mailto:sage [2009/04/08(水) 15:01:38 ] >226 それはWin32APIスレにいったほうがいいような。Delphiで簡単に、という性質のものではない。 あとOS(2000/XP/Vista)によってもプログラミングに違いがあると思う。UACとか。 229 名前：226 mailto:sage [2009/04/08(水) 15:31:34 ] >>228 やっぱりAPIですか。誘導してくださってありがとうございます。 230 名前：デフォルトの名無しさん mailto:sage [2009/04/08(水) 16:52:16 ] >>227 Actionは使ったこと無かったので思いつきませんでした ありがとうございます 231 名前：デフォルトの名無しさん mailto:sage [2009/04/08(水) 23:11:02 ] 今DDEのヘルプを読んでるんですが、 サーバーからデータA、データB 、データCを取得したいときって DDEクライアントを3つ置かないといけないですか? 232 名前：デフォルトの名無しさん mailto:sage [2009/04/09(木) 04:57:24 ] 統合アーカイバコンポーネント ってもうどこにもないですかねぇ…？ ググったけどDelphian Worldは閉鎖されてるし… 233 名前：デフォルトの名無しさん mailto:sage [2009/04/09(木) 10:09:28 ] >>232 www.geocities.jp/norg1964/delphianworld/data/mi/cmarc150.lzh 234 名前：デフォルトの名無しさん mailto:sage [2009/04/09(木) 16:06:29 ] >>233 ありがとうございます。 235 名前：デフォルトの名無しさん mailto:sage [2009/04/10(金) 12:28:12 ] 質問です。 ToolBarコンポーネント上にボタンを複数配置し、 実行中にボタンのVisibleプロパティを変更した場合、 ボタン新規作成でToolButtonを配置していた場合は 自動的にVisibleがFalseになったボタンより右のボタンは 自動的に左詰めしてくれるのですが、 SpeedButtonを配置していた場合、 VisibleをFalseにしたボタンの部分が空いてしまい、 それより右のボタンが左詰されません。 （設計時にVisibleをFalseにして実行した場合は左詰してくれますが） SpeedButtonでも自動的に左詰してくれるようになる プロパティとかはないでしょうか。 Delphi4を使用しています。 236 名前：デフォルトの名無しさん mailto:sage [2009/04/10(金) 12:32:25 ] if Visible then Width := 32 else Width := 0; 237 名前：デフォルトの名無しさん mailto:sage [2009/04/10(金) 13:07:43 ] CombBoxってタブオーダー無視する? タブストップはTrueにしてるんだけど次のやつにいっちゃう。 DEL７です。 どなたかよろしく。 238 名前：デフォルトの名無しさん mailto:sage [2009/04/10(金) 13:17:56 ] >>237 まず新規アプリケーションにComboBoxを100個並べてTABキー押してみてくれ。 239 名前：デフォルトの名無しさん mailto:sage [2009/04/10(金) 16:57:20 ] 高級INIファイル程度の感じで簡単にXML読み書きするのってどうやるのが楽？ Delphi XMLで検索するとOpenXMLとかいうのがヒットするみたいだけど。 240 名前：デフォルトの名無しさん mailto:sage [2009/04/10(金) 19:07:23 ] 大人しく付属してるTXMLDocument使えばいいんじゃ。デフォルトでMicrosoftのXMLパーサー使うように なってたような。嫌なら切り替えれたような。 241 名前：デフォルトの名無しさん mailto:sage [2009/04/11(土) 23:39:00 ] >>237 今試してみたが普通にTAB移動するぞ　D2007,D5 Styleプロパティも変えてみたけどＯＫだ 新規フォームでもう一度試してみな また、そんなときはうまくいかないComboBoxを選択してCtrl+Cして エディタにでも貼り付けて違いを調べるんだ お前の言う「昆布ボックス」がカスタムコンポーネントなら知らん 242 名前：デフォルトの名無しさん mailto:sage [2009/04/12(日) 09:49:26 ] 製品版を購入するには2009だと10万弱かかるので、ためらっています。 バージョンアップ版は4万強ですが、例えばTurboをインストしていれば、 それが使えるとかの技はありませんでしょうか？それとも素直に10万弱 出すしかないのでしょうか？どうかご教示ください。 243 名前：デフォルトの名無しさん mailto:sage [2009/04/12(日) 09:55:37 ] DEL6なんだけど今時のインターフェイスのフォルダー選択コンポーネントないかな？ 244 名前：デフォルトの名無しさん mailto:sage [2009/04/12(日) 10:38:45 ] ライセンス関係は Codegear に聞いてください 電話かメールで尋ねられるとおもいます 実のところ、アップデート版のインストーラーは既存製品のインストール状況を チェックしません。純粋に、ライセンス、契約の問題です。 もっとわかりやすく言うと「アップデート版はアップデートユーザーが使うと信じてるよ」です 245 名前：デフォルトの名無しさん mailto:sage [2009/04/12(日) 12:29:59 ] んなこたーない 246 名前：デフォルトの名無しさん mailto:sage [2009/04/13(月) 09:13:16 ] >>243 今時って？こういうコンポーネントじゃなくて？ mrxray.on.coocan.jp/Delphi/plFileDialog/index.htm 247 名前：デフォルトの名無しさん mailto:sage [2009/04/13(月) 20:48:22 ] Delphi6 personalでIndyｲﾝｽｺしてIdHTTPをForm1に貼り付けると「IdBaseComponent.dcuが見つかりません」とでてコンパイルできません。 なぜでしょうか？ もしかしてDelphi6 PersonalとTurbo Delphiの両方をｲﾝｽｺしてあるからなんですかね？ 248 名前：デフォルトの名無しさん mailto:sage [2009/04/13(月) 21:49:45 ] ライブラリパスは設定したのか？ 249 名前：デフォルトの名無しさん mailto:sage [2009/04/13(月) 22:00:52 ] >>248 すいませんライブラリパスとは何ですか？ 具体的に教えてもらえると助かります；； 250 名前：デフォルトの名無しさん mailto:sage [2009/04/13(月) 22:34:31 ] ツール(T)→環境オプション(O)→ライブラリ→ディレクトリ→ライブラリパス(B) ここにIndyの入ってるディレクトリを追加する 251 名前：デフォルトの名無しさん mailto:sage [2009/04/13(月) 23:31:12 ] >>246 ﾚｽﾄﾝ 左側にマイコンピューターとかマイネットワーク とか出て、フォルダーの新規作成も出来てみたいなの が無いかなと思ったんですが、紹介してもらったのは ソースつきなんで勉強がてら改造してみます。 252 名前：デフォルトの名無しさん mailto:sage [2009/04/14(火) 00:21:16 ] dllインジェクションやりたいお 253 名前：デフォルトの名無しさん mailto:sage [2009/04/14(火) 00:29:45 ] >>251 > 左側にマイコンピューターとかマイネットワーク それってただのTOpenDialogでは？ Vista風の見た目とかなら探せばコンポ落ちてるだろうけど 254 名前：デフォルトの名無しさん mailto:sage [2009/04/14(火) 02:57:10 ] blog.toratech.net/article/25228591.html を参考に、Delphi2009にQuadruple Dをインストールしようとしてるのですが、 再構築のところでエラーが出てコンパイルが出来ません・・・ 何が悪いのか見当すら付かないんですがヒントをお願いします 255 名前：デフォルトの名無しさん mailto:sage [2009/04/14(火) 04:07:02 ] せめてエラーメッセージをおしえて 256 名前：デフォルトの名無しさん mailto:sage [2009/04/14(火) 04:13:23 ] いきなり30個くらいあったので・・・ 最初は定義の多重宣言とか言われて、とりあえず//でコメントアウトしていくと、 constの所で、(が必要な所に;があります、とか言われて もうわけわかめでした 257 名前：デフォルトの名無しさん mailto:sage [2009/04/14(火) 08:43:06 ] 解決する気がないならチラシの裏へどうぞ。 258 名前：デフォルトの名無しさん mailto:sage [2009/04/14(火) 08:49:41 ] はあ 何を根拠にそんなアオリを入れてるのか知りませんが kazina.seesaa.net/article/38725486.html ↑の通りにやっても同じ結果でしたね TurboDelphiでは問題なく実行出来ましたが 259 名前：デフォルトの名無しさん mailto:sage [2009/04/14(火) 08:58:18 ] めんどくさがらずに、エラーの最初の１０行ぐらいをコピペしてみろよ 260 名前：デフォルトの名無しさん mailto:sage [2009/04/14(火) 09:23:12 ] 何の権利があって人に命令してるんですか？ 物の頼み方を知らない人ですね。 261 名前：デフォルトの名無しさん mailto:sage [2009/04/14(火) 09:33:51 ] >>254-259 ID無いからわかりにくい。アンカーくらい付けろや！ 262 名前：デフォルトの名無しさん mailto:sage [2009/04/14(火) 09:52:03 ] わからないのなら黙っててください。 263 名前：254 mailto:sage [2009/04/14(火) 09:58:51 ] すいません、自己解決しました！ 264 名前：251 mailto:SAGE [2009/04/14(火) 10:27:47 ] >>253 そうなんですけど、OpenDialogではファイルを選ばないといけないでしょ？ 2,3フォルダーコンポ落としたんですが、フォルダーの新規作成とかが ないものばかりで。 265 名前：デフォルトの名無しさん mailto:sage [2009/04/14(火) 10:29:21 ] なんか荒らされてるのはスルーしつつ一応ログの一部貼っときます [DCC エラー] DInput.pas(803): E2004 識別子の多重定義 : 'DIACTIONFORMAT' [DCC エラー] DInput.pas(883): E2004 識別子の多重定義 : 'DICONFIGUREDEVICESPARAMS' [DCC エラー] DInput.pas(938): E2004 識別子の多重定義 : 'DIDEVICEIMAGEINFO' [DCC エラー] DInput.pas(978): E2004 識別子の多重定義 : 'DIDEVICEIMAGEINFOHEADER' [DCC エラー] DInput.pas(1076): E2029 '(' が必要な場所に ';' があります [DCC エラー] DInput.pas(1082): E2026 定数式が必要です [DCC エラー] DInput.pas(1359): E2004 識別子の多重定義 : 'DIDEVICEINSTANCE' [DCC エラー] DInput.pas(1429): E2026 定数式が必要です [DCC エラー] DInput.pas(1433): E2003 未定義の識別子 : 'IDirectInputDeviceWVtbl' [DCC エラー] DInput.pas(1551): E2029 '(' が必要な場所に ';' があります [DCC エラー] DInput.pas(1555): E2026 定数式が必要です 266 名前：デフォルトの名無しさん mailto:sage [2009/04/14(火) 18:01:06 ] >>250 ありがとうございます！ 解決しました！ 267 名前：デフォルトの名無しさん mailto:sage [2009/04/14(火) 19:04:19 ] >>264 >>246 のは新規作成できるみたいだね。でもフォルダ選択で > 左側にマイコンピューターとかマイネットワーク ってのは見たことないなあ。あったら便利な感じもするけど… もし作ったら公開してくださいね^^ 268 名前：デフォルトの名無しさん mailto:sage [2009/04/14(火) 20:24:05 ] function BrowseFolderProc(hWindow: HWND; uMsg: UINT; lParam: LPARAM;lpData: LPARAM): Integer; stdcall; var   PathName: array[0..MAX_PATH] of Char; begin   case uMsg of     BFFM_INITIALIZED:       SendMessage(hWindow,BFFM_SETSELECTION,1,integer(PChar(lpData)));     BFFM_SELCHANGED:     begin       SHGetPathFromIDList(PItemIDList(lParam),PathName);       SendMessage(hWindow,BFFM_SETSTATUSTEXT, 0,LongInt(PChar(@PathName)));     end;   end;   Result:=0; end; 269 名前：デフォルトの名無しさん mailto:sage [2009/04/14(火) 20:24:54 ] function OpenFolder(IniDir,Title:string;OwnerHandle:HWND; AddCreateFolder:Boolean;Files:Boolean=False):string; var IDList: PItemIDList; BrowseInfo: TBrowseInfo; PathName: array[0..MAX_PATH] of Char; DisplayName: array[0..MAX_PATH] of Char; const BIF_USENEWUI=$0050; begin with BrowseInfo do begin hwndOwner :=OwnerHandle; pidlRoot:=nil; pszDisplayName:=DisplayName; lpszTitle:=PChar(Title); if Files then ulFlags:=BIF_STATUSTEXT or BIF_RETURNONLYFSDIRS or BIF_BROWSEINCLUDEFILES or BIF_USENEWUI else ulFlags:=BIF_STATUSTEXT or BIF_RETURNONLYFSDIRS; if AddCreateFolder then ulFlags:=ulFlags or BIF_USENEWUI; lpfn:=BrowseFolderProc; lParam:=integer(PChar(IniDir)); end; //つづく 270 名前：デフォルトの名無しさん mailto:sage [2009/04/14(火) 20:25:50 ] IDList:=SHBrowseForFolder(BrowseInfo); if IDList=nil then begin Result:=''; exit; end; SHGetPathFromIDList(IDList,PathName); Result:=PathName; end; 271 名前：デフォルトの名無しさん mailto:sage [2009/04/15(水) 23:19:33 ] DELPHIのブラウザコンポーネント使ったら、 ブラウザ画面から目的の文字列を探すことって簡単に出来ますか? ソースをダウンロードして検索したほうが簡単ですか? 272 名前：デフォルトの名無しさん mailto:sage [2009/04/16(木) 06:06:13 ] imiwakannne 273 名前：デフォルトの名無しさん mailto:sage [2009/04/16(木) 15:30:58 ] [Delphi] WebBrowserからHTMLソースを取得する uses mshtml; Memo1.Text:= OLEVariant(WebBrowser1.Document as IHTMLDocument2).Body.InnerHTML; って話か？ 274 名前：271 mailto:sage [2009/04/16(木) 21:07:38 ] 試してないけどそういうことです。 275 名前：271 mailto:sage [2009/04/16(木) 21:08:17 ] ありがとう

---

---

[ 続きを読む ] / [ 携帯版 ]

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