モナーの *やさしい* Delphi質問スレ Ver.8
レス数が1000を超えています。これ以上書き込みはできません。
0001Delモナー
NGNG（ ´∀｀）＜. Delモナーがどんな厨房疑問でもやさしく答えます。
（ ） .| Delモナーは時に私であり、時には別の人。
｜ ｜ ｜ | 他のスレに書き込んで罵倒される前に、まずここで質問しよう。
（＿_）＿） ＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
前スレ モナーの *やさしい* Delphi質問スレ Ver.7
http://pc.2ch.net/tech/kako/1021/10212/1021262086.html
0002Delモナー
NGNGモナーの *やさしい* Delphi質問スレ Ver.6
http://pc.2ch.net/tech/kako/1019/10191/1019134412.html
モナーの *やさしい* Delphi質問スレ Ver.5
http://pc.2ch.net/tech/kako/1017/10178/1017803412.html
モナーの *やさしい* Delphi質問スレ Ver4
http://pc.2ch.net/tech/kako/1016/10164/1016467137.html
モナーの *やさしい* Delphi質問スレ Ver3
http://pc.2ch.net/tech/kako/1014/10144/1014474727.html
モナーの *やさしい* Delphi質問スレ Ver2
http://pc.2ch.net/tech/kako/1011/10116/1011649179.html
モナーの *やさしい* Delphi質問スレ
http://pc.2ch.net/tech/kako/1003/10031/1003113413.html
0003デフォルトの名無しさん
NGNG0004デフォルトの名無しさん
NGNG>>1は責任もって1000までモナー役することになるんだよ。
0005デフォルトの名無しさん
NGNG(⌒)(⌒)
彡 │ || ｜
（∧＿∧⊃
（ ・∀・）
∪ 5ｹﾞﾄ
00061
NGNG0007デフォルトの名無しさん
NGNG0008デフォルトの名無しさん
NGNG0009デフォルトの名無しさん
NGNG0010デフォルトの名無しさん
NGNG0011デフォルトの名無しさん
NGNG0012ミユキ
NGNG＿＿＿
＿|oo土土|＿ ﾁｬﾝﾄ
（ ノノノハ ○ ｱﾔﾏｯﾀﾓﾝｯ！
. ノ .ｃﾉ*ﾟ ０ﾟ）/ ﾜﾙｸﾅｲﾓﾝｯ！
くI＿\_i/
○ ＼
/~~~~~~~＼
（＿＿＿＿＿）
|＿|_|＿
(_＿ ）＿_）
0013デフォルトの名無しさん
NGNG∧＿∧ ／￣￣￣￣￣￣￣￣￣￣
（ ´∀｀）＜ 質問受け付け中モナー
（ ） ＼＿＿＿＿＿＿＿＿＿＿
｜ ｜ ｜
（＿_）＿）
0014デフォルトの名無しさん
NGNG0015デフォルトの名無しさん
NGNG0016デフォルトの名無しさん
NGNG0017デフォルトの名無しさん
NGNG,,,,,,,,,,,,,,,∧,,∧ おまいら！
～′,,,,,,,,,,ミ,,ﾟДﾟ彡 良スレあげですよ！！
UU"""" U U
0018デフォルトの名無しさん
NGNGhttp://pc3.2ch.net/test/read.cgi/tech/1022921598/l50
よって
■■■■終了■■■■
0019デフォルトの名無しさん
NGNG（ ´∀｀）＜ 再開モナー
（ ） ＼＿＿＿＿＿＿＿＿＿＿
｜ ｜ ｜
（＿_）＿）
0020デフォルトの名無しさん
NGNG0021デフォルトの名無しさん
NGNGﾏﾁｸﾀﾋﾞﾚﾀ～
☆ ﾁﾝ 〃 Λ＿Λ ／￣￣￣￣￣￣￣￣￣￣￣￣￣
ヽ ＿＿_＼（＼・∀・） ＜ >>15の回答まだ～？
＼＿／⊂ ⊂＿ ) ＼＿＿＿＿＿＿＿＿＿＿＿＿＿
／￣￣￣￣￣￣ ／|
|￣￣￣￣￣￣￣| |
0022デフォルトの名無しさん
NGNG∧＿∧ ／￣￣￣￣￣￣￣￣￣￣
（ ´∀｀）＜ 新規質問受け付け中モナー
（ ） ＼＿＿＿＿＿＿＿＿＿＿
｜ ｜ ｜
（＿_）＿）
0023デフォルトの名無しさん
NGNGfunction GetFileCreationTime(const FileName: Sttring): TDateTime;
begin
Result := GetFileCreationTime(FileName);
end;
0024デフォルトの名無しさん
NGNGFindFirst関数やFindNext関数で使う、TSearchRec構造体の中のTWin32FindData構造体の
中のどっかに格納されてるんじゃないの？
0025デフォルトの名無しさん
NGNG0026デフォルトの名無しさん
NGNG,,,,,,,,,,,,,,,∧,,∧ おまいら！
～′,,,,,,,,,,ミ,,ﾟДﾟ彡 あげですよ！！
UU"""" U U
0027voke
NGNG0028デフォルトの名無しさん
NGNG0029デフォルトの名無しさん
NGNGhttp://www.borland.com/delphi7/
0031デフォルトの名無しさん
NGNG00321
NGNGテキトーに消費しろハゲ
0033デフォルトの名無しさん
NGNG0034デフォルトの名無しさん
NGNG漏れが変わりにDelモナになってやろう
漏れも初心者だから初心者の範囲を超えた質問は相談室に行ってくれ、なｗ
0035デフォルトの名無しさん
NGNG質問がないぞ～～～～～～～～～～～～～～
0036デフォルトの名無しさん
NGNG相変わらず元気そうでなにより>>voke
0037デフォルトの名無しさん
NGNG0038デフォルトの名無しさん
NGNG0039デフォルトの名無しさん
NGNG0040デフォルトの名無しさん
NGNG0041デフォルトの名無しさん
NGNGhttp://www.borland.com/delphinet/
0042デフォルトの名無しさん
NGNG0043デフォルトの名無しさん
NGNG表紙を見て雑誌を手に取った瞬間買うのを
ヤメマシタ。
0044デフォルトの名無しさん
NGNG昔の女子高生シリーズよりはマシかと
0045デフォルトの名無しさん
NGNG0046デフォルトの名無しさん
NGNGはげどう、何だったんだろう？あれは…
0047デフォルトの名無しさん
NGNG0048デフォルトの名無しさん
NGNGあの表紙をみて買ってしまうかと思った。彼女たちは皆女子校で理系情報課で
IT教育でDelphiを教わっているのだとばかり思っていた。
ああ、Delphiプログラマーは女子高生が多いのかなぁ、これから女子高生Delphi
プログラマーが珍しくなくなるのかなぁ、いいなぁ、よし、これからはDelphiだ！
、と妙に納得した。
次に書店を尋ねた日には、無くなっていたが。
0049Delフサギコ ◆VzDeLphI
NGNG／
| ・・・・・・
|
| 妙に納得するなよ
＼＿＿＿＿＿＿＿＿＿＿＿＿＿
＿＿__
Λ,,Λ ||:::::::::::||
ミ；ﾟДﾟﾐ―||:::::::::::||―――
ミ つ二二ｌニｌ 且
|￣￣|__ﾐ―――――
`ー┬‐''
┴ ｱﾉ ﾋｮｳｼ ﾐﾃ
ｾｽｼﾞｻﾑｸ ﾅﾘﾏｽﾀ
0050デフォルトの名無しさん
NGNG0051デフォルトの名無しさん
NGNG0052デフォルトの名無しさん
NGNG0053デフォルトの名無しさん
NGNG0054デフォルトの名無しさん
NGNG0055デフォルトの名無しさん
NGNG0056デフォルトの名無しさん
NGNG0057デフォルトの名無しさん
NGNGこちらに統合しました
0058デフォルトの名無しさん
NGNGどうしたらいいのですか？
0059デフォルトの名無しさん
NGNG演算子をオーバーロードしよう
0060デフォルトの名無しさん
NGNGStringGridでオブジェクトインスペクタでカラム数を指定すると
フォーム上にはその数分のカラムが表示されるようになりますが、
実際にアクセスできる要素数はその数を超えていても、アクセスできますよね。
実際に書き込んで読み出してみると、ちゃんと書き込んだ値が入っています。
StringGridの読み書きできるカラム数や行数はオブジェクトインスペクタで
指定した（表示上の）カラム数や行数とは別と思って良いんでしょうか？
アクセスすればその分領域が勝手に確保されると思って良いのかどうか。
ＶＣＬのソースが有ればその辺はソースを見れば判るのかも知れませんが。
Personalな物で。。。
何故、そんなことを知りたいかというと、StringGridには必要なデータを全て
入れておいて、画面（グリッド上）上には一部のデータしか表示しない様に
したいという事なんですが。
判る方教えてください。
0061デフォルトの名無しさん
NGNG0062デフォルトの名無しさん
NGNG0063デフォルトの名無しさん
NGNG＞何故、そんなことを知りたいかというと、StringGridには必要なデータを全て
＞入れておいて、画面（グリッド上）上には一部のデータしか表示しない様に
＞したいという事なんですが。
できるよ。問題なし。
0064デフォルトの名無しさん
NGNGそうですか。
動作的には使えているので、ＯＫの裏がとれれば安心です。
ありがとうございました。
0065デフォルトの名無しさん
NGNG0066デフォルトの名無しさん
NGNGみんなはそういう時ってFormのCreateなどでComboBox1.ItemIndex := 0; という風にやってるんですか？
0067デフォルトの名無しさん
NGNG何かそれで問題があるのですか？
0068デフォルトの名無しさん
NGNG特に問題ないですけど、スタイルを変えた時に勝手にそうなってくれればいいのになぁと思って。
0069デフォルトの名無しさん
NGNGリスト要素を実行時に設定する場合どうするの？
0070デフォルトの名無しさん
NGNGPersonalもインストーラが作るフォルダのINFO\EXTRASフォルダに入ってる。>ZLIB
(しかしJPEG特許訴訟はDelphiにも影響でるかね～。
某が怖気づかなきゃいいけど。)
0071ＶＢ君
NGNG本気で悩んでいるので出来れば助けてください。
FormAからFormAのサブフォーム(FormA_S)を呼びだしたいんだけど、
FormAにどうやったら「君のサブフォームはFormA_Sだよ」と
教えてあげられるのですか？
また、
変数 = CurrentDB()
でカレントＤＢを変数に入れてるんだけど、カレントＤＢは
どこできまっているのですか？
0072デフォルトの名無しさん
NGNG皆さん冷静に対応しましょう。
0073デフォルトの名無しさん
NGNG0074デフォルトの名無しさん
NGNG調べたら、乳母が年をとると濁ってヴバになるんだそうな
いや、勉強になったなった
0075デフォルトの名無しさん
NGNGなんか飲んでる時に爆笑するとなる。
0076デフォルトの名無しさん
NGNGリージョンについて詳しいサイトとかあれば教えて。
0077デフォルトの名無しさん
NGNGマジですか？
>君のサブフォームはFormA_Sだよ
forms!FormA_S
そのレベルだとVBAも辛いね、N88-BASICでもやってろ
つーか、仕事でやってんなら会社辞めちまった方がいいね。
学生なら就職先はソフトウェア関係あきらめろ。
ネタだとしても、たぶんプログラマとしての能力はかなり
低レベルだとお見受けします、しかも面白くない。
0078VBA初心者
NGNG0079デフォルトの名無しさん
NGNGなんでも聞け
0080デフォルトの名無しさん
NGNG答えは/dev/nullに書きますので注意してください。
(NULに書いて欲しい場合は言ってくれ)
0081デフォルトの名無しさん
NGNG∧＿∧ ／￣￣￣￣￣￣￣￣￣￣
（ ´∀｀）＜ 新規質問受け付け中モナー
（ ） ＼＿＿＿＿＿＿＿＿＿＿
｜ ｜ ｜
（＿_）＿）
0082デフォルトの名無しさん
NGNG0084デフォルトの名無しさん
NGNGお断りします。
0085デフォルトの名無しさん
NGNG∧＿∧ ／￣￣￣￣￣￣￣￣￣￣
（ ´∀｀）＜ Delphi以外の質問も受け付け中モナー
（ ） ＼＿＿＿＿＿＿＿＿＿＿
｜ ｜ ｜
（＿_）＿）
0086デフォルトの名無しさん
NGNGんなわけない
￣￣∨￣￣￣
∧＿∧
（ ・∀・）
（ ）
｜ 某｜
（＿_）＿）
0087タイムスリッパー
NGNGヴバスレ逝け！
0088
NGNGデルファイて他言語と比べて
どのくらいのシェアなんでしょ？
大雑把でイイから教えて下さい
0089デフォルトの名無しさん
NGNG0090デフォルトの名無しさん
NGNG0091デフォルトの名無しさん
NGNG0092デフォルトの名無しさん
NGNG『みんなでモナーになろう計画!!』
http://members.tripod.com/2ch-Tools/2chDTA.zip
0093デフォルトの名無しさん
NGNGシェアを気にしてDelphiが出来るかぁ～～っ！！(怒
0094Delphi好きッ ◆0YAPhEjk
NGNG0095デフォルトの名無しさん
NGNGネタスレですから。はっはっは
0096デフォルトの名無しさん
NGNGhttp://pc3.2ch.net/test/read.cgi/tech/1027226769/l10
に近づきつつある予感。
0097デフォルトの名無しさん
NGNG0098デフォルトの名無しさん
NGNG0099デフォルトの名無しさん
NGNG（隔離版のつもりで嘆願したのによぉ～。）
0101チェキ
NGNGJavaScriptから文字列を渡したいんだけど、
どうやったらいいかわかんないの。
JavaScriptの方からは多分、
「ActiveXのID.メソッド名(文字列の入ったパラメータ)」
で渡せばいいんじゃないかなーとは思うんだけど、
肝心の呼び出される方をどう書いたらいいのかがわかんないの。
例えば「a」って入力されたら「1」を、
それ以外を入力されたら「0」を返すような
DelphiのActiveXを誰か一緒に考えてくんないかなあ。
同時に、２ちゃんらしいかっこいいメソッド名も
考えるのも手伝って欲しいかな。ヨロシクおながいしまーす。
0102デフォルトの名無しさん
NGNG「ディスパッチインターフェース型」参照しろやｺﾞﾙｧ！
0103(*゜∀゜)┛~~~
NGNG改行する方法ｷﾎﾞﾝ
0104チェキ
NGNGんー、多分これ、チェキに対するレスだよね。
だったら、さんきゅーさんきゅー。
ネカマってのはなんか気にさわるけど放っとくわ。
ていうか、私あてのレスじゃなかったら恥ずかしいなあ。
そうそう、でね、今ヘルプでその
「ディスパッチ～」見てるんだけどまるっきし意味不明。
「オートメーションコントローラは，
COM IDispatch インターフェースを使って
COM サーバーオブジェクトにアクセスするクライアントです。」？？？
なんでこやってややこしい日本語で書くんだろうね。
まあ、それはおいといて、なんか102さん出来る人っぽいから、
101のチェキの例題、一緒に考えてくんないかなあ？ お・ね・が・い。
0105デフォルトの名無しさん
NGNGsLineBreakを使うのが最善
'文字列'+sLineBreak
0106(*゜∀゜)┛~~~
NGNGありが(・∀・)㌧!!
0107デフォルトの名無しさん
NGNGどうしてそういうことが言えるんですか？
私には分かりません。
みんなあなたを盛り上げているのに。。。。
いい加減にしなさいよ。
0108デフォルトの名無しさん
NGNGんなわけない
￣￣∨￣￣￣
∧＿∧
（ ・∀・）
（ ）
｜ 某｜
（＿_）＿）
0109デフォルトの名無しさん
NGNGｄｅｌで作ったアプリから取得する方法を教えてください。
おながいします。
0110デフォルトの名無しさん
NGNGデータの入力を受け付ける会計ソフトのようなものを作ってるんですけど
Delphiでもバッファーオーバーフローの脆弱性は発生しえますか？
0111110
NGNG○TEDITコンポーネント
の間違いでした
0112デフォルトの名無しさん
NGNG0113デフォルトの名無しさん
NGNG脆弱が読めないDQNﾊｹｰﾝ
0114デフォルトの名無しさん
NGNG脆弱→ぜいじゃく
ちなみに
虚弱→きょじゃく
強健→きょうけん
0115デフォルトの名無しさん
NGNGｱﾌｫ。がいしゅつみたいなもんじゃｳﾞｫｹｪ
0116デフォルトの名無しさん
NGNG無知を認めるのが嫌で逆ギレしてるDQNﾊｹｰﾝ
0117デフォルトの名無しさん
NGNG0119デフォルトの名無しさん
NGNGバーカ(ﾌﾟ
0120デフォルトの名無しさん
NGNG0121デフォルトの名無しさん
NGNG誰も脆弱だなんて言ってないよ。
0122デフォルトの名無しさん
NGNGおもいっきりマルチポストですなぁ。
ここで冷たくされたから、あっち行ったのか？
あっちは丁寧語だが（藁
0123デフォルトの名無しさん
NGNG0124デフォルトの名無しさん
NGNG普通に言えば答えてもらえたかもしれないのにね（藁
ヲタはいいけどネカマは逝ってください。
0125デフォルトの名無しさん
NGNG色やフォントを変更する方法を教えてください。
0127デフォルトの名無しさん
NGNGhttp://crn.channelsupersearch.com/news/crn/36736.asp
0128デフォルトの名無しさん
NGNG0129デフォルトの名無しさん
NGNG検索して選択してフォント変更
0130デフォルトの名無しさん
NGNGありがとさん
0131デフォルトの名無しさん
NGNG答えがそっけない（期待してたのと違う？）と、質問は敬語で、礼はフランクだな（藁
0132デフォルトの名無しさん
NGNGどこか他にもマルチポストしてんだろうなぁ… アホだなぁ…＜チェキ）
0133デフォルトの名無しさん
NGNGちゃんとやりたきゃEditControlを作る・・・
か、他人が作ったのを使う
RichEditじゃあ使い物にならず
0134デフォルトの名無しさん
NGNG0135デフォルトの名無しさん
NGNGブラウザコンポを貼り付けなさい
0136デフォルトの名無しさん
NGNG何のブラウザ？
IE コンポーネントを使うものなら腐るほどある。コンポのっけるだけ。
Geekko エンジンを呼び出すものもある。
さすがにフルスクラッチのものは少ないが、それは C/C++ でも同じだろう。
IE/Mozila 並みの描画能力を得るにはかなりのコードを書かなければいけない。
そこまで行かなくても、表なしの HTML 程度ならいくつかソースが転がっている。
探してみそ。
0137デフォルトの名無しさん
NGNGマルチポストでした。
そーゆーことするな！カス！
何が「mie」じゃ。プログラマー初心者というより、
人として問題だっつーの。糞野郎。ハゲ。
0138デフォルトの名無しさん
NGNGレスどうもありがとうございます。
難しいことがやりたいのではなく、ブラウザみたいに実用的なものを作って勉強していくということなんです。まだ、レベル低いので。
というわけで、IEコンポーネントを使ってやってみることにします。
0139デフォルトの名無しさん
NGNGお前も負けず劣らずアホだけどな。
0142デフォルトの名無しさん
NGNG（´-`）。o ○ （アホはチェキと>>139だけ。）
0143デフォルトの名無しさん
NGNGDelphi はじめの一歩
http://delphi.sakura.vg/
Delphiやろうぜ！＠ダメ板
http://salami.2ch.net/test/read.cgi/dame/1018335057/l50
参考にどうぞ。
0144デフォルトの名無しさん
NGNG0145ネカマ、キモイ
NGNGゲラゲラゲラゲラ。
0146デフォルトの名無しさん
NGNG『*やさしい* Delphi質問スレ』なんだからOKでいいんじゃない？
そのかわり、「できます」「できません」としか答えない、とか。
0149デフォルトの名無しさん
NGNGﾈｶﾏに相当恨みがあるようだな。
過去に騙されて大恥かいたのか？ﾌﾟﾌﾟﾌﾟ
0150デフォルトの名無しさん
NGNG0151デフォルトの名無しさん
NGNGそんなことないもーん♪(*'-')
0152デフォルトの名無しさん
NGNG0153デフォルトの名無しさん
NGNG0154デフォルトの名無しさん
NGNG0155デフォルトの名無しさん
NGNG飽きた。
0156デフォルトの名無しさん
NGNG0157デフォルトの名無しさん
NGNG0158デフォルトの名無しさん
NGNG0159デフォルトの名無しさん
NGNGhttp://itpro.nikkeibp.co.jp/free/NSW/NEWS/20020807/1/print.shtml
> そんなわけで，Visual Basic .NETやVisual C# .NETのように，.NET
> クラスライブラリのコンポーネントをフォームに貼り付ける形でプロ
> グラムを作ることはできない。すなわち，.NET用のIDE（統合開発環
> 境）はなく，コマンドライン・コンパイラが付いただけである。今か
> ら研究を始めたいという人には朗報だが，今.NETアプリケーションを
> Delphiで作りたいという人にはがっかりではないだろうか。
0160デフォルトの名無しさん
NGNG0161デフォルトの名無しさん
NGNGhttp://www.zakzak.co.jp/top/top0806_3_01.html
0162デフォルトの名無しさん
NGNG0163デフォルトの名無しさん
NGNGまるで、女子中学生に手を出すといけないような言い方をするな。
0164デフォルトの名無しさん
NGNGDelphiで作成済のライブラリをエクスポートできればとりあえず十分
0165デフォルトの名無しさん
NGNGC#使った方が楽と。
0166デフォルトの名無しさん
NGNG／￣＼ ／￣￣￣￣￣￣￣￣￣
─（ ﾟ ∀ ﾟ ）＜ でるふぁいでるふぁい！
＼＿／ ＼＿＿＿＿＿＿＿＿＿
／ │ ＼
∩ ∧ ∧ ／￣￣￣￣￣￣￣￣￣￣
￣￣￣￣￣￣￣￣＼∩ ∧ ∧ ＼（ ﾟ∀ﾟ）＜ でるふぁいでるふぁいでるふぁい！
でるふぁい～～！ ＞（ ﾟ∀ﾟ ）/ ｜ / ＼＿＿＿＿＿＿＿＿＿＿
＿＿＿＿＿＿＿＿／ ｜ 〈 ｜ ｜
/ ／＼_」 / ／＼」
￣ / ／
0167デフォルトの名無しさん
NGNG0168デフォルトの名無しさん
NGNG0169デフォルトの名無しさん
NGNG\Demos\Internet\Chat
0170デフォルトの名無しさん
NGNGｳﾏｲ
0171デフォルトの名無しさん
NGNG「Ｈしていた疑い。」って、
「Ｈ」ってニュースで使われるまで、オフィシャルな俗語だったんだぁ。。
ちょっと感心した。（藁
0172デフォルトの名無しさん
NGNG「コーマン」「オマンコ」「セックス」「マンコにチンコを入れてました」
って堂々と言え！
テレビで言えないなら「Ｈ」なんて言葉でごまかすな。
0173デフォルトの名無しさん
NGNG0174デフォルトの名無しさん
NGNG0175デフォルトの名無しさん
NGNG実際にアプリを作りながら覚えるってタイプの方がいいんですけど
0176デフォルトの名無しさん
NGNGパーソナル版だからかな？
0177デフォルトの名無しさん
NGNGsetupの時に、選んでないとか？
>>175
http://delphi.sakura.vg/
0178デフォルトの名無しさん
NGNGそういうのって結構難しい。
初心者でひとくくりできるものではないしね。
プロが知識と経験を元に講座を開くことは可能だが
初心者同士で群れても勉強にはならない。
身近にある程度の知識を持った人がいるならそこに行って自分のコードを見せてみなさい。
いないときは、同程度の知識の仲間を見つけて、良いソースを一緒に分析しなさい。（要するに輪講だ。）
0179デフォルトの名無しさん
NGNG拡張子が「dcr」と「pas」ってのを手に入れてヘルプ通りにやってもダメです
0180デフォルトの名無しさん
NGNG0181デフォルトの名無しさん
NGNGみんなチャットソフトとかって作れます？
0182デフォルトの名無しさん
NGNG0183デフォルトの名無しさん
NGNG0184安請け合い
NGNGサンプル作ってあげよう。
0185デフォルトの名無しさん
NGNGとりあえず神候補に登録しときます
これはほんのつまらないものですが・・・
http://www.pp.iij4u.or.jp/~momoman/manman/main.htm
なんとかこれで・・・
0186h
NGNG〇デリバリーヘルス〇デートクラブ〇女性専用ホストクラブ〇
〇ハードＳＭ奴隷クラブ〇レズビアン倶楽部〇ホモ・オカマ倶楽部
〇変態痴女と遊ぶ会〇痴漢・覗き趣味の会〇変態同好会・各種！
●楽しく遊べます！ 090-8002-8356番
-----------美男・美女会員など多数在籍中-----------
http://www.mttdocomo.jp/
-----女性アルバイト随時募集・高収入（日払い）月100万円可能住み込みも可
-----レズビアン・スタッフ●ホモスタッフ●女性専用ホストスタッフ同募-----
http://www.mttdocomo.jp/
------------------------------------------------
0187デフォルトの名無しさん
NGNG0188デフォルトの名無しさん
NGNGｱｹﾞヽ(´ー｀)ノ
0190Delフサギコ ◆VzDeLphI
NGNG∧.,,∧ ／>>189>>175
ミ.,,ﾟДﾟ彡＜ リンク切れやいいページがあったら報告して
ﾐ つ目(ﾐ . ＼メンテしろやｺﾞﾙｧ
～ミ,,Ｏ,,,,,,つ ￣￣￣￣￣￣￣￣￣￣￣￣￣￣
http://do.sakura.ne.jp/~junkroom/cgi-bin/megabbs/readres.cgi?bo=lounge&vi=999486538
ここの ○入門 のところは全部みるといい感じ。
0191デフォルトの名無しさん
NGNGコンポーネントのインストールについてなんですが、「コンポーネント」→「コンポーネントのインストール」で
あってますよね？ でもこれでやると拡張子「.dpk」のファイルじゃないとダメです。
http://home1.infonia.ne.jp/~delphian/delphi/←にあるコンポーネントをDLしても「.dpk」のファイルは見当たりません
コンポーネントがインストールできたら便利だろうなぁっていつも思うんで、何とか教えてもらえませんか？
0192デフォルトの名無しさん
NGNG下の .dpkじゃない部分には新規の所で作りたいファイルの名前を入れたらいいよ
0193ななし
NGNGアルゴリズムとは無関係なコーディングスタイルの質問です。
(スレ違いだったら、スマソ)
(1) 予約語は、大文字、小文字のどちらが一般的なスタイルでしょうか？
VBでは、頭文字のみ大文字、その他は小文字というのが一般的(Javaでも？)
ですが、書籍等で見るDelphiのサンプルコードは、すべて小文字になっている
ようです。これは、一般的なのでしょうか？
(2) インデントは2スペース、4スペースのどちらが主流でしょうか？
書籍や雑誌では、2スペースの方が多い(Delphiに限らず、他言語でも)ですが、
これは、紙面の都合と考えられないでもない。
実際のところ、VB(A)の案件では、4スペースでやってるところが（経験的に）
圧倒的に多いのですが、Delphiではどうでしょうか？(売りモノのソースコード
を見たことがないので、判断がつかず・・・）
4スペースにすると、おなじアルゴリズムでも、begin ...... end の分だけ、
VBよりインデントが深くなるのがちょっと気になります。
(3) CやJavaでの{ ] のスタイルとおなじような話になりますが、
if ...... begin
（ifと同一行にbeginを記述）と、
if ......
begin
（改行する）または、
if ......
begin
（beginでインデントを下げる）
のどれが一般的なのでしょうか？
どれも、コーディング規約次第、と言ってしまえばそれまでですが・・・。(^^;
0194ななし
NGNG自己ツッコミ。
193の文章、インデントが汚いですね。(半角／全角スペースの混在が原因)
コーディングスタイルを語るなら、インデントをそろえなきゃダメですな。(Ｗ
0195デフォルトの名無しさん
NGNG＞(Javaでも？)
違います。
getTextlength()
ラクダ型と呼ばれます。
0196デフォルトの名無しさん
NGNG「予約語」って分かる？
0197ななし
NGNGコメント感謝。
「ラクダ型」って、どこかで眼にした記憶があります。
（大文字の部分をラクダのコブに見立ててるのでしょうか？）
ちなみに、その例なら、
getTextLenght （Lが大文字）
が正解ですよね？(自信なし)
> 違います。
えっと、メソッド／プロパティ名の頭文字は小文字で、クラス名の頭文字は
大文字・・・でしたっけ？？（うろ憶え。あまり自信なし・・・）
0198デフォルトの名無しさん
NGNG0199デフォルトの名無しさん
NGNGそれでもってんなら、VCLのソースを参考にしたらどうか
0200ななし
NGNGあ、ナルホド、それが（ある意味）一番無難ですね。
ありがとうございます。
0201デフォルトの名無しさん
NGNG質問者は相談スレへ。
0202デフォルトの名無しさん
NGNG0203デフォルトの名無しさん
NGNGデフォルトだと "マイドキュメント"になってしまいます。
厨な質問ですみませんが、よろしくお願いいたします。
0204D-chu
NGNG個人的には、
(1) 予約語はすべて小文字。
VCLも概ね小文字。たまにStringとか見かけるが。
(2)インデントは2スペース。
(3)beginは同一行に記述。
VCLでは改行されていることが多い。
漏れ的には、endがifやfor、with等と対になっているのが
読みやすい。あと、行数が減らせる（＝１画面に表示できる量が増える）。
ただ、言語使用としてはbeginを改行するのが正しいと思う。
0205204
NGNG○ 言語仕様
IMEのバカ...
0206デフォルトの名無しさん
NGNGIME=MS-IMEか？Windowsの勉強からやり直すべきだが。
0207デフォルトの名無しさん
NGNGしかもつっこむなら自分の間違いをIMEにするな、だろ。
マジレスカコ悪いか？
0208デフォルトの名無しさん
NGNGIMEにせいにするな
0209デフォルトの名無しさん
NGNG0210dcode
NGNG0211デフォルトの名無しさん
NGNGでもユーザーの名前が表示されません・・・
Edit1に例えば「taro」って入力したら会話文が表示されるmemo1の頭に常に「taro」が表示されるには
どうしたらいいんでしょうか？ 変数を使うってとこまではわかるんですが具体的にどういうコードを
書けばいいのかわかりません おながいします
0212デフォルトの名無しさん
NGNGとりあえず何かDelphiの本買ったほうが良いと思う。
たぶんEdit1をダブルクリックして、
memo1.txt := Edit1.txt
とか書けば。
txtだったかどうか忘れたけど。
0213ななし
NGNGありがとうございます。
0214203
NGNG作成したソフトと同じフォルダーにデータを保存したいです。
NT4.0だとそのままでもうまく行くのですが
Win2kだと "マイドキュメント"に・・・
どこで設定をしたら良い物なのでしょうか？
0215Delphiでも（・∀・）ｶﾝﾀﾝ!!
NGNGShowMessage(s);
ExtractFileDir()でもいいかな
0216デフォルトの名無しさん
NGNGクイックレポートで、マスターリンクレポートではない、普通の？レポートで、いくつかのグループごとにメンバーを印刷させる処理。
その「グループ」が変わったと同時に新しくページを起こしたい（COBOLでいうコントロールブレイク）をしたいんですが、どうすればいいんですか。
リアルコボラーで、デル初心者です。あれこれ書籍やヘルプを見たのですが、マスターリンクレポートの説明しか見つけられず、しかも、内容的にマスターリンクレポートでは不都合なのです。
よろしくおねがいします。
0217203
NGNGありがとうございます！うまくできました。
0218デフォルトの名無しさん
NGNG激しくｷﾎﾞｰﾝ
0219デフォルトの名無しさん
NGNG実行時にclsidを指定して読み込ませたいのですが、
Delphiではどのようにすれば良いのでしょうか？
0220デフォルトの名無しさん
NGNG0221山川
NGNGMemoコンポーネントに書いたテキストをボタンクリックで
WEB上の掲示板に投稿してくれるとゆうソフトを作ろう
と思ったのですが具体的に何をすればいいのか解りません（汗
どなたかこうゆうアプリの作り方をご存知でしたら
教えてください、よろしくお願いします（＾＾；A
http://www2.sega.co.jp/cgi-bin/kymega/kyview.cgi?k=b&dir=test
↑目的の掲示板の書き込み用ページです。
私に解るのは..
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
１、各欄用に以下のコンポーネントを用意し、
データを入力する。
名前: →Editコンポーネントのtext
メールアドレス: →Editコンポーネントのtext
確認キー : →Editコンポーネントのtext
URL: →Editコンポーネントのtext
cookieのON、OFF： →CheckBoxコンポーネントのChecked
題名 : →Editコンポーネントのtext
メッセージ : →MemoコンポーネントのLines
２、ClientSocketコンポーネントを使い、掲示板のCGIと
接続する。 そのCGIのアドレスはこちらです。
http://www2.sega.co.jp/cgi-bin/kymega/submit.cgi
（ClientSocketの使い方が良く解らないのでこのCGIに
接続する方法が解りません。 ClientSocketは
ヘルプファイルにも説明が無いんです）
３、 １、で各コンポーネントに書いたデータを送信する。
（データをどうやって加工＆送信すればいいのか
解りません)
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
このようになんとなくプログラムの手順は想像がつくん
ですが具体的にどうしたらいいのかがさっぱりです、
出来れば簡単なプログラムを作っていただけると
非常に助かります、どうかお願い致しますm(__)m
0222デフォルトの名無しさん
NGNGInternetのところに TWebBrowserというのがありますか？ あればそれを
無ければ ActiveXの取り込みから MicroSoft Internet Controlを探して それをインストールして下さい
ここまで出来たらご連絡下さい
0223222
NGNGとなると厄介だ ごめん忘れて
0224CLX使わない人
NGNGいちいちVCLかCLXか選択するのは面倒なので。
0225デフォルトの名無しさん
NGNGCLX ヘルプ参照のリンクを解除するには
0226デフォルトの名無しさん
NGNGAnsiStringだから･･･Shift-JIS以外のコードは基本的に使えないのでしょうか？
多言語対応にする必要に迫られているのですが･･･ﾄﾞｳｼﾖｳ。
0227デフォルトの名無しさん
NGNGTClientSocketは最低限のデータの送受信機能しかありあせん。
そこで、HTTP手順を実装する必要があります。
ネットでRFCを検索して自分で実装しましょう。
これが無理ならIndyというフリーのコンポーネントがあります。
たとえばヤフーのトップページを取得するには下のようになります。
with IdHTTP1 do
begin
Host := 'www.yahoo.co.jp';
Port := 80;
Memo1.Lines.Text := Get('/index.html');
end;
Indyを使えば簡単にできると思いますが、
WEB(HTTP)を理解するのが先決でしょう。
0228デフォルトの名無しさん
NGNG日本語以外にMBCSな言語があるなら、WideStringにするのが手っ取り早いと思います。
ただVCLにはWideString用のコンポや関数が非常に少ないので、どこか（主に海外）で
探してくる事になると思いますが。。。
0229デフォルトの名無しさん
NGNGhttp://www.monazilla.org/
ここの資料室と2chスレッド１～３と見て、勉強しる！
投稿する対象が２ｃｈ以外になるだけだから、
ちゃんとここの内容を理解すれば、作れるはず。
0230デフォルトの名無しさん
NGNGパラメータの型に IStream を指定できません。
どうすれば良いでしょうか？ それとも IUnknown で返すしかないんでしょうか。
厨な文章で申し訳ない。
0231よーするにソースきぼんぬ？
NGNG0232今出しても理解できるかどうか..
NGNG0233デフォルトの名無しさん
NGNGありがとうございます。
どうやら、VCLの中では特に2バイト文字を使う必要はなさそうなのですが、
他で宣言をWideStringにすれば他のコードが使えるようになるものなのでしょうか？
0234228
NGNG例えばフォームに表示したいなら、WideStringに対応したTEditもどきコンポとかがいると思う。
0235デフォルトの名無しさん
NGNGちょいと不安ですが、探してみることにします。
0236デフォルトの名無しさん
NGNGこれは一体何が原因なんでしょう？
0237デフォルトの名無しさん
NGNGたぶん、エラーメッセージそのままの意味だと思いますが。
Unit1.pasを保存してなかったとか。移動したとか。名前変更したとか。
プロジェクトファイルを違う場所にコピーして、開いたとか。
0238山川 （レスです）
NGNG私のはパーソナルです、書き忘れてしました、申し訳無いです。（汗
パーソナルでは使えない機能を使わないと厄介なんですか..
internetのところにはClientSocketとServerSocketの２つしか
ありません。(泣) 幸いなことに他の方法を書いて下さった方が
いらっしゃいましたのでそちらを参考に頑張ってみたいと思います、
即レスありがとうございました。m(__)m
>>227
socketコンポーネントだけではダメなんですか・・
HTTP手順を自分で実装しないといけないとは予想以上に
難しいんですね（汗 RFCとIndyのどちらとも勉強してみます。
情報＆サンプルソースありがとうございました。m(__)m
>>229
２ｃｈに投稿するプログラムの作り方が載ってるんですか！
大変参考になりそうです、時間をかけてみっちりと勉強しようと
思います。 情報ありがとうございました。m(__)m
>>231、232
簡単なソースをいただければあとは改造するだけなので
助かります（＾＾； 出来れば早くアプリを使いたい
ので・・ もちろんソースの勉強もするつもりです。
0239Delフサギコ ◆VzDeLphI
NGNG∩| ｵﾚ ﾊ ﾎｯﾄｿﾞﾇ ﾕｰｻﾞ
ﾐ ﾞ''ﾞﾞﾞつ ＿＿＿＿＿＿＿＿
ﾐ∧,,∧ ／CGIへの投稿は
ミ,,ﾟДﾟ彡 ＜ 2cnﾌﾞﾗうざっのﾚｽ投稿の仕組みを
Ｕ Ｕ ＼利用したらいいんでないかしら。
￣￣￣￣￣￣￣￣
Indyはフリーだけど、
ご利用を快適にするには日本語ＨＥＬＰありの
D6Pro版買うのが早道だと思われ。
もうすぐD7もでるようですね。
0240Delフサギコ ◆VzDeLphI
NGNGﾐ ﾞ''ﾞ～ ＿＿＿＿＿＿＿＿
ﾐ∧,,∧ ／CLXのTEditは
ミ,,ﾟДﾟ彡 ＜ 海胆ｺｰﾄﾞ対応だったような
Ｕ Ｕ ＼気がシル
￣￣￣￣￣￣￣￣
0241デフォルトの名無しさん
NGNG「多言語化｣の内容によると思うが？
VCL には Shit-JIS固有のコードは入っていないです。
OS 自身の主言語（日本語 Winsows なら Shift-JIS, 韓国ならハングル）で
動きますから、一つ作ればどの国でも動く。
メニューやエラーメッセージを翻訳する作業は必要ですが。
0242デフォルトの名無しさん
NGNGフォントも入れて貰って結構大変だけど、他国で使えるようにするなら別かも
0243デフォルトの名無しさん
NGNG台湾用として購入したら、英語版でした。特に問題なく使えています。
0244山川
NGNG＞2cnﾌﾞﾗうざっのﾚｽ投稿の仕組みを利用
ありがとうございます、これも参考にしてみます。
私に理解出来るのかちょっと不安ですが（汗
D6Pro版はお金に余裕が無いのでパーソナルで
出来る限り頑張ろうと思います。
0245デフォルトの名無しさん
NGNGDelphiマンセー
0246230
NGNGタイプライブラリエディタの左のツリーの根っこを選択して
右ペインの［使用］で「Windows Media Player Core」をチェックすれば
IStreamは使えそうです（このやり方でいいかどうかは知らんけど）。
で、今度はIStorageを使いたいのですが、
どのタイプライブラリを使えばいいか分からん！
てゆーか↑のMedia Player Coreを探し当てるのもえらい苦労したし(;_;)
こーいうのって、どうやって探したらいいんでせうか。ぇぅぇぅ
0247デフォルトの名無しさん
NGNG0248デフォルトの名無しさん
NGNG全部静的リンク。Delphiでランタイムを使うなんて馬鹿げてる
0249デフォルトの名無しさん
NGNGコンポーネントかなにかでしょうか？
友人は「基本的にはゴミだが、うまく使えば役に立つ」
って言うんですが、それ以上教えてくれません。
0250デフォルトの名無しさん
NGNG.NETでも使われている先進的なものです。
0251デフォルトの名無しさん
NGNG友人に聞け。本当はしったかしているだけだったりしてな。
0252デフォルトの名無しさん
NGNG0253デフォルトの名無しさん
NGNG本人だったりしてな。
0254230
NGNGコードエディタじゃなくて、タイプライブラリエディタなんですよー。
0255デフォルトの名無しさん
NGNGｽﾏｿ ちと早とちりしてました。
他のレスにある通りで、多言語でも混在させる必要がなければ
AnsiStringのままでやった方が（標準的なコンポのままでいけるので）
楽ですわ。
0256Delフサギコ ◆VzDeLphI
NGNGミ,,ﾟДﾟ彡 ＜Indy使うよろし。
ミ つ且~~
ﾐ,,__ ヾ
⊂二二二UU二二⊃
Pro版にはIndyを浸かったﾒｰﾙｸﾗｲｱﾝﾄの
サンプルがある
procedure TForm1.SendMail;
begin
with IdMessage1 do
begin
Body.Add('ハローワールド);
From.Text := '送り主のメールアドレス';
Recipients.EMailAddresses := '送信先メールアドレス';
Subject := '題名';
Priority := mpNormal; //メール重要度
CCList.EMailAddresses := ''; {CC}
BccList.EMailAddresses := ''; {BBC}
ReceiptRecipient.Text := ''; //メッセージ受信確認の送信先アドレス
end;
with IdSMTP1 do
begin
AuthenticationType := atLogin;
UserId := 'ユウザーID';
Password := 'xxxxx'; //実際のパスワードを入力
Host := 'xx.co.jp'; //SMTPサーバー
Port := 25;
end;
IdSMTP1.Connect;
try
IdSMTP1.Send(IdMessage1);
finally
IdSMTP1.Disconnect;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
SendMail;
end;
0257デフォルトの名無しさん
NGNGFTPサイトに入れないのでBorlandからダウンロードできません。
どこかに、置いてあるミラーサイトはありませんか?
0258デフォルトの名無しさん
NGNG特にターゲットとするマシンを規定しない汎用コードのことだ。
それを適当なコンバータにかけてネイティブコードとする。
Javaのマイクロコード、VBのコンパイル後のコードなどがそれだな。
>>251が一番知ったかしてるだけだな。
0259デフォルトの名無しさん
NGNG教えて、エロい人。
0260デフォルトの名無しさん
NGNG0261デフォルトの名無しさん
NGNGユニットのinitialization/finalizationにvarを含めることはできないのですか。
0262デフォルトの名無しさん
NGNG0263デフォルトの名無しさん
NGNG0265エロい人
NGNG0266デフォルトの名無しさん
NGNG一体どうやったらいいんでしょうか？
0267デフォルトの名無しさん
NGNGまず、俺も混ぜろ糞どもが！ってみんなに投げる。
で、みんなが、ここに部屋があるぞカスめ！って返す。
自分で部屋を作ったら、部屋を作ったぞ童貞ども！って投げる。
0268266
NGNGぢゃなくて （´Д｀；）
そういうソフトを作りたいのですよ どうかお知恵を・・・ﾌﾟﾘｰｽﾞ!
0269デフォルトの名無しさん
NGNG0271デフォルトの名無しさん
NGNG0272デフォルトの名無しさん
NGNG0273デフォルトの名無しさん
NGNGそれは吐駄
0274デフォルトの名無しさん
NGNGIDEでは日本語と英語しか打てなかったので、試しに外部から文字コードを
読ませたところ、メニュー等しっかり表示されました。
あと、ここで聞くことか迷ったんですが･･･。
日本語W2Kでコンパイルしたものを韓国語XPに持っていくと、
コンポーネントの大きさが全部1.3倍くらいになってしまった･･･。
（フォントまで12ポイントが16ポイントくらいになってる）
バイナリは各国同一とのこと、環境の問題なのかなぁ･･･｡･ﾟ･(ﾉД`)･ﾟ･｡
0275デルファイの名無しさん
NGNG開発環境と稼働環境のフォントの比率で拡大/縮小されるのがVCLのデフォルトですね。
フォームのScaledをFalseにすると自動調整は行われませんが、
今度はフォントがはみ出たり色々弊害もあると思います。
最終的にはコードで微調整するしかないかと。
0276デフォルトの名無しさん
NGNG2000では大丈夫でXPで変になったので、単なる解像度だけの問題では
ないと思ってたのですが、確かに開発は1280、変になった環境は1024で
数値的にも合います。フォームのプロパティを色々と調整してみますね。
ありがとうございます。精進しなければ･･･。
0277デフォルトの名無しさん
NGNG日本語環境でフォームを作ると、「MS Pゴシック」が埋め込まれてしまいます。
ちゃんと韓国語環境でフォームを整形するか
すべての .dfm からフォント定義を削除するか。
フォント定義を削除しておけば、実行時のフォントが使われますから
韓国語 XP のデフォルトフォント名知らないけど、大きく外れることはないかと
0278266
NGNGコンボボックスかリストボックスでユーザーが部屋を追加したとしたら、その部屋はどういう風に表示したら
いいんでしょうか？ あたらしいMemoでしょうか？
0279デフォルトの名無しさん
NGNG0280デフォルトの名無しさん
NGNGそれを考えるのが作者の楽しみだと思うんだが
0281デフォルトの名無しさん
NGNG同意。
～を使って～な感じにしようと思うんですが・・・
から文章が始まって然りな気がするが。
0283デフォルトの名無しさん
NGNG昔 pascal が PCODEインタプリタ方式が主流だった時代に
ネイテブコードにコンパイルして、しかも、コンパイルしてるの？ ってくらい
早くて、さらに金額もリーズナブルという ターボパスカルというのが
Delphiの元になってるという意味で
0284デフォルトの名無しさん
NGNGよりよいUIにするための相談と言うより、
単に何使っていいかわからないだけなのか？
0285デフォルトの名無しさん
NGNG>>278 Win32タブに TabControl と PageControl があるでしょ？
この場合はどっちでも使える
一つのメモが複数あるようにしたいなら TabControl
ただし内容は、TStringListとかの配列を作って自分で管理しなければいけない
PageControlにして新しいページを作る時に１ページ目の内容を
動的に作成させる方が今の所は楽かもしれない
0286デフォルトの名無しさん
NGNG0287デフォルトの名無しさん
NGNG0288278
NGNGそのlistboxの中の一つを選択したらmemo1がmemo2になったりってできますか？
ちょうどフレームを使ったサイトのリンクをクリックしたような感じにしたいんです
0289デフォルトの名無しさん
NGNG内部にTStringListの配列を作っておいて、listboxの選択時に切り替えればいいと思うよ
0290m(_ _)m
NGNGそれを利用するにはどうしたらいいでしょうか？
0291コギャルとHな出会い
NGNG朝までから騒ぎ！！
小中高生
コギャル～熟女まで
メル友
i/j/PC/対応
女性の子もたくさん来てね
小中高生大歓迎です
全国デ－トスポット情報も有ります。
全国エステ＆ネイル情報あります。
激安携帯情報あります。
0292デフォルトの名無しさん
NGNG0293デフォルトの名無しさん
NGNG方法は２つ
一つは、Register 手続きを書いて IDEに登録すること
もう一つは、動的に作成して使う事
面倒なら
動的に作成して、元のTShapeの必要なプロパティを代入して
元.Freeして 作成したのと置き換える
0294m(_ _)m 290
NGNG0295デフォルトの名無しさん
NGNG自分が使う分には手間はその方が少ない
他人に渡すソースは逆
0296ヽ（´∀｀ ）ﾉ 290
NGNG>>295
どうもありがとうございます!! 勉強しますぅ！
0297デフォルトの名無しさん
NGNG整数以外を０としたい為に、次のようにしています。
try i:= StrToInt(StringGrid.Cells[1,1]); except i:=0; end;
しかし、これだとＤｅｌｐｈｉの環境から実行したときに、警告メッセージが
でてしまいます。どうしたらいいでしょうか？
0298デフォルトの名無しさん
NGNGStrToIntDefじゃ駄目？
0299ヽ（´∀｀ ）ﾉ 297
NGNGありがとう！！ 知らなかったですぅ!!
0300山川
NGNGhttp://www2.sega.co.jp/cgi-bin/kymega/kyview.cgi?k=b&dir=test
この掲示板に自動書き込みをするプログラムを作ろうと
思ってるんですが、「名前」、「本文」等のデータを
掲示板のCGIに送る方法が解りません。
こうゆうプログラムの作り方を知ってらっしゃる方が
いらっしゃいましたらどうか教えて下さいませm(__;)m
私のDelphiは「PERSONAL6 SP2」でIndyインスト済みです。
（私が解っている事）
HTTPの知識が必要。
RCFの知識が必要。 RCFとはインターネット標準を
書き記しているもの。 「FTPは何番。」などのように
番号によって書かれている内容が違う。
Indyでデータを送信するコードがmonazilla.org(wの
「資料室」に書いてあること。
http://members.jcom.home.ne.jp/monazilla/document/indytips.html
２ちゃんねるに書き込むコードが
http://members.jcom.home.ne.jp/monazilla/document/monazilla_part_1.htm
ここの９２０番に書いてあること。
（私が解らない事）
HTTPの何についての知識が必要なのか。 掲示板の書き込み
ページのソースのことじゃないですよね(汗
どの番号のRCFの知識が必要なのか。
上に書いた「Indyでデータを送信するコード」と
「２ちゃんねるに書き込むコード」を
http://www2.sega.co.jp/cgi-bin/kymega/kyview.cgi?k=b&dir=test
この掲示板用に書き換えるにはどうすればいいのか。
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
長い時間かかってもこのアプリを完成させたいと思って
ます。 どうかよろしくお願いしますm(__)m
0301山川
NGNGHTTPの知識が必要ってのはもしかしたらRCFの
HTTPについての記述を知っている必要があるって
ことなのかな・・ しかし全部英語・・（汗
一体どうすればいいんでしょうか（＾＾；A
0302山川
NGNG0303デフォルトの名無しさん
NGNG>>301
そうです。RFCのHTTPに関するドキュメントを読みましょう。
HTTPは簡単なので英語でも理解できると思います。
と、言いたいところですが、俺は日本語に翻訳されたのを読んだよ（藁
で、次は実践。とりあえずOSを2000と仮定してコマンドプロンプトを起動。
次のように打ってみて。
telnet www.2ch.net 80 （リターン）
画面がクリアされるのでさらに次のように打つ（画面には表示されない）
GET /index.html HTTP/1.0 （リターン）
User-Agent: HogeHoge （リターン）
Host: www.2ch.net （リターン）
（リターン）
最初のGETは必ず大文字で。画面には表示されないから注意ね。
使いづらかったらTeraTermというフリーソフトを使いましょう。
IndyはGetをメソッド、User-Agentなどをプロパティとして実装してる。
もちろんレスポンスもプロパティで実装してくれている。
で、実際にどういうデータを送ればいいということだが、とりあえず
ソースを見て想像してみましょう。
わからんかったらローカルプロキシサーバーを立てて通信内容をチェック。
フリーなどでもたくさんある。
以上だが、親切すぎたか（藁
0304デフォルトの名無しさん
NGNG初歩的な質問をさせてください。
ある入門書（personal用）を見ながらソースを
ポチポチ見たまま打っているような次第なのですが、
その中でまずフォームにコンポーネントを貼り付ける
ように指示があり図も載っているのですが、
コンポーネントパレット上でShowListが見つけられないのです。
ListBoxやBottunはそれ以前にパレット上の場所や説明もあり
問題ないのですが、ShowListはいきなり出てきた感じで
どこにも見つけられず困っています。
勘違いな質問をしてしまっているかもしれませんが
どなたが教えてくださーい。
0305Delフサギコ ◆VzDeLphI
NGNG.∧,,∧∧,,∧ ))
((ミﾟДﾟ ≡ ﾟДﾟ彡＜ShowListってのが何かは
⊂ﾐ ⊂≡⊃ ﾐ⊃ 誰にもわからないと思います
ｵ とﾐ,,≡,,ﾐづ ｵ
ﾛ し＾ Ｊ ﾛ
0306デフォルトの名無しさん
NGNG0307山川(中間報告です)
NGNGこの間は＆今回もご親切にありがとうございましたm(__)m
おかげで少しずつ答えに近づいているような気がします。
telnetですがtelnet.exeとTeraTermの両方で試してみまし
たが、送信後も何も表示されず謎だらけでした。
そこでwindows用webサーバのhttpdに送信してログを
見たところこんなログが残っていました。↓
＿＿＿＿＿＿＿「trace.log」ここから＿＿＿＿＿＿＿
<<< s=80: Sun Aug 18 06:16:28 2002 <<<
GET /index.html HTTP/1.0
<<< s=80: Sun Aug 18 06:16:29 2002 <<<
<<< s=80: Sun Aug 18 06:16:39 2002 <<<
User-Agent: HogeHoge
<<< s=80: Sun Aug 18 06:16:40 2002 <<<
<<< s=80: Sun Aug 18 06:16:49 2002 <<<
Host: www.2ch.net
<<< s=80: Sun Aug 18 06:16:50 2002 <<<
>>> s=80: Sun Aug 18 06:17:22 2002 >>>
HTTP/1.1 400 Invalid
MIME-Version: 1.0
Server: AnWeb/1.40d
Date: Sat, 17 Aug 2002 21:17:22 GMT
Content-Type: text/html
Connection: close
Content-Length: 203
<HTML><HEAD><TITLE>Error </TITLE></HEAD>
<BODY>
<H1>Error 400</H1>
Invalid Request -- header not terminated<HR><ADDRESS><a href="http://www.st.rim.or.jp/~nakata/">AnWeb/1.40d</a></ADDRESS>
</BODY></HTML>
＿＿＿＿＿＿＿＿＿「trace.log」ここまで＿＿＿＿＿＿＿＿
0308山川(中間報告です２)
NGNGSun Aug 18 06:13:41 2002 AN HTTPD 1.40d Ready.
Sun Aug 18 06:17:22 2002 Error Response 400 Thread 0(ID= -3708173) to 127.0.0.1 for "??????"
＿＿＿＿＿＿＿＿＿＿「errors.log」ここまで＿＿＿＿＿＿＿
＿＿＿＿＿＿＿＿＿＿「httpd.log」ここから＿＿＿＿＿＿＿
127.0.0.1 - - [18/Aug/2002:06:16:08 +0900] " ?????? HTTP/ﾚ・・Q" 400 203
＿＿＿＿＿＿＿＿＿＿「httpd.log」ここまで＿＿＿＿＿＿＿
trace.logにある「Content-Length」などはmonazillaのスレ
で見覚えがあります。 このlogの最後にはエラーをHTMLで
返した形跡がありますね、これをアプリに受信させて例外処理
を書けば時間を置いてから再送信させたりするプログラムも
書けそうですね（＾＾；
それとRCFのHTTP(2616)の日本語訳を公開しているサイトを発見しました。
www.studyinghttp.net/rfc_ja/2616/rfc2616_ja.html
今から出かけなくてはならないのでこの続き（訳の熟読など）は
帰ってから頑張らさせていただきます。m(__)m
0309山川(追記)
NGNGではでは、行ってまいりますm(__;)m
0310デフォルトの名無しさん
NGNGIndyで送るのはこんな感じで。
http://delphi.sakura.vg/acty/memo1.html
で、HTTPについては
http://www.atmarkit.co.jp/fnetwork/rensai/index/index-serial.html#netpro
とか参考になるかも。
0311デフォルトの名無しさん
NGNGローカルで静的バッファ作ってその先頭ポインタを返す関数が
あったとき、そのバッファが破棄されるタイミングって、ポインタの参照
がなくなったとき（ [2] のタイミング）でよいのかしら？それともスコープ
抜けた時（ [1] のタイミング）にすでに破棄されているのでしょうか？
（試したところ、取り合えず動いちゃったので参照カウントがなくなる
タイミング[2]で破棄されていると思うのですが・・・）
function foo: PChar;
var buf: array[0..256] of Char; // ローカルバッファ
begin
Result:=@buf; // ポインタ返し
end; [1]
procedure baa;
var tmp: PChar;
begin
tmp:=foo; // 受け取る
tmp[0]:='a';
tmp[1]:=#0;
end; // tmp ポインタ参照終了。バッファの破棄？ [2]
本当は静的配列を返したかったのですが、ヘルプ読んだりやググルっ
たりして見みても、性的配列の返し方が解らなかったのでつ。
stringで返してもよいのですが、WinAPI 回りに使う関数なので他の
API関数との受け渡しでキャストが発生しちゃうのもなんなのでので、
出来ればポインタで返せればなー・・・と。
よろしくお願いします。
0312デフォルトの名無しさん
NGNGもしAPIの為にだけPCharが必要なら 単に文字列(string)を使う方が余程簡単で安全です
0313デフォルトの名無しさん
NGNGvar str:strings;
ならば
setlength(str , 999);
setlength(str , GetWindowText(Handle,PChar(str),Length(str)-1) )
のようにした方が安全でかつ簡単だと思います
0314311
NGNG解答ありがとうございます。
string を使用するようにしたいと思います。
静的配列は、やはり、foo 抜けた時で破棄されるんですね。
baa で書き込みに成功していたので勘違いしておりました。
本当にありがとうございました。
0315311
NGNGおお、詳しい解説助かります！
よしゃー、string で書き直してきまつ！
0316デフォルトの名無しさん
NGNGsetlength(str , 999);
GetWindowText(Handle,PChar(str),Length(str)) ; // #0用にバッファには１バイト余分があるみたい
str:=PChar(str); //PCharを文字列に代入すると#0終端としてコピーされるのでサイズは自動調整される
という手もあるよ
0317311
NGNGん！？申し訳ありません。うまく理解できませんです。
この処理は
１行目： string 型変数 str に 999 バイト（最大ｻｲｽﾞ）の領域を確保
２行目： バッファに書き込み処理
３行目： 大抵の場合バッファは余るので、キャストして代入することにより
バッファをリサイズしてあげる。
ってことでよろしいんでしょうか？
因みに、今ここ見ながらしこしこしてます。（既出？）
ttp://isweb21.infoseek.co.jp/computer/wblue/prog/one/o002a.htm
0318山川
NGNG大変参考になるリンクをありがとうございます。m(__)m
「資料室」のIndyについての説明には解説が一言も
無くて困ってたんですがご紹介していただいたリンク先
にはちゃんと解説も入ってるので助かります。
HTTPのほうも読ませていただきます。 RCFの全文も
読まなくてはいけないのですべて読み終わるまで
少し時間がかかりそうですが頑張ります。
0319デフォルトの名無しさん
NGNG0320デフォルトの名無しさん
NGNGだ め
0321山川
NGNGツッコミありがとうございます。
ここ以外場所で恥を書かずに済みました（汗
とりあえず麗子ファンクラブ(RFC)と覚えました。
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
ぅぅ・・・ また問題が・・
personalなのでHTMLApp.pasが入っておらず「HTTPEncode」が
使えないことが解ってしまいました・・
hogehoge2001.tripod.co.jp/note-delphi.html
ここには「既存ソースを動かしてみる時にはAPIの仕様を推測して
必要な関数だけ作ろう。」と書かれてました。 今度はAPIの
勉強も必要のようです。
0322デフォルトの名無しさん
NGNG＞HTTPEncode」が 使えない
簡単だから実装しな。
0324デフォルトの名無しさん
NGNG不覚にもﾜﾗﾀ
0325山川
NGNGgaogao.moemoe.gr.jp/archives/component/
↑ここでDmonkeyってゆうコンポーネントが配布されて
ますのでこれを入れればURLエンコード関数(escape)が
使えるようです。
ただ、delphi6 personalな私の場合、RTLのアップデート
をしないとDmonkeyが正常にインスト出来ませんでした。
↓RTLのアップデートについてはこちら。
http://www.borland.co.jp/delphi/del6up.html#del6rtl
これで本題に取りかかれます（＾＾；
0326デフォルトの名無しさん
NGNG0327デフォルトの名無しさん
NGNG0328山川
NGNGですが303さんはtelnetで一体私に何を見せようと
して下さっていたのでしょうか？ 一応httpdの
ログは見れましたが今になって別の何かを
見せたかったのではないか？ とゆう気がします。
telnetのログ機能を使ってログを取ったりしたの
ですがログには何も残っていませんでした。
他に何かを見落としているのでしょうか...
303さん、または303さんの真意がお解りになる方が
いらっしゃいましたらご教授お願いしますm(__)m
PS.
私の作ろうとしている自動書き込みアプリは
荒らしが目的ではありません（＾＾；
0329デフォルトの名無しさん
NGNGHTTPというプロトコルを使うにあたって
・クライアントとサーバがどういうやりとりをしているか
・その際に設定するデータはIndyでどういう風に実装されているか
を理解してほしいと思われ。
0330デフォルトの名無しさん
NGNGHTTP 0.9レベルなら非常にかわいいプロトコルなんでSocketからスクラッチしてみるのも良い勉強になると思われ。
0331山川
NGNGどうもありがとうございますm(__)m
＞クライアントとサーバがどういうやりとりをしているか
なるほど。φ(・・) つまり303さんのおっしゃる通りの操作
をしたらこのやり取りが表示されるわけですか、一体どこで
操作を間違えてるんだろ・・
＞その際に設定するデータはIndyでどういう風に実装されているか
こちらのほうはだいたい理解しているつもりです。 例えば
「相手サーバから帰ってきたデータが自動的にIndyの
特定のプロパティに代入される。」とゆうようなこと
ですよね。(汗
0332デフォルトの名無しさん
NGNGlocal echoを有効にする
telnet起動後
set local_echo
0333デフォルトの名無しさん
NGNG0334山川
NGNGどうもありがとうございましたm(__)m
ローカルエコーをオンにして再度試してみたところ
以下のようなデータが表示されました。↓
＿＿＿＿＿＿＿＿＿＿＿＿＿＿telnetに表示されたデータここから＿＿＿＿＿＿＿＿
HTTP/1.1 200 OK
Date: Tue, 20 Aug 2002 21:35:30 GMT
Server: Apache/1.3.6 (Unix) PHP/4.0.3pl1 mod_gzip/1.3.19.1a mod_ssl/2.3.6 OpenSS
L/0.9.3a
Connection: close
Content-Type: text/html
<HTML><HEAD><TITLE>2ちゃんねるへようこそ</TITLE>
<META HTTP-EQUIV="Content-Type"
CONTENT="text/html; charset=x-sjis">
<style type="text/css">
<!--
.unnamed1 { top:
70%; clip: rect( ); height: auto; width: auto; left: auto}
-->
</style></HEAD
>
<BODY BGCOLOR=#FFFFFF background="back.jpg">
<p align="center"><a href="http://i
.2ch.net/"><font size="-1">i-mode</font></a>○<a href="http://www.2ch.net/2ch.ht
ml">掲示板</a>○<a href="http://www.2ch.net/mag.html">２ちゃんねるメルマガ</a>○
<a href="http://www.2ch.net/kakolog.html">過去ログ倉庫</a></font></p>
<br>
<p alig
n="center"><a href="http://www.2ch.net/2ch.html"><img src="http://www.ff.iij4u.o
r.jp/~ch2/2ch-logo.gif" alt="2ch-logo.gif" width="200" height="480" border="0"><
/a><br><br>
<font size="+3"><b>お子さまへ！<br>
２ちゃんねるをみるときは、へや
をあかるくして<br>
できるだけはなれてみてください。</b></font></p>
<p align="cen
ter">２ちゃんねるのご利用は利用者各位のご判断にお任せしています。</p>
</BODY></HT
＿＿＿＿＿＿＿＿＿＿＿＿＿＿telnetに表示されたデータここまで＿＿＿＿＿＿＿＿
HTTPのバージョンやら時間やらサーバ名やら接続状態やらが
最初に表示されてますね。 そのあとに２ちゃんのTOPページの
HTMLソースと・・・φ(・・)
303さんが見せたかったのはこれのことで合ってるのかな・・
0335デフォルトの名無しさん
NGNGこんなことをしてメモリリークはしないのでしょうか？
0336デフォルトの名無しさん
NGNGジグソーパズルみたいに、画像を張りつけたブロックを、
マウスで動かす事をしたいのですが、どんな方法がいいでしょうか？
大雑把でいいのでご教授お願いいたします。
また、ちょうどいいコンポーネントとかありますでしょうか？
0337デフォルトの名無しさん
NGNGしない。
理由が知りたかったらVCLのソースを嫁。
0338335
NGNGども。C++の感覚からすると、ちと不安でした。VCLを読むきっかけにします。
0339デフォルトの名無しさん
NGNG＞また、ちょうどいいコンポーネントとかありますでしょうか？
叩き殺したい衝動に駆られた。
Mousedown Mouseup Mousemoveを組み合わせれば自前でドラッグアンドドロップルーチンが書ける。
0340336
NGNGMousedown・・・は判るんですけど、
Timageとかいいのでしょうか？
真四角じゃないのとかできますか？
0341デフォルトの名無しさん
NGNG0342デフォルトの名無しさん
NGNG質問した方が早いとの判断です。
0343デフォルトの名無しさん
NGNG0344336
NGNG退散いたします。
0345デフォルトの名無しさん
NGNGVBスレの177だな。
0346デフォルトの名無しさん
NGNGそんな態度だと教えてくれるものも教えてくれなくなるよ。
というか、ワザワザDelphi使ってゴミみたいなゲーム作るんだったら、Flashあたりで作った方が早いような気がするぞ。
0347デフォルトの名無しさん
NGNGVBが出たとき、これでもかって言うクソゲーが\500のシェアウェアとかふざけた時代があったなぁ。
0348デルファイの名無しさん
NGNGまずは、やりたい事を、ボタンを押した時カーソルの下にあるピースをドラッグ状態にして…
なんて具合に手順手順で分割して考えてみてください。
で、その手順をひとつひとつ実現していく段階で、初めてDelphiをどう使うか、という話になります。
そうすれば、具体的に何が必要か見えてきますし、
質問も回答も具体的な話ができるでしょうから。(例えば、ドラッグを開始するには？→BeginDrag、みたいな)
0349デフォルトの名無しさん
NGNGそーゆーのに金払っちゃう人と、じっくり話し合ってみたい。
「どーしてドブに捨てるような金の使い方をするんですか？」
0351デフォルトの名無しさん
NGNG見ていて非常に臭ってくるぅ
マジでやらないでねぅ
おねがいぅ
0352デフォルトの名無しさん
NGNG0353キュピーン！
NGNG見ていて非常に臭ってくるモジャ
マジでやらないでねモジャ
おねがいモジャ
0354デフォルトの名無しさん
NGNG見ていて非常に臭ってくるにょ
マジでやらないでにょ
おねがいにょ
0355デフォルトの名無しさん
NGNG語尾の「にょ」、やめてくれないかピラニア
見ていて非常に臭ってくるピラニア
マジでやらないでピラニア
おねがいピラニア
0356デフォルトの名無しさん
NGNG語尾の「ピラニア」やめてくれないかアウストラロピテクス・アファレンシス
見ていて非常に臭ってくるアウストラロピテクス・アファレンシス
マジでやらないでアウストラロピテクス・アファレンシス
おねがいアウストラロピテクス・アファレンシス
0357デフォルトの名無しさん
NGNG語尾の「アウストラロピテクス・アファレンシス」やめてくれないかヨウ化ジフェニルピペリジノメチルジオキソラン
見ていて非常に臭ってくるヨウ化ジフェニルピペリジノメチルジオキソラン
マジでやらないでヨウ化ジフェニルピペリジノメチルジオキソラン
おねがいヨウ化ジフェニルピペリジノメチルジオキソラン
0358デフォルトの名無しさん
NGNG語尾の「ヨウ化ジフェニルピペリジノメチルジオキソラン 」やめてくれないか札幌市デジタル創造プラザ インタークロス･クリエイティブ・センター
見ていて非常に臭ってくる札幌市デジタル創造プラザ インタークロス･クリエイティブ・センター
マジでやらないで札幌市デジタル創造プラザ インタークロス･クリエイティブ・センター
おねがい札幌市デジタル創造プラザ インタークロス･クリエイティブ・センター
0359デフォルトの名無しさん
NGNG語尾の「札幌市デジタル創造プラザ インタークロス･クリエイティブ・センター」やめてくれないかナカバヤシ Colorインクジェット フォトプリント光沢紙PX フォト・エクストラ・ハイグレード
見ていて非常に臭ってくるナカバヤシ Colorインクジェット フォトプリント光沢紙PX フォト・エクストラ・ハイグレード
マジでやらないでナカバヤシ Colorインクジェット フォトプリント光沢紙PX フォト・エクストラ・ハイグレード
おねがいナカバヤシ Colorインクジェット フォトプリント光沢紙PX フォト・エクストラ・ハイグレード
0360デフォルトの名無しさん
NGNG語尾の「ナカバヤシ Colorインクジェット フォトプリント光沢紙PX フォト・エクストラ・ハイグレード 」やめてくれないかニンテンドー ゲームキューブ ワイヤレスレシーバー&ニンテンドー ゲームキューブ ワイヤレスコントローラ ウェーブバード
見ていて非常に臭ってくるニンテンドー ゲームキューブ ワイヤレスレシーバー&ニンテンドー ゲームキューブ ワイヤレスコントローラ ウェーブバード
マジでやらないでニンテンドー ゲームキューブ ワイヤレスレシーバー&ニンテンドー ゲームキューブ ワイヤレスコントローラ ウェーブバード
おねがいニンテンドー ゲームキューブ ワイヤレスレシーバー&ニンテンドー ゲームキューブ ワイヤレスコントローラ ウェーブバード
0361デフォルトの名無しさん
NGNG0362デフォルトの名無しさん
NGNG>>354以降に罪はないだろ・・・。
0363デフォルトの名無しさん
NGNG0364デフォルトの名無しさん
NGNG>360のニンテンドー(以下略)より長い名前が見つからない・・・
0365デフォルトの名無しさん
NGNGジュゲ（略
0366デフォルトの名無しさん
NGNG語尾の「ニンテンドー ゲームキューブ ワイヤレスレシーバー&ニンテンドー ゲームキューブ ワイヤレスコントローラ ウェーブバード
」、やめてくれないかパブロ・ディエゴ・ホセ・フランシスコ・デ・パウラ・ファン・ネポムセノ・マリア・デ・ロス・レメディオス・シプリアーノ・デ・ラ・サンテシマ・トリニダット・ルイス・イ・ピカソ
見ていて非常に臭ってくるパブロ・ディエゴ・ホセ・フランシスコ・デ・パウラ・ファン・ネポムセノ・マリア・デ・ロス・レメディオス・シプリアーノ・デ・ラ・サンテシマ・トリニダット・ルイス・イ・ピカソ
マジでやらないでパブロ・ディエゴ・ホセ・フランシスコ・デ・パウラ・ファン・ネポムセノ・マリア・デ・ロス・レメディオス・シプリアーノ・デ・ラ・サンテシマ・トリニダット・ルイス・イ・ピカソ
おねがいパブロ・ディエゴ・ホセ・フランシスコ・デ・パウラ・ファン・ネポムセノ・マリア・デ・ロス・レメディオス・シプリアーノ・デ・ラ・サンテシマ・トリニダット・ルイス・イ・ピカソ
0367デフォルトの名無しさん
NGNG0368デフォルトの名無しさん
NGNG0369デフォルトの名無しさん
NGNG///////＿＿＿＿＿＿＿＿＿＿＿_
/////// ￣￣￣￣￣￣￣￣￣|￣￣
/////// (~) ﾁﾘﾝﾁﾘﾝ
/////// ﾉ,,
/////// ∧＿∧ ／￣￣￣￣￣￣
/////// （ ´∀｀）（ 厨 ） )） ＜ 夏だなあ～
/////// （つ へへ つ ＼＿＿＿＿＿＿
/////// //△ ヽλ ） ） 旦
////// l￣￣￣￣￣￣￣￣￣￣￣l
///// ￣| .|￣￣￣￣￣￣￣| .|￣
//// ^＾^ ^＾^
２chの夏。厨房の夏。
0370デフォルトの名無しさん
NGNGうまくいかなくて困っています。
0371デフォルトの名無しさん
NGNGマルチポストは迷惑です。
0372デフォルトの名無しさん
NGNGDelphi/400じゃなくてDelphi6でつないでるの？
0373デフォルトの名無しさん
NGNGそうです。Delphi400ではなくDelphiでつなぎたいのです。
Delphi400はないので。
0374デフォルトの名無しさん
NGNG0375デフォルトの名無しさん
NGNGつまんねー
0376デフォルトの名無しさん
NGNG∧＿∧
（ ´,_ゝ`） ﾌﾟｯ
／ ＼
/ /￣￣￣￣/
＿_(__ﾆつ/ FMV /
＼/ /￣￣
￣￣￣￣￣
0377デフォルトの名無しさん
NGNG0378デフォルトの名無しさん
NGNG超薄型PCだな。
0379デフォルトの名無しさん
NGNGってネタは置いといて、普通そういうのはミドルウェア噛まさないか？
ところでDelphi/400は現行製品ですが？(まだD5がベースみたいだが。)
http://www.migaro.co.jp/
0380デフォルトの名無しさん
NGNGモバイル板で人気のノートです。
http://pc3.2ch.net/test/read.cgi/mobile/1007674054/
キムタクに憧れて表紙にレタリングしました。
0381デフォルトの名無しさん
NGNG目的、プログラムからWINDOSのアクティブデスクトップにhtmlファイルを登録する。
関連するunit ShlObj,comobj, WinInet;
現在の進捗
IActiveDesktop <WINDOWSのコンポーネントを使って実現する（多分）
このコンポーネントを使って壁紙の変更はできている。（コンポーネントの呼び出しは間違っていない）
質問
1）このコンポーネントでそもそもアクティブデスクトップにＨＴＭＬを登録できるのか？
2）もし可能ならどのメソッドを使うのか？
msdnURL
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/shellcc/platform/shell/reference/ifaces/iactivedesktop/iactivedesktop.asp
3)いくつか該当しそうなメソッドがあるので、
ADDDesktopItem()
ADDUrl（）
を試したのだが...パラメーターエラーを返してくる。
何処がエラーだか分からないのでご指摘をお願いできますか？。
----------------------------------------------------------
0382デフォルトの名無しさん
NGNGＶ以下資料＆実験報告
hObj := CreateComObject(StringToGUID('{75048700-EF1F-11D0-9888-006097DEACF9}'));
ADesktop := hObj as IActiveDesktop;
with Cop do begin
dwSize:= sizeof(Cop);
iLeft:=0;
iTop:=0;
dwWidth:=300;
dwHeight:=300;
izIndex:=0;
fCanResize:=true;
fCanResizeX:=true;
fCanResizeY:=true;
iPreferredLeftPercent:=100;
iPreferredTopPercent:=100;
end;
With Co do begin
dwSize:=sizeof(Co);
dwID:=0;
iComponentType:=COMP_TYPE_HTMLDOC;
fChecked:=true;
fDirty:=true;
fNoScroll:=true;
cpPos:=Cop;
StringToWideChar('hoge',wszFriendlyName, MAX_PATH);
StringToWideChar(OpenDialog1.FileName,wszSource,INTERNET_MAX_URL_LENGTH);
StringToWideChar(OpenDialog1.FileName,wszSubscribedURL,INTERNET_MAX_URL_LENGTH);
end;
// Ecode:=ADesktop.ADDUrl(hwnd,wstr,Co,ADDURL_SILENT);
Ecode:=ADesktop.AddDesktopItem(Co,0);
実行するとパラメーターが不正とエラーが帰ってくる。
0383デフォルトの名無しさん
NGNGかなりお手上げ状態です。
パラメーターが不正は、おそらくconponent 構造体が間違っていると推測されるが
どこが間違っているか不明。
ShiObj unitで宣言されている _tagCOMPONENTの宣言文
type
{$EXTERNALSYM _tagCOMPONENT}
_tagCOMPONENT = packed record
dwSize: DWORD; // Size of this structure
dwID: DWORD; // Reserved: Set it always to zero.
iComponentType: Integer; // One of COMP_TYPE_*
fChecked: BOOL; // Is this component enabled?
fDirty: BOOL; // Had the component been modified and not yet saved to disk?
fNoScroll: BOOL; // Is the component scrollable?
cpPos: TCompPos; // Width, height etc.,
wszFriendlyName: array[0..MAX_PATH - 1] of WideChar; // Friendly name of component.
wszSource: array[0..INTERNET_MAX_URL_LENGTH - 1] of WideChar; //URL of the component.
wszSubscribedURL: array[0..INTERNET_MAX_URL_LENGTH - 1] of WideChar; //Subscrined URL
end;
msdnのそれと見比べると微妙に違う部分がある
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/shellcc/platform/shell/reference/structures/component.asp
------------------------
連続書き込みすいません。
どなたか解かる方、ご教授ください。
0384デフォルトの名無しさん
NGNG0385デフォルトの名無しさん
NGNG壮大な宿題だな。
0386デフォルトの名無しさん
NGNGDSPで探すもことごとく玉砕･･･。お勧めのものはありませんか？
やりたいことは、外部デバイスが繋がっているCOM1を監視して
何か来たらそれを読みたいってことなんですが･･･。
0387デフォルトの名無しさん
NGNGCreateFile
0388デフォルトの名無しさん
NGNG今はやりのワン切りプログラムですか？
0389デフォルトの名無しさん
NGNGこれはダメか？
http://www2.arnes.si/~sopecrni/
0390デフォルトの名無しさん
NGNG>>388 COMに繋がったゲームコントローラと通信をしたいんです。
>>389 ありがとうございます。これ確か、ライブラリ導入段階で諦めてしまった奴です。
翻訳しながら再挑戦してみます。VCLじゃないとつい弱気になってしまって。
0391389
NGNG少なくとも導入時については翻訳するほどでもなかったような。
選択すべきメニューが File/Open とか書いてあるから拾い読み程度で済んだ。
こうやって動いてる香具師もいるので、頑張れ。
0392デフォルトの名無しさん
NGNG冷静になったらできました！Runtime使うのは初めてだったので
ミスってたようです。ありがとうございます～。
0393デフォルトの名無しさん
NGNGhttp://www.google.co.jp/search?hl=ja&inlang=ja&ie=Shift_JIS&q=CreateFile+%83V%83%8A%83A%83%8B&lr=lang_ja
0394デフォルトの名無しさん
NGNGDelphiで、ウィンドウが移動されたのを検知するにはどうすればいいんですか？
0395デルファイの名無しさん
NGNGというのを、TForm1のprivateなところに書き足して、
Ctrl+Shift+Cを押すか、Personalなら手で地道に
procedure TForm1.WMMove(var Message: TWMMove);
0396デルファイの名無しさん
NGNGprocedure TForm1.WMMove(var Message: TWMMove);
begin
inherited;
{必要な処理}
end;
で、いいと思います。
OnMoveなんてイベントが無い以上、それほど厨な質問でも無いかと。
0398デフォルトの名無しさん
NGNG0399山川
NGNG解りました。 ヒントをくれた皆様、どうもありが
とうございました。m(__)m
予想外に長い道のりでしたが無事に作ることが出来た
ので頑張ったかいがありました、初めて自分で
自分を誉めたいと思います。
では遠慮なく・・・
よくやったね ＞自分
ありがとうございます。
0400デフォルトの名無しさん
NGNG具体的はどこの色を見てるのでしょうか？
とっても素人な質問ですみませんがよろしくお願いします。
0401デフォルトの名無しさん
NGNG0402デフォルトの名無しさん
NGNG0403401
NGNG画面のプロパティ＞デザイン＞指定する部分＞ウィンドウ
で指定した色
0404デフォルトの名無しさん
NGNG0405400
NGNGなるほど・・・
ありがとうございました！
0406デフォルトの名無しさん
NGNG0407デフォルトの名無しさん
NGNG0408デフォルトの名無しさん
NGNG0409デフォルトの名無しさん
NGNGあと、DelphiXコンポーネントをDelphi6パーソナルに組み込むこと可能ですか？
できるなら教えてください
0410デフォルトの名無しさん
NGNG0411デフォルトの名無しさん
NGNG実行時に指定した.pasファイルを呼び出すって事？
だったらDLLを作ってください。
0412デフォルトの名無しさん
NGNG意味わかんねーなぁー
そこで宣言されている関数とかクラスとか定数とかを使いたいってこと？
たんに uses に加えるだけでは？
0413デフォルトの名無しさん
NGNGなるほど、わかりました。ありがとうございます。
usesにいれるだけでした。
どなたかDelphiXコンポーネントをDelphi6パーソナルに組み込む方法
教えてください。ちなみに普通のコンポーネントのインストールは
わかるのですが…DelphiXって6には対応してないのかな？
0414デフォルトの名無しさん
NGNG「DelphiXって6には対応してないのかな」…対応してないって書いてあるのに
なぁ…
書きゃ答えてもらえると思ってないかなぁ…）
0415デフォルトの名無しさん
NGNG答えてるじゃん
0416デフォルトの名無しさん
NGNGしつこくしつこく同じこと聞いてくると思ったからしょうがなく、つまんねーこと
書いたのに…
４１３＝４１５かなぁ…
答えてもらえないからって、同じこと何度も書くのはどうかなぁ…）
0417デフォルトの名無しさん
NGNGなんか、大変そう。
ちゃんと文法とかをやったほうがよいと思われ
0419山川
NGNG∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
（ ´∀｀）＜おまえモナー
（ ） .|
｜ ｜ ｜ |
（＿_）＿） ＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
0420406
NGNGどうやったら変更できるんですか？」と聞いたものですがちょっとわからないです
ショートカットの作業フォルダ？
すんませんもうちょいｱﾌｫでもわかるように説明していただけませんか？
おながいします 世界中のｴﾛｲ人
0421デフォルトの名無しさん
NGNGじゃ、逆に、何のためにデフォルトフォルダを変更したいの？って聞いてみよう。
0422406
NGNG今はちょっと考えてデフォルトのProjectフォルダの中に変更したいフォルダのショートカットを入れてます
でもワンアクション多いのがちょっと・・・（´Д｀；）
どうにもならんでしょうか？
0423デフォルトの名無しさん
NGNG何か発見できると思いますが。
0424山川
NGNGHTTPapp.pasが無いpersonalな方はこれをインストしましょ。
文字コードを変換してくれるコンポーネント。
plaza11.mbn.or.jp/~pz/delphi/pzconv/document.htm
（HTTPEncode関数の代わりに使えます。）
んじゃ。
0425sage
NGNGつか、開きたいだけだったらプロジェクトファイルダブルクリックでいいんじゃ？
0426デフォルトの名無しさん
NGNG単に、IDE 起動時のデフォルトディレクトリ(フォルダ)を変更したいだけなら、
Delphi のショートカットアイコンの初期値を変更すればよいかと。
0427406
NGNG0428デフォルトの名無しさん
NGNGほんとに解けたのか？
0429デフォルトの名無しさん
NGNG手順が長いのでこちらには書きませんが
googleで調べたらすぐに出てきますよ。
0430デフォルトの名無しさん
NGNGでてきますよ、じゃなくてリンク貼れやｺﾞﾙｧ
無駄に生きてどうするよ
0431413
NGNGですね、ありがとうございました。
0432デフォルトの名無しさん
NGNG突然インストールできなくなりました
pasファイルを読み込んでコンパイルしようとすると
「[致命的エラー] ファイル 'e:\program files\borland\delphi6\Projects\Bpl\form.bpl' を作成できません」
っとなります 原因は何でしょうか？
0433デフォルトの名無しさん
NGNG１．再インストすれば直りそう
２．delphiをＥドライブに入れている
３．バージョンは６だ
４．form.bplがイカレてんだろう、きっと
0434432
NGNG再ｲﾝｽｺします
0435デフォルトの名無しさん
NGNGどなたか教えてくれませんでしょうか。
0436デフォルトの名無しさん
NGNG0437デフォルトの名無しさん
NGNGちなみにみんなはどの色でやってる？
0438デフォルトの名無しさん
NGNGイベント欄に見当たりません
実際には存在するんでしょうか？
0439デフォルトの名無しさん
NGNGエディタオプション＞色のタブで、右上の「デフォルトを使用」グループボックスのチェックを外してミソ。
左下の色を選ぶところに「BG」とあるのが背景。「FG」とあるのが前景(文字だったら文字の色)だよ。
色を左クリックで前景色、右クリックで背景色。
文法要素の一個ずつに設定しなければいけないので面倒くさいけどね。
逆に言えば一個ずつ設定できるので便利。
・・・というか、俺はデフォルトの白だね。
目が疲れている場合は、黒にする。
0440デフォルトの名無しさん
NGNG張ったら這ったで英語サイトを平気ではるやつウザイとかいうから、
いやなんだよ（´д｀；）
0441440
NGNGなんていう奴がいたもんでな。
どっかのHSPのスレッドだっけか。
0442デフォルトの名無しさん
NGNG0443デフォルトの名無しさん
NGNG2ch だし、細かいことは気にせずいこうよ。
0444デフォルトの名無しさん
NGNGバイナリエディタ (ﾎﾞｿ
0445デフォルトの名無しさん
NGNGデュアルディスプレイ化をしたいのですが どの様にしたら良いか
アドバイスを頂ければありがたいです。
※解像度のほうは、Xconfiguratorを使ってやってみましたが
かゆいところに手が届かないと言った感じでした。
デュアルディスプレイについては見当も付きません。
諸先輩方々、すみませんがよろしくお願いします。
0446デフォルトの名無しさん
NGNG・X-Windowsってなんですか？(お約束)
・Delphiとなんの関係があるんですか？(お約束)
0447デフォルトの名無しさん
NGNGごめん、X-WIndowだった。
0448デフォルトの名無しさん
NGNG0449445
NGNG0450デフォルトの名無しさん
NGNGありが㌧。
バイナリティエディタか。・・・・・なんだよそれ。
0451デフォルトの名無しさん
NGNGスタートボタンとストップボタンを作ります。
スタートボタンを押すと、「repeat ～ until ～;」を用いた無限ループである処理をして、
ストップボタンを押すと止まる様な処理をしたいのです。
無限ループをそのままにしておくと、他のボタンが効かなくなってしまうので、
ApplicationのProcessMessageを使えば良いと思い、
repeat
～
Application.ProcessMessage;
until ～;
としてみたのですが、巧くいきません。
Del6 Personalです。
関係ないですけど、作ってるのはTListBoxに素数を列挙するという物です。
解決法、よろしくお願いいたします。
0452デフォルトの名無しさん
NGNGスタートでフラグON
ストップでフラグOFF
ProcessMessagesをしたあとにフラグの状態を調べ、
OFFになってたらループを抜ける
0453デフォルトの名無しさん
NGNG0454デフォルトの名無しさん
NGNGありがとうございます。
この件のやり方はわかったのですが、ProcessMessage自体がよくわかってないっぽいです…。
0455デフォルトの名無しさん
NGNGんで、.sort だったようなー
0456素人
NGNG別にProcessMessageにはループうんぬんに直接関係あるワケでなくて、
「固まらないようにする」ってことです。
うまくいかないってどのへんがだろう？
var flag:boolean;
とかなんとかやってますか？フラグ用意して、最初にfalseにして、
「止めたい方のボタン」にフラグをtrueにするようにして、
trueならやめると…。
前にも同じ様な質問あったな…。
0457デフォルトの名無しさん
NGNG0458素人
NGNGだとしたら失敬。
456は忘れて。
ボスケテ。
0459デフォルトの名無しさん
NGNG0460デフォルトの名無しさん
NGNG0461デフォルトの名無しさん
NGNGhttp://dotnet.borland.com/
0462デフォルトの名無しさん
NGNGhttp://www.planet-source-code.com/vb/default.asp?lngWId=7
ぐらいしか見つからなかった・・・（´Д｀；）
0463デフォルトの名無しさん
NGNG0464デフォルトの名無しさん
NGNGここは？
0465デフォルトの名無しさん
NGNGソフト、または方法ってある？
http://www.vector.co.jp/soft/win95/prog/se189339.html
逆コンパイラっぽいものはあるけどソースは見れない。
無いならないでいいが。
0467デフォルトの名無しさん
NGNGあと文字列はエディタで見ればモロ見え。
レジストリの記録場所も分かる。
なんのDLL使ってるかも分かる。
でもソースは無理。
0468デフォルトの名無しさん
NGNG0469デフォルトの名無しさん
NGNG別にリソース除く程度なら、ResHackerじゃなくてもいいべ。
VisualStudioのIDEでも覗けるし、フリーとかもいっぱいあるべ。
0471デフォルトの名無しさん
NGNG生産的な話をしろよ
生産的な話をしろよ
0473デフォルトの名無しさん
NGNG0474デフォルトの名無しさん
NGNGQuickReportなどに貼っているTtableのtablenameに送りたいのですが・・・
素人な質問で恐縮ですが、よろしくお願いいたします。
0475デフォルトの名無しさん
NGNG自分で開いたなら自分でわかるだろ
0476474
NGNGOpenDialogなどで開いたファイルをプログラムの変数として扱いたいです。
0477デフォルトの名無しさん
NGNG0478デフォルトの名無しさん
NGNG悪い、これに関しては謝罪するわ。
0480デフォルトの名無しさん
NGNG誰お前？
0481デフォルトの名無しさん
NGNG>>478です。
0482デフォルトの名無しさん
NGNG楽しい？
0485478
NGNG0486478 ◆gybBZ7HI
NGNG0488デフォルトの名無しさん
NGNG///////＿＿＿＿＿＿＿＿＿＿＿_
/////// ￣￣￣￣￣￣￣￣￣|￣￣
/////// (~) ﾁﾘﾝﾁﾘﾝ
/////// ﾉ,,
/////// ∧＿∧ ／￣￣￣￣￣￣
/////// （ ´∀｀）（ 厨 ） )） ＜ 夏だなあ～
/////// （つ へへ つ ＼＿＿＿＿＿＿
/////// //△ ヽλ ） ） 旦
////// l￣￣￣￣￣￣￣￣￣￣￣l
///// ￣| .|￣￣￣￣￣￣￣| .|￣
//// ^＾^ ^＾^
２chの夏。厨房の夏。
0489デフォルトの名無しさん
NGNG0490デフォルトの名無しさん
NGNG書き込みにクッキー必須になっているし
0491デフォルトの名無しさん
NGNGInprise が保証しないのは承知ですが、Delphi4 で作成
したアプリはWinXP で動きますか?
232C とメモとファイルアクセス程度なんですが。
Delphi4 標準の Component & API を使用して作るつもりです。
0492デフォルトの名無しさん
NGNGOS の互換性の保証は OS メーカー側なんだけどね。
XP のビジュアルスタイルを使わなければ、大きな問題は出ません。D3 の
アプリ、使っています。
問題が出やすいのは、オーナードロー。MS がコモンコントロールの動きを変えたので
状況によってはちらつきや、再描画の遅延が起きます。
0493デフォルトの名無しさん
NGNG現在開いているファイル名の取得はどのように行なったら宜しいのでしょうか？
QuickReportなどに貼っているTtableのtablenameに送りたいのですが・・・
素人な質問で恐縮ですが、よろしくお願いいたします。
0494デフォルトの名無しさん
NGNG自分で開いたなら自分でわかるだろ
... 「現在開いているファイル名」誰が開いたファイル名を取得したいの？
0495491
NGNGThanks です。
Delphi3 をお使いですか。
だったら Delphi4 でも大丈夫そうですね。
> OS の互換性の保証は OS メーカー側なんだけどね。
「仕様です。」 って返事 Only ですからな～。 (w
0496デフォルトの名無しさん
NGNGOpenDialogなどで開いたファイルを変数として
動的にTtableのtablenameを変えたいです。
0497A
NGNG普段、OpneDialpgってどうやって使ってるの？
OpenDialogでユーザーが指定したファイル名の取得が分からないってわけじゃないよね？
もしそうなら、OpneDialogって使えないし、それが判るなら、何がわからないのかわからない…
とりあえず、OpneDialogの、FilenameプロパティはString型。でヒントになる？
0498493
NGNG買ってきた本と睨めっこをしながら手探りで、まだ知識となっていないので
書いているコードなどが、何を差してるか分かっていなかったです。
ヒントになりました、ありがとうございました。
0499yuu
NGNG表示するにはどうしたらいいでしょうか？
例えば、ラベルを生成してフォームのLeft20、Top40の位置に表示するにはどう
すればいいでしょうか？
0500デフォルトの名無しさん
NGNGがんがれ!
Help は使い難い(分かり難い)けど、Help を使う癖をつけよう。
OpenDialog にカーソルを置いて F1 だ!
0501ryu
NGNG>499
0502yuu
NGNGありがとうございました。
出来ました。
これで夏休みの課題も終わりました。
感謝です。
0503デフォルトの名無しさん
NGNG0504デフォルトの名無しさん
NGNG0505デフォルトの名無しさん
NGNG0506デフォルトの名無しさん
NGNG0507デフォルトの名無しさん
NGNG使う局面による。
0508デフォルトの名無しさん
NGNG動的にパネルを配置し、パネルをマウスでクリックしたときbeepを鳴らしたいのですが、
うまくいきません。教えてください。m(__)m
********
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, KsBlock, StdCtrls;
type
TMainForm = class(TForm)
Button1: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
private
public
procedure KsBlockMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
end;
var
MainForm: TMainForm;
block: TKsBlock;
implementation
procedure TMainForm.KsBlockMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
Beep;
end;
procedure TMainForm.FormCreate(Sender: TObject);
begin
// ↓ここで、エラー。イベントの関数を割り当てたい。
// block.OnMouseDown := KsBlockMouseDown;
end;
// ボタン押したら、動的にコンポーネント作成
procedure TMainForm.Button1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
block := TKsBlock.Create(MainForm);
block.Parent := MainForm;
block.Left:= 100; block.Top:= 100; block.Width :=100; block.Height:= 100;
beep;
end;
end.
0509デフォルトの名無しさん
NGNGinterface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, ExtCtrls;
type
TKsBlock = class(TPanel)
private
public
constructor Create(AOwner: TComponent);
end;
implementation
constructor TKsBlock.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
end;
end.
0510508,509
NGNGタブがそろって見づらくなってしまいました。
0511デフォルトの名無しさん
NGNGエラーの原因は
Createで まだ作ってないインスタンスのメンバ（プロパティ）に代入しようとしてるから
それと、そのやり方だと 古いblockはどうなるの？
単にどんどん作りたいなら
with TKsBlock.Create(MainForm) do begin
Parent := MainForm;
OnMouseDown := KsBlockMouseDown;
Left:= 100;
Top:= 100;
Width :=100;
Height:= 100;
end;
beep;
とすればいいし、別の仕様ならそれなりに考えて
0512508,509
NGNGありがとうございます！！！烈しく感謝です！！！！！
0513デフォルトの名無しさん
NGNGこれをInternetExplorerを起動して見たいのですが
どの様にしたら良いのでしょうか？
－MSのHTML-helpと言うのもあるみたいですが、変更箇所もまだまだ出るので
普通のハイパーテキストとブラウザを使いたいです。
どなたか優しい御仁、素人な質問ですみませんがよろしくお願いします。
0514デフォルトの名無しさん
NGNGプログラムから開きたいならShellExecute使え
0515513
NGNG相対パスの書き方で、できればお願いします ｍ（_ _）ｍ
0516513
NGNG素早いレス、ありがとうございます。
ShellExecuteと言うのがあるのですね。
この後、使い方を調べてみます。
・・・でも相対パスの書き方は、僕のスキルだと難しそうです。
0517デフォルトの名無しさん
NGNG0518513
NGNGあ、ありがとうございます。 ・・・たぶん、僕宛てですよね。
素人なのでこれが何を差しているかどの様に使うのか、ちょっと謎です。
すみませんが、もう少しヒントをください。
それとShellExecuteのHelpを見たのですが、日本語化されてないのですね。
ちょっと手強いです・・・
0519デフォルトの名無しさん
NGNGあれくらいの～英語くらい～読めないと～
0520デフォルトの名無しさん
NGNG0521デフォルトの名無しさん
NGNGこれのことでしょ
0522デフォルトの名無しさん
NGNGそうでなくても、google見れば、MSDNがイヤでも引っかかるご時世なのに……
0524デフォルトの名無しさん
NGNGそれすら知らないプログラマがいたなんてかなりびくーり。
ぷろんぷとって使ったことないのかな？
いまどき、Webデザイナですら知ってる言葉なのに・・・・。
0525デフォルトの名無しさん
NGNGWebデザイナだから知ってるんだよ。
0527デフォルトの名無しさん
NGNGあんな便利な物が過去の遺物扱いになってしまうなんて・・・。
漏れにとってはデザインのいけてないアプリなんかよりシェルのほうが使いやすいがな。
でもステキデザインのアプリは別、ユーザインターフェイスとしてね。
0528デフォルトの名無しさん
NGNGExtractFilePathとApplication.ExeNameは日本語のヘルプがあるだろ
それくらい読め
0529デフォルトの名無しさん
NGNG0530デフォルトの名無しさん
NGNG0531デフォルトの名無しさん
NGNG0532デフォルトの名無しさん
NGNG>530
0533デフォルトの名無しさん
NGNGprocedure hoge;
begin
showmaeesge('>>529=質問者はソースが書いてないレスは一律無内容のようです。');
end;
0534デフォルトの名無しさん
NGNGウィンドウForm1があって、その中にScrollBoxLとScrollBoxRが左右に２分割してあります。
右側のScrollBoxR上のPanelをマウスで摘んで左側のScroolBoxLに配置したいと考えています。
右側のPanelをマウスでクリックしたときに、Panel.parentをForm1とするPanelを動的に作ろうとしたのですが、
作った瞬間、ウィンドウの同座標にPanelが作成されるまではいいのですが、左側のScrollBoxLの
エリアが右側に広がって、ScrollBoxL上のパネルになってしまいます。
どうすればいいのでしょうか？
ScrollBoxLとScrollBoxRをまたげるPanelというのは作れないのでしょうか？
また、このようなプログラムを作る場合、どういう方法がベストでしょうか？
よろしくお願い致します。m(__)m
0535デフォルトの名無しさん
NGNG0536534
NGNGありがとうございます！！ ヽ（´∀｀ ）ﾉ
でも、Panel.parentで指定してますし、改めて、SetParent()やってみましたがダメでした。
しかし、その後いじくっていて、Form1.AutoScrollをtrue→falseにしたら、
うまくいくようになりました。
動的にパネルを配置したときに、なんでか左側のScrollBoxLの範囲に乗っかるように
Ｗｉｎｄｏｗがスクロールされてしまうみたいです。
0537インフラ担当
NGNG今度、Delphi Studio 7がでますが、あれを使うと .NETフレームワーク
アプリを作れるようになるのでしようか?
これからは、Webアプリを作ることが多くなる一方、Delphiの方が
開発速度もはやいときいているんで、こっちを書いたんですけどね。。
0538デフォルトの名無しさん
NGNG.NETを使うなら開発速度はDelphiもC#もVB.NETも同じ。
Delphiの開発速度がはやいというのは.NETに対応していないVC等に対して。
特に理由がなければC#にしとけ。
0539デフォルトの名無しさん
NGNG.NETアプリを作成する際にMSの開発環境以外を選択する理由は
安置MSであることのみ。とBorland自身が言っている。
もはやBorlandの技術的アドバンテージは皆無って事。
仮に安置MSであったとしてもDel7は最悪の選択肢なので
せめてDel8まで待ったほうがいい。
0540デフォルトの名無しさん
NGNG> NETアプリを作成する際にMSの開発環境以外を選択する理由は
> 安置MSであることのみ。とBorland自身が言っている。
ソースｷﾎﾞﾝ
0541デフォルトの名無しさん
NGNG0542デフォルトの名無しさん
NGNG0543インフラ担当
NGNG以前は、dllファイル不要(?)のDelphiアプリってすごい魅力的だったように
思ったのですが、今では VB.NETでも同じですか。。
じゃあ、VB.NETを覚えようと思います。
0544デフォルトの名無しさん
NGNG参考までに.NETのDelphiはDLL必要。
0545デフォルトの名無しさん
NGNG全然ダメだね。(藁
0546デフォルトの名無しさん
NGNG.NETの案件があるんですか。
差し支えない範囲で内容教えてもらえませんか？
0547デフォルトの名無しさん
NGNG0548デフォルトの名無しさん
NGNGActiveX みたいに。
0549デフォルトの名無しさん
NGNG0550デフォルトの名無しさん
NGNGttp://www.zdnet.co.jp/news/0208/26/ne00_galileo.html
0551デフォルトの名無しさん
NGNGSaveToFileをTMemoとかTPictureなしで使いたいんですがどうしたらいいでしょうか。
0552デフォルトの名無しさん
NGNG何もSaveToFile使わなくても、FileCreateでも何でもいいんじゃ？
0554デフォルトの名無しさん
NGNGDel使いのレベルを誤解されるのでそう言う発言は控えてください。
0555デフォルトの名無しさん
NGNGそういうスレですのでお前が発言を控えてください。
0556デフォルトの名無しさん
NGNGwith tstringlist.create do begin savetofile('a.txt'); free end;
0557340
NGNG0558デフォルトの名無しさん
NGNG0559デフォルトの名無しさん
NGNGTListBox.Itemsの文字列をOLEドラッグ＆ドロップ（送るだけ）したいんだけど
やり方がわからん・・。
どなたかヒントを教えて下さい。
0560デフォルトの名無しさん
NGNG１つ教えてください。
動的にメモリを確保する（プログラム実行時まで配列のサイズがわからない）方法を教えてください。
0561デフォルトの名無しさん
NGNG0562デフォルトの名無しさん
NGNG0563560
NGNGhttp://www.geocities.co.jp/SiliconValley-SanJose/2560/delphi4/pascal/index.htm
ありがとうございました
0564b loom
NGNGhttp://www.leverage.jp/bloom/start/
0565５６０
NGNGGetMemで確保したメモリを配列のように扱えないのでしょうか。
下のような使い方しかわからない。
var
pData : PInteger;
pTarget : pInteger;
begin
GetMem(pData , 10);
pTarget := pData;
for i:= 0 to 10 do
begin
pTarget^ := i * 10;
Inc(pTarget);
end;
0566デフォルトの名無しさん
NGNG>>562の動的配列や、TListじゃ駄目なのか？
0567デフォルトの名無しさん
NGNGこういう感じじゃいかんの？
var
Buf:array of Char;
begin
SetLength(Buf,10);
0568デフォルトの名無しさん
NGNG0569デフォルトの名無しさん
NGNG>「Pascalにない数学関数の作り方」
ん？これって全部math.pasにないか？
0570560
NGNG動的配列って自分でメモリ確保することの別名かと勘違いして流してしまいました。
TList調べて見ます。
>>567
ありがとうございます。試してみます。
>>568
上の方のメモリの確保に目がいって下の方の動的配列を見逃がしていました。
0571デフォルトの名無しさん
NGNG確か昔はなかったと思う。
あと最下位エディションにはmathユニットが付属してなかったし。
0572デフォルトの名無しさん
NGNG配列として使いたいなら
type
TAInteger = array [0..9]Integer;
pTAInteger = ^TAInteger
var
pData : PInteger;
paData : pTAInteger absolute pData;
begin
とやれば pDataとpaDataは同じ番地に配置されるから
GetMem(pData , 10); として
paData^[i] と配列アクセス出来る。
なお、この方式の場合配列サイズは考慮されないようす
Delphiは純パスカルと違って、メモリアクセスに関しては案外と柔軟
0573デフォルトの名無しさん
NGNGwebべったりは効率悪いよ。バージョンの違いで嘘情報になってることもあるし。
0574デフォルトの名無しさん
NGNGいまは open にも math ついていますって。
0575TOPEAK
NGNG参考になるソース、HP、書籍などありましたら教えてください
0576デフォルトの名無しさん
NGNG知ってる。だから過去形で書いた。
0577デフォルトの名無しさん
NGNGhttp:www.google.com
0578デフォルトの名無しさん
NGNG参考になるようなならないような。
http://leed.issp.u-tokyo.ac.jp/~takeuchi/delphi/browse.cgi?index=062973&back=http%3A%2F%2Fwww2%2Ebig%2Eor%2Ejp%2F%7Eosamu%2FDelphi%2Fdelphi%2Dbrowse%2Ecgi%3Findex%3D062973
>>577
吐駄はｶｴﾚ!
0579デフォルトの名無しさん
NGNG0580デフォルトの名無しさん
NGNG0581デフォルトの名無しさん
NGNG「ソースファイルが見つかりません：Graphics.pas」というダイアログが出て、実行できないんですけど、
Delphiのフォルダから、何かを間違えて消してしまったってことでしょうか？
教えて下さい。
0582デフォルトの名無しさん
NGNGCD からコピー。
0583581
NGNGちなみにLib\Graphics.dcuはありました。
0584581
NGNGuses節に書かれているGraphicsの参照先でしょうか？
何も書いてないときは普通にコンパイルできるのですが、
Image1.picture.LoadFromFile…という所を書いたらエラーが出ました。
picture: TPicture←これがGraphicsユニットに属するらしいですが…。
どなたか教えて下さい。
0586581
NGNG実行できます！
0587デフォルトの名無しさん
NGNG0588デフォルトの名無しさん
NGNG遅レスすまんが、嘘いいなさんな。
必要なものが全てひとつの*.exeにパックされる作りなので、不要ですよ。
0590デフォルトの名無しさん
NGNG.NETフレームワークまで！？
0591デフォルトの名無しさん
NGNGもしDel6パーソナルだったらパッチ当てる
0592デフォルトの名無しさん
NGNG＞*.exeにパックされる
することもできる。に訂正きぼん。
0593581
NGNGありがとうございます。
Del6パーソナルです。
それと、パッチってどれを当てれば良いのですか？
この中の物ですよね？
http://www.borland.co.jp/download/delphi.html
0594デフォルトの名無しさん
NGNGDelphiのあすくえにRuybyをばかにすんあ
0595デフォルトの名無しさん
NGNGそのページであってるから、内容を読んでもらえないか？
0596581
NGNGどれを当てれば治るか、書いてなくないですか？
とりあえず、それっぽい物(アップデートファイル #2)にしておきます。
それと、ページによって見出しが違うのでわかりにくいですね。
http://www.borland.co.jp/delphi/del6up.html
こっちでは「Update Pack 2」になってますし。
0597デフォルトの名無しさん
NGNG（ ´_ゝ`）ﾌｰﾝ で、だからどうしろと？
0599デフォルトの名無しさん
NGNG某のサイトが判り難いとここで愚痴たれても意味ないだろってこと
0600デフォルトの名無しさん
NGNG0601デフォルトの名無しさん
NGNG専用の例外はどうやって作るんですか？
0602デフォルトの名無しさん
NGNG0603デフォルトの名無しさん
NGNG0604デフォルトの名無しさん
NGNGDelphiはオープンソースじゃありませんよ
0605デフォルトの名無しさん
NGNG人柱になって買ってみたいのだが、いかんせん金が……
もっと安くしてほすぃ。
つかアカデミックキボンヌ(泣
0606デフォルトの名無しさん
NGNGアカデミックあるぞ。３ﾏｿで買える。
0607TOPEAK
NGNG0608デフォルトの名無しさん
NGNGttp://www.borland.co.jp/sales/delphi.html
３万なのはprofessional版な。というかproにしかアカデミックがないわけだが。
0609デフォルトの名無しさん
NGNG0610デフォルトの名無しさん
NGNG0611TOPEAK
NGNG普及してない方が
やすうりするとおもうんだけどなあ・・
0612デフォルトの名無しさん
NGNG>>609 + >>610 -> >>611
どういう神経してんだ？
0613デフォルトの名無しさん
NGNGだれか背中を押してください。
0614デフォルトの名無しさん
NGNGでも6持ってて必要無いなら待ったら？
0615デフォルトの名無しさん
NGNG0616デフォルトの名無しさん
NGNG質問あるなら聞くよ？
0617615
NGNGシーケンス図ってコードに反映される？
見当違いな質問だったらスマソ
0618デフォルトの名無しさん
NGNGロールシンボルに変換される。
ロール間を「手続きメッセージの追加」アイコンを押してつなげると
メソッドの雛型を自動的に作成する。
もちろん具体的なコードは手で書かなきゃダメだけどね。
0621615
NGNGModelMakerから落としたもの
一応プロジェクトの保存はできるみたい
>>619
例えばクラス図で作成したクラス中のメソッドの実装を書く
ことができるん？
UMLもいまいちわかってないので基本から勉強すっかな
サンプルプロジェクトとかどこかのサイトにないかな
0622デフォルトの名無しさん
NGNG0624デフォルトの名無しさん
NGNGインプリメンテーションタブでコードを埋める。
Rose とかの高級品と違って、UML ビューで作成される雛型は雛型でしかないから
実装時に UML 図でどのような役割をメソッドに与えたのか考えながらコードを
書く必要がある。それを楽にするには一行メモをしっかり埋めること。
UML -> ソースコードジェネレーターではないので、過度の期待はしないように。
あのさ。もし日本語環境での不満やバグとか見つけたのなら、レポートしてもらえる？
0629デフォルトの名無しさん
NGNG某の方ですか？
0630デフォルトの名無しさん
NGNG0632デフォルトの名無しさん
NGNGD4,D5,D6 と、インストール時に（.pas/.dpr とかの）関連付けを更新しますか？
って聞いてきたから今回も確認するんじゃないの？
Build #140x を使っているのなら、ダイアログベースフォントとエディタ２種類。
あとプロジェクトオプションのダイアグラムスタイルの２種類のフォントを日本語
にしておけば大丈夫。
ま、バグレポートとは言わないけど、使ってみて感じた感想とか、教えてもらえると
とっても嬉しいな。と書いておこう。詮索無用。
そっちだと
>the major change is invisible: MM was MBCS enabled.
だよ。
0639デフォルトの名無しさん
NGNGTPageSetupDialog
TXPColorMap,
TStandardColorMap,
TTwilightColorMap
0640デフォルトの名無しさん
NGNG0641デフォルトの名無しさん
NGNGValueFromIndex , NameValueSeparator.
0642デフォルトの名無しさん
NGNG0643デフォルトの名無しさん
NGNG0644デフォルトの名無しさん
NGNGScreenSnap , SnapBuffer,
0645デフォルトの名無しさん
NGNGAutoCompleteOptions
0646デフォルトの名無しさん
NGNG0648デフォルトの名無しさん
NGNGhttp://nonoclub.coolfreepages.com/d7trial.png
http://nonoclub.coolfreepages.com/indy.png
http://nonoclub.coolfreepages.com/readme.txt
0649TOPEAK
NGNGユーザーインターフェイスガイドラインみたいなものは
あるのでしょうか？
0650bloom
NGNGhttp://www.leverage.jp/bloom/start/
0651デフォルトの名無しさん
NGNGグロ
0652デフォルトの名無しさん
NGNGどういうもの？
0653デフォルトの名無しさん
NGNGどういうもの？
Delphi6 についてるのと一緒だろーが。
0655デフォルトの名無しさん
NGNGフリーのコンポ入れてた。逝ってきます
0656デフォルトの名無しさん
NGNGファイルの中身がそのままはいっているのでしょうか？
カンタンDelphiプログラミングよんでるのですが
型を格納するとかかいてあるのですが
型を格納するのになぜファイルなの？っってかんじですた
0657デフォルトの名無しさん
NGNG0658
NGNG0659デフォルトの名無しさん
NGNG特定の型を格納する変数というのがよくわかりませんでした
＜ファイル型変数
0660デフォルトの名無しさん
NGNG0661デフォルトの名無しさん
NGNGファイルハンドルのことなのか
よくわかりますた
0662デフォルトの名無しさん
NGNGこの本
説明を省略しすぎたとおもうんだが・・
0663デフォルトの名無しさん
NGNGバージョンアップより高いんですけど（´д｀；）
0664デフォルトの名無しさん
NGNG他のスレ/板で話題になっていたら教えてください。
0665615
NGNGできないんですか？
ttp://www.ogis-ri.co.jp/otc/hiroba/technical/Jouhoushori-UML/UML11.html#rabel2
こういった議論もあります。活性区間を重ねなければいけない場合って？
0669デフォルトの名無しさん
NGNGないよ。
あったらもっと操作性が統一されてるだろう
0670デフォルトの名無しさん
NGNGMicrosoft Press の「Windows ユーザーインターフェイスデザインガイド」は違うの？
まあ、マイクロソフト自体もこのガイドから外れることばかりしているから、誰も守らない
というのは当たっているけど。
ふるっ
Visual Studio&OfficeがUIのお手本です。
0672EXE系の人
NGNG使用許可コードというのが出てきて
英語がぎっしりのページで登録したんですけど
その後どこでライセンスを受け取るのですか
0673デフォルトの名無しさん
NGNGDelphi7トライアル？
だったら、メールがくるから、そのメールに書いてあるとおりに添付ファイルを配置すればOK。
0674669
NGNGははは、やっぱり古かったですか。
でも、「Visual Studio&Office」というのは「ちゃんと文章化」されているのでしょうか。
そして、その文章化されたものが適当な価格で販売されているのでしょうか。もし、
それがないのだったら「ガイドラインは無い」というのもあながち間違いではないかも。
0675デフォルトの名無しさん
NGNG検索すれば一発でわかると思いますが。調べもしないで無意味な投稿をしないでください。
0676EXE系の人
NGNGありがとう
0677デフォルトの名無しさん
NGNGその脳内理論を普遍なモノとして語る癖やめないと友達いなくなるよ？
0678デフォルトの名無しさん
NGNGそのセリフは吐駄ﾁｬﾝに言ってくださいな。
0680デフォルトの名無しさん
NGNG>検索までして調べる気もないや
よかったね。問題解決できて。
0681Delフサギコ ◆VzDeLphI
NGNG∧.,,∧ ／
ミ.,,ﾟДﾟ彡＜ マジ質問ですたんか？
ﾐ つ目(ﾐ . ＼
～ミ,,Ｏ,,,,,,つ ￣￣￣￣￣￣￣￣￣￣￣￣￣￣
2chDelphi系のスレでは
某ML(のある人)の慣習に従って、どんな質問がきても
「過去ログを検索しろ」レスをつけておちょくるのが
流行っているんで(ｗ
あまりマジで受け取らないように。
で、
>でも、「Visual Studio&Office」というのは「ちゃんと文章化」されているのでしょうか。
されてないと思われ。
>それがないのだったら「ガイドラインは無い」というのもあながち間違いではないかも。
「ガイドラインは無い」というのが多聞正解
だから、ころころ変わるVSやOfficeやXPに追随せねばならんです
"Designed for Windows XP/2000/ME/98/NT"
っていうロゴを取得したりは出来るらしですが、
別にあってもなくても誰も気にしないと思われ
0682デフォルトの名無しさん
NGNGとんでもないデザインなのは何とかしてほしい。
ボタンだらけとか色が派手派手だとかヒントがまったくでないとか。。
0683ｶﾞﾝｶﾞﾚｰ
NGNG0684デフォルトの名無しさん
NGNGそういう人のためにWindowsにはエクスプローラというすばらしいファイラーがついているのだよ。
0685デフォルトの名無しさん
NGNGファイラの話はしてねーよ
0686デフォルトの名無しさん
NGNG使わなきゃいいだろ。
Delphi となんの関係があるの。 Delphi 製とか？
0687デフォルトの名無しさん
NGNGうるさいなぁ。ML の下らん規則を持ってくるな。ぼけ。
0688デフォルトの名無しさん
NGNG使ってないよ。
"Designed for Windows XP/2000/ME/98/NT"の話が出てきたから、
UIにも気を使ったソフトを作らないとね、っていう話をしたかった。
0689669
NGNG何も問題ではありませんが？「調べりゃわかる」と言われたんで、調べる気もないと返した
だけです。
「Visual Studio&Office」というソフト名らしき物を上げて「お手本です」と書かれたので、文章
化（書籍化やWeb上にまとめられているか）を知りたかっただけです。
>>681
ありがとうございます、やはり「MSのソフトに合わせろ」という感じなのでしょうか。それはど
う考えても「デザインガイド」ではないですね。ただのお手本という感じにしかなりませんね。
それならば私が出した本は「一応デザインガイド」となっているので、これに従うのが一番妥
当なような気がします。ちょっと古くさいUIですが、別に動かないというものでもないし。
0690デフォルトの名無しさん
NGNG>それならば私が出した本は
（（（（（（（（ ；ﾟДﾟ))))))))))))ｶﾞｸｶﾞｸﾌﾞﾙﾌﾞﾙ
0691デフォルトの名無しさん
NGNG後３分くらい考えると本当の意味がわかるよ。
逆にそれくらい考えないと意味がわからない文章だよ。
0692Delフサギコ ◆VzDeLphI
NGNGスレの流れも意味わからないけどな。
0693デフォルトの名無しさん
NGNGそれを許せるのなら、どんな UI を使ってもいいんじゃないの？
それとも、自分で考えるのがいやとかかな？
ガイドラインがないと何もできないとか？
0694デフォルトの名無しさん
NGNGこれか
0695デフォルトの名無しさん
NGNG＞PC 98は、ハードウェア設計者を対象に作成され、その目的は、以下の通りです。
って書いてあるやん。
0696デフォルトの名無しさん
NGNG0697デフォルトの名無しさん
NGNG0698669
NGNG分かりにくくなってすみませんでした。「私の挙げた本は」とすべきでした。
>>693
確かにどんなUIでも良いのですが、一応「標準（デザインガイド）」があるなら
それに従った方が使いやすくなると思っています。自分しか使わないソフト
なら全く考えずに作るのですが、一応フリーソフトとして公開するやつはデザ
インガイドから外れていないかチェックするようにしています。
「ちょっとしたツール」程度のものですから、複雑なUIを使わなくても何とか
なります。
マイクロソフトのソフトはほとんど使っていないので、「ソフトを見ながらUIを
チェックする」ということが出来ないんです。
0699デフォルトの名無しさん
NGNGmacなら編集できまりなのだが
winだと編集だったりツールだったり
0701デフォルトの名無しさん
NGNG＞マイクロソフトのソフトはほとんど使っていないので
メモ帳、ワードパッド、マインスイーパー、エクスプローラーあたりを使ってみてはどうか。
0702デフォルトの名無しさん
NGNGTShapeの図形をクリックすると、新しく図形がそこに作成され、
マウスで動かせるようにしたいのですが、
マウスをムーブした時のイベントが、元の図形のままになっているようで、
うまくいきません。
新しく作成したTShapeのイベントにするような方法ってありますでしょうか？
0703デフォルトの名無しさん
NGNGもしそうなら、新しい TShape のイベントをそれに関連づけたら
0704デフォルトの名無しさん
NGNGそれが新しいオブジェクトを生成したとしても、何もしなければ古いオブジェクトの
イベントのまま。だってイベントの元の Windwos メッセージは古いオブジェクトの
WIndow ハンドルに送られてきたんだから。
アクロバット的な解決方法もあるかもしれないが、定石としてはコンポーネントを
乗せているオブジェクト（TForm など）に細工をするのがおすすめ。
0705デフォルトの名無しさん
NGNG作成したイベントが重なっていないなら動かせるけど、重なっていると
どっちにしてもどれか一つしか受け取れない
こんなの参考にして複数のイメージを含んだコンポ作ったら？
矢印や直線も描ける、しかも設計時にCADみたいにイメージを動かせるコンポ
http://do.sakura.ne.jp/~junkroom/cgi-bin/megabbs/readres.cgi?bo=lounge&vi=1004530597&rm=100
0706702 ヽ（´∀｀ ）ﾉ
NGNGたいへんありがとうございます！！！
試行錯誤して色々やってみます！！！
0707デフォルトの名無しさん
NGNGttp://home1.infonia.ne.jp/~delphian/delphi/compo/text/mi0027.txt
結構古い（D3時代）から、手直しが必要かも。
0708お約束。
NGNGFDelphi の FAQ を探してみましょう。
0709702
NGNGどうもありがとうございます！！
また質問なのですが、ShapeのParentを変更すると、
マウスを早く動かしたときに図形がマウスについてこなくなってしまうのです。
再びマウスを乗せるとついてきます。
ＦＡＱっぽい感じもするのですが、見当たらないです・・・。
0710デフォルトの名無しさん
NGNGSetCaptureControl やってみそ
0712708
NGNG0713デフォルトの名無しさん
NGNG> WIndow ハンドルに送られてきたんだから。
TShape はウィンドウをつくらないはず。ハンドルなんかないよ。
Ｄ＆Ｄで動かせるようなイベントハンドラが Sender だけを参照して
特定のインスタンスを参照しないようにコーディングされていれば
新しいインスタンスのイベントに関連づけするだけでは？
0714702
NGNGTShapeを配列でたくさん作って、それぞれに共通の関数で処理しているのですが、
根本的にやり方がタブーなんでしょうか？
★最初にTShapeを配列でとって
Var
MyShape : array[1..10] of TShape;
★Form1のクリエイト時に
procedure Form1.FormCreate(Sender: TObject);
begin
for i := 1 to 10 do
begin
MyShape[i] := MyShape.Create(Form1);
MyShape[i].Parent := Form1;
MyShape[i].OnMouseDown := MyShapeMousedown;
MyShape[i].OnMouseMove := MyShapeMouseMove;
MyShape[i].OnMouseUp := MyShapeMouseUp;
end;
end;
★クリックされた時の関数は
procedure Form1.MyShapeMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
SetCaptureControl(TControl(Sender)); ←☆
for i:=1 to 10 do
if Shape[i] = Sender then ここで配列の中のどのコンポーネントか判断している。
begin
マウスを早く動かすと、移動中のShapeがおいてけぼりになってしまいます。
SetCaptureControlをマウスクリック時に設定しても、マウスを動かしたときにMyShapeMouseMove()に処理が来ないです。
0715デフォルトの名無しさん
NGNGonKeyDownイベントで[CTRL]+[SHIFT]+[0}が入力された時のみ
特定の処理をしようと思っているんですが・・・。
[SHIFT]→[CTRL]→[0]と押す Key値：16
[CTRL]→[SHIFT]→[0]と押す Key値：17
となってしまいます。
因みに何も押さない時のKeyは96。
きちんと[SHIFT][CTRL][0]を検知するにはどうしたら・・・？
0716Delフサギコ ◆VzDeLphI
NGNG,,,,,,,,,,,,,,,∧,,∧ ／Ctrll+Shift+0
～′,,,,,,,,,,ミ,,ﾟДﾟ彡＜ Actionのｼｮｰﾄｶｯﾄキーに
UU"""" U ⊃ ＼割り当てるのがよし
￣￣￣￣￣￣￣￣￣￣
0717デフォルトの名無しさん
NGNGふつう Sender を TMyShape にキャストするだけでは？
0718デフォルトの名無しさん
NGNGコンポを配列にするというVBみたいな発想はやめたほうがいいよ
0719Delフサギコ ◆VzDeLphI
NGNG,,,,,,,,,,,,,,,∧,,∧ ／>>718
～′,,,,,,,,,,ミ,,ﾟДﾟ彡＜ 時と場合によると思うよ
UU"""" U ⊃ ＼
￣￣￣￣￣￣￣￣￣￣
0720デフォルトの名無しさん
NGNG同意。
ボタンを押すと１００個のチェックボックスが一斉に（略
0721デフォルトの名無しさん
NGNG0722デフォルトの名無しさん
NGNG彼のようになんとしてもキャストを使いたくないときには有効だと思われ。
0723デフォルトの名無しさん
NGNG>>714 のコードは配列をループで回すところが無駄なんだよ。
0724714
NGNG配列をループで回さない場合、どうやるのでしょうか？
Controlsでしょうか？勉強します。
Shape.parent := で親を変更すると、マウスの動きが速いとき図形がついてこなくて、
Windows.SetParent(Shape.Handle,Form1.Handle); だと、きちんとついてくることが判りました。
しかし、この場合、Shape.top:= Shape.Left := で、図形の位置をセットできません。
Shape.parent := の場合は、図形の位置をセットできます。うーん。
0725Delフサギコ ◆VzDeLphI
NGNG,,,,,,,,,,,,,,,∧,,∧ ／
～′,,,,,,,,,,ミ,,ﾟДﾟ彡＜ ClientToScreenとかその逆で
UU"""" U ⊃ ＼ Top/Leftを計算してみては？
￣￣￣￣￣￣￣￣￣￣
0726デフォルトの名無しさん
NGNG0727714
NGNGShape.parent:=で親を変更した場合は、ClintToScreenなどでtop,Leftを
計算してうまくいくのですが、
Windows.SetParent( で親を変更した場合には、Top,Leftに何を入れても
反映されないのです・・・
0729デフォルトの名無しさん
NGNGあるんですか？
0730デフォルトの名無しさん
NGNG>計算してうまくいくのですが、
>Windows.SetParent( で親を変更した場合には、Top,Leftに何を入れても
TShape ってウィンドウを作らない VCL コントロールなんだから
Windows.SetParent() で親を設定できるはずないだろ
0732デフォルトの名無しさん
NGNG他のみんなはコントロールをすべてなめる時の話をしてるんだけどね。
0733デフォルトの名無しさん
NGNGはあ？ スレの流れ読めてないね。
発端の >>714 のコードが何やりたいかわからないのか。
ループで回す必要ないんだよ。Sender に目的のオブジェクトが入ってるんだから。
0734733
NGNG0735ななしへたぐらま ◆B18Bks.Y
NGNGShepeコンポのドラッグによる移動はこんな感じでしょうか．
>>710さんが意図したのとは違うかも知れませんが
SetCaptureControlでShapeの親がマウスイベントを捕捉するようにしています．
//TForm1のフィールド変数に以下を追加
FDraggingControl: TControl; // ドラッグしているコントロール
FDragOffset: TPoint; // ドラッグしているコントロールの左上座標からドラッグした位置までのオフセット
// 各ShapeコンポのOnMouseDownイベントハンドラ
procedure TForm1.Shape1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
// ドラッグしているコントロールを保管
FDraggingControl := Sender as TControl;
// ドラッグしているコントロールの左上からマウスカーソルまでのオフセットを保管
FDragOffset.x := X;
FDragOffset.y := Y;
// マウス処理をこのコントロールの親で捕捉するようにする
// （つまり，以後にマウスを動かしたりボタンを離しても
// ShapeコンポのOnMouseMove，OnMouseUpイベントは発生せず，
// 代わりに親の同イベントが発生する）
SetCaptureControl(FDraggingControl.Parent);
end;
（つづく）
0736ななしへたぐらま ◆B18Bks.Y
NGNG// Shapeの親のOnMouseMoveイベントハンドラ
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
// ドラッグしているコントロールがあるならそれを移動する．
if (FDraggingControl <> nil) then
begin
FDraggingControl.Left := X - FDragOffset.x;
FDraggingControl.Top := Y - FDragOffset.y;
end;
end;
// Shapeの親のOnMouseUpイベントハンドラ
procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
// マウス処理の捕捉を終了
// （以後，通常通りにマウスイベントが発生する）
ReleaseCapture;
// ドラッグしているコントロールがなくなったことを記憶．
FDraggingControl := nil;
end;
0737709
NGNG初心者＆独学で、なんとも変なコードを当たり前の様に
書きつらねてしまっているので、大変勉強になります！！！
0738デフォルトの名無しさん
NGNGＳｈｅｌｌｌｉｓｔｖｉｅｗで選択したファイル名って、なんていうプロパティで受け取る
ですか？？？？
ＨＥＬＰにもありません
(^o^)丿
0739デフォルトの名無しさん
NGNG0740デフォルトの名無しさん
NGNGItemIndex とか Selected とかかな？ 使ったことないけど。
>>739
理由教えて。
0741727
NGNGすみません。その通りでした。
ShapeじゃなくてPanelでした。呆けてました。
ネットで検索したら、parentはcreateした直後に設定し、その後にその他の
プロパティを設定しなくてはならないみたいです。
・・・とすると、一度parentを設定したら、変更してはいけないのかな？という感じがします。
0742デフォルトの名無しさん
NGNG親を変更してはいけない、ということはありませんが
変更しなくてもよいプログラムが書けるならそのほうが
よいと思います
0743デフォルトの名無しさん
NGNGPathだったような違ったような。
0744デフォルトの名無しさん
NGNGFAQです。過去ログを参照しましょう。
ってMLじゃたたかれますな。
>>739
多分Delphi6もってないんじゃないの？
注意書きと、些細なバグさえ修正すればそこらの汎用プログラマが作成するより幾分堅牢なコンポーネントのような気はするけど。
些細なバグは過去ログあたってね
0745デフォルトの名無しさん
NGNG当たり！
0746デフォルトの名無しさん
NGNG0747デフォルトの名無しさん
NGNG使ってる。つっても、インストールしてサンプルで適当に遊んで
DDSDでoggファイル再生する実験してみたくらいだけど。
0748738
NGNG教えてくだちい へこへこ
0749デフォルトの名無しさん
NGNG使ってますよ。
0750709
NGNG>>735さんに教えていただいて、次の書き込みのソースを書きました。
Form1の左側にScrollBox2,右側にScrollBox1があります。
左側のScrollBox1をparentとするPanel1をマウスでドラッグ＆ドロップで、
右側のScrollBox2に移動させたいと考えています。
Panel1をマウスクリックした時にparentをForm1に変更し、
マウスボタンを離したときにparentをScrollBox2に変更しています。
ところが、マウスのボタンを離してもScrollBox2にpanelが移動しないのです。
念のため、
タイマーを使って、Panel1のparentを左右のScrollBoxを交互に変更させたらうまくいきました。
0751709
NGNG____FDragOffset:Tpoint; //オフセット
____FDraggingControl : TControl;//ドラッグしているコントロール
implementation
//マウスを移動
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
____FDraggingControl.Left := X-FDragOffset.X;
____FDraggingControl.top := Y-FDragOffset.Y;
end;
//マウスボタンを離したら
procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
____ReleaseCapture;
____FDraggingControl.Parent := Scrollbox1; //マウス離したら親をscrollbox1に変更
____FDraggingControl:=nil;
end;
//マウスボタンを押したら
procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
____FDraggingControl := Sender as TControl;
____FDragOffset :=point(x,y);
____SetCaptureControl(Form1);
____FDraggingControl.Parent := Form1; //マウス押したら親をForm1に変更
end;
end.
0752746
NGNGDirectX7SDKヘルプの「ボーランド浮動小数点の初期化」というのを見ると、
もっとスマートな方法があるような気もするのですが。
Quadruple Dのヘルプを見ても、入れなければならない条件というのがあいまいで
よくわからないのですが。。。
0753デフォルトの名無しさん
NGNGKeyUpだし
ScrollBox2出てこないし
0754デフォルトの名無しさん
NGNGDel6でインスコしていじってたことあるよ
0755751
NGNGたいへんありがとうございます！！！！
ScrollBox2が出てこないのは書き込み用のタイプミスでしたが、
まさしくKeyUpが原因のようです。
・・・・３日間の悩みが解決しましたヽ(´Д`；)ﾉ
0756デフォルトの名無しさん
NGNG0758デフォルトの名無しさん
NGNG0759デフォルトの名無しさん
NGNGこれらを買うとどんな得点があるのでしょうか。
visualStdio.netを買うとSQLサーバーやOS、その他いろいろ提供してもらえます。
デルファイはなにがもらえるのでしょうか。教えてください。お願いします。
0760デフォルトの名無しさん
NGNG愛とか夢とかロマンとか…。
0761デフォルトの名無しさん
NGNG動的配列を２つ作って片方にデータを入れたあと、
もう片方にそのデータをコピーして使いたいのですが、
↓みたいなやり方で大丈夫でしょうか？
var
Array1，Array2 : Array of String;
begin
____SetLength(Array1,1);
____Array1[0] := 'aaa';
____Array2 := Array1;
____//メモリ再割り当て
____SetLength(Array2,Length(Array2));
____Array2[0] := 'bbb';
____……
end;
0762デフォルトの名無しさん
NGNG本題と関係ないけど
_
のかわりに
を使うほうがいいかと。
0763デフォルトの名無しさん
NGNG全角スペースでもよいかと
0764デフォルトの名無しさん
NGNG0765デフォルトの名無しさん
NGNG0766デフォルトの名無しさん
NGNG0767デフォルトの名無しさん
NGNG？
0768デフォルトの名無しさん
NGNGArray of string なら Tstringlist 使ってしまえば？
Assignできるし。
0769デルファイの名無しさん
NGNG0770ななしへたぐらま ◆B18Bks.Y
NGNGご存じかも知れませんが
動的配列変数同士の代入では内容のコピーは行われない仕様のようです．
（しかも文字列と違い，コピー後に片方を改変してもコピーは行われない）
しかしSetLength手続きで再割り当てすると
２つの変数は別な配列を指すようになるようです．
ただしヘルプにはこれに関する記述はがありませんでした．
>>768
私も文字列リストですね．動的配列はたまにしか使いません．
>>769
なるほど！ Copy関数だと動的配列を１行で複写できますね．
0771761
NGNGフォローありがとうございますm(__)m
そうなんですよね。ヘルプみても詳しい使用例
みたいのがなかったもので･･･
>>769さんのCopyの方がすっきりした形で出来そうなので、
そちらの方法でやることにします。
>>768
実は、今実際に修正かけてるのがRecord型の動的配列の
要素の一つにRecord型の動的配列が入っているという
構造でして、TStringList使えなかったんです。
TListにおきかえようとも思ったのですがもう時間がなくて。
紛らわしい例出してすいません。
とにかく助かりました、ありがとうございます！!
0772デフォルトの名無しさん
NGNG（＊実は、今実際に修正かけてるのがRecord型の動的配列の
要素の一つにRecord型の動的配列が入っているという
構造でして、TStringList使えなかったんです。 ＊）
TList使えそうな予感。
0773てすた
NGNG／∵∴∵∴＼
/∵∴∵∴∵∴＼
/∵∴∴,（･）（･）∴|
|∵∵／ ○ ＼|
|∵ / 三 | 三 | ／￣￣￣￣
|∵ | ＿_|＿_ | ＜ うるせー馬鹿！
＼| ＼＿/ ／ ＼＿＿＿＿
＼＿＿＿_／
0774デフォルトの名無しさん
NGNGReadlnで読み込んで、区切りを探して…、くらいしか思いつかないんですが、
もっと楽な方法ってありますか？
0775デフォルトの名無しさん
NGNG0776デフォルトの名無しさん
NGNGTStringList を使ってみ、、、
0777デフォルトの名無しさん
NGNGTStringList.CommaText
0778774
NGNGあ！TStringListのヘルプ見てみました！
CommaTextやDelimitedTextを使うんですよね？
これでOKです！ありがとう！
0780てすた
NGNG／∵∴∵∴＼
/∵∴∵∴∵∴＼
/∵∴∴,（･）（･）∴|
|∵∵／ ○ ＼|
|∵ / 三 | 三 | ／￣￣￣￣
|∵ | ＿_|＿_ | ＜ うるせー馬鹿！
＼| ＼＿/ ／ ＼＿＿＿＿
＼＿＿＿_／
0781デフォルトの名無しさん
NGNGなにをテストしてるの？
0782デフォルトの名無しさん
NGNG0783どすた
NGNG／∵∴∵∴＼
/∵∴∵∴∵∴＼
/∵∴∴,（･）（･）∴|
|∵∵／ ○ ＼|
|∵ / 三 | 三 | ／￣￣￣￣
|∵ | ＿_|＿_ | ＜ どんな質問にも答えてやろう
＼| ＼＿/ ／ ＼＿＿＿＿
＼＿＿＿_／
0784デフォルトの名無しさん
NGNG> どんな質問にも答えてやろう
AA がいかにも頭悪そうに見えるのはなぜですか？
0785デフォルトの名無しさん
NGNG／∵∴∵∴＼
/∵∴∵∴∵∴＼
/∵∴∴,（･）（･）∴|
|∵∵／ ○ ＼|
|∵ / 三 | 三 | ／￣￣￣￣
|∵ | ＿_|＿_ | ＜ >>784 うるせー馬鹿
＼| ＼＿/ ／ ＼＿＿＿＿
＼＿＿＿_／
0786デフォルトの名無しさん
NGNG答えになってない罠
0787デフォルトの名無しさん
NGNG／∵∴∵∴＼
/∵∴∵∴∵∴＼
/∵∴∴,（･）（･）∴|
|∵∵／ ○ ＼|
|∵ / 三 | 三 | ／￣￣￣￣
|∵ | ＿_|＿_ | ＜ どんな質問にも答えてやろう
＼| ＼＿/ ／ ＼＿＿＿＿
＼＿＿＿_／
0788デフォルトの名無しさん
NGNG試してみたんですけど、Win2K のパワーユーザ権限では
HKEY_LOCAL_MACHINE 以下の値が取得できませんでした。
HKEY_CURRENT_USER 以下は取得できます。
もちろん、コンパイルしたヤツを Admin 権限で動かすと
どこのレジストリも読めるんですけど。
これって仕様なんですか？あ、Delphi6 Personal UP1 使ってます。
知っているヒトよろしくです。
0789デフォルトの名無しさん
NGNGどうやってOggVorbisのライブラリをDelphiに移植したの？
0790デフォルトの名無しさん
NGNGttp://www.delphi-jedi.org/Jedi:APILIBRARY:36731
ここにDelphi用のヘッダとサンプルがある。
同梱されてるDLLはRC2ベースだからvorbisの公式サイトからsdkも落として差し替えな。
0791デフォルトの名無しさん
NGNGありがと。
結構簡単に使えるんだねえ。
0793Age2ch
NGNG0794デフォルトの名無しさん
NGNGregedt32.exe を起動してみればわかる。ファイルと同じような設定項目
があるよ。使ったらログを取るような「監査」もできる。
0795デフォルトの名無しさん
NGNGOggVorbisのSDKがBSDライセンスなのに、
*.pasがMPLじゃんかよヽ(`Д´)ノ ウワァァン！！
0796デフォルトの名無しさん
NGNG0797デフォルトの名無しさん
NGNG再生する命令の出し方がわかりません。
0798デフォルトの名無しさん
NGNG0799デフォルトの名無しさん
NGNGClientWidthが1024な罠。
0800デフォルトの名無しさん
NGNGおまえさ、Visibleプロパティあるじゃないですか
>再生する命令の出し方がわかりません。
Playに例がのってんじゃねーかよヘルプくらい読んでくださいませ
あんたみたいなのがいるからDel厨っていわれんだチクショーでございます
どんな厨房疑問でもやさしく答えます。
0801デフォルトの名無しさん
NGNGつーか、質問者が本当に意図することは？
単に「見えなくしたい」だけ？
そんなら「ヘルプ嫁」
0802デフォルトの名無しさん
NGNGアプリを作ってます。 フリーセルの「ゲーム(G)」と
「スタート(N)」を自動的に押してくれる動作を実現したい
のですがパーソナルなので「ゲーム(G)」「スタート(N)」
のクラス名を調べられません..
すみませんが教えて下さい、宜しくお願いします。m(__;)m
0804802
NGNGDELPHI使いってこの程度なの？
すみません、呆れました。
0806デフォルトの名無しさん
NGNG0807802
NGNGOSクラッシャー？ はぁ、何のこと？
やっぱりDELPHI使いってこの程度なのか。
呆れて物が言えない。
0808デフォルトの名無しさん
NGNG0809デフォルトの名無しさん
NGNG0810デフォルトの名無しさん
NGNG判った判った。 暴れてもいいことないよ。
var h:THandle;
begin
h := FindWindow(nil,PChar('フリーセル'));
if h<>0 then begin
PostMessage( h, WM_KEYDOWN, VK_F2,0 );
PostMessage( h, WM_KEYUP , VK_F2,0 );
end else 窓が開いてないときの処理
これでいいだろ
0811デフォルトの名無しさん
NGNGもう夏休みは終わったんだろ？早く家で勉強してろな。
単位落として留年だからってひがむなよ。
0812802
NGNG>DELPHI使いってこの程度
私はDELPHI以外の言語を使ったことがありません、
他の言語を使ってる方との比較も出来ません。
>>803
>>809
ありがとうございます。 フリーでこんなツールが
あるなんて思ってませんでした、早速落としてみます。
>>810
Fキーからの入力があったんですね、盲点でした。（汗
これならメニューから始めるより早く始められますね、
ありがとうございます。
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
みなさんのおかげで思い通りの動作を実現出来そうです、
本当にありがとうございました。
0813811
NGNG偽者は、アンチDelか・・・。油断も隙も無いな。
0814デフォルトの名無しさん
NGNG・・・ホント油断も隙も無いな。
0815デフォルトの名無しさん
NGNG0816 ◆DELWWWxU
NGNGForm の OnCreate イベントハンドラで TreeView.Width := 0; として起動させても、
Splitter で TreeView の幅を変更させることが出来る方法を教えて下さい。
0817デフォルトの名無しさん
NGNGAutoSnap := false でなんとかならんかのう
0818デフォルトの名無しさん
NGNG前スレでは、相談室に統合ということになったのだが、誰かが
たてたためにずっと続いてきたわけだが。
・統合か
・廃止か
0820デフォルトの名無しさん
NGNG・統合か
・存続か
0821デフォルトの名無しさん
NGNG・廃止か
・暴走か
0822デフォルトの名無しさん
NGNG0823デフォルトの名無しさん
NGNGこっちの方が伝統ある本スレだ。
0825デフォルトの名無しさん
NGNG本当ならDelphiスレで埋め尽くしてもお釣りがくる
0826デフォルトの名無しさん
NGNG0827デフォルトの名無しさん
NGNG0828デフォルトの名無しさん
NGNGどっちか一方がよくフレーム化するから
0829デフォルトの名無しさん
NGNG0830Delモナー
NGNG（ ´∀｀）＜. そんなことないよ。
（ ） .＼＿＿＿＿＿＿＿＿＿
｜ ｜ ｜
（＿_）＿）
0831Delモナー
NGNGΛ＿Λ ／￣￣￣￣￣￣￣￣￣￣
<=( ´∀｀) ＜ 僕は日本人だけど質問待ってるﾆ･･･よ！
（ ） ＼＿＿＿＿＿＿＿＿＿＿
｜ ｜ |
〈＿フ__フ
0832デフォルトの名無しさん
NGNGホームページ作成ソフトのリアルタイムプレビューを
実装したいのですがどうしたらいいのでしょうか？
サンプルとかあったらいいなぁ・・・。
やさしく教えてください。おながいします。
0833デフォルトの名無しさん
NGNG0834デフォルトの名無しさん
NGNGhttp://cgi19.plala.or.jp/lukewarm/
にある「プレビュー専用ブラウザ(仮)」の仕様を参考にしたら。
0835デフォルトの名無しさん
NGNGどのような本を買ったらいいでしょうか？
0837835
NGNGそれは買おうと思うのですが、あと言語の仕様（？）が書いてあるのも一冊買おうかと。
0838Delフサギコ ◆VzDeLphI
NGNG0839Delフサギコ ◆VzDeLphI
NGNGミ,,ﾟДﾟﾐ
ミつ つ
このあたりを、ご紹介させていただかせ.....
> VBユーザーのための
> Delphi 6 プログラミング
>
> Delphiクイックリファレンス
>
> 基礎からわかる Delphi 6
0840832
NGNGこれだと、保存しないとプレビューに反映されないようです・・・。
エディタで文字を入力したら、保存ボタンを押さずに、
その文字がプレビュー画面に反映できるようにしたいんですが、
どうやってるんでしょうねぇ・・・。
0841835
NGNGありがとうございます。
その中から選んで買おうと思います。
0842デフォルトの名無しさん
NGNG別にテンポラリフォルダに保存して、それを表示すればいいやん
・・・と思ったらHTML相対リンクがリンク切れになるな
WYSIWYGのHTMLエディタなみに作りこまないとﾀﾞﾒぽ
0843デフォルトの名無しさん
NGNG0844デフォルトの名無しさん
NGNG0845デフォルトの名無しさん
NGNGこんな感じは？
SL.Text := Memo1.Lines.Text; //SL: TStringList;
for i := 0 to SL.Count -1 do
begin
if Pos('</head>',LowerCase(SL.Strings[i])) > 0 then
begin
j := i;
Break;
end;
end;
SL.Insert(j,'<base href=' +Str +'>'); //Str: string;
SL.SaveToStream(MS); //MS: TMemoryStream;
MS.Seek(0,0);
(WebBrowser1.Document as IPersistStreamInit).Load(TStreamAdapter.Create(MS));
0846832
NGNGレスありがとうございます。
>>845
このコードはどこに記述すればよいのでしょう？
Memo1のOnChangeでしょうか？
Memo1Changeに書いてみたところ、
実行すると、EAccessViolationの例外ﾀﾞ、ｺﾞﾙｧ！！！って
怒られるんですが･･･（汗。
力不足で、お手数ですがよろしくお願い致します。
0847デフォルトの名無しさん
NGNG確か
WebBrowser1.Document = nil
だとまずかった気がするから、
フォームのOnCreateとかに
WebBrowser1.Navigate('about:blank');
て書けばたぶんEAccessViolationの例外は出なくなる。
0848デフォルトの名無しさん
NGNG0849デフォルトの名無しさん
NGNG0850デフォルトの名無しさん
NGNG>あと言語の仕様（？）が書いてあるのも一冊買おうかと。
買えば重たいマニュアルが付いてくるよ
0852デフォルトの名無しさん
NGNGsize_tってのがあるのよ。
で、適当に検索かけたんだけど
> stddef.h(169): #define __SIZE_TYPE__ long unsigned int
> stddef.h(172): typedef __SIZE_TYPE__ size_t;
long unsigned int……
コレ何？(´д｀)
0853デフォルトの名無しさん
NGNGunsigned long intのことか。
しかもlongって単体の型じゃなくて、intにつくのか。
というわけで、LongWordで置き換え可能でいい？
0854デフォルトの名無しさん
NGNGもうC言語はいやヽ(`Д´)ノ ウワァァン！！
0855ななしへたぐらま ◆B18Bks.Y
NGNGmemcmpはCompareMemがあります～．
>>852-854
type size_t = LongWord; と定義して
size_tを使うのが良いと思います．
（Delphi3などでも最小限の変更で使えるので）
あと long は同じではありません（符号あり）．
0857デフォルトの名無しさん
NGNGえーとね。long は long int の略です。ＯＫ？
0858デフォルトの名無しさん
NGNG自分の作ったプログラムが不安定でバグさがしています。
１）の記述を２）にすると、コンパイルは通るのに実行時必ずエラーで止ってしまいます。
これって意味は同じだと思うのですが、何か変でしょうか？
１）pBuffS := AnsiStrPos(pBuff,'<');
２）pBuffS := AnsiStrPos(pBuff,PChar('<'));
それとも、全く別の所にバグがあって、たまたまその影響が出ていると
見たほうが良いでしょうか？
ぜんぜん違うよ。
p: pchar;
p := '<'; // 文字列'<'へのポインタ
p := PChar('<'); // 文字'<'の文字コードをポインタに変換
0861デフォルトの名無しさん
NGNGh2pつかってるよヽ(`Д´)ノ
0862デフォルトの名無しさん
NGNGdel６でも十分ですか？どう違うんですか？
0863デフォルトの名無しさん
NGNG0864デフォルトの名無しさん
NGNG0865
NGNGって Ｃ／Ｓ版なんてあんのか（ｗ
0866デフォルトの名無しさん
NGNG0867デフォルトの名無しさん
NGNGなんの属性にセットしたらよいのですか？
0868デフォルトの名無しさん
NGNG0869
NGNG0870デフォルトの名無しさん
NGNGするにはどうしたらいいんでしょう？
Item1
││
│└─┬SubItem1
│ │
│ └SubItem2
│
Item2
│
└─┬SubItem3
│
└SubItem4
このときに、SubItemをダブルクリックしたときに
親ノードのText（Item1かItem2）を取得したいのですが。
0871デフォルトの名無しさん
NGNGTTreeNode
Parentプロパティ
0872デフォルトの名無しさん
NGNGおお！できました。
ありがとう。
0873デフォルトの名無しさん
NGNG.NETはどこに売ってますか？
0874
NGNGマイクロソフトが 出してます。
0875デフォルトの名無しさん
NGNGゲイツ屋さん
0878デフォルトの名無しさん
NGNG「Del6をつかってみて」の間違いだよぉ
さらすなよぉヽ(`Д´)ノ ウワァァン！！
0879デフォルトの名無しさん
NGNG0880デフォルトの名無しさん
NGNGDNAまで。
0881デフォルトの名無しさん
NGNG0882デフォルトの名無しさん
NGNG0883デフォルトの名無しさん
NGNG0884デフォルトの名無しさん
NGNG0と1まで
0885デフォルトの名無しさん
NGNGRTTIのためかクラスや列挙型の名前なんかはまんま残るみたい。
0886デフォルトの名無しさん
NGNG小さな出版社がある。そして文学ファンはこういった出版社を
潰さないため、今後も翻訳を続けてもらうために
１人で同じ本を２・３冊買うことが良くある｡
我々もこういう時だからこそDelphi7を買って
ボーランドを支えるべきなんじゃないだろうか。
Delphi7の売り上げはDelphi8以降の開発資金となるし、
ボーランドジャパンの今後に大きな影響をもたらすだろう。
Delphi7の出来のみを云々するのは
あまりにも近視眼的ではないだろうか？
0887デフォルトの名無しさん
NGNG0888デフォルトの名無しさん
NGNGその謎は以下のスレに,,,
http://pc3.2ch.net/test/read.cgi/tech/1031668744/536-538
ここにかかれている内容を信じるかどうかはあなた次第。
Delphi7 を注文してしまった人は、すぐに答えが出るでしょう。
0889デフォルトの名無しさん
NGNGVS.NET 7.0と.NET 1.1は連携できません！
.NET 1.1を導入すると、VS.NET 2003を買わされる羽目になります！
0890ななしへたぐらま ◆B18Bks.Y
NGNGフォームファイルの情報がそのまま入っているようですね．
某ツールを使うとフォームファイル（.dfm）の
テキスト形式そのままのイメージで見られますし
改変も簡単にできそうです．
0891デフォルトの名無しさん
NGNG0892デフォルトの名無しさん
NGNG0893デフォルトの名無しさん
NGNG0894デフォルトの名無しさん
NGNG６０ＭＢ
0895デフォルトの名無しさん
NGNG（ﾟ∀ﾟ）ﾃﾞｹｰ
0896デフォルトの名無しさん
NGNGFH := FileOpen(PChar(OrgFile),fmOpenRead);
FL := FileSeek(FH,0,2);
GetMem(pBuff,FL);
FileSeek(FH,0,0);
FileRead(FH,pBuff^,FL);
FileClose(FH);
上のようにファイルを読み込んだ場合、
例えば、ファイルの中が「abcd」だったとき、
FL=5となり、pBuffの中には「abcd」の後ろに#0 がつくんですよね？
基本中の基本なんですが、勘違いしていそうな・・・
0897デフォルトの名無しさん
NGNG0899デフォルトの名無しさん
NGNGStringGridにてDrag&Dropを使用しデータの入れ替えを行う場合に
カーソルをStringGrid外に持っていくと自動的にスクロールされますが、
このスクロールスピードを可変(smooth)にしたい場合は如何すればい
いのでしょうか？
行数が大きくなった場合にスクロールするのをじっと待っているのが
時間がかかるので何とかしたいのです。
ご教示のほどよろしくお願いします。
0900デフォルトの名無しさん
NGNG0901名無し
NGNG0902デフォルトの名無しさん
NGNG既にあるものを利用した方がいいのでは？
WEBDAV
http://www.atmarkit.co.jp/flinux/special/webdav/webdav01a.html
File Upload RFC 1867
http://hp.vector.co.jp/authors/VA014833/rfc1867J.html
0903名無し
NGNG0904デフォルトの名無しさん
NGNG0905(ﾟ∀ﾟ)
NGNG0906デフォルトの名無しさん
NGNG日付をレジストリかINIに書き込むの？
もしそうだとしてもそれを削除されたり時計を変えられた場合の対処法は？
やさしく教えてちょんまげ。
0907デフォルトの名無しさん
NGNG詳細は明かせないが、
インターネットに（秘
0908デフォルトの名無しさん
NGNG白い糸を引っ張ったら脳味噌がとびだすように設計
0909デフォルトの名無しさん
NGNG0910デフォルトの名無しさん
NGNG丸秘のところがわからない…。
>>908
ブービートラップですか？
あんまあくどいことはしたくないです。
レジストリのHKEY_CURRENT_USER\Software\Microsoft\Windows\System\Critical\Hidden\に
それっぽいキー名で時間を書き込む。
0912デフォルトの名無しさん
NGNGついでに日付時刻は暗号化して簡単には捏造できないようにする
0913デフォルトの名無しさん
NGNGできました！ありがとうございました(^o^)
0914デフォルトの名無しさん
NGNGさらに捏造したらHDDをフォーマットするようにボムを仕込んでおけば完璧。
0915デフォルトの名無しさん
NGNG毎回起動時に現在日時を暗号化して記録。
前回の日時 >= 今回の日時ならば、不正とみなしてアプリ終了。
つーかほんとにやるなよ。
そんな糞仕様ばれたら叩かれるだけだぞ。
0918デフォルトの名無しさん
NGNG「内蔵時計を調整したら起動できなくなりました」という不具合報告が殺到。
0919デフォルトの名無しさん
NGNG「仕様です」と回答。
0920デフォルトの名無しさん
NGNGネットに関係のないツールなのに、PersoalFirewallが反応
↓
厨房がさわぐ
↓
2chにスパイウェア疑惑のスレが立つ
↓
しゅーりょー
0921デフォルトの名無しさん
NGNGかいておけばすむもんだいか。
0922デフォルトの名無しさん
NGNGプログラムが実行されません。
すいませんが。教えてください。プログラムは素人です。
ブラウザを作る
http://delphi.sakura.vg/lesson1.html
ここを参考につくってるのですが、実行されないのです。
環境はＭＥです。
過去スレをいろいろ探したのですがなくて・・。
初歩の質問ですがおねがいします。
0924デフォルトの名無しさん
NGNG0925デフォルトの名無しさん
NGNG0926デフォルトの名無しさん
NGNGそれでもスパイウェア
0927デフォルトの名無しさん
NGNG0929デフォルトの名無しさん
NGNGすいません。
実行できない、文章を書きますので、すいませんが少しまって
ください。
0930デフォルトの名無しさん
NGNG未定義の拡張子 webbrowser1
演算子またはセミコロンが必要
未定義の拡張子 ToolButton2Click
；が必要なところに）があります
とかいろいろ書いてありました。
プログラム通りにしたんですが・・・
0931デフォルトの名無しさん
NGNG0932デフォルトの名無しさん
NGNGbegin
webbrowser1.GoBack;
end;
procedure TForm1.ToolButton2Click(Sender: TObject);
begin
webbrowser1.GoForward;
end;
procedure TForm1.ToolButton3Click(Sender: TObject);
begin
webbrowser1.GoHome;
end;
procedure TForm1.ToolButton4Click(Sender: TObject);
begin
webbrowser1.Refresh;
end;
procedure TForm1.BackButton5Click(Sender: TObject);
begin
webbrowser1.Stop;
end;
procedure TForm1.NavigateButtonClick(Sender: TObject);
begin
webbrowser1.Navigete(Edit1.Text);
end;
end;
プログラムはこういう風にかいたのですが。空白は消しました。
0933デフォルトの名無しさん
NGNGprocedure TForm1.ToolButton2Click(Sender: TObject);
begin
webbrowser1.GoForward;
end;
手で入力するのは
>webbrowser1.GoForward;
だけ
0934デフォルトの名無しさん
NGNGありがとうございます。
手で入れたのもいくつかありました。
助かりました。
0935デフォルトの名無しさん
NGNG貼るのがいいんですよね？
0936デフォルトの名無しさん
NGNGすいません。変な質問してしましました。
すいませんでした。質問の回答ありがとうでした。
0937デフォルトの名無しさん
NGNGもしまだ動かなかったら、ソースをDLして、Unit1.pasの中身を比べてみて。
0938デフォルトの名無しさん
NGNG東京とシアトルを頻繁に往復しているビジネスマンには使えないですな。
0939デフォルトの名無しさん
NGNGend;
end;
0940デフォルトの名無しさん
NGNG自動生成せずに、そのままコピペして、「エラーが出てコンパイルできま
せん」というレスが返ってくると、回答者は激しく落ち込む。
このパターンは、いたるところで見られるね。
0941デフォルトの名無しさん
NGNGもうやっちゃった。
なんでまずいの？
0942デフォルトの名無しさん
NGNG聞くだけでも予想はつくよ。
0944デフォルトの名無しさん
NGNGコンパイルが通らない理由なんて、それこそ１０００を超えるだけあり得る
と思うんですが、どうやって予想するんですか？
0945デフォルトの名無しさん
NGNG942じゃないけど、ろくに情報を出さない奴の場合はある程度予想つかないか？
0946デフォルトの名無しさん
NGNGなんかエディットコントロールを上に表示させているみたいな感じなんですが。。。
0947デフォルトの名無しさん
NGNG●●●●●●●●「オセロさえ納期内に作れない＝ＯＯ役立たず 」祭り●●●●●●●
／| | |＿＿＿＿_ΦΦΦΦΦΦΦΦΦΦΦ||ΦΦΦ
| | |￣￣￣ ／| ||
| | | ／ ／|TTTTTT TTTTTTTTTT||TTTTT
| ／＼ | ／|／|／|^^^^^^ |三三| ^^^^^^^^^^^||^^^^^^^
| ／ ／ |／／ ／ ／|
| ／ ／ |＿|／|／|／|／|
| ／ ／ |文|／ ／／ ／
|／ ／. ＿.|￣|／|／|／ Λ＿Λ
／|＼／ ／ ／ |／ ／ （＿＿_）
／| ／ ／ ／ヽ /〔 非OO 〕〕つ
| |￣| | |ヽ／l ｀/二二ヽ
| | |／| |__|／ Λ＿Λ / /（＿）
| |／| |／ （ ´∀｀） （＿） Λ＿Λ
| | |／ ／/ / ^￣］ﾟ （｀ ）
| |／ ﾟ/￣￣_ヽ ⊂〔〔 非OO 〕
0948デルファイの名無しさん
NGNGあなたの想像通りと思います。
でも、ツリービューなら標準でそういう機能ついていた筈。
0949デフォルトの名無しさん
NGNGこれを実現したいわけなんですが。。。
0950デルファイの名無しさん
NGNGで、WinSight32で見たところ、見慣れないクラス名が出てきたので、どうやら自前のようです。
というわけで、自分でエディットコントロールを配置するしか無いのかな、
と思ったのですが、VCLソースを見てみたところ、
どうやらTTreeViewは標準で配置されるエディットコントロールをサブクラス化して監視しているようなので、
位置だけの問題ならFEditHandleを…って、何でprivateなんだ…。知る方法は無いのか…。
やはり自前で用意しないと駄目なようです(汗
0951デフォルトの名無しさん
NGNGRichEditに表示させたいんですが、良い方法ないですか？
0952デフォルトの名無しさん
NGNGMDI子フォームを最小化したときにそのフォームを隠したい。
誰かいいアイデア有りませんか？
今のところ、フォームを閉じて文書の中身を記憶すると言うことを考えているのですが、
それだとアンドゥバッファも取り込まなければならないのであまり気が進みません。
0954ねこま
NGNG別にいらないけど
0955デフォルトの名無しさん
NGNG単にHideするんじゃ駄目なの？
0956デフォルトの名無しさん
NGNG>MDIでタブ式のテキストエディタ
なんで MDI にする必要があるんだ？
0957デフォルトの名無しさん
NGNG0958デフォルトの名無しさん
NGNGなぜ疑問を持つんだ？
0959デフォルトの名無しさん
NGNG新スレできました。
モナーの *やさしい* Delphi質問スレ Ver.9
http://pc3.2ch.net/test/read.cgi/tech/1033668645/
0960デフォルトの名無しさん
NGNG疑問を持たないほうがおかしいだろ。
タブ式で、かつ MDI だぞ。どの部分を MDIChild にするのか分からん
0961デフォルトの名無しさん
NGNGあたま硬いなぁ
0962デフォルトの名無しさん
NGNGUI的な疑問だとすれば、好き嫌いはともかく、そういうソフトは既に存在する。
技術的な疑問だとすれば>>961
0963デフォルトの名無しさん
NGNG0964デフォルトの名無しさん
NGNGおれは、Lunascape を子供に内緒で自宅で使っているが、あれはタブをつかって
るけど、MDI じゃないよね。タブ式でかつＭＤＩというのは、おのおのの MDIChild
に Lunascape が一つずつ入っているようなものしか想像できないんだが。これだと
無駄すぎるような気もするし。ＭＤＩでかつタブ式のアプリをどれでもいいから一つ
教えてください。
0965デフォルトの名無しさん
NGNG目の前にある Excel2000 は、ワークシートを一つのタブだと見なせば
たしかに ＭＤＩかつタブ式だね。なるほど。
0966Delフサギコ ◆A6VzDeLphI
NGNG∧,,∧ ／￣￣￣￣￣￣￣￣￣￣￣￣￣
ミ,, ﾟДﾟ彡 ＜ 試してガテン
〃つ＿||￣￣￣ | ＼＿＿＿＿＿＿＿＿＿＿＿＿＿
～ﾐ,,, ,,|＼||Letsﾉ-ﾄ|
'＼||.======.|
￣￣￣
0967デフォルトの名無しさん
NGNGttp://www.rouxscafe.binboserver.com/camp/imgboard.cgi
ここのNo.1110
0968デフォルトの名無しさん
NGNGMDIそのものを否定してる訳ね。
切り替え方法(マウス時)がメニューからしかない素のMDIなんて使いにくすぎるもんな。
0969952
NGNGあと、ただのタブ式であればOLE D&Dを使って複数の文書間の文字列の移動ができませんので。
言い方が悪く、誤解を招いてしまったようです。
タブによって各MDI子ウィンドウを切り替えたいのです。
>>955
それだとエラーが出ます。
(MDI 子フォームを隠すことはできません)
0970９５３
NGNG0971デフォルトの名無しさん
NGNG世の中でいう MDI という概念と、わたしが PSDK から学んだ MDI とはズレが
あることが分かりました。966 のリンクからタブブラウザのスクリーンショット
をいくつか見てみましたが、タブ／MDI に分類されているのでも、PSDK 的には
MDI ではないものがかなりありました。どうも、タブを持ったウィンドウが
複数スプリッターで分割されているものも MDI に分類されているようです。
MSDN で MDI で検索すると分かりますように、狭義の（正式な）MDI は、
ウィンドウズが提供する特別なクラスを使ったもので、FrameWindow、
MDIClientWindow と複数の MDIChild ウィンドウからなるものです。
MDIChildWindow の最大化に伴うメニューのオートマージ、Window メニュー
のサポートなど、独特の UI 機能を持ちます。各 MDIChild は、最小化、最大化
X ボタンをタイトルバーの右側に持ち、最大化されると FrameWindow のメニュー
バーの右端に表示されます。また、FrameWindow の Window メニューからは
Tile や Cascagde などで Child Window を並べて表示できます。Delphi で
Form1 の FormStyle を fsMDIForm のときが FrameWindow と MDIClient に
相当しています。Form2 以降で fsMDIChild にしたときが MDIChild ウィンドウ
に相当しています。
965 に書きましたように Excel2000 で WorkSheet をタブに対応させると
ひとつのファイルに複数の worksheet があり、かつ、複数のファイルを
同時に開けるので、MDI かつ タブ式であると思います。また、NilBrowser
というのも狭義の意味でもそうだと思います。
元質問にもどって、「MDIでタブ式のテキストエディタ」というのは、やはり
冗長であると思います。複数のテキストファイルを同時に編集したい、という
ことなら、タブ式か MDI 式かのどちらかで充分なはずです。アイデアプロセッサ
みたいに、ひとつのファイルに複数のテキストが対応しているときは、Excel の
ように MDI かつ タブ式というのが便利ですね。
0972デフォルトの名無しさん
NGNG0974960
NGNG>MDI子フォームを最小化したときにそのフォームを隠したい。
procedure TForm2.FormResize(Sender: TObject);
begin
if IsIconic(Handle) then ShowWindow(Handle,SW_HIDE);
end;
もとに戻すときは
procedure TForm1.Command1Click(Sender: TObject);
begin
ShowWindow(MDIChildren[0].Handle,SW_SHOWNORMAL);
end;
とすると、こっちではうまくいってる
0975デフォルトの名無しさん
NGNGそれがあたま固いいっての。
技術的なアプローチでなくUI的なアプローチ、ユーザが欲する仕様を如何に
実現するかってのが大事じゃないかね？
最近マウスジェスチャというUIが取り上げられているけど、あんなものは
なくても操作はできる。しかしこれを欲するユーザは多い。
0977デフォルトの名無しさん
NGNG0978デフォルトの名無しさん
NGNG元質問者が MDI でいいって言ってるじゃん
0979デフォルトの名無しさん
NGNG0980デフォルトの名無しさん
NGNGというパターンの方が多い
0981デフォルトの名無しさん
NGNGちゅうちゅうマウスってやつは、もう７年以上まえに異常なくらい
はやった。Windows3.1 からあったよ。でも
２週間くらいであきて、はずしてしまう。
0982デフォルトの名無しさん
NGNGあれって要らない機能をつけた単にマウスユーティリティだろ？
マウスジェスチャはタブブラウザ使っていれば、便利さがわかるよ。
0983デフォルトの名無しさん
NGNG0984デフォルトの名無しさん
NGNG最も基本となるUIを使ったソフトがWindows標準である。
スタート→プログラム→アクセサリ→メモ帳
0985デフォルトの名無しさん
NGNG7年前から情報がとまっているわけだ
http://www.zdnet.co.jp/news/0210/03/ne00_gesture.html
0986デフォルトの名無しさん
NGNGここに書き込んでる奴らが新しいUIを考えたわけでもないだろうに。
だいたい「使いやすい」って誰が決める？
0987デフォルトの名無しさん
NGNGでのUIだというような感じだが。
952以来で議論されているGUIレベルの設計の話とは次元が違うんでは？
0988デフォルトの名無しさん
NGNG保守的な人間も多いからゆっくりゆっくり変化してゆくんだろう、きっと。
最近の新しいＵＩで普及したのはマウスホイールだろうか。
0989デフォルトの名無しさん
NGNGそういやクロームエフェクトの研究は続けてるのかね。
0990デフォルトの名無しさん
NGNG0991デフォルトの名無しさん
NGNG0992デフォルトの名無しさん
NGNG0993デフォルトの名無しさん
NGNG0994デフォルトの名無しさん
NGNG0995デフォルトの名無しさん
NGNG0996デフォルトの名無しさん
NGNG0997デフォルトの名無しさん
NGNG0998デフォルトの名無しさん
NGNG∧＿∧
（ ´∀｀）
（ ）
｜ ｜ ｜
（＿_）＿）
0999デフォルトの名無しさん
NGNG,,,,,,,,,,,,,,,∧,,∧
～′,,,,,,,,,,ミ,,ﾟДﾟ彡
UU"""" U U
1000デフォルトの名無しさん
NGNG1001１００１
Over 1000Threadもう書けないので、新しいスレッドを立ててくださいです。。。
レス数が1000を超えています。これ以上書き込みはできません。