モナーの *やさしい* Delphi質問スレ Ver.5

　 ∧＿∧　　／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　（　´∀｀）＜. Delモナーがどんな厨房疑問でもやさしく答えます。
　（　　　　）　.| Delモナーは時に私であり、時には別の人。
　｜ ｜ ｜　 | 他のスレに書き込んで罵倒される前に、まずここで質問しよう。
　（＿_）＿） 　＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿

前スレ Ver.4
http://pc.2ch.net/test/read.cgi/tech/1016467137/
それ以前は >>2 参照。

Delphi6のアップデートは済んでいますか。最新版は3月29日。 >>5
ソース置き場作りました。ファイルのアップロードもできます。 >>7

○過去スレ >>2
○関連スレ >>3-4
○Delphi製品情報 >>5
○関連リンク >>6
○質問者へ >>6
○ソース置き場案内 >>7

■過去スレ

モナーの *やさしい* Delphi質問スレ Ver4(書き込み可)
http://pc.2ch.net/test/read.cgi/tech/1016467137/

モナーの *やさしい* Delphi質問スレ Ver3(HTML化待ち)
http://pc.2ch.net/test/read.cgi/tech/1014474727/

モナーの *やさしい* Delphi質問スレ Ver2(書き込み可)
http://pc.2ch.net/test/read.cgi/tech/1011649179/

モナーの *やさしい* Delphi質問スレ(HTML化済)
http://pc.2ch.net/tech/kako/1003/10031/1003113413.html

■関連スレ(続き)

○***すれ立てるまでもない質問はここで***
どのスレッドに質問したらいいか、わからないときはここで質問してみよう。(略)
第12刷 http://pc.2ch.net/test/read.cgi/tech/1016631412/
第11刷 http://pc.2ch.net/test/read.cgi/tech/1014478527/ (HTML化待ち)
第A刷 http://pc.2ch.net/test/read.cgi/tech/1012536901/ (HTML化待ち)
第9刷 http://pc.2ch.net/test/read.cgi/tech/1010673275/
第8刷 http://pc.2ch.net/test/read.cgi/tech/1008908052/ (HTML化待ち)
第6刷 http://pc.2ch.net/tech/kako/1004/10041/1004183881.html
第5刷 http://pc.2ch.net/tech/kako/1001/10019/1001998049.html
第4刷 http://pc.2ch.net/tech/kako/998/998403891.html
第3刷 http://piza2.2ch.net/tech/kako/993/993933402.html
第2刷 http://piza.2ch.net/tech/kako/990/990082077.html
第1刷 http://piza.2ch.net/tech/kako/975/975576060.html

○Pascal の初心者用の質問・相談所
コンソールのみ。GUI は扱いません。
http://pc.2ch.net/test/read.cgi/tech/1009903617/

○kylix相談室(閑散)
２ http://pc.2ch.net/test/read.cgi/tech/988815580/
１ (行方不明)

○Delphiで小さな実行ファイルを作ろう
http://pc.2ch.net/test/read.cgi/tech/1009080085/

○delphiで作られた有名ソフトって何がある？
delphi自身もdelphi？てか、今delphiやってる人へ希望を与えてやって下さい。
http://pc.2ch.net/test/read.cgi/tech/990056026/

■関連スレ
一番上が新しいスレです。書き込みは新しいスレに。

○ミ,,ﾟДﾟ彡DelフサギコのﾌｻﾌｻDelphi談話室
Delphi や Borland に関する話題、雑談や質問をしながらﾏﾀｰﾘくつろごうや
�A http://pc.2ch.net/test/read.cgi/tech/1013298748/
�@ http://pc.2ch.net/test/read.cgi/tech/1003664165/
（ ﾟДﾟ)ノ　Delギコ猫のﾌﾟﾛｸﾞﾗﾐﾝｸﾞ相談室
DelphiやBorlandに関する雑談や質問しながらみなーで、くつろごうや
part4 http://pc.2ch.net/tech/kako/1002/10024/1002469894.html
part3 http://piza2.2ch.net/tech/kako/1001/10010/1001039863.html
part2 http://pc.2ch.net/tech/kako/999/999482946.html
part1 http://piza2.2ch.net/tech/kako/997/997348797.html

○Delphi相談室 現在その３
Delphi関連のTips Ｑ＆Ａ　はこちらです。
その３ http://pc.2ch.net/test/read.cgi/tech/1010153466/
その２ http://pc.2ch.net/tech/kako/995/995950803.html
その１ (逝ってしまったようです)
(続く)

■Delphi製品情報

○公式サイト
http://www.borland.co.jp/delphi/

○Delphi 6 Personal
無料でダウンロードできる。持っていない人はこれを機にやってみよう。
ダウンロードするファイルはは59MBあり、またサーバーが重いので注意。
使用者登録が必要。
http://www.borland.co.jp/delphi/personal/

○Delphi 6 アップデート・ダウンロードサービス
最新のアップデートは次の通り。
Personal: Update Pack 2 (2002/3/19)
Professional, Enterprise: Update Pack 2 + 追加アップデート (2002/3/29)
http://www.borland.co.jp/delphi/del6up.html

■関連リンク

ここに貼っておきました。
どんどん追加して構いません。

こちらへ
http://do.sakura.ne.jp/~junkroom/cgi-bin/megabbs/readres.cgi?bo=lounge&vi=999486538

■質問者へ

○ここはDelphiのプログラミングに関する質問スレです。
スレ違いの質問は罵倒されるので、ほかのスレを探してください。

○厨房並みの初心者の質問はOKですが、厨房は質問するな。

○まずは自分で調べてみよう。回答にGoogleの検索結果を貼られないように。
Google http://www.google.com/intl/ja/
2ちゃんねる検索 http://2ken.net/
Delphi-ML検索 http://leed.issp.u-tokyo.ac.jp/~takeuchi/delphi/search.cgi

■ソース置き場

このスレのソース置き場を作ってみました。
このスレに載せきれないソースはここへどうぞ。
○3000行までOKです。
○ソース書き込み時は等幅に設定してください。インデントが使えます。
○激しく長いソースは、同時にソースファイルを添付しておくと（ﾟДﾟ）ｳﾏｰです。
○置くのはソースでなくても構いません。
ファイルのアップローダーとしてもどうぞ。

こちらへ
http://do.sakura.ne.jp/~junkroom/cgi-bin/megabbs/readres.cgi?bo=lounge&vi=1017673221


以上。

　 ∧＿∧　　／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　（　´∀｀）＜. 前スレが980に行くまでは書き込まないで
　（　　　　）　.| (あるいはsage進行にして)ください。
　｜ ｜ ｜　 ＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
　（＿_）＿）

厨が少ない時間に立ててみました。

3と4が逆になってしまったー!!!
>>3-4は逆にして読んでください。
ｽﾏｿ。鬱駄死脳。

　 ∧＿∧　　／￣￣￣￣￣￣￣￣￣￣
　（　・∀・）＜　>>1-8　とても良くまとめ
　（　　　　）　＼　 られていて、実にGoodです
　｜ ｜ ｜　　 ＼＿＿＿＿＿＿＿＿＿＿＿
　（＿_）＿）

あのう…

TNMClient でも TClientSocket でもなんでもよいのですが、
とにかく層言うのを使ってチャットクライアントを作ったとしますよね。

複数起動しても正しく動作するようにするにはどうすればよいのでしょう。
何が言いたいのかと言うと、

まず、チャットでの通話先は IP によって判別しますよね。
そして、IPでPCを特定しても、そこで複数のクライアントが起動している場合はどうすれば良いのかと。

で、サーバ側ではメッセージを受け取っているわけですよね。
どのソフトから来たか、というのをどうやって判別するのかと。

…というよりも、TClientSocket を複数起動すると
エラーが起こる確率が高くなるような気が。

DelphiでOS作ろうと思うんだけど出来る？

>>11
できる・・・CでやれることはDelphiでも全部できる
とにかくがんばってくれ

Windows上で動くOSですか？

>>11
作業手順
　１、Delphiでインラインアセンブラを使ってブートローダコードを書く
　２、ブートローダコードのアセンブル結果を抽出してブートセクタに書き込む
　３、 system.pas を biosコールに書き換える
　４、後はガンバル

Windows標準のダイアログボックスにあるボタン
（“はい”とか“いいえ”など）を書き換える悪戯をするプログラムを
作ってみたいのですが、何か参考になりそうな解説ページは
無い物でしょうか？

フックを使うんじゃ無いかと思い探してみたのですが、
「ボタンを押した後にホントに良いかもう一度確認する」とか
「CtrlとCapsを入れ替える」という事が出来と書いてるページしか
見つかりませんでした。

ZLibを使おうとおもい、サンプルコードを書いたのですがナゼかエラーがおこります。どうしてでしょうか。
コードは↓に置きました。
http://do.sakura.ne.jp/~junkroom/cgi-bin/megabbs/readres.cgi?bo=lounge&vi=1017824917

ボスケテー！！

↓みたいなコード化書いたんだけど、自分としては、
H.Buf[3] := 1
H.Buf[4] := 0 で
H.Param1　を観たとき、256 とでてほしいわけね(1かも)

でも、実際にやってみると 0 としかでないわけよ。
なんでだろう…


type
THeader = record
case Integer of
0: ( Buf: array [0..6] of Byte );
1: ( Code: Byte;
Count:Byte;
Index:Byte;
Param1:Word;
Param2:Word;
);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
H:THeader;
begin
H.Buf[0] := 10;
H.Buf[1] := 20;
H.Buf[2] := 30;
H.Buf[3] := 1;
H.Buf[4] := 0;
H.Buf[5] := 0;
H.Buf[6] := 0;

caption := inttostr( H.Param1 );
end;

>>17
THeader = packed record

>>17
H.Buf[4] := 1
H.Buf[3] := 0
とする

　エンディアンで検索してみて

>>16
> ナゼかエラーがおこります。
プログラム組む奴が素人みたいな報告をするな。
デバッグのお勉強をどうぞ。

　 ∧＿∧　　／￣￣￣￣￣￣￣￣￣￣
　（　・∀・）＜　おまえらはせっかくの　>>1-8　を
　（　　　　）　＼　 良く読んだのかと小一時間・・・（笑
　｜ ｜ ｜　　 ＼＿＿＿＿＿＿＿＿＿＿＿
　（＿_）＿）

ListViewの上でポップアップメニューを表示させるようにしてた時に
ポップアップメニューのCaptionがListViewの幅より長いときに、
ListViewのスクロールバーや一部分が再描画されない時がある
のだが、これってグラフィックアクセラレータの問題だろうか？

再現しませんか？

Delphiでウィルス作れる？
作れるかどうかだけ教えて欲しいキボンヌ！

今友達と口論になってて

実在するかどうかでもイイです。（こっちの方が手っ取り早いかも）

>>23
ﾂｸｯﾀｺﾄｱﾙﾖ

>>23
今作って送り付けました。
オリジナルなのでワクチンは効きません。

>>23　あったと記憶してるけど
・・・・別にDelphiだから作れないという事はないから・・・ただメンドクサイだけど


簡単にやるなら、インラインアセンブラでリロケータブルなコード書けばいいんだけど
それはつまりDelphiらしさを使ってないわけで

あうー。TFormatRangeって何なんだ？
ヘルピで検索しても出てこないっすー。F1でも駄目っすー。
参考ページでもいいから誰かご存じの方教えてください。

APIで使う構造体だろ。

typedef struct _formatrange {
HDC hdc;
HDC hdcTarget;
RECT rc;
RECT rcPage;
CHARRANGE chrg;
} FORMATRANGE;

>28
　ありがとうござました。修行してきます。

画面があるとします
その画面にブラインド効果のようなのを描画するにはどうしたら良いでしょうか？
よくJAVAとかで見かける左右に絵が出てくる奴です。

左右に動かしやがれ

Delphi用のウィルスコンポーネントとかってないのかな？
探せばどっかにありそうな気もするんだけど。

基本的にウィルス作ってるヤツは人間のクズだね。

>>32
例えばアドレス帳に載っている全員に
メールを送りつけるとか?(藁
私は知りません。

こういう場でやばそうな質問をすると、
>>23-25みたいに、ろくなレスがつきませんな。

>>9, >>21
ありがとうございます。
一人でも真剣に読んでくれた人がいて嬉しいです。
できれば全員に読んでほしいんだけど。
(全員読むようだったら厨なんか出ないか)

>>33
プログラミングをやる人だったら、
簡単に作れるからな。
この辺は完全に、
人間としてのモラルがあるかどうかの世界だよ。

モラルもそうだし国によっちゃ死刑か終身刑だぞ。
もしネットに流れデモしたら・・・
ﾌﾞﾙﾌﾞﾙｶﾞﾀｶﾞﾀｶﾞﾀｶﾞﾀ

TWebBrowserを使用していますが、ページの表示はWebBrowser1.Navigate(Url);
とかで出来るのですが、htmlソースの取得はどうすればよいでしょうか？

>>37
socket

>38
すいません。もう少し詳しくお願いします・・・・

wininet clientsocket get http

>>35
ﾂｸｯﾃﾐﾙ ｺﾄﾄ ﾊｲﾌｼﾃ ｺﾝﾗﾝｦﾀﾉｼﾑ ｺﾄﾊ ﾍﾞﾂｼﾞｹﾞﾝ　ﾉﾊﾅｼﾀﾞﾛ
`ﾛｸﾅﾚｽｶﾞﾂｷﾏｾﾝ` ﾄ ｲﾜﾚﾓｺﾏﾙﾖﾅｰ
ｼﾂﾓﾝﾆﾊ ﾃｷｶｸﾆ ｺﾀｴﾃｲﾙﾄﾓｳｶﾞ?

>>39
ソケットも知らないでHTTPクライアントを作る時点で何かがおかしい。

いいから>>40を検索してみれ！






ことり

>>37
D6かな？
IndyのIdHttpを載っけて、

Memo1.Lines.Text := IdHttp1.Get('http://www.2ch.net');

何もかも初心者なんじゃないの？Indyインストールから始めないとアカンのでは？
かく言うオレが未Indyインストール（藁
ふーん。そーやんのかー…＜Indyでソース
最初からパソナルにも付けてくれればいいのに…。

>15ではありませんが、
ダイアログボックスのボタンのキャプションって
どうやったら書き換えれるのかは俺も知りたいです．

市販アプリとかだと変えてるのがある気がしますが
そっくりなフォーム作ってるだけでしょうか？

どなたかご存知の方よろしくお願いしますー．

MessageDlgPosHelp

>>46
市販アプリは自作フォームでしょうね。

Windows全体でやりたいなら常駐して監視する必要がありますから、
・フックを使う
・FindWindowを使う
のどちらかでしょう。確実なのは前者ですが、きちんと作らないと
システム丸ごと落ちる可能性があります。
タイムラグ発生の可能性はありますが、FindWindowの方が簡単だと思います。

>>41
「ろくなレスがつきませんな」
すみませんでした。
半角カタカナで、短く一言で書かれていたので、勘違いしてしまいました。
ここに反省しお詫びします。
迂闊な発言をしないよう今後十分注意します。

>>49 ﾊﾝｶｸ ﾅﾉﾜ ﾁｮｯﾄﾜｹｱﾘ ﾅﾓﾉﾃﾞ ﾓｳｼﾜｹﾅｲﾃﾞｽ

妙に仕切るんでなく、行動で示せって感じだ。

MS Internet ControlsのActiveX使ってるけど、HTMLのソースってどこに格納されているの？

あ、似たようなこと書いた人がいたね。
http://pc.2ch.net/test/read.cgi/tech/1017803412/37

>>51
そうですね。
>>49は急に態度を変えたように見えてしまいました。

自分の地としては敬体で書いているので、
この場では見ず知らずに人に対してでも、
フレンドリーな文体と敬体を使い分けているんだけど、
詫びる気持ちを表現しようと敬体で書いたら、
逆に白々しい感じを与えてしまった・・・。本当にｽﾏｿ。反省してます。

固定な人はいろいろ大変だね。

>>54
だからそう丁寧にレスしなくていいんだよ。
雑談スレじゃないだろ？
# これにレス付けるなよ。

(WebBrowser1->Document as IHTMLDocument2).outerHTML

(WebBrowser1.Document as IHTMLDocument2).outerHTML

(WebBrowser1.Document as IHTMLDocument2).body.outerHTML
つーか、試す気ないから適当に調べれ

鯖にファイルを転送して、しかもそれをリストアップ
したいんだが、どうしたらできるん？
CGIを使うのか？（なるべく使いたくない。ケチ鯖ユーザーだから…）

不ツーにFTPかHTTP

>>60
受け取るだけならHTTPで

ソフトの設定を保存させたいのですがどうしたら良いでしょうか？
inifileやレジストリ以外でお願いします。
保存内容を見られたくないのです。

ファイル書き込みで設定したいのですがどのように作れば良いのか・・・。
それともinifileを暗号化出来る？

>>63
TFile

保存した事も判らないようにしたいの？
それとも保存した内容が判らないようにしたいなら、
　自前の文字列暗号化処理を入れたらいいんじゃないの？

簡単なのは文字列をバイト単位にキーワードとXORして
16進数に変換してしまう事。

それで良ければ簡単なサンプル書いてあげようか？　・・・って下心ミエミエ？

>>65
保存したことは分かっていいです。
ファイルの存在も分かってOKです。

ただ中身を見られたくないだけです。

簡単な方法ありますか？

>>66 簡単なのありますかって・・・説明してもらってるじゃん

前スレの956さんありがとうございました。

>>66
こういう大それたことしようとする奴に限って基礎がなってない。
相手にしなくていいじゃん。

改行って#10#13でやってたんですけど、#$D#$Aでも出来るんですね。

>>70
っていうかどちらも同じもの指してますから・・・。

>>70
っていうか順序変。

>>70　ええと　最初のはマチガイです

よく考えたら同じだね。
１６進か２進かの違いだった・・。
#13#10の方が正しいのかな。

>>74
＞１６進か２進かの違いだった・・。
違うぞ。

これはコントか？

とりあえず作ってあげたよ >>66

function　 MyCipherStr(const s:String;decode:Boolean):string;
var i,n,siz:Integer;
const k='ひみつのアッコちゃん';
begin
RandSeed:=(ord(k[3])*$10000+ord(k[1])*$100+ord(k[2]));
Result:='';
siz:=Length(s);
if decode then siz:=siz div 2;
for i:=1 to siz do begin
if decode then　n:= StrToInt('$'+copy(s,i*2-1,2))
　　　　　 else　n:= ord(s[i]);
　n:= ( n xor ord(k[1+(i mod Length(k))]) xor random(256));
if decode then　Result:=Result+Char(n)
　　　　　 else　Result:=Result+IntToHex(n,2);
end;
end;

レジストリに書く文字列をstrとして
MyCipherStr(str,false)
　を書いて

レジストリから読む時は
str := MyCipherStr(ReadString(何とか),true);

文字列をXORするときは
カイギョウコードに気をつけてね。

　　,,,,,,,,,,,,,,,,∧,,∧　 　／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
〜′,,,,,,,,,,ミ,,ﾟДﾟ彡 ＜　ファイル入出力が
　 UU"""" U U　　　 ＼＿#13#10しか考えてないこと多いし

>>77
それで組んで見ました。
友人に見せたらXORだろ？と言われてしてしまいました。
もっと強力なものはないでしょうか？

>>78　大丈夫エンコード結果は16進にしてるから改行コードとかは出ません
>>79　大丈夫、これを解読するには
const k='ひみつのアッコちゃん';
さえ判らなければまず見つかりません
乱数列でもスクランブルしてるので、結果だけから見つけるのはまず無理です

>>78
　　,,,,,,,,,,,,,,,,∧,,∧　 　／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
〜′,,,,,,,,,,ミ,,ﾟДﾟ彡 ＜　おや、そうなんすか。
　 UU"""" U U　　　 ＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿

n:= ord(s[i]); してResult:=Result+IntToHex(n,2); してるからかな。
抜け目ないでございますね。

>>79≠>>66でしょ

ごめん１０進数って言いたかった

>>32
それが問題だよね。
未だに古いブラウザ使っている人がいる以上、新技術の採用は難しい。

あっと、でも１つでも原文が判るとダメ＝原文とXORしたら別の暗号文も解けるか
だから、もう少しだけ強力にする

function　 MyCipherStr(const s:String;decode:Boolean):string;
var i,n,m,siz,r:Integer;
const k='ひみつ';
begin
RandSeed:=(ord(k[3])*$10000+ord(k[1])*$100+ord(k[2]));
Result:='';
siz:=Length(s);
r:=random($FFFF);
if decode then siz:=siz div 2;
for i:=1 to siz do begin
if decode then　n:= StrToInt('$'+copy(s,i*2-1,2))
　　　　　 else　n:= ord(s[i]);
　m:= ( n xor ord(k[1+(i mod Length(k))]) xor random(256)) xor (r and $FF);
if decode then　r:=(r*331 + m) else r:=(r*331 +n) ;
if decode then　Result:=Result+Char(m)
　　　　　 else　Result:=Result+IntToHex(m,2);
end;
end;

kの文字列の他に途中の331もパラメータになるから、
クラックする場合の苦労は100倍程度に増える筈

>>83
もっと根源的に間違ってるんだが……

すまそ、>83 は >82 の間違い。

逝ってくる……

>>86
VBからやり直した方がいいかも（w

zipファイルをサーバーに転送するソフトを作りたいんだが…
漏れに教えてくれ。

>87
漏れにいってる？　頼むから VB は勘弁してくれよぉ（ｗ
仕事で仕方なく使うことはあるけど、やりたかねぇよぉ（ｗ
個人では Delphi を 1の頃から使ってるよ。仕事でもいくつかやってるけどね。

まあ、>70=>74 が根源的に間違ってるところについては同意していただけると思うのだが。

inifileって最大何kbまでだったっけ。
64kbだった？

>>90 それはお使いになる環境により異なるものと思われます

>>91
確か制限有ったよ。
inifileでしょ　　

なんでForm1 = TFormって言う風にTが付くの？

それとPublicとかprivateとかusesって何ですか？

上の方にあるアレです。
interfaceとかもわかんないです。

>>93
Object Pascal 言語ガイドがおすすめですよ

>>93 判らない文字の上で マウスを左クリックして　キーボードのF1キーを押して下さい

>>95
>>94
Help見てるんですが言ってることが難しくて分からないです。

わかりやすく書いてる所無いですか？

public, private は、Delphi以前の問題で、まず
オブジェクト思考プログラムについて学ぶ必要があります。
幸いにも、復刊ドットコムにて、「DELPHIによるオブジェクト思考入門」が
規定の投票数を超えました。再び本屋に並ぶのも夢ではありません。

復刊ドットコム
http://www.fukkan.com/vote.php3?no=4407

ファイルの簡単な暗号化なら、これつかえ。
function XOR(InFile, OutFile:string);
var
　P:Byte;
　InStream, OutStream: TFileStream;
begin
　InStream := TFileStream.Create;
　OutStream := TFileStream.Create;

　InStream.LoadFromFile( InFile );
　while InStream.Position < InStream.Size do begin
　　InStream.ReadBuffer( P, 1 );
　　OutStream.WriteBuffer( P xor $FF, 1 );
　end;

　OutStream.SaveToFile( OutFile );

　InStream.Free;
　OutStream.Free;
end;

>>97
オブジェクト　思　考　プログラムについて学ぶ必要があります。
幸いにも、復刊ドットコムにて、「DELPHIによるオブジェクト　思　考　入門」が

ってゆーかＸＯＲ予約語だし。

【閉鎖】僕の脳みそが閉鎖しそうです【閉鎖】

くだらない揚げ足

>>97 >>100
ﾜﾗﾀ
ﾊｹﾞｼｸ ﾜﾗﾀ

>>99
xorって言う関数作れたっけ？

くそー

>>105
ムリムリ

ファイルのさらなる暗号化なら、これ。
XOR で、さらに逆向きに記録
function FileXORRev(InFile, OutFile:string);
var
　I: Integer;
　P:Byte;
　InStream, OutStream: TFileStream;
begin
　InStream := TFileStream.Create;
　OutStream := TFileStream.Create;

　InStream.LoadFromFile( InFile );
　for I := InStream.Size-1 downto 0 do begin
　InStream.Position := I;
　　InStream.ReadBuffer( P, 1 );
　　OutStream.WriteBuffer( P xor $FF, 1 );
　end;

　OutStream.SaveToFile( OutFile );

　InStream.Free;
　OutStream.Free;
end;

>>107
>>99のソースは騙し討ちですか！
function名変えれば良いだけだが。

>>93
まず、ボタンをクリックして起こす処理から勉強して、
次はif文を勉強してという手順で勉強していってください。
そうすれば、'T','uses'などがどのような役割を果たしているか、
自分で、明確にわかるようになると思います。
■ボタンをクリックしたときに起こる処理の説明■
まず、コンポーネントのButtonをクリックし、Formに貼り付けろ。
それから、そのコンポーネントのアイコンをダブルクリックすると
ソースを書く所に、procedure TForm1.Button1Click(Sender: TObject);
と出るので次のように記入しろ。尚、//〜は説明書きだ。
-----------------------------------------------------------
procedure TForm1.Button1Click(Sender: TObject);
var
hennsuu: Integer;　//ここでは、保存領域を宣言（準備）する。
begin
hennsuu := hennsuu + 1;　//hennsuuにプラス1されたものを、hennsuuに保存する。これを代入という。
Button1.Caption := IntToStr(hennsuu);　//現在のhennsuの値をボタンの表示名にする。
if hennsuu = 3 then Showmessage('現在hennsuuの値は3です。');
//もし、hennsuuが3ならば、'現在hennsuuの値は3です。'を表示。
end;
-----------------------------------------------------------
変数は、そのアプリケーションが閉じられると、消えてしまいます。

これでわかったか？わかったらなんかソフト作れば段段
usesとかもわかってくる。
天才じゃない限り1日で全部覚えようとするのは無理だ。
何回も繰り返して、身につけていくもんだ。

for Stream.Position := 0 to Stream.Size-1 do ...

っていう使い方が出来ると便利なのに。

>>111
プロパティは変数ではないって奴ですな。

今DelphiのソースをC++に変換。
C++をDelphiに変換するプログラムを作ってます。

C++はまだ初心者なので「これは必須！」って言うの教えて下さい

zipファイルをサーバーに転送するソフトを作りたいんだが…
漏れに教えてくれ。

>>114
サーバーは決まってる場所なのか？

>>115
ああ。

>>116
Delphi6proならIndyを使えば出来るよ

>>113
http://www.mpsinc.com/mpsprice.html#pascal

負けないようにガンバレ

>>117
Indyってコンポーネントか？それともコンポーネントの中に
入っているプロパティーか？
そのコンポーネントって、DLできないのか？教えてくり。

>>119
まずDelphiのバージョンとEditionを教えて。

Delphi6のProfessionalならIndyは普通に付いてる。
Personalは無かったと思う。
どちらにしてもソース開示してあるし入れれるけどね。

>>119
めでたく厨に認定されました。

Indy以外に、ファイルを鯖に転送する方法ってないんですか？

>>122
NMHTTPって無いか？　＞Personal

つーかDelphiのバージョンとEdition書けって言ってるだろ
質問に答えようが無い。

とりあえず、WinInetを使う方法もあるよ
ttp://members.jcom.home.ne.jp/monazilla/document/wininetdel.html
ttp://user.ecc.u-tokyo.ac.jp/~t00664/delphi/

http://msdn.microsoft.com/library/default.asp?url=/workshop/networking/wininet/wininet.asp

友達からコピーして貰ったDelphiなんでバージョンわからん
どこにバージョン出てる？

Delphiだとなんでも簡単に作れるって聞いたから触ってやるんだけどさ。

>>125 どうどうとそんな事言われても困ってしまいますがな　やれやれ

DFM（フォーム情報のファイル）を読んできて仕様書を作成するプログラムを
作ってみようとしているのですが、日本語部分が #24335#20250・・・こんな感じ
で表示されてしまいます。
色々と調べてみると、ちゃんと日本語として表示される事もあるみたいで、
Delphiでフォームを「エディタで表示」させた状態で一旦保存するとちゃんと
日本語になります、毎回「エディタで表示」させなくても、デフォルトで、その
状態に設定するオプションが見当たらないのですが、何処かにありますか？

環境はDelphi6proです。

Delphi5のlearningで悪かったな。（1万円）

>>123
漏れ的にもNMHTTPがいいんだが、learning版ではコンポがない。
NMHTTPでやりたい。

>>124
教えてくれて、ありがとう。

learningﾊﾞｿは有罪。
前、POP3のコンポでメールソフト作ろうと思ったら、
POP3のコンポがなかった…。
でも、初心者にはありがたい環境。

>>129
実はMemoコンポーネントでファイルの転送が出来る。
隠しメソッドがあるのだ

begin
　Memo1.Create;
　Memo1.LoadFromFile('aaa.zip');　//zipファイルを一時的に格納する
　Memo1.Put(http://www.hoge.com,Memo1.Lines.file);　//zipファイルをアップロード
　Memo1.Free;
end;

こんなところ。
やってみ

>>132
こんなの誰も騙されないだろ （ｗ

Memo1.LoadFromFile('aaa.zip'); からして間違ってるよ、
Memo1.Lines.LoadFromFile('aaa.zip'); が正解だろ。

つーことで、皿仕上

Memo1.Putの第一パラメータに''はいらないのぉ〜？

>>132
疑いつつも、やってみる…http://の時点でできないと思うが…。

>>133 俺は Memo1.Create;　の部分で藁タ

でも Memo1.Create; ってやったらどうなるんだっけ？
文法エラーにはならなかった記憶があるんだが

>>135
やってみたんかよ！

チクショー！
ばれたか
何故ばれた！

そんなこというなら転送機能付きのMemoコンポーネント作っちゃうぞ（マジで）！
何の意味があるのかわからんが

>>136
Create;は間違いでは無い。
FreeがあるならCreate;も必要なはず。

>>137
ビジュアルコンポでオーナーコンポが指定されないと怖いだろ、エラーになると思われ

>>139
Memoだと、サイズ的な制限があるから、他でrichでやった方が実用的？だと思う

>>140 ﾊｧ?
本当にそーかい？マジですか？

>>132
どうせ嘘つくんだったら、PCが止まるのとかやれよ。

>>132
普通にバレルだろ。でも、一応やったぞ。
＞何の意味があるのかわからんが
激しく同意。

試しに
procedure TForm1.FormCreate(Sender: TObject);
var Memo1:TMemo;
begin
Memo1.Create(Self);
end;

とやったら・・・なんとスタックオーバフローに・・・なんで？

procedure TForm1.Button1Click(Sender: TObject);
var Memo1:TMemo;
begin
Memo1:=TMemo.Create(Self);
Memo1.Parent:=self;
Memo1.Name:='Memo1';
Memo1.Visible:=True;
end;

で、NMHTTPコンポってDLできないのか？
できたら使い方おしえてくり。
learningﾊﾞｿのHelpFileで調べてもNMHTTPの
答えは返ってこない…。
やっぱ、Proffesional、Enterpriseﾏﾝセー！！

>>147
って事でMXで拾って来るぜー！！！

119に電話だ！

>>114 sikatanainala
ttp://www.sakaki.keiaikai.or.jp/Library/webconv/compile.html

>>114
だったら　WinInet 使えって　自分のハードディスクに WinInet.pas あるだろ？

>>148
おれの番号きどったようだが、矛盾がおきてるぜ。
例外発生だから…
try >>148の矛盾発言 finally >>148は逝って良し。

>>148
Delphi6のPersonalは無料なんだからそれを使えって

CD欲しけりゃもらえるしダウンロードも出来る
Indyだってただなんだし（俺の記憶では）

>>152
何コイツ？
自作自演？

Personalはコンパ炒るできないんだろ？>>153

それに、重過ぎだ…。>>153

>>155
ﾊｧ?
黄色い救急車呼んでこい

>>155
何がコンパイル出来ないのかよく判らんが・・・。
何の話？コンパイルできるけど？

>>146
146が器と中身を混同しているのでは？

「飯」を「象印の炊飯器」で炊く
のと、

「象印の炊飯器」を炊く
の違いが判らないと理解できないかも（藁

>>155
えーっとな
まず言われたとおり使ってから文句言え。
コンパイル出来ない物を売るか

>>156
何と比べて重いのか・・・

EXEつくれるのか？

>>114
exeどころかもう。。。なあ149>>

Indyが、どんなんか分からないとDLしたくない。
DLしたことによってパソの設定変えたくないから。
Indyがパソが狂うよりもいいものだったら、考えようだが。

>>144への手順

・Borland.co.jpに行く　http://www.borland.co.jp/
・DelphiPersonalをダウンロードする　http://www.borland.co.jp/news/del6personal_j.html
・DelphiUpdate2をダウンロードする　http://www.borland.co.jp/download/delphi.html
・ライセンスキーを取得する（無料）　http://register.borland.co.jp/delphi_personal.htm
・Delphi6PersonalとUpdate2をインストール

これでDelphi6が使えるわけだ

あとはIndyとかを個人好みで入れれば良い。

うえのレス間違い　×>>144　○>>114

>>161
普通に開発出来る

　 ∧＿∧　　／￣￣￣￣￣￣￣￣￣￣
　（　・∀・）＜　>>114はもう少し自分で
　（　　　　）　＼　 調べてから発言してね ♥
　｜ ｜ ｜　　 ＼＿＿＿＿＿＿＿＿＿＿＿
　（＿_）＿）

Indy使うの嫌だったら他にFTPの扱えるコンポーネントを
探して、それでもどれも使いたくないと言うのならSocket
から作ってね。

114は何でDelphiやってるん？

「きどった」ってﾅﾆ?

>>163
マジで、何言ってるのかわかりません。
Indyでパソ？（パソコンの事か？）の設定？（レジストリの事か？）
パソが狂う？（暴走する事か？）
そんな事ないよ、IndyってDelphi用のコンポーネントなんだが？
何と勘違いしたらそんな話になるんだ？

ちょっと自分で調べてから発言しないと、ウザがられますよ？

いや、PersonalをDLして今使っているlearningの
拡張子が変わってしまうのがいや。
Delphi6って、ちょっとDelphi5に比べて形変わっているから、
初心者でいるうちは、Delphi5から移りたくない。
だから、NMHTTPきぼーん。

あと、Indyってどんなんだよ。
自分で調べろってか？

Indyはコンポーネントで、Web開発のために使うことぐらいは
話から分かるけど。

>>171
＞拡張子が変わってしまうのがいや。
何の拡張子？何が変わったよ？

＞Delphi6って、ちょっとDelphi5に比べて形変わっているから、

形が変わった？意味不明なんですけど。

>>172
http://www.google.co.jp/search?q=Indy&hl=ja&lr=

>>169
本人の真似をしているということ。

前に書かれていた「TIdHTTP」とはIndyのことだったのか。

なんか漏れ、荒らしてるのか？

PersonalをDLするんじゃなくて、
IndyそのものをDLできませぬか？

はぁ・・・さすがに・・・・専用サポート部隊にされてもなあ

騙る←きどる？

とっとと答えんか〜〜〜！！！

>>180
ハァ？　アタマ大丈夫デスカァ？

>>180
騙る【きどる】

>>114
http://www.sakaki.keiaikai.or.jp/Library/webconv/compile.html

>>114
まず名前欄に　fusianasan#好きな言葉　って入れろ

好きな言葉はパスワードみたいなものだ。
忘れないように。＃（シャープ）も忘れるなよ。

>>185
アフォが！！

>>181
答えたわ！アフォが！！

>>184
Thank You!!

天然物の荒しか？ちょっとオマエ！細切れに書き込むの止めてくれんか？
番号無駄に上がるし、ここはそんなスレじゃないんでヨロシク頼む。

>6にあるように厨房並みの質問はいいが厨房はお断り。
よって今後>114は放置の方向で。

(ﾟ∀ﾟ)ﾈﾀでした(ﾟ∀ﾟ)

スレが汚れたのでリセット

>>111
>for Stream.Position := 0 to Stream.Size-1 do ...
>っていう使い方が出来ると便利なのに。
便利さはしばしば安全性とのトレードオフになるからね〜

便利さを重んじたのがC/C++で
安全性を重んじたのがPascal(Object Pascal)なんじゃない？

俺は注意力に自信がないからストロングタイピングな言語の方が安心だけど

c++とDelphiにはVBの様なLike演算子がありませんがこれに相当する物ってありますか？

VBのLIKE演算子って、どいういうの？

Personal、DLします。

>>194
MSDN Library Like 演算子
http://www.microsoft.com/japan/developer/library/default.asp?URL=/japan/developer/library/vbenlr98/vaoprlike.htm
パターンマッチングができる。

無い
http://member.nifty.ne.jp/h_kova/procomp.htm

>>195
やっとかよ・・・

４時間前から言ってやったのに

>>197
無いことは知ってるんです。

ですからそれ相当の物があるのかもしくは自分で作れないかと思って。
関数なりを。

Format()　？

>>199
strstr()

Likeは確かに便利だよね。
Delphiには残念ながら存在しないので、文字列だったらPosを駆使する
ことになると思います。

便利だな、これ。
ワイルドカードだ疲れればいいんだよね。
オートマトンでどうにかなるんじゃない？

　　function StrHikaku(a,b:string):boolean;
　　var
　　　　idxA,idxB:Integer;
　　　　wLenA,wLenB:integer;
　　　　wUMC,wWC1,wWC2:Boolean;
　　begin
　　　　wLenA:=Length(a);
　　　　wLenB:=Length(b);

　　　　wUMC:=False;
　　　　wWC1:=False;
　　　　wWC2:=False;
　　　　idxA:=0;
　　　　for idxB:=1 to wLenB do
　　　　begin

　　　　　　if (wWC1=False) then
　　　　　　begin
　　　　　　　　inc(idxA);
　　　　　　　　if (idxA>wLenA) then wUMC:=True;
　　　　　　end;

　　　　　　if (a[idxA]='*') then
　　　　　　begin
　　　　　　　　inc(idxA);
　　　　　　　　if (idxA>wLenA) then wWC2:=True;
　　　　　　　　wWC1:=True;
　　　　　　end;
　　　　　　if (a[idxB]='?') then wWC2:=True;

　　　　　　if (wWC2=False) then
　　　　　　begin
　　　　　　　　if (a[idxA]=b[idxB]) then
　　　　　　　　begin
　　　　　　　　　　if (wWC1=True) then　wWC1:=False;
　　　　　　　　end else begin
　　　　　　　　　　if (wWC1=False) then wUMC:=True;
　　　　　　　　end;
　　　　　　end;
　　　　　　wWC2:=False;

　　　　　　if (wUMC=True) then Break;

　　　　end;

　　　　if (wUMC=True) then
　　　　　　result := false
　　　　else
　　　　　　result := true;

　　end;

>>196
Professional以上ならMasksとかいうワイルドカード扱うUnitが
あったはず。

>>204
aの文字数が長い時のチェックが無いね

>>204
最後辺りの if文のところを
if (wUMC=True) or (idxA<wLenA) then
すりゃ判定できるみたいだが、機能が不足してるし、わかりづらいなぁ。
それに、速度的にどーよ。

>>207
有難うございました。

これでどーよ

function Like(Str,Ptn:string):Boolean;
var
　P,I:Integer;
begin
　Result := False;
　if Str = '' then Exit;
　if Ptn = '' then Exit;
　P := 1;
　I := 1;
　while (P <= Length(Ptn)) and ( Ptn[P] = '*' ) do Inc(P);
　while (I <= Length(Str)) and ( P <= Length(Ptn) )do begin
　　if Ptn[P] = '?' then
　　　Inc(P)
　　else begin
　　　if Ptn[P] = '*' then Inc(P);
　　　if Ptn[P] = Str[I] then Inc(P);
　　end;
　Inc(I);
　end;

　Result := (P > Length(Ptn)) and (I > Length(Str) );
　{ Ptn が含まれているかどうかを調べるには以下の結果を使う }
　{ Result := P > Length(Ptn); }
end;

>>209
>>204ソース + バグ修正 の方が結果が正しいようだが・・・。

>>209
ごめん、正しく動いてたみたいです。

機能が増えたＹＯ. "abc" にたいして a[Bb]* と書いてもマッチする.
function Like(Str,Ptn:string):Boolean;
var
P,I:Integer;
N:string;
begin
Result := False; N := ''; P := 1; I := 1;
if Str = '' then Exit; if Ptn = '' then Exit;
while (P <= Length(Ptn)) and (Ptn[P]='*') do Inc(P);
while (I <= Length(Str)) and (P <= Length(Ptn))do begin
if Ptn[P] = '[' then begin
N := ''; Inc(P);
while (P <= Length(Ptn)) and (Ptn[P] <> ']') do begin N := N + Ptn[P]; Inc(P); end;
end;
if N <> '' then begin
if Pos( Str[I], N )>0 then begin Inc(P); N := ''; end
end
else
if Ptn[P] = '?' then Inc(P)
else begin
if Ptn[P] = '*' then Inc(P);
if Ptn[P] = Str[I] then Inc(P);
end;
Inc(I);
end;
Result := (P > Length(Ptn)) and (I > Length(Str) );
{ Ptn が含まれているかどうかを調べるには以下の結果を使う }
{ Result := P > Length(Ptn); }
end;

>>212
おお！凄い
この勢いで正規表現まで頑張って下さい、期待してます！

頑張って下さい！（藁

114は俺を含めた何人いたんだろ・・・

これで最後にしておくよ。
"3ce5" に "3c[a-zA-Z]5"がマッチすると。

function Like(Str,Ptn:string):Boolean;
　function GetCharList(List:string):string;
　var
　　I:Integer;
　　C:Char;
　begin
　　Result := '';
　　for I:=1 to Length(List) do
　　　if List[I] = '-' then
　　　　for C := Succ( List[I-1] ) to List[I+1] do
　　　　　Result := Result + C
　　　else
　　　　　Result := Result + List[I];
　end;
var
　P,I:Integer; N:string;
begin
　Result := False; N := ''; P := 1; I := 1;
　if Str = '' then Exit;
　if Ptn = '' then Exit;
　while (P <= Length(Ptn)) and (Ptn[P]='*') do
　　Inc(P);

　while (I <= Length(Str)) and (P <= Length(Ptn)) do begin
　　if Ptn[P] = '[' then begin
　　　N := '';
　　　Inc(P);
　　　while (P <= Length(Ptn)) and (Ptn[P] <> ']') do begin
　　　　N := N + Ptn[P];
　　　　Inc(P);
　　　end;
　　　N := GetCharList(N);
　　end;

　　if N <> '' then begin
　　　if Pos( Str[I], N ) > 0 then begin
　　　　Inc(P);
　　　　N := '';
　　　end
　　end
　　else
　　　if Ptn[P] = '?' then
　　　　Inc(P)
　　　else begin
　　　　if Ptn[P] = '*' then Inc(P);
　　　　if Ptn[P] = Str[I] then Inc(P);
　　　end;
　　　Inc(I);
　end;

　Result := (P > Length(Ptn)) and (I > Length(Str) );
　{ Ptn が含まれているかどうかを調べるには以下の結果を使う }
　{ Result := P > Length(Ptn); }
end;

>>215
まだそのネタやるつもりか？つまらん

>>215
本人ですが。次の式を証明することができました。
>>148=>>215
お前だけだったよ。偽者は（藁

（´-`）。o ○ （春だねぇ…）

春なのーに〜♪ おわかーれですーか〜♪

くぅ、なんでこんなにスレが伸びているのかと思ったら・・・
あ、Like作ってる人たちはすごいっす。

もう１つの質問スレも春真っ盛りだね。

　　　∧,∧　　　　 ,::　 ／￣￣￣￣￣￣￣￣￣￣￣￣
　　ミ,,ﾟДﾟ彡っ━'~　　|　とりあえず、Like作成は
　　ﾐ∪　 ~,ノ　　　　＜　テストコードを書いてから語ろうよ
　　 ﾐ　 '' ミ　　　　　　 ＼＿＿＿＿＿＿＿＿＿＿＿＿
　　　し'~し'

あれだ
新学期になって中学生がパソコン買って貰ったから
「よーしプログラム組むべ！」
って気合い入れたは良いけど何をしたらいいのか、どの言語にしたら良いのかわからず。

だからＶＢスレッドやDelphiスレッドに厨が繁殖するんだ。
そうか・・新学期だったんだ・・・

ここが「やさしいスレ」で良かったね

独り言・・・？

http://ocn.amikai.com/amiweb/browser.jsp?url=http%3A%2F%2Fwww.nevrona.com%2FIndy%2F&langpair=1%2C2&c_id=ocn&lang=JA&toolbar=yes&display=2


翻訳サービスもまだまだだなと思う（藁

＞デルフォイ6は8.0で船で行きます
いいね。旅情派だね。

春だから見逃してくれや。「ＦＡＱ」の
＞Why did the chicken cross the road?
＞
＞Some people say "To get to the other side.".
＞We however are not really sure why the chicken crossed the road.
＞It shall remain a mystery to the world.
＞
＞なぜ鶏は道を横断しましたか。
＞何人かの人々は言います「反対側に到着すること」しかしながら、私たちは、
＞なぜ鶏が道を横断したか実際に確信しません。それは、世界に対する神秘の
＞ままであるものとします。
は、何なんだ？

お前は駄目な奴だな。
周りがみんな爆笑してる場面で「ねぇ今のどういうこと？」って聞いてまわるタイプ。

友達がVB.NET触ったらしいけどなんかDelphiみたいになってるらしいじゃん
VBもやっとオブジェクト指向になった？
既存ユーザには大変らしいけど新規ユーザーにはありがたいよね。
（.NET設計者そのものが、Delphiの人だったしね。もうBorland戻ったけど。）

Delphi.NETはまだですか？
C#Builderでもいいよ。

でも、Delphiと違ってソース公開じゃないから　仕様みて想像するしかない
から、深く使おうと思ったら逆に苦労しそうなんだよな

>（.NET設計者そのものが、Delphiの人だったしね。もうBorland戻ったけど。）
え？戻ったの？ソースキボンヌ。

>>231
ライブラリのソース公開の話が出てたよ。C#スレ参照

>>232
日系の本に書いてあったよ
「日系ソフトウェア」だったかな。

だいぶ前

そういや、.NET関係は全部公開だったね。
だから他のプラットホームに移植してる人がいるのだろうけど。

>>93
TFormの謎
　『型』ってあるよね．クラス型やレコード型，列挙型など，いろいろあるけど，
　ボーランドさんは『型』の名前の先頭にTをつけるのが好きなの．
　プログラムを書く人にもこれをすすめてる．
　でもそうしなければいけないわけじゃない．

publicとprivate
　クラス（オブジェクト）で外側から見えるものがpublic（パブリック），
　見えない（操作できない）のがprivate（プライベート）．
　見せなくていいものを徹底的に隠すことで
　プログラムの仕様があとで変わってしまっても最小限の変更で済む．

interfaceとuses
　上のpublicとprivateに似てるけど，
　ユニットのinterfaceと書かれた部分からimplementationと書かれた部分の間
　（interface節という）で宣言されている型，関数と手続き，変数，定数は
　ほかのユニットが必要に応じて参照することができる．
　implementation以後で宣言されているものは参照できない．

　usesはほかのユニットがinterface節で宣言している型，関数と手続き，変数，定数を
　『使う』ことができる．（use＝使う）

　やはり見せなくていいものは極力見せないようにすべき．理由も一緒．

よくマジックナンバーと言う言葉を耳にするんですがどういう意味ですか？

>>236
publicとprivate、interfaceとimplementationは権限で説明した方がわかりやすくない？
自分はそうやって説明して貰ったら一発で理解出来た。

protectedが抜けてるけど良いのかな。
まあ>>236の言うとおり他から参照出来るかどうかだね。

>>237
謎の数字をそのまま打つこと。

strncpy(str1,str2,18);

通常はこのように意味のある言葉でdefineする。

#define MAXDATALENGTH 18

strncpy(str1,str2,MAXDATALENGTH);

Delphi2.0が秋葉原で５００￥で売っていました（関係ないけど）

>>233 そのライブラリって CLIでCLRではなかったんじゃ？
つまり delphiで言えばsystem.pasの公開でVCLではないように思う
ちゃんと見た訳じゃないけど、textBoxをgrepしたけど見つからなかったし

TextOut関数の使い方がわかりません。
delphi5では
TextOut(x,y:Integer; text:string)
で動くらしいので何とかわかるのですが、
私が持っているdelphi6では
TextOut(dc:HDC; x,y:Integer; str:PChar; const:Integer)
となっていて何が何やら…。
既出でしたら誘導してもらえるとありがたいです。

>>237, 239
その意味もあるけど、データの型を示すためのいわゆるシグネチャ
としての意味もあるね。googleで調べりゃボロボロ出てくる。

Canvas.TextOutとWindows.TextOut?

安易にFocus()叩いて悩むみたいな。

>>242　TCanvasのヘルプから探すといいよ

type
　THogeTree=class(TTreeView)
　public
　　constructor Create(AOwner: TComponent); override;
　end;

constructor THogeTree.Create(AOwner: TComponent);
begin
　inherited Create(AOwner);
　Name:='hogeee'
　 Items.Add(nil,'aaaa');
end;

とすると、'コントロール'hogeeee'は親ウィンドウを持っていません'という例外が発生してしまいます。
色々やってItems.Addの前に「Parent:=(AOwner as TWinControl);」を
追加すればきちんと動作してくれるのはわかったんですが、
なぜ、Parentを指定しなければいけないんですか？
そういうもんなんでしょうか？

>>247 オーナーと描画先とは普通違うでしょ？

オーナーの廃棄と共にオブジェクトは消えて欲しいけど
描画先が廃棄されて一緒にアポーンされたら嫌でしょ？

>>236
>>238
ありがとう御座います
Publicとか理解出来ました。
その後Delphiの読みづらいコースウェアも読んでみました。
それにしてもDelphiのマニュアルは英語直訳って感じで分かりづらいですね。
分かってて当然って書き方されてるし・・・。

Delphiは入り込むのが難しそうだけどその後が楽そう。

あ、そうそう
procedureとfunctionはどう違うんですか？
関数じゃ無いのでしょうか？

procedureが手続きでfunctionが関数なのは分かるんですが、どう違うのか・・・

自分で勝手に
function　TForm1.aaaaa;
begin
　Edit1.test　:= 'test';
end;
ってやったら動きましたけど・・。

>>250
procedure :void
function :!void

返値があるのがfunctionで、返値が無いのがprocedureだったと思います。

Delphi6のpersonalでMSのAgentControlという物を使おうと
思って色々やっているのですが、Agentのアニメーション名を
Getする方法がわかりません。
どなたか参考になるサイト、ソース御座いましたら教えて頂け
ませんでしょうか？

>>253
MSDNは？

>>254
それっぽいのを見つけたのでやってみます。
ありがとう

アニメーションはどうやらGET出来たようなのですが、
それをメモ等に挿入したいのですが、
StringとIAgentCtlRequestには互換性がありませんのエラー。
型を変換する方法ってわかりますか？
もうここで質問するような内容では無いのかもしれませんが、
宜しくお願い致します。

>>256
var
a :Real;
b :Integer;
begin
b = Integer(a);

>>257　レスありがとうございます。
var ag:IAgentCtlRequest;
Memo1.Text := string(ag);
とやってみましたが、Memo1の内容は
3ｼt

ちなみに、Integerだと
13528536
なのですがどうしたらよいでしょうか？
無理なのでしょうか？

>>258
＞アニメーションはどうやらGET出来たようなのですが、
それをメモ等に挿入したいのですが、

意味がわからない。

>>259
私は、253,255,256,258です。
officeのイルカのカイル等がAgentです。
で、そのAgentのアニメーション名をGetしたいのです。
Agent1.Characters.Character('AgentID').Get('Animation', 'Animation', 'True');
でGetできるようなのですが、そのアニメーション名を知る方法がわからないのです。

Personalをダウンロードしたぞ。
Indyをヘルプファイルで調べたんだが、該当しなかった。
Indyというコンポーネントもなかった。

>>261
Proを買え。

>>261
昨日何を聞いていた・・・。

>>114　これは何だったんだ、

>>184
Thank You!!

ちっageちまった。

>>261=114
Indyもダウンロードしろ。
PersonalにはIndy付いてない。

Indyの日本語版ヘルプファイルはないのか？

>>267
ある

「やさしい」質問スレだったよな。

もういい加減放置して下さい。
他の質問者に迷惑なので

>>269
だから答えてるじゃん・・
やさしくダウンロード方法まで書いてあげたじゃん・・・

まず試そうよ。

>>269
モナーの 　ね

>>269
やさしいのは確か
でも質問してばかりで実際に実行に移さなかったら駄目でしょ。
「Indy無いのか？」って言ってるけど、きのう説明済みだし。

それ以前にDelphiの導入やIndyの導入は出来るようにしよう！
わからなかったら教えるけど。　
や　さ　し　いからね。

>>269
文句を言う前に、自分のことを振り返れ。

多分>>269ではどこにあるのかも知りたいんだろうが、
「Indyの日本語版ヘルプファイルはないのか？」
じゃなくて
「Indyの日本語版ヘルプファイルはどこにありますか？」
と聞くべきだろ。
お前がほしい情報がなんなのかわからんから「ある」と答えるしかないわけよ。

何より、「教えてもらう」という謙虚な態度がお前には必要だと思うよ。

○厨房並みの初心者の質問はOKですが、厨房は質問するな。

>>269
自分で調べるからそう書いたんだろ！！

はぁ…。114は消えるとするよ。

QuickReportの使い方が（というか、Delphi自体が初めてなんで）わからないのですが、
データベースのテーブルを一覧で表示するのはできた（と思う）のですが、次のやり方が
どうやればいいのやらわかりません。

データベースＡのテーブルａの一覧を出力するのですが、その際にデータベースＢの
テーブルＢより名称を取得したいのです。
イメージとして．．．

コード　　　　　　　　　名称
-----------------　　--------------------------
Ａテーブル.コード　　　　Ｂテーブル.名称

なのですが、自分で色々やってみたのですが一件目は取得できてるのですが
２件目以降は取得できませんでした。

資料も色々探してみたのですが、QuickReportに関しての資料はほとんどなくて...

知っている方教えてください。

>260
G:IAgentCtlCharacterEx;
x:IEnumVariant;
v: OleVariant;
i: Cardinal;
--------------
x:=G.AnimationNames.Enum as IEnumVariant;
while (x.Next(1, v, i) = S_OK) do Memo1.Lines.Add(String(v));

こういうこと？

>>278　QuickReportの前に、ためしに DBGrid貼って見てみたら？

>>279
レスありがとうございます。
未定義の識別子 : 'IEnumVariant'
未定義の識別子 : 'AnimationNames'
のエラーです。　uses節になにかたらないのでしょうか？

>>278
DBの(SQLの)勉強をもっとした方がいい。
QRはただ単にデータを紙に出すだけ。

>281
IEnumVariant <- uses に ActiveX
AnimationNames <- IAgentCtlCharacterEx (Exがある)

取得されるStringは'GestureDown'等

上のほうでも話題になっていましたが、Indyのインストールができません。
Del6Personalです。どなたか教えてください。おながいします。

おながいかよ！（ｂｙ　三村）

　 ∧＿∧　　／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　（　´∀｀）＜. Delモナーがどんな厨房疑問でもやさしく答えます。
　（　　　　）　.| Delモナーは時に私であり、時には別の人。
　｜ ｜ ｜　 | 他のスレに書き込んで罵倒される前に、まずここで質問しよう。
　（＿_）＿） 　＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿

Indy WinInet について書いてある

ttp://members.jcom.home.ne.jp/monazilla/document/index.html

>>284
・インストールに失敗したIndyのバージョンは？
・失敗したときのエラーメッセージは？
・DelphiにはUpdatePackあたってる？

ファイル名はIndy9_00_01_D6.EXE
エラーはYou Can not Install the program unless you have the Souse-Code 9.0 Build 1 install first...
ＵｐｄａｔｅＰａｃｋ2です。

>>289
IndyNet9_00_03.EXEならインストール出来ると思うよ。
ttp://www.nevrona.com/Indy/download90.html
このページの真ん中くらいに有る。
俺もDelphi6PersonalUpdatePack2だけどインストール出来たから。

ところで質問があります。
private
SL1:TStringList;

procedure TForm1.Button1Click(Sender: TObject);
begin
SL1.Text := IdHTTP1.Get(URL);
end;
とかやって、一度目は上手くいくんだけど
二度目に例外が発生して
EIdConnClosedGracefullyクラスの例外を生成しました。
'Connection Closed Gracefully.'
とか何とか言われます。
何故なんでしょうか？
どなたか教えていただけませんか？

>>289
わたしもインストールに成功しました（つい今しがた）

私が思うに、Delphiのupdateがうまくいってないのでは？

>>290
Indyヘルプより
例外クラス EIdConnClosedGracefully は，接続が正常に閉じられた場合に生成されます。

EIdConnClosedGracefully = class(EIdSilentException)

説明

この例外クラスは，接続が正常に閉じられた場合に生成されます。
EIdSilentException から派生しているため，VCL の EAbort 例外のように動作します。
[ツール｜デバッガオプション｜言語固有の例外｜追加] をクリックして「EIdSilentException」と入力し，
この例外を無視するように IDE を設定することをお勧めします。

Delphiだけで、今流行の ActiveX コントロールってやつ作れますか？

>>293
できたと思うぞ。

うん　出来るけど　無料のパーソナルじゃ普通は無理。

お金出してPRO以上買わないとCで作れるというのと同じレベルだから注意してね

タイトルバーの表示をいじくる方法を教えて下さい。
例えば、文字の色を変えたりとか、最小化・最大化・閉じる以外にボタンを追加するとか…

タイトルバーを表示せず自分で描く。

>>296
フックして下さい。Windowsの神になれる技です。

>>296
シェアウエアで 拡張タイトルバーやフリーでもTTitleBarというのがあるのですから
出来ない事はないのでしょうが、,自分でやるならそれなりの知識が必要だと思います

なお、TTitleBar　は自前で全て賄う方式なので、メニューを表示する場合に難しいようですね

Delphi2の頃にちょこっとだけいじっててver6がただで使えるので遊ぼうと思っていたのだけど
新規フォームにボタンを一個だけ配置してButton1Clickに
Close;
と書いただけなのに終了しなくなっちゃった。
昔はこれでプログラムが終了したんだけど今は何か余計な事を書かないといけなくなっちゃったの？
[エラー] Unit1.pas(30): 文が必要な場所に 'TButton' 型の式があります
と言われても昔はこのコードで通ったから良く分かんないっす。

誰かアドバイスください。

>>300
じゃあApplication.terminate();

>>300
ここは性格異常者の隔離スレだから、こっちへ行きなさい。
http://pc.2ch.net/test/read.cgi/tech/1010153466/

>>300
って文法エラーか。アフォらしい。
ネタじゃないならそのプロシージャ全部見せろって。

guest guest

どうせタイプミスだろ。
この手の質問はよくあるんだよな。

まあしかしこの程度のエラーの原因も掴めないのは
プログラマーの素質ゼロと言わざるを得ない。

>>300
わかりました。５０００万出しましょう。
そのかわり、１年後にきっちり５０００万返せますか？

>>300
ワシら、ここに暇つぶしに来とんと違うんや！！
こっちは真剣なんや！！
しょうもない質問すな！！

プロシージャ晒せとのお話しなので。
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, MPlayer, StdCtrls;

type
TForm1 = class(TForm)
Close: TButton;
MediaPlayer1: TMediaPlayer;
procedure CloseClick(Sender: TObject);
private
{ Private 宣言 }
public
{ Public 宣言 }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.CloseClick(Sender: TObject);
begin
Close;
end;

end.

>>307
病人が現れました。どうしよう？

あんた、思いっきりCloseってTButton型の変数宣言してるやん・・・。

>>311
激しく笑わしてもらいました。
なるほどね。

すっ、すまん。やっと意味が分かった。
NameをCloseButtonに変えたあるよ。

会社では一応ソフト屋で飯食ってるんだけどPascalはさっぱり最近いじってないし、、、

この板にはVXWorks使いなんていないよね？

どもみなさんありがとうございました。

あっそうそう、>>307
いいですよ。何でしたらメールアドレス晒しましょうか？
ただし私先物＆経済板の住人だから元本保証無しだよ。

Delphi for Windows CE あげ。

>>314
詳しく教えて、頼むから。

>>314　DelphiコンパイラがCのソースでも吐くのか？

>>316
WindowsCEってご存じですか？

>>317　だから、全部のCPU用にpascalコンパイラ用意したの？
　　それともCトランスレータ？

え、DelphiってCなんですか？

【コピペ１周年】４月７日同時多発オーダーIN吉野家【祭り】
(1)馴れ合い禁止。（一人で来る事。同伴禁止：いても知らぬ顔）
(2)「大盛りねぎだくギョク」を頼むこと。（並盛りねぎだくｷﾞｮｸも可）
(3)各会場ごとに指定時間厳守で現地集合。
(4)食ったら即帰る。
注）吉野家は家に帰るまでが吉野家です。

本スレ
http://ex.2ch.net/test/read.cgi/entrance/1017935504/l50
スレよりぬき等
http://www2.mnx.jp/carvancle/yoshigyu/
お祭り板
http://live.2ch.net/test/read.cgi/festival/1014549688/l50

>>318
そうじゃないの？BorlandってCのCE開発キット出してたっけ？
もし無い場合、あなたの言っていることの意味が不明。

Delphi.NET が先だろ。

Indyのインストールはうまくいったようなのですが、>44が動きません。
Indy ClientsのTIdHTTPを乗っけて、Button1をクリックしMemoにURL表示というのを実行してみたのですが・・・
実行すると「ソースファイルが見つかりません：IdStack.pas」と表示されてしまい、
Indyのソースフォルダに有ったので指定しますが、OKを押すと
「デバッガ例外が発生」EIｄSocketクラスが例外を発生しましたと表示されて・・・・・

>323
やってみたらちゃんとうまく行ったよ。（つい今しがた）

ところで>>268、>>274で「ある」と言われている
「Indyの日本語版ヘルプファイル」は↓のBorlandのサイトにあるkylix用のやつでしょうか？
http://www.borland.co.jp/kylix/kx2docup.html

http://www.vector.co.jp/soft/dl/win95/amuse/se232609.html
にある目覚ましスクリーンセーバーなんだけどこのソフトの出す目覚まし音が
Windowsアプリでボリュームを最大にした時の音より巨大なんだけどそんな設定なんて
どうやって出来るNO?

>>325
そのデータの音量が他のデータに比べてふざけた音量で作成されている。

>>326
そなのかなあ。色々と考えたんだけど答えがでんかったYO!

ところで、マスターボリュームの操作ってどうやるNO?
MixerAPIなんて使った事ないYO!
誰かサンプルコードきぼん

>>327
ttp://www.nifty.ne.jp/forum/fdelphi/samples/00507.html
あとは自分でなんとかやって

>>328
出来たYO!
ありが10!

39?

今年も4649！

Mediaplayerを使って繰り返して音を鳴らしているんですけど、
ボタン入力で音が鳴っていても途中で強制終了させることは出来ないでしょうか？

>332
Application.Terminate
でどお？

そのButtonのOnClickに
MediaPlayer1.Pause;
もしくは
MediaPlayer1.Stop;

Application := nil
とか。

>>333-334
駄目みたいっす。何か先行入力されている感じ。ボリュームをだんだん大きくするプログラムなんだけど
with Mediaplayer1 do
begin
Filename:='C:\Windows\bell.wav';
Open;
Notify:=true;
Play;
end;
j:=1000;
while j<15000 do
begin
if not SetVolume(0, 0, j) then
ShowMessage('ボリューム設定に失敗しました');
if Mediaplayer1.NotifyValue=nvSuccessFul then
begin
Mediaplayer1.Notify:=True;
Mediaplayer1.play;
end;
sleep(1500);
j:=j+4000;
end;
メインはこれでボタン側は
>>333や>>334を入れただけなんだけど駄目だった。なぜ？

ボタン押せなくないか？

>>337
そう押せない。
先行入力されてるみたいな感じで、何回か繰り返して再生された後で
やっと押せて終了出来る。

どうにか割り込み出来ないのでしょうか？

ループ中にApplication.ProcessMessages入れとけ

MLにも春厨ガ・・・

>>336
OnClick内でそんなに時間掛かる処理は普通やらないと思います。
・sleepの代わりにApplication.ProcessMessages
・タイマー(TTimerで十分でしょう)を使って似非割り込み
・OnIdleで同期とって処理
等でやりましょう。
タイマーが手軽かな。

MLに厨房？
どんなやつかコピペPLS

>>333-340
駄目だった。みんなレスありがとうね。
でも、色々とやってみて、音を鳴らす部分だけをFuctionに出したら
みんなが教えてくれたどのやりかたでも大丈夫だったあるよ。

同じコードの中に入れといたら割り込みが効かないなんて初めて知った。
みなさんありがとね。

解決レポしたばかりで聞くのも申し訳ないのですけど、スクリーンセーバーのように
キーかマウスに動きがあったら、ある特定の処理をさせたいのですが、OnMouseMove
はそのフォームの上ではきちんと思った通りの動きをしてくれるのだけど、OnMouseDown
やOnKeyDown、OnKeyPress,OnMouseClickは思った通りの動きをしてくれません。
それぞれのプロシージャにはClose;を入れてるだけで試しているのですが・・・

何かポイントがあるのでしょうか？
スクリーンセーバーとかを作った事のある人、教えてください。

>>342
DelphiではWindows標準のスクリーンセーバーは作成できません。

>>342
340にあるのも試した？

>>343
標準というがどういうのを指してるか分からないけど、Delphiでもスクリーンセーバーは作れるでしょ。
SCRNSAVE.LIB を使ってないってことなら、VC製スクリーンセーバーでも使ってないの多いし。

MyBase の使い方が　いまいち良く分からないのですが…
例えば、

「名前 番号 住所」 というローカルデータベースを作るとして、

ClientDataSet を配置し、項目の新規作成をするところまでは分かるんです。
それにレコードを追加するときはどうするのですか？ CommandText で
SQL 文を入力するのですか。

>>344
３４０にあるものってなんですか？

>>346
あ、すまん。終了処理はちゃんと解決してたんね。ちょと勘違いしてた。忘れてくれ。鬱
んでOnKeyDown、OnKeyPressはフォームのKeyPreviewをTrueにすればOKかと。
OnMouseDownなんかは…TImageとか張ってる場合はTImageのOnMouseDownとかに
記述しなきゃならないんだけど、それとは別問題？

>>347
レスありがと。教えてもらった方法でOnKeyDownは解決しました。
TImageとかは貼ってないのです。
あるのはボタンとタイマーのみ。

エラーの原因を教えてください！
ZLib で 以下の関数を使うとDecompress呼び出しで error! と表示されてしまいます

uses ZLib;
procedure Test(str:string);
var
　P:PChar;
　PSize, I:Integer;
　POut:Pointer;
　Ms:TMemoryStream;
begin
　Ms := TMemoryStream.Create;

　P := PChar( str );
　Ms.Write( P, Length( P ) );

　ZLib.CompressBuf( Ms.Memory, Ms.Size, POut, PSize );

　Ms.Clear;
　Ms.Write( POut, PSize );

　ZLib.DecompressBuf( Ms.Memory, Ms.Size, 0, POut, PSize );

　Ms.Free;
end;

解決をしたと思ったら変なループをしてた(涙)
何故なのでしょう？
長くて切れるだろうけど載せます。ﾕﾙｼﾃ
Begin
　FirstMove:=0;　←３、ここに戻ってしまう
　GetLocalTime(SystemTime);
　if SystemTime.wHour<15 then
　begin
　　GetcursorPos(Pointcursor);
　　if Pointcursor.X>500 then
　　begin
　　　if Pointcursor.Y>500 then
　　　begin
　　　　if not SetVolume(0, 0, 0) then
　　　　　ShowMessage('ボリューム設定に失敗しました');
　　　　with Mediaplayer1 do
　　　　begin
　　　　　Filename:='C:\Windows\bell.wav';
　　　　　Open;
　　　　　Notify:=true;
　　　　　Play;
　　　　end;
　　　　j:=500;
　　　　while j<64000 do　　←１、ここから
　　　　begin
　　　　　if not SetVolume(0, 0, j) then
　　　　　　ShowMessage('ボリューム設定に失敗しました');
　　　　　if Mediaplayer1.NotifyValue=nvSuccessFul then
　　　　　begin
　　　　　　Mediaplayer1.Notify:=True;
　　　　　　Mediaplayer1.play;
　　　　　　Application.ProcessMessages;　←２、ここまで実行すると
　　　　　end;
　　　　　j:=j+1000;
　　　　end;　　　　　　　　　　←１、ここまでループするはずなのに
　　　　exit;
　　　end;
　　end;
　end;
end;

>>349
マニュアル読んでね。

開発者マニュアルに ZLib のことのってます？

Edit1〜3等でTABキーを押したときに必ずMemoにフォーカスを移動させたいんですが
OnKeyDown等ではTABキーが捕まえられません。
Ctrl+TABだと捕まえられるんですが・・・
TABオーダーだとEdit1->Edit2->Edit3->Memoのようにしか移動できません。
何かいい方法はないでしょうか？

Action コンポーネントを使い、
ショートカットキーに TAB を登録する。

>>354
ぬおー！できました！！
ありがとうございます〜

まあどっちゃでもいいけど
俺ならEditXOnEnterでActiveControl=Memoにするかも

VBやVC製のEXEを実行するには、VB、VC特有のDLLをインストールしなければならないとききました。
Delphi製のEXEを実行するときも、Delphi特有のDLLをあらかじめインストールしなければならないのでしょうか。

↑…　どうなってんの？？？

失礼。ブラウザのせいでヘンな風に表示されてるだけだった。

>>349
　Ms.Write( P^, Length( P ) );
　Ms.Write( POut^, PSize );

'^' いる?

　　　　　　（;;::;;:　　　　　;;:::）
　　　　　（;;::; （::;;　（　　　;;::;; ）
　　　　（:::　（;;::　　　;;;）　 　:::::）
　　　（;;: （:::　 （::;;;　　 ;;;;）::;;;ﾞﾞ）;;）
　　　　 (,,ﾞ:ﾞ:;;;;;,,,（::;;;;;;;;）;;;;;;:::）:::;;;;)
　　　　　ヾ(,,;;;;ﾉゝ::;;iii　//;;;;）
　　　　　　　 ヾヽi:;;;iii|//
　　　　　　　　　ヾ;;;iiiii/
　　　　　　　 　　|::;;;iii|
　　　　　　　 　　|::;;;iii| 　　　　　　　　　>>357
　　　　　　 　　　|:;;;;iii| ∧　　　　　　／Delphi製の
　　　　　　　 　　|;;;;iiii|Дﾟミ　∬　＜　　ﾌﾘｰｿﾌﾄを
　　　　　　　 　　|;;;iiii;|　つ━┛　　 ＼　使ったらわかる
　　　　　　　 　　|;;;iiii;|.,　ﾐ〜. 　　　　　　と思うよ
　　　　 　 .ｊｒｊｊｒｊ从ｗｊｗｊ从ｊ
　　　　 ｊｗｊｊｒｊ从ｊｒｊｒｊ从ｊｗｊｗｊｊｒ

>>356
試してみたのですがEditにフォーカスが移動しません。
procedure TForm1.Edit1Enter(Sender: TObject);
begin
　ActiveControl:=Memo1;
end;
これじゃ駄目なんですか？

>>361
必要無い　と聞いてはいるのですが、友人曰く
「必要だよ　だって俺いれてるもん」

と言っているので、本当のところはどうなんだろうなーと
思いまして。

タダのポインタ var P:Pointer に
逆参照つけたら、型はなにになるんですかね。

P^ { 型は？ }

これからはdelphiの時代でしょ。

ああああああ
ほんとうだああああああああああ

Ms.Write( P^, Length( P ) );
Ms.Write( POut^, PSize );

としたら旨く行きました！

結局 P も P^ も Pointer 型なんですかね。どっちも
互換性うんぬん言われなかったんで。

>>363
普通は必要ない。が、 String型をDLLをやりとりする場合や実行時パッケージを使って
構築した場合とかは、ぞれぞれBORLNDMM.DLLやパッケージファイルが必要になる。

たまに実行時パッケージを必要とするフリーウェアあるね。

>>366
Stream書き込みはBufferがConstで実際のデータを渡す必要があるので
逆参照する必要あり
Pointer型の逆参照は本来はできない仕様なので
（実際には何らかのデータが渡される？）
POut:Pchar;　などとして
ZLib.CompressBuf( Ms.Memory, Ms.Size, Pointer(POut), PSize );
Ms.Write( POut^, PSize );
としたほうが良いカモ

どなたか教えていただけないでしょうか。

>>350
　　　　　end;
　　　　　j:=j+1000;
　　　　end;　　　　　　　　　　//←１、ここまでループするはずなのに
　　　　exit;
　　　end;
　　end;
　end;
end;

↑なんでここに EXIT がはいってるの？意味無いような。

>>363
それはDelphiのDLLじゃなくてそのソフト独自のDLLじゃ無いの？

>>350
それから、あまり深いインデントをするとみにくくなるよ。
工夫すれば、↓のようにも書ける事を覚えると吉。やってる事は >>350 と全く同じ。

begin
　FirstMove:=0;
　GetLocalTime(SystemTime);
　if SystemTime.wHour>=15 then Exit;
　GetcursorPos(Pointcursor);
　if Pointcursor.X<=500 then Exit;
　if Pointcursor.Y<=500 then Exit;
　if not SetVolume(0, 0, 0) then
　　ShowMessage('ボリューム設定に失敗しました');

　with Mediaplayer1 do
　begin
　　Filename:='C:\Windows\bell.wav';
　　Open;
　　Notify:=true;
　　Play;
　end;

　j:=500;

　while j<64000 do
　begin
　　if not SetVolume(0, 0, j) then
　　　ShowMessage('ボリューム設定に失敗しました');
　　if Mediaplayer1.NotifyValue=nvSuccessFul then
　　begin
　　　Mediaplayer1.Notify:=True;
　　　Mediaplayer1.play;
　　　Application.ProcessMessages;
　　　end;
　　Inc( J, 1000 );
　end;
end;

>>371
レスありがとうございます。
end;が多数並んでいるのはそれぞれのendごとに実は処理が並んでいるのですよ。
とりあえずそれぞれの処理はサブルーチン化してまずはバグ取りを>>373を参考にして
やってみます。

>>373
やってみたのですけど駄目でした。
原因を追及する為に簡略化しているのですが、

begin
　while j<64000 do　　　　　　　　　　　←２
　begin
　　if not SetVolume(0, 0, j) then
　　 ShowMessage('ボリューム設定に失敗しました');
　　　Mediaplayer1.Notify:=True;
　　　Mediaplayer1.play;
　　　Application.ProcessMessages;　←１
　　　j:=j+1000;
　end;
end;

ボリュームを１回演奏するごとに少しづつ上げていくプログラムなのですが、
jを広域変数にして少しづつ上げていきたいのですけど、１のあと下の行を実行せず
に２に戻ってしまいます。
演奏終了を確実に待てる他の方法をどなたかご存じ無いでしょうか？

Listboxの内容(text)をClipboardに入れようと思い

Clipboard.AsText := String(Listbox1.Items);

としたのですが、思ったとおりの数値が出てきません。
どうしたらよいのでしょうか？

Application.ProcessMessages
で、さらに >>375 が呼び出されているって事はない？

つまり、１の下を実行せず２にジャンプしているのではなく、
新たにもう一つ関数を実行していると。

>>375 のコードはどのイベントに書いてあるの？

Clipboard.AsText := Listbox1.Items.GetText;

TListBox.Items って TStrings でしょ？
TStrings を String にキャストできるの？
内容のテキストを得たいときは
ListBox.Items.Text で。

>378 >379
ありがとうございます。
それでいけました。

しかしこのままだと、ListBox の一番上にあるものが
クリップボードに入ってしまいますよね？
選択したものをクリップボードに入れる場合はどうすればいいのでしょうか？

>>377
毎度ありがとうございます。
375のコードはTTimerのOntimerに書いています。
ただし何度も呼び出されないようにOntimerの一番最初に
Timer1.Enabled:=False;
を入れてますけど。

試しにボタン一個とメディアプレーヤー一個だけのアプリを作って
MediaPlayer1.wait:=false;
Mediaplayer1.Enabled:=True;
Mediaplayer1.Notify:=True;
Mediaplayer1.play;
Application.ProcessMessages;
showmessage('終わった');
と言うコードを書いて音を鳴らしたら音が鳴り終わる前にメッセージボックスが表示されました。
Application.ProcessMessages;
は前の作業が全て終わるまで待ってくれる訳じゃないんですね。
音が鳴り終わるまで待たさせる方法が無く、どうしようか悩んでます。

>>380

何番目の行が選択されているか？は、
ListBox.ItemIndex で取得できるので、

Clipboard.AsText := ListBox.Items[ ListBox.ItemIndex ];

とすればよい。

えっと、「演奏が終わった」っていうイベントが Mediaplayer に
なかったっけ？

MediaPlayer.OnNotify とか

それからさ、
MediaPlayer1.wait:=false;
で、なんで False なのよ。
どうしてわざわざFALSEなのよ。

＞ 音が鳴り終わるまで待たさせる方法が無く、どうしようか悩んでます。

WAIT := Fasle

の意味に気づいてYO!
Waitよ？
Wait に False よ？

>>384
先輩すみませんでした。おっしゃるとおりでした。(礼)
waitをTrueにしたらきちんと前の音の再生を待って再生するようになりました。

でも、結局Application.ProcessMessages;
を入れてるのにキー入力やマウス移動などの割り込みは受け付けません。
コードの位置をタイマーのOntimerからフォームのOnShowに移したりしても駄目です。

何か良い方法はないでしょうか？

>>382
ありがとうございました。
無事に動いてくれました。

>>385
「Notify:=True;」の後、再生して
OnNotifyで終了のタイミングを拾う

>>387
OnNotify プロシージャを作ってマウスの移動やキー入力のチェックをやってみたのですけど
やっぱり駄目でした。

これだけでうまくいくけど？？
再生中でも、ちゃんとボタン押せば止まるし、
フォームをクリックすれば閉じる。

procedure TForm1.Button1Click(Sender: TObject);
begin
with mediaplayer1 do
begin
filename := 'c:\windows\media\the microsoft sound.wav';
open;
notify:=true;
wait := False;
play;
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
mediaplayer1.stop;
end;

procedure TForm1.FormClick(Sender: TObject);
begin
close;
end;

procedure TForm1.Mediaplayer1Notify(Sender:TObject);
begin
mediaplayer1.notify:=True;
mediaplayer1.play;
end;

＞OnNotify プロシージャを作ってマウスの移動やキー入力のチェックをやってみたのですけど
＞やっぱり駄目でした。
何やりたいの？（藁
OnNotifyは再生が終わったときに来るんだよ。
少しはヘルプ読めよ。甘えすぎだろ。

>>389
甘えすぎと感じたら許してくれ。
OnNotifyの意味は分かってますし単純アプリで動作する事も確認しています。
同じ音を繰り返し再生している時にキー入力やマウスの移動を検出してプログラムを
止めたいのに止まらないんですよ。出来てますか？
だからみんながOnNotifyだ、とか色々と教えてくれている事をすべて試してるんですけどね。
OnCreate,Onshow,OnPaint,OnTimer等いろんな場所に置いたりコードをいじったり
してるんですけどキー入力時に割り込んで終了させることができてません。

(´ｰ｀)y-~~｡oO(どうでもいいけどさStringとTStringsに関する質問が今までで一番多い（はず）のは何でだろう？)

>>389-390のコードでちゃんとできてるけど…

>>392
いっかい頭を冷やして一つ一つ理解してから再挑戦してみよう。
言われたことがごっちゃになっちゃってちゃんと理解してないよ。

>>390
OnNotify内でNotifyValue見ないと終わらないよ

Mediaplayer について整理してみよう。

・Mediaplayer の Wait を False にしているならば、
Playしている最中でも、関係無くDelphiのプログラムを実行することができる。
なんつうか、外部の再生プログラムを呼び出しているだけ　と考えても
よいかもしれない。

・従って、 Wait := False であるかぎり、 Play 中だろうがナンだろうが、
マウスのクリックイベントなり移動イベントなりは普通に発生し、
普通に処理できる。

・故に、OnMouseMove や OnMouseDown, OnKeyDown 等に Stop 命令を
入れておけば、すぐに停止するはずである。

・繰り返し再生したいときは、 Notify := True としておき、
OnNotifyイベントに
Notify := True と、 Play の２つの命令を入れよう。

・それから、Wait:=True にしたときに、

Play;
Application.ProcessMessages;

としても無駄である。なぜって？ だって、再生が終わるまで、
Play から後の命令は実行されないんだもん。なんせ待ってるからね。

だから、StopしたときもOnNotifyが呼ばれるだろ・・・ｱﾌｫが。

>>357
亀レスすまん。
Delphiでも「実行時パッケージ」と使うようにコンパイルすれば
実行時パッケージファイル(*.bpl　一種のDLL)が別途必要になる。

>>397
わざわざまとめてくださってありがとうございます。
恥を忍んですべてコードを晒します。
スクリーンセーバーを時間によって切り替えるソフトです。
コードはOnTimerやフォームのOnPaint等に書いても駄目でした。
begin
Timer1.Enabled:=False;
Filename:='C:\Windows\Win.scr';
FirstMove:=0;
GetLocalTime(SystemTime);
if SystemTime.wHour<=17 then //17時以前だったら実行しない。
begin
callsaver(filename);
exit;
end;
GetcursorPos(Pointcursor);
if Pointcursor.X<100 then
begin
if Pointcursor.Y<100 then
begin
if callsaver(filename)then ShowMessage('正規スクリーンセーバーコール失敗');
Close;
end;
end;
if not SetVolume(0, 0, 0) then ShowMessage('ボリューム設定に失敗しました');

j:=500;
Mediaplayer1.Filename:='C:\WinNT\Media\ringin.wav';
Mediaplayer1.wait:=True;
Mediaplayer1.Open;
Mediaplayer1.Notify:=true;
Mediaplayer1.Play;
Application.ProcessMessages;

while j<14000 do
begin
if not SetVolume(0, 0, j) then ShowMessage('ボリューム設定に失敗しました');
if Mediaplayer1.NotifyValue=nvSuccessFul then
begin
j:=j+1000;
Mediaplayer1.Filename:='C:\WinNT\Media\ringin.wav';
MediaPlayer1.wait:=True;
Mediaplayer1.Notify:=True;
Mediaplayer1.play;
Application.ProcessMessages;
end
else //何故かnvSuccessFulでない時があるが無視して鳴らす。
begin
j:=j+1000;
MediaPlayer1.wait:=True;
Mediaplayer1.Notify:=True;
Mediaplayer1.play;
Application.ProcessMessages;
end;
end;
end;
このようにSetVolumeと言うサブルーチンでボリュームを少しづつあげては音を鳴らす
ソフトを作っているのですが、音が鳴っている間は何をやっても無視されます。
音が鳴る前、と鳴った後はきちんとマウスやキーの動作に対応して終了しているので、
そちらのコードは間違い無いと思うのですが。。。

ご質問があります。Form上にMemo,WebBrowser,Edit,ButtonとIndyのIdHttpを乗っけていて、
Editで指定したURLのページをButtonを押すと、WebBrowserに表示し
MemoにはHTMLのソースを表示というのを作ってみたのですが、WebBrowser上のリンクを
クリックして違うページが表示されたときに、自動的にMemoにリンク先のソースを表示するには
どうしたらよいでしょうか。
procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Lines.Text:='';
Url:=Edit1.Text;
WebBrowser1.Navigate(Url);
Memo1.Lines.Text:=IdHTTP1.Get(Url);
end;

>>402
OnDocumentCompleteイベントでやれば？

ソースが欲しいんでしょ？よーするに。時機じゃなくて。
一旦保存して、読み込んだら？>>402
一番簡単だと思う。スマートじゃないけど(ﾜﾗ

OnBeforeNavigate2
OnNavigateComplete2
あたりで切り替わりをみて
切り替わった後
Memo1.Lines.Text:=IdHTTP1.Get(新しいURL);
ってとこだろう。

>404
臭いよ

>402
単純にやるなら403さんのが簡単。実行もしてみた。
procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
begin
Memo1.Lines.Text:='';
Memo1.Lines.Text:=IdHTTP1.Get(Url);
end;

(´-`).｡ｏＯ（ どうしたら>>404のような解釈になるんだろう･･･

>401
while j<14000 do
begin
....
end;

メインスレッド中でWhileループをまわして
再生しているので再生中はロックするのは当然かと
別スレッドにするか、Timer等を利用してWhileループを
用いない設計にするなどしたほうがよろしいかと

分かってる気がしてる厨は放っとけよ。
穴だらけじゃん。

409=分かってる気がしてる厨

>>402
procedure TForm1.UIWebBrowser1DocumentComplete(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
begin
RichEdit1.Lines.SetText(PChar(UIWebBrowser1.DocumentSource));
end;

>>408
えっ、while文の中ってロックされてしまうんですか？
知りませんでした。
タイマーをもう一個追加してそちらで処理するようにしたらやっと上手くいきました。
ありがとうございました。

>>409
自分用だからエラー処理はしてないの。気にせんといて。
それ以外に穴があるんだったら教えてちょ〜

>>292
ありがとです。
デバッガオプションの言語固有の例外に追加しただけだと、
デバッガ中に停止はしなくなりましたが、エラーメッセージは表示されるので、
try
SL1.Text := IdHTTP1.Get(URL);
except
on EIdConnClosedGracefully do raise EAbort.Create('');
end;
こんな感じにしたら表示されなくなりました。
しかし、これだと例外が生じた時にダウンロードがされないままなので、
成功するまで二、三度ダウンロードを試みて、
ダメだったらメッセージを表示するようにしたいのですが、
どうすればいいのでしょうか？

>>412
While文処理中はロックされるのか？
ヘルプにそんな事書いてないぞ？
また勘違いしてるんじゃないのか？

作成したプログラムで原因不明のエラーが発生してお手上げです。
どなたかぜひ何か解決のためのヒントだけでもお教え下さい。

delphi5.0で作ったプログラムを実行させると
「モジュールxxxx.exeのアドレス　004AE548でアドレスFFFFFFFCに対する
読みこみ違反がおきました」というエラーが発生して止まってしまいます。

xxxx.exeは自作してプログラムです。そのためアドレスは作成したソフトに
よって異なると思われます。


プログラム自体はインターネットを使用してｈｔｔｐにてデータを何件かまとめて
データを受信するプログラムです。
同じデータを受信しても全く発生しないこともありますし、
有る特定のデータを受信したときに発生するというわけでもないです。

上記のようなエラーメッセージはどのようなときに表示されるのでしょうか

>>283　レスありがとうございます。
コンパイル、実行は出来ましたが、アニメーション名の取得の
処理をすると以下のエラーが出ます。
デバッガ例外が発生
プロジェクト Project1.exe が EAccessViolation クラスの例外を生成しました。
'モジュール 'Project1.exe' のアドレス 00460922 でアドレス 00000000 に対する読み込み違反がおきました。'

ソースの変更は、user節にActiveXをしました。
このようなエラーの場合はどうすればよいか助言願いませんでしょうか？

１６進数の文字列があったとしてそれを１０進数にしたいんですがどうしたらいいでしょうか？
HexToIntと言うのがなく困ってます。

>>417
A := '3F';
B := StrToInt( '$'+A );

もしくは

B := StrToIntDef( '$'+A, 0 );

どうやってもできないです。>>278
QuickReportにDatabase1とQuery1とDataSource1を貼りつけて、DataSource1の
OnDataChangeイベントで

Query2.SQL.Clear;
Query2.SQL.Add('SELECT MEISYOU FROM SHOUHIN WHERE JAN_CODE=' + Query1.Fieldbyname('CD').AsString);
Query2.Open;
QRL_SyoNM.Caption := Query2.Fieldbyname('MEISYOU').AsString;

のような処理を行っているのですが、１件目の名称しか取得できません。
Query1が一件読込んだら、読込んだ値でQuery2も読込んで値をセットしたいのですが、
どうやればいいのか誰か教えてくださーい。

＞また勘違いしてるんじゃないのか？
また？股？

>>420
また？またって何？
勘違いって何処？（全部！？）
肝心の所が抜けている...

今日も毛が抜けている..

Delphi始めたんですがSystemのTimerって言うのを貼り付けても時計が表示されません。
何でですか？

Delphi6のプロフェッショナルです。

>>423
　貼り付けたタイマーのアイコンをダブルクリックして

Caption:=FormatDateTime('hh:mm:ss',now);

と入力してから F9ボタンを押して下さい

ネタじゃないのか

>>419
勘違い発覚！
QueryにSQL文セットするところで、文字列を'で囲んでなかった。
'Select * From A Where CD = '12345''と記述するところを
'Select * From A Where CD = 12345'と記述していた。
例えばｺｰﾄﾞが'0123'など頭が0だとEOFになっていたようです。
>>420の方、勘違いを気づかせてくれてありがとう。

Ｃ++ってなんですか

>>427
どうぞ
　↓
VisualC++相談室 【7】
http://pc.2ch.net/test/read.cgi/tech/1017843192/

>416
Agentのロードをしていないor失敗している
MSDNを参照するよろし
ttp://msdn.microsoft.com/library/default.asp?url=/library/en-us/msagent/paface_9x2d.asp
など

Loadの例)
Agent1.Characters.Load('dolphin','c:\program files\Microsoft Office\Office10\DOLPHIN.acs');
G:=IAgentCtlCharacterEx(Agent1.Characters.Character('dolphin'));

時間表示されました！
ありがとう御座います！！！

>>429
レスありがとうございます。
無事にアニメーション名を取得できました。
また何かありましたら寄らして頂きます。
本当にありがとうございました。

>>423
SystemのTimerは、一定時間ごとにイベントを発生させるコンポであって、
時計を表示させるものではないのですよ。

IndyでIdHTTP.Getを実行すると、ダウンロード中固まったようになっちゃうけど、ならないようにはどうしたらいい？

おっ&Hearts;
ttp://direct.ips.co.jp/book/Template/Goods/go_BookstempGR.cfm?GM_ID=1634&CM_ID=&SPM_ID=1&HN_NO=00400&PM_No=&PM_Class=

>>412
ほらwhiile文のヘルプから割り込みを受け付けないってのを探し出してみな。

おい、おまえら教えてください

いまTListView改造してViewStyle=vsReportの時に表示される
ヘッダ部分にビットマップを描画する方法を探っているのですが、

TListViewにWM_PAINTメッセージメソッドを書いて
その中でヘッダ部分に描画しにいくと、
リストビューの内容をスクロールするだけでヘッダーの方まで再描画されてしまいます。
ヘッダ部分のWM_PAINTメッセージだけを捕捉する方法ってないですか？

なおにヘッダ部のハンドルは　GetTopWindow( Handle );で取れました。

>>436

＞いまTListView改造して

はい？

>>473
＞いまTListView改造して
TListViewから派生クラスを作ること。

その程度の事も読めないヴビ厨は（・∀・）ｶｴﾚ！

>>436
TListColumn.ImageIndexではダメなん？

>>438
プログラミング用語すらまともに操れないあなたの方に不信感。

>>440
いちいち突っ掛かるなよ

>>436
ヘッダを非表示にして、 THeaderControl を使うのが楽そう。

プロジェクトファイルに
ParentHandle
を書いたらParentHandleが未定義の識別子と怒られるんだけどなじぇえ？

usesには当然 Sysutils, Windows,を追加してる。

>>443
事故レス。馬鹿だった。許してくれ。

>>443
SysUtilsにもWindowsにもParentHandleというのは定義されてないと思うけど

ところでParentHandleって何？
DelのヘルプにもMSDN（漏れのはちと古いけど）にもキーワードには出てこないし

>>444　あ、ごめん・・・突っ込んじゃった

TMemoryStream にテキストデータを書きこもうとして
AString := 'ABCDEF';
APChar := PChar( AString );
APointer := @APChar;
MemoryStream.WriteBuffer( APointer^, Length(AString) );

としても、正しく書きこまれません。
いや、正しく書きこめないならそれで良くって、既に別の方法で
正しく書きこめているのですが、

なぜ、この書き方ではダメなのでしょうか。

×APointer := @APChar;
○APointer := Pointer(APChar);

>>447
448さんのでOKだけど
APointer:=APChar;
でも大丈夫みたい

>>447
別解
×MemoryStream.WriteBuffer( APointer^, Length(AString) );
○MemoryStream.WriteBuffer(Pointer(APointer^)^, Length(AString) );

突然ですがこのスレを廃止し、
以下のスレに統合することに決定しました。

Delphi相談室その４
http://pc.2ch.net/test/read.cgi/tech/1018211735/

>>451
そっちやさしくないじゃん

>>448-450 ありがとうございます。
もしかして、APChar 自体がポインタなので、
@APChar とすると、文字列のアドレスではなく、
文字列へのポインタを保持しているアドレスを
得ることになってしまう…　ということでしょうか。

ポインタのポインタ・・・C/C++ではよく出てくるやつですね

MemoryStream.WriteBuffer(AString[1], Length(AString) );

決定しました。

Delphi相談室その４
http://pc.2ch.net/test/read.cgi/tech/1018211735/

　　　　　∧∧　　ミ　＿　ドスッ
　　　　 (　 　,,)┌─┴┴─┐
　　　　/'　　　つ　再　 開　│
　　〜′　/´　└─┬┬─┘
　　　∪ ∪　 　 　　││　_ε３
　 　 　 　 　 　 　　 ゛゛'゛'゛

>>238
遅レスですがそういう説明方法もあるのですね．
それにしても簡潔でわかりやすい説明ってホントにむずかしい．

>>242
解決したのでしょうか．

フォームに文字をグラフィックとして描きたい場合は
Canvas.TextOut という風に書きます．以下はその例．

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Canvas.TextOut(2, 2, TimeToStr(Now));
end;

単にTextOutと書くとWindows APIのTextOut関数になってしまいます．
（同じ名前の別物があるのです）

フォーム上の別なコンポーネントに描きたい場合はそのコンポーネントの名前を指定します．

procedure TForm1.Timer1Timer(Sender: TObject);
begin
StringGrid1.Canvas.TextOut(2, 2, TimeToStr(Now));
end;

ちなみにDelphi初代から共通です．

MDIBrowserのブックマークみたいに、
ドラッグするとくっついたり離れたりするウインドウって
Delphiでも出来ますか？

>>459
できるよ。Delphiはドッキング周りが強力。
IDEみたいにするのは面倒だけど。

っつかIDE互換なドッキング実装した人いる？

ドッキングも良いが、やりすぎると
ユーザーが所望のポジションにウインドウ配置できなくてイラついてくる罠。

>>461 VS.NET の事？

16進数を２進数に変換する方法ってないかしら？

FC4FC4FC4って言う文字列だったら　111111000100111111000100111111000100　になりますよね。
どうやったら出来ます？

>>463
１バイト単位にInteger型に変換して、２進文字列のテーブルをひくのが簡単でしょう

問：「〜なり」を使って短文を作れ（ex.彼女を見るなり走り出した）
答：「コロッケはおいしいナリ」

問：「うってかわって」を使って短文をつくれ
答：彼は麻薬をうってかわってしまった

問：「もう・・・してしまった」を使って短文をつくれ
答：もうしわけないことをしてしまった

>>463
10進変換後に2進変換。

誤爆なり。ｽﾏｿ

＞１バイト単位にInteger型
ﾜﾗﾀ

>>463
16進数1桁は2進数4桁(16種類)に対応する。
テーブルで展開する手もあるYO(笑)

function IntToBin(I:Integre):string;
begin
　while I > 0 do begin
　　if I mod 2 = 0 then Insert('0',Result,1) else Insert('1',Result,1);
　　I := I div 2;
　end;
end;

end;

function IntToBin(I:Integre):string;
begin
　while I > 0 do begin
　　Insert(IntToStr(I mod 2), Result,1);
　　I := I div 2;
　end;
end;

function IntToBin(I:Integre):string;
begin
　while I > 0 do begin
　　if I mod 2 = 0 then Insert('0',Result,1) else Insert('1',Result,1);
　　I := I div 2;
　end;
end;

end;

ｱﾗｱﾗ...

×I:Integre
○I:Integer

function HexToBin(hex:String):String;
function i4To2(d:Integer):String;
begin
SetLength(Result,4);
Result[1]:=Char(ord('0')+(ord((d and 8)<>0)));
Result[2]:=Char(ord('0')+(ord((d and 4)<>0)));
Result[3]:=Char(ord('0')+(ord((d and 2)<>0)));
Result[4]:=Char(ord('0')+(ord((d and 1)<>0)));
end;
var i:Integer;
begin
result:='';
for i:=1 to Length(hex) do Result:=Result+i4To2(StrToInt('$'+hex[i]));
end;

comboboxでVBのListIndexのような使い方はどうやればいいのでしょう？
（表示は名称で、内部でｺｰﾄﾞを保持したいのですが）

>>476
大きく２つの方法がある

１、ItemsのObjectsにアイテムを保存する　整数なら無理やり型変換して入れちゃえ

２、別の動的配列に保存しておいてItemIndex を指標に得る

複数行の文字列があるString変数で、
一行だけを抜き出すにはどうしたらよいでしょうか？

>>478
ちょっと訂正
一行だけを　→　指定した行だけを

>>TStringsList をその場で作って Textに代入　して Strings[n] で

with TStringsList.Create do try
Text:=複数行文字列

　for i:=0 to Count-1 do begin
　writeln(　Strings[i] ); みたいな感じで使う
　end;
finally free;end:

Ａ

N

Ｓ

ページコントロールに対して

PageControl1.ActivePage:=TabSheet1;

ってコードでやると、タブはそのタブになるけど
タブ内のコントロールがちゃんと表示されない状態になるんですが？

Delphi5Proなんです

なりませんが？

>>485
ならないですね〜　検証の為に新規作成してやってみたら問題置きませんでした　ん〜

もう少し調べてみます

自作スクリプトの動作、処理をするのに
文字列から関数が呼べるようなものがあったら便利だと思うのですが
何かいい方法ないですかね？

ちなみに現在、私はTStringListのAddObjectを使って関連づけています

さくらスクリプトですか？

>>487　クラスのPublishedメソッドなら　メソッド名を文字列で与えて呼び出せるよ

詳しい事はマ板のギコbasicすれを参照

>>488
検索してみたけどどうやら違いますね
>>489
それらしきものを発見しましたので
そこのスレからもう少し調べてみます。

TPageControlでタブの位置を左右にすると
タブのキャプションが縦書きになってしまうのですが、
これを上下にタブをつけた時と同様に横書きにすることはできないのでしょうか。

縦書き用フォントを指定すれ。
逆さでいいなら。

あ、右端なら逆さにはならないか。おもしろ。

「上下にタブをつけた時と同様に横書きにする」

というのは、サイドについたタブを横長にして、
通常の横書きフォントで表示するという意味でした。

説明不足ですいません。

>>494
TabHeightの数値を大きくして、OwnerDrawする。

今、Delphiの入門書を読んでいて
はじめてDelphiに触った頃のことを思い出した。

当時は「型が一致していません」のエラーに神経質なコンパイラだと思ったものだ。
IntToStrもStrToIntの存在も知らなかったからどうしようか途方にくれたりもした。
今ではこのメッセージがいかにありがたいかよく分かる。

>>495
（・∀・） できました!! TabWidthも指定したら完全に望み通りになりました。
ありがとうございます。

Borland Database Engine の初期化中にエラーが発生しました (エラー $2B32)
という、初期化時に何らかの共有違反が発生しているのですが、解決できた方はいらっしゃいますか?

Delphi、DLが大変っす。
雑誌に収録されてたりしませんか？

Delphi Proを使っているのですが、
BDEでSQL-Serverに接続するには、
どのような設定を行えばよいのでしょうか？

やはりODBCを使わないと
接続できないのでしょうか？

>>499
収録されている雑誌、解説書はある。
っつか、本屋へ行ったりして確かめてから書き込みなさい。

モナーさん、厨房な質問ですいません

Delphi 6 Update Pack 2は、
Delphi 6 Update Pack 1を入れなくても大丈夫なのですか？

WinNTのサービスパックの様に、
最新だけ適用しても大丈夫という物なのでしょうか？

それとも、Delphi 6 Update Pack 1を入れた後でないと
意味がないのでしょうか？

>>503
http://www.borland.co.jp/delphi/del6up.html#del6up2より抜粋
このアップデートファイル #2 は、アップデートファイル #1 の内容を含みます。
ということなので、Delphi 6 Update Pack 2のみで大丈夫のようです。

>>501 ODBCかADOでやるしかないでしょう

モナーさんは危篤です。

右クリックしたまま左クリックしないと押せないボタンを作りたいと思っています。
右ボタンの押下状態を知るすべを与えてください。。。

>>507
Delphi付属のAPI32WH.HLPより抜粋
VOID mouse_event(dwFlags, dx, dy, cButtons, dwExtraInfo)
あたりはいかがでしょうか？

>>508
レスありがとうございます。
しかし、その方法だと押下状態が変わった瞬間しかわからないため、
現在の押下状態を正確に知ることが出来ない場合がありますね。
キーボードのSHIFTやCTRLのように、一発ででてくるAPI知りませんか？

こういうことでなく？

procedure TForm1.Button1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  if ssRight in Shift then
    ShowMessage('Pushed');
end;

じゃなきゃ

if (Word(GetKeyState(VK_RBUTTON)) and $80) <> 0 then

フォームの[x]ボタンを無効化するにはどうしたらいいの？
おしえて！

>>511
まさしくこれをやりたかったのですが、
GetKeyStateでマウスの状態もわかるとは思いがけませんでした。
大変参考になりました。
いや、参考ではなく答えでした。すみません。

>>512　フォームのプロパティを一度順に眺める事をお勧めします

ちなみに
if GetKeyState(VK_RBUTTON)<0　then
じゃ？だめかしら

>>514
biSystemMenuで消せました。
無効化では無かったけど万事解決です。
どうもです。

>>512
procedure TForm1.Button1Click(Sender: TObject);
var
Count: Integer; Menu: HMENU;
begin
Menu := GetSystemMenu(Handle, False);
Count := GetMenuItemCount(Menu);
EnableMenuItem(Menu, Count - 1, MF_BYPOSITION or MF_GRAYED);
end;

>>515
押下時、上位バイトが$FFになるからそれでも大丈夫

>>504さん、ありがとうございます
これで安心してアップデートできます。

>>506
このスレを立てたモナーなら

　 ∧＿∧ 　　／￣￣￣￣￣￣
　（　´∀｀）＜　生きてるよ。
　（　　　　）　 ＼＿＿＿＿＿＿
　｜ ｜ ｜
　（＿_）＿）

全板人気トーナメントが面白いな。非公認だったのだが、
ついに夜勤さんが専用板を作ってしまった。 http://live.2ch.net/vote/
この板は予選19組、4/21(日)出場だけど、この板の住人の性格からして、
一生懸命宣伝活動をする有志が現れなさそうな予感。

アクションマネージャって、凄くメモリ食ったりだとか、実行時速度に影響を及ぼしたりだとか、EXEサイズが異様にでかくなったりだとか、しますか？

だとかｘ3

おもわば笑え〜

独学でがんばろうと思ってたけどやはりツライので質問させてください。
Delphi6Personal版の関数FileWriteについて、Helpの載ってる例を試しに動かしてみると

FileWrite(FileHandle, StringGrid1.Cells[X,Y], Length(StringGrid1.Cells[X,Y]);

の真ん中の引数で「変数じゃないよ」ってエラーが出ます。
Helpの例題は実行できないモノと考えた方がいいんでしょうか？
それとも俺を鍛えるためにワザとエラーがしこんであるんでしょうか？

>>523　ホントだ　ヘルプの例題が間違ってるよ

>>523
例題が間違ってるから

function FileWriteStr(Handle: Integer; str:String);Integer;
begin
FileWrite(FileHandle, str, Length(str);
end;

のように関数を作って、一度変数にしてから渡さなければいけない

別解として
FileWrite(FileHandle, PChar(StringGrid1.Cells[X,Y])^ , Length(StringGrid1.Cells[X,Y]);

もう返答が！
どうもありがとうございます。早速試します。
ちなみにFileReadのヘルプ例もそのままじゃ動きませんでした。

iBytesRead := FileRead(iFileHandle, Buffer, iFileLength);

のBufferをBuffer[0]にすると動いてくれました。
カッコが足りないとかはさすがに気がつくのですが、例題が動かないと
いうのは独学だとツライですね。

うまく動きました。どうもありがとうございます。

自分でBuffer[255]って確保して、
Buffer := StringGrid1.Cells[X,Y];としてから

FileWrite(FileHandle, Buffer, Length(StringGrid1.Cells[X,Y]));

として回避しようとしていたのですが、こうするとStringGridに入力された
数字の末尾が欠けてセーブされてしまい、途方に暮れていました。
PCharの方法を試してみたところ、セルの数字が欠けることもなくなりました。

朝からずっと悩んでたのに、ものの20分で解決していただき、感謝します。

>>527
きっとCを先にやった人ですね？
そこは
　iBytesRead := FileRead(iFileHandle, Buffer ^ , iFileLength);

とやるクセを付けた方がいいですよ。

そうです。ですがCは少しかじっただけでした。
後ろにつける^は逆参照ですか、ということは私は必死にアドレスを
突っ込んでいたということでしょうか？

本業はVerilog-HDLです。

FileWrite FileReadで渡しているのは 型なしパラメータ といいます。
C++ 言語でいえば 参照渡しで、実際にはポインタ＝変数のアドレスが渡されます
buffer を渡すとダメなのは buffer という変数のアドレスが渡されます。
つまりポインタのポインタが渡されます

Buffer は PChar 型なのですが　
DelphiではCを使ってる人の特例というかサービスとして array[0..なんとか] of Char と
勝手に互換するようにしています。

ですから buffer[0] も buffer ^ も同じ結果を得られるのですが
このサービスは文字型ポインタに限っているので
var buffer:pByte のように定義すると buffer[0] が使えません。

納得行きました。ありがとうございます。
Pascalは厳格そうなのですが、Delphiではそういうサービスもあるんですね。
わかりやすい説明のおかげでやる気が出てきました。助かります。

という事で　ボーランドの２CHサポートの方、
ヘルプの修正修正報告ちゃんとあげといてくださいね

パーソナル無パッチ当てなんだけど、
UpperCaseを全角混じりの文字列に実行すると、
素敵なﾜｹﾜｶﾒな言葉に翻訳してくれるってのは、パッチ当てると治るですか？

>534
治りません。

>>535
出来れば、なぜ治らないのかまで教えて頂けると即答に納得がいくので
お願いいたしまする。
どーゆー理由で翻訳してくれるんだろう？

あの、Indy コンポーネントの使い方を開設した
本かサイトはありませんか？

治る見込みが無いので御家族をお呼びして下さい。

>>537
（´-`）。o ○ （その質問、オレが前にしたなぁ…）

>536
ヘルプ読むね。

>>540
読みました。ありました。そっか（藁
納得。

UpperCase は元々そう言う仕様だから。

AnsiUpperCase.

>>540,542
ですね。盲点（オレだけ？）でした。サン・キュー。
４億５６１４シェクシー！

キーボードフックでShiftやCtrlなどを押しながらの入力であることを
検知したい場合は、どのようにすればいいのでしょうか？

1) Shift、Ctrlなどにそれぞれフラグを用意する。
2) 何かキーが押された時点で、GetAsyncKeyStateで判断。

くらいしか、思いつきませんでした。

Indyの日本語ヘルプってどこにあるのですか？
検索を駆使して探しましたが影すらつかめません。

C# Builderはいつ発売予定ですか？

>>544
メッセージの中には一緒に押してるキーの情報くれるのあるでしょ
なに拾ってるの？

そうなんですか？
KeyboardProcでは、同時に押されてるキーの情報は取得できない
ようなんですが、他のフックプロシージャを使えばいいのでしょうか？

>>539
members.jcom.home.ne.jp/monazilla/document/indytips.html
以前でてきた　このサイトは分かるのですが、
IdTCPClient と TdTCPServer の使い方が知りたいのです。
ヘルプには必要最低限のことしか書いてないし…

あやしすぎるドメインだけど、別に有害ではないと。
http://www.111111111111111111111111111111111111111111111111111111111111.com/mao.html

GetAsyncKeyStateとかは使わないの？

VCLでは 普通にWM_KEYDOWN とかのメッセージ処理ハンドラで GetKeyStateを呼んでるだけだね

>>551
フックをかけてるんだから、最初にGetKeyboardStateで全部の状態貰って
以後は自分でフラグを処理したらいいんじゃないの？

QuickReportでバーコードを印刷できるのでしょうか？

>>553
バーコードフォント使え

DBGrid で、一番右のカラム幅を、グリッドコントロールにあわせて変化させたいのですが、どのようにすれば最もエレガントかつ楽にできるでしょうか。

また、Stringを表示する際に、絡む幅に合わせてWordWrapさせ、かつ
開業に合わせて行の高さも、その文字列がおさまるように
自動変更させたいのですが…

>>555
派生させて独自のコンポーネントを作るのが最もエレガントかつ後々楽

ごめんなさい正直に。
エレガントでなくてもいいから、やり方教えてください…

でも、>>555を満たすようなコンポーンネント作るとすると、以下のような事をしなければなりませんよね。

1) TColumn を継承して WordWrap, AutoWidth プロパティを追加.
2) WordWrap が on になったカラム幅が変更されたときに OnColumnResize イベントを発生
3) OnColumnResize イベント発生時に、全フィールドについて
表示に必要なセル高さを取得

あと、いろいろありそうなんですがどうにも思いつかないです…
助言をください。

あの、OnColumnResize イベントって、どうやって取得したらよいでしょうか

TDBGrid では TColumn を使用していますが、これを TColumnEx で
代用させるためには、 TColumns を継承した TColumnsEx などをつくり、
クラスやメソッドを差し替える必要があるのでしょうか。

>>557
とりあえず一番右の列を合わせるのはこれでできるけど、WordWrapは面倒な気がする
procedure TMyDBGrid.WMSize(var Message: TWMSize);
var
　i : Integer;
　nWidth: Integer;
begin
　nWidth:=0;
　for i:=0 to Columns.Count-2 do
　　nWidth:=nWidth+Columns[i].Width;
　if not (dgIndicator in Options) then
　　nWidth:=nWidth-IndicatorWidth-1;
　Columns[Columns.Count-1].Width:=ClientWidth-nWidth-GetSystemMetrics(SM_CXVSCROLL);
　inherited;
end;

>>554
バーコードフォントってなんでしょう？
是非使い方を教えてください。

>>562
普通のフォントがバーコードになってるだけ。
例えば、半角で”1234”とか指定すると、バーコードで ”┃|||┃| ”こんな感じで表示される。

有償な奴なら ttp://www.hitachi.co.jp/HAND/SOFTPAGES/1851.html

他で探せばフリーなバーコードフォントもあるから探してみたらどーですか。

難点は、フォントをインストールしないと使えないことだが、仕事とかで使うなら
（ネットとかで配布するソフトじゃなかったら）問題ないだろう。

バーコードならこんなのもあるよ
http://www.vector.co.jp/soft/win95/writing/se196641.html

海外サイトでもあるから検索してみたら？

RichEditを透明にしたいんですが、ソース見ても全く分かりませんでした。
初心者が解読するのは不可能でしょうか・・？
それと、Richeditの背景透明にするコンポってありますか・・？一応探したんですが見つからなくて。

>>565
メーリングリストでも同じ質問してなかった？

>566
　メーリングリストでも何度か質問が出たみたいなんですが、
結局解決できてないようです。

>>565
ttp://homepage1.nifty.com/wizman/component/alphactl/

>>565
RichEdit を透明にしたら、貼り付けたフォームの「壁」が見えるの？
なんかいいことあるのかいな？

スキンとかか。

何個か重ねてたくさんのスレを一度にみれる2chビューワとか
見づらいだろうけど

>>551
>>552
私へのレスでしょうか。
結局、 1) or 2) で処理するということでいいんですね。
ありがとうございました。

>>567
>結局解決できてないようです。

フォームならともかく、子コントロールを透明にするのは
アホらしいので、だれもマジメに考えなかった、というのが真相では

>>568
>>565は文字の部分は透明にしたくないんじゃ・・・

>>563
>>564
の方、レスありがとうございました。
これからもよろしくお願いします。

>568
　お、参考になりそうですね。これは。でも、半透明じゃなくて透明にするのはまた違う話なのかな・・。
ありがとうございました。
>569
　簡易HTMLエディタを作っているんですが、背景に絵を表示させたまま文章の編集をしたいんです。
>573
　そうなんでしょうか・・。でも確かに反応薄かった気がします。

delphi6 personal で　ネットワークプログラムできますか

>577
できます。

IdHTTP.Get処理中はソフトが固まってしまうんですが、固まらないようにすること出来ますか？

出来ます

>>579
TThreadの勉強すれ。

>>581
俺、TThreadってCPUが２個とか付いてるPCで使うもんだと勘違いしてた…
ありがとう！

処理中でも固まらないようにするコンポーネントがIndy Miscとかのパレットに
載ってるよ。簡単なプログラムならあれで充分。

ねぇ、Indyの日本語ヘルプってどこにあるのって
ちゃんと自分で検索した上で
もう２回ぐらい真面目にお願いしてるんだけどさ。

こっちも真面目にお願いしてるんだから、いいかげん誰かレスくれよ。
ぐれるよ？

えと、

Type
TData = (dtA, dtB);

みたいな列挙型があるとして、ある変数がこの型だとして．
これをIniFileでアプリ起動ごとに読み込んだり保存したりしようと思ってるんだけど、
保存するときはOrd関数使えばいいとして、読み込むときに
その値がこの列挙型かどうかを判断するのってどうします？
いったんIntegerに読み込んで判断するのもなんだか変な気がしますが・・・．
そもそも、順序値としては０か１だと思うんだけど、これ以外の値をとる場合を
想定しなきゃまずいのかな？そのへんのセオリーなんかあったりします？

Thread の勉強中なのですが、Create 時のパラメータを False にしたときは
Create と同時にスレッドが始まりますよね。それはよいのですが、
パラメータを True にしておき、相次いで２つのスレッドを Execute すると、
最初のスレッドが終了してから出ないと次のスレッドが開始しません。
なぜなのでしょうか。

type
　TMyThread = class(TThread)
　public
　　Interval:Longint;
　　ProgressBar:TProgressBar;
　　constructor Create(AInterval:Integer; PBar:TProgressBar);
　　procedure Execute; override;
　end;

constructor TMyThread.Create(AInterval: Integer; PBar: TProgressBar);
begin
　inherited Create(True);
　Interval := AInterval;
　ProgressBar:=PBar;
end;

procedure TMyThread.Execute;
var
　I,S:Integer;
begin
　inherited;
　for I:=0 to 100 do begin
　　S := GetTickCount;
　　while GetTickCount <= S + Interval do;
　　　ProgressBar.Position := I;
　end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
　Th1, Th2: TMyThread;
begin
　Th1 := TMyThread.Create( 30, Self.ProgressBar1 );
　Th2 := TMyThread.Create( 20, Self.ProgressBar2 );
　Th1.Execute;
　Th2.Execute;
end;

>>585
書き込めないものは想定しなくてもよいのでは。
セクションを指定して読み書きしていて、なぜ、型を確認しなきゃ
ならないの？

>587

レスどうもです．

いや、

TData = (dtA, dtB);

A: Integer;
B: TData;

A　:= IniFile.ReadInteger('TEST', 'Test', 0);

B := TData(A);
　
　↑ここにエラーチェックて欲しいのかな？と．
とりあえずどんな数字でもはいっちゃうみたいなんですけど．

もともと列挙型を使わずIntegerを使っていて、
if A>1 then B := 0
みたいなチェックをしてたもので・・・．
でも、こういうのマジックナンバーですよね？

もしマジックナンバーがイヤならば、

if A < Low( TData ) then raise Exception;
if A > High( TData ) then raise Exception;

こうすればよいのでわ。

まちがえた。


if A < 0 then raise Exception;
if A > Ord( High( TData ) ) then raise Exception;

>589

あ、なるほど．High関数にOrd使えばいいのか・・・．
どうもありがとうございました．

>>586
自分で Execute メソッド呼び出してどうするの？
Resume メソッドを使ってスレッドを始動させないと駄目よー。

５４５＝５８４

>588
実行時エラーでない？

>>584
Del6Entのトライアル版になら
Indyの日本語ヘルプが付いてる可能性は十分あるけど・・・今は入手困難かな
Kylix用のIndy日本語ヘルプは某のサイトから今ダウソできるようだが

Pro版以上なら付いてるんだけどね・・・この辺でも差別化してるのかも

よかったネ。レス来たヨ！

Delphi6 Personalのインストールがなぜかできません…

Windowsインストーラが起動して、インストールキーとかを入力したあと、「重要な情報」の画面で「次へ」をクリックした後、何も起こりません。
どうしたらよいか是非知恵をお貸しください

環境はXP Proです。

Windowsインストーラが悪いのかなぁ？

>>592

ああああ…　バカだ俺。
たしかに自分で Execute 呼んでりゃ世話無いですね。
どうもありがとう。

http://go.to/WDirectX
どこかに↑これの日本語解説ページないでそか？

>595
そういうことだったんですか、、ありがとうございます。
あなたは２００人に一人のいい人です。

>>599
はじめてみた。
google見る限りないみたい。

http://www.borland.co.jp/delphi/personal/#top
このページって、http://www.borland.co.jp/ からどういうリンクを辿っていくの？
ダウンロードページじゃないし、
Delphi6 には製品情報しか載ってないし…

クリップボードにあるファイルを操作するのってどうしたらいいんですか？

ここですか？ 検索も出来ない連中がいるスレってのは。

>602
http://www.borland.co.jp/
の中ほどに表示されてる「DEVELOP（開発）」「DEPLOY（配布）」「MANAGE（管理）」の
「DEVELOP（開発）」の中のDelphiをクリック。

表示されるページ中央のリンクの３つ目。
・Borland Delphi 6 Update Pack 2 公開
・Borland Delphi 6 ドキュメントアップデート公開
・Borland Delphi 6 Personal 日本語版 ダウンロード　←これ。

>603
意味不明。
クリップボードにあるのはデータであってファイルでない。

RICHEDITを透明にするのでは無く、WM_ERASEBKGNDで背景を描けばいいのでは無いかな？

エクスプローラでコピーやら切り取りやらをする時と同じような操作がしたい、ってことなんですが…

>608
そういう操作時にクリップボードにあるのはパスつきのファイル名。

ヘルプでTClipBoardを検索して
クリップボードが保持している文字列を取り出す方法を見つけなされ。
簡単に見つかるから。

演算子を代入することのできる型ってありませんか？
あと、どうやって使うんですか？

>>610
Line 1：ない。
Line 2：だからないって。

>>610
smalltalkとかやってた人？

smalltalkだと何でもかんでもオブジェクトらしいから
演算子でも基底型とかに代入できそうだよね

>>611以外の人、誰かしりませんか〜？

(´-`).｡ｏO(関数型言語出身？メソッドポインタか何かと勘違いしてませんか？演算子って+とかandですよ？

>>612
やってません。smalltalkってなんですか？

>>614
勘違いはしてませんけど〜。

(´-`).｡ｏO(Win32APIリファレンスでHDROP構造体やItemIDListを検索して、わからなかったら諦めるが賢明と思います。難しいです。

>>610
演算子を引数にした手続き・関数を作りたいだけなら
文字列で代用して振り分ければできるけどね〜

>>615
元祖OOPLだよ

(´-`).｡ｏO( 「A := + 」みたいなコードがエラーにならない言語って一体…？どんなのをお考え？

(´-`).｡ｏO(整数にしなくても、TypInfo使えば文字列にして保存できます…

　CRCの計算式を教えてください。

http://www.borland.co.jp/delphi/del6/report/trapper_1.html
trapper・・・ｶｺｲｲ!

>>622
ぐぐってよし

(´-`).。ｏO(もう学校始まってるはずなんだけどな・・・

>>664
　？

↑間違えた。
>>624です。

>>627
「Google で検索しれ！」という意味だろｗ
http://www.google.co.jp/search?q=CRC+%E8%A8%88%E7%AE%97%E6%96%B9%E6%B3%95&num=50&hl=ja&ie=utf8&oe=utf8

>>622　以前も同じ質問があって、CRCには複数ある事、そして参考コードも書いた記憶がある。
検索してみてくれ

Delphi6.0PersonalにてWinアプリを作成しています。

Memo1.text:= 'a' + chr(13) + 'b';
これだとaのあとに改行できている様に見えるのですが、
これをファイルとして保存し、Win98のメモ帳で開くと改行文字が望んだとおりに保存されていません。
メモ帳からでもきちんと改行しているように見える改行コードの書き方をご教授願います。

Memo1.Clear;
Memo1.Add('a');
Memo1.Add('b');
あるいは
Memo1.CommaText = 'a,b';

>>630
'a'+#13#10+'b'

Dec Hex Char Dec Hex Char Dec Hex Char
0 00 NUL 16 10 SLE 32 20 スペース
1 01 SOH 17 11 CS1 33 21 !
2 02 STX 18 12 DC2 34 22 "
3 03 ETX 19 13 DC3 35 23 #
4 04 EOT 20 14 DC4 36 24 $
5 05 ENQ 21 15 NAK 37 25 %
6 06 ACK 22 16 SYN 38 26 &
7 07 BEL 23 17 ETB 39 27 '
8 08 BS 24 18 CAN 40 28 (
9 09 TAB 25 19 EM 41 29 )
10 0A LF 26 1A SIB 42 2A *
11 0B VT 27 1B ESC 43 2B +
12 0C FF 28 1C FS 44 2C ,
13 0D CR 29 1D GS 45 2D -
14 0E SO 30 1E RS 46 2E .
15 0F SI 31 1F US 47 2F /

Dec Hex Char Dec Hex Char
48 30 0 96 60 `
〜 97 61 a
57 39 9 〜
58 3A : 122 7A z
59 3B ; 123 7B {
60 3C < 124 7C |
61 3D = 125 7D }
62 3E > 126 7E ~
63 3F ? 127 7F DEL
64 40 @
65 41 A
〜
90 5A Z
91 5B [
92 5C \（逆スラが出ない (^^ )
93 5D ]
94 5E ^
95 5F _

(´-`).｡ｏO(WinとUNIXで改行コードが異なる罠。SLineBreakってのを覚えておくとKylixでも幸せ

　　　　　　　　　　||￣￣￣￣￣￣￣￣||
　　　　　　　　　　||　偽善者は 　　　 　Λ_Λ　　いいですね。
　　　　　　　　　　||　　死刑！！　＼　(ﾟーﾟ*)
　　　　　　　　　　||＿＿＿＿＿＿＿_⊂⊂ |
　　∧ ∧　　　 ∧ ∧　　　 ∧ ∧　　　 |￣￣￣￣|
　 (　　∧ ∧　(　　 ∧ ∧　(　　∧ ∧　|しゃかい .|
〜（＿(　　∧ ∧ __(　　∧ ∧__(　　 ∧ ∧￣￣￣
　　〜（＿(　　∧ ∧＿(　　∧ ∧＿(　　 ∧ ∧ 　は〜い、先生！！
　　　　〜（＿(　 　,,)〜（＿(　 　,,)〜（＿(　 　,,)
　　　　　　〜（＿__ﾉ　　〜（＿__ﾉ 　　〜（＿__ﾉ

>>631
わざわざありがとうございます。
ちとうまくいきませんでしたが、それでもその知識が何時の日か役に立つと信じております。
>>632
chr(13)を#13#10に置き換えたらうまくいきました。ありがとうございます。
>>633
ご厚意痛み入ります。心に留めておきます。

(´-`).｡ｏO( 'a' + SLineBreak + 'b' にしろって意味…伝わってるのかな？
　　　　　　　まあPersonalじゃCLX使えないからKylixは無視してもいいのだけれど

>>581
どこかにいいスレッドの解説ページありませんか？

今さっきdelphi 6 personal　をダウンロードしてみましたが、
どこかおすすめの超初心者向けの解説サイトないでしょうか？

http://www.ceres.dti.ne.jp/~dycoon/program/fileac/fileac.html
のサイトの下の方のソースで、
いっきにファイルをメモリ上に読み込んで、強引に処理しているんですが、
これって大丈夫なんでしょうか？
ポインタに1を足して…、って方法で本当に次の値が得られるのですか？
他のデータが間に来てしまうことはないのでしょうか？

>>639
強引でもなんでもない、心配するほうが変

はじめから TMemoryStream に読み込めばいいのにね！

　　　　　　　　　　||￣￣￣￣￣￣￣￣||
　　　　　　　　　　||　偽善者は 　　　 　Λ_Λ　　いいですね。
　　　　　　　　　　||　　死刑！！　＼　(ﾟーﾟ*)
　　　　　　　　　　||＿＿＿＿＿＿＿_⊂⊂ |
　　∧ ∧　　　 ∧ ∧　　　 ∧ ∧　　　 |￣￣￣￣|
　 (　　∧ ∧　(　　 ∧ ∧　(　　∧ ∧　|しゃかい .|
〜（＿(　　∧ ∧ __(　　∧ ∧__(　　 ∧ ∧￣￣￣
　　〜（＿(　　∧ ∧＿(　　∧ ∧＿(　　 ∧ ∧ 　は〜い、先生！！
　　　　〜（＿(　 　,,)〜（＿(　 　,,)〜（＿(　 　,,)
　　　　　　〜（＿__ﾉ　　〜（＿__ﾉ 　　〜（＿__ﾉ

>638
2ch

むしろtry〜finallyが無いことが心配…リンク先のはサンプルコードだから別にいいけど

>>619
smalltalkは元祖じゃないYO！元祖は志村です。

>>640
　強引じゃないんですか？
ポインタは抽象的概念なのに、それを直接操作しても良いんですか？
GetMemを実行したら必ず一列に確保されるんでしょうか？

>>643
　finallyでFreeMem,Freeを行えば良いんですね。

>>645
直接操作しても良い。
必ず一列に確保される。

クラスを動的配列で使うにはどう宣言すればいいのでしょうか？

type
TState = class
name,
adr: string;
end;

var
StateArray: array of TState;

SetLength( StateArray, 10 );
StateArray[0].name := 'モナー';　←こういう使い方がしたい

これではコンパイル出来ません。　お願いします。

>>647
　コンパイルは出来る筈。
　ただし暴走する筈

C++と違って必ず　コンストラクタを呼ばなければいけない
for i:=0 to High(StateArray) do StateArray[i]:= TState.Create;

コンストラクタを呼びたくなければ　クラスではなく レコード型やオブジェクト型を使うしかない


また、クラスに対しては動的配列よりも　TListを継承して利用した方が適切

ありがとうございます。動作しました。
前やったときはコンパイルできなかったのに・・・スペルミスかな

ＴＬｉｓｔの継承方法も発見したので試してみます。

15や16と言う数字を0付きの３桁数字にしたいんです（015、016）
数字が元々３桁の時は0無し。（128、196）
１桁の時も同じく0付きで３桁表示（001、002）

こういうのってkylixだとformat関数で出来たのですが、
Delphiだとどうやってやるのですか？

>>650
FormatFloat('000', 15);

http://www.borland.co.jp/qanda/delphi/d0000877.html

そのまんまで出来るのね・・・

そもそもDelphiとKylixとで自前の関数が違ったら意味あるか？

恥ずかしい話ですが、どうしていいかわかりません。

procedure TForm1.FormShow(Sender: TObject);
begin
AppBarData.cbSize:=SIZEOF(AppBarData);
AppBarData.hWnd:=handle;
AppBarData.uCallbackMessage:=MesID;
SHAppBarMessage(ABM_NEW,AppBarData);

AutoSize:=false;
Width:=Screen.WorkAreaWidth;
AutoSize:=true;
Left:=0;
top:=Screen.WorkAreaHeight-Height;

with AppBarData do
begin
uEdge := ABE_BOTTOM;
rc.Left := Left;
rc.Right := Width;
rc.Top := Top;
rc.Bottom := Top+Height;
end;
SHAppBarMessage( ABM_SETPOS, AppBarData);
end;

これでもって下の方にアプバー領域が作れるのですが、その領域からForm1が追い出されてしまいます。
つまり、上から順番にForm1、確保したスペース、ATOK、タスクバーとなっています。

なので、教えてください。

>>654
http://www.google.co.jp/search?hl=ja&q=ABM_NEW&lr=lang_ja

>>656

ABM_NEW　は既に

これ。
http://www.eternal.rest.org.uk/58cy/flesh/3rd-ci53/b268-119.jpg

数値（integer）のリストを作ろうと思うのですが
動的配列を使ったクラスを作るか、TListを利用したクラスを作るか（もしくはTListそのまま）
で迷っています。

動的配列とTList、
どちらの方がメモリ効率的にはよいのでしょうか？

>>659　そういう用途なら　迷わず動的配列！

効率はコーデングしだいでっせ

効率良くしたいなら、必要なサイズは最初にとって
実際のアクセスはオープン配列パラメータの関数・メソッドにするとよろし

コンポーネントをまとめてパッケージに入れておいた場合、
あるソフトでそのパッケージの中のコンポーネントをどれか１つでも使うと、
そのパッケージの内容が全部ソフトに含まれることになるのでしょうか？

>>662
実行時パッケージを使えば、それはDLLなので当然そうです。
そうでなければ、単なるライブラリですのでパッケージ内で相
互に参照していなければ大丈夫という事になります

>>661
了解！動的配列でやってみます。

ところで動的配列の要素数が増減する時は
そのたびにSetLengthした方がよいのでしょうか？（結構、頻繁に増減する予定なんですが）

メモリを扱うだけに頻繁に使わないほうがいいのかな、とも思ってしまうんですけど

>>664
足りなくなったら増やさなきゃならんが少々減ったくらいでいちいちSetLengthするべきでは
ないべ。以降ずーっと減ったままならいいけど。
それにmallocみたいに実際にメモリがOSに返る保証もないし（ソースないので知らん

>>664
そのたびに SetLengthしてみて遅ければ考えてみたらいいと思う。
興味があるなら自分で system.pas の DynArraySetLengthを読ん
でみるのもいいだろうし

Delphi 6 Personal　をﾀﾞｳｿしたがよくわからないところが２・３・４・５・６・７・・

今までこういったObjectPascalってのはやったことないんだけど
プログラムに最初から

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;

type
TForm1 = class(TForm)
private
{ Private 宣言 }
public
{ Public 宣言 }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

end.

ってあるんだけどこれは何なんどすか！おしえてください。
あとDelphiでシューティングゲームとか作れたりするんでしょうか？

あとDelphi6Personalでとりあえず何かやってみたいので
お勧めの参考サイトなどあったら教えてください。いちおググルで検索したんですが
めぼしいところのサイトをいくつか回ったんですがいまいちよくわからなくて。

>>667 順番にマウスで文字をクリックしては F1 を押しなさい

>>667　まずは >>668　をやって判らないところを聞く事

>>667
たしかにここは「やさしい」スレですけど
Delphiを基礎から全部解説していたら十分なWebペ?ジが作れてしまいます。
幸いにもDelphiの入門書も増えてきました。
図書館で借りるなり、本屋で買うなりして、一冊まるまるやりこんでみてはいかがでしょうか。

ちなみに問い「これは何どすか！」に対する答えは「テンプレートです」になります。

>>638
>>667
・・・・・・

(´-`).｡ｏO(ここで自分のサイト晒したら自作自演に思われちゃうかなぁ…)

>>671

今のぼくにはアナタのサイトが必要なのでし

>>665-666
助言ありがとうございます。
とりあえず組んでみますね。

(´-`).｡ｏO(同一人物かよ！　まだ作りかけだからそのうちね…)

>>646
>必ず一列に確保される。
　ということは、以下のようになってしまうんですか？
（□＝空　■＝データ）
メモリ：■■■■■■■□□□□■■□□□□□□□
この場合に、■■■■分のデータ領域を確保する場合、
一つ目の空領域は使えないので、二番目の領域を確保することになる。

>>667
初心者は、そこが何であるか知る必要はありません。
大切なのは最後のimplementationから下です。
フォームにButtonコンポーネントを配置し、それをダブルクリックしてください。

すると、

procedure TForm1.Button1Click(Sender: TObject);
begin

end;

と表示されますから、begin と end; の間にやりたいコードを書いていきます。

仮想メモリ上のメモリブロックは
物理メモリ上でも連続している事が保証されているのでしょうか？

>>667
まずPascalから入れば？多少標準Pascalと互換性の無い部分もDelphiにあるけど。

FileExistsでファイルの存在有無は調べれるけどパスの存在有無はどうやって調べてますか？
chdirで例外が出たら存在しないとかにしていますが、もっとスマートに出来ない？

>>667
ま可哀想だから多少教えてあげると・・・
ObjPascalのユニットファイルは基本的に下のような構造になってる。

unit xxxx; interface 〜�@〜 implementation 〜�A〜 end.

�@の部分はインターフェース部と言って、ユニット外から可視となる
宣言を書く。ここではフォームの宣言とそれに必要なユニットの読込
（uses 以下）が行われている。Cではxxxx.hに相当。
�Aの部分は実現部といって、ユニットの挙動を実際に記述する。外部
からは直接見えない。Cではxxxx.cに相当。

ヘルプ→目次→ObjectPascal言語ガイド 辺りを読むべし。

DirectoryExists

（´-`）。o ○ （６７９のソフトが、どんなんか知りたい…）

>>681
スゲー俺アホだ！まんまの関数があったのか！
しかし、こんなの前からあった？ずっと用も無いのにchdirで調べてた・・・（汗）

（´-`）。o ○ （ヘルプに検索があると便利だと思うのだが…）

>>684
（´-`）。o ○ （検索の仕方が分からないのだろうか・・・）

百歩譲ってもFindFirstが良心の限界

（´-`）。o ○ （95系なんだろ。たぶん・・・）

（´-`）。o ○ （679=684か？ヘルプの検索は役に立たないよ。正直な
話。選択してＦ１キー押すべし。パソナラーは、それでも文句は言ってはいけない！
ｸﾞｸﾞﾙで検索しる！）

　　 ∧∧
　ヾ（ﾟ∀ﾟ）ﾉ　　2KかXP使え！
　　（　　） ))
((　<　<

（´-`）。o ○ （684(≠679)だよ。未だに95は漏れだけか…）

（´-`）。o ○ （ｱｸﾁﾍﾞｰﾄするくらいならwin95使う！）

（´-`）。o ○ （ｵﾚｵﾚ! ｵﾚ win95!!軽いwin95空前絶後の最高ＯＳ!!）

for文の中でexitをやったらどうなりますか？
ループを強制的にやめさせ、次の処理へ進むのですか？
それとも、次のループへ逝くのですか？

（´-`）。o ○ （やってみろよハゲ。これは言ってもいいよな＞693以外）

exitだとprocedure、functionから抜けちゃうでしょ
普通はbreakを使うのでは？

（´-`）。o ○ （684(≠679)だよ。同士よ…）

関数内関数でexitしたら、どこへ行きますか？

（´-`）。o ○ （いつかｱｸﾁﾍﾞｰﾄなんてアホなことする日が来ると思うと
ぞっとするな。って、その頃には無くなってたりして。不評だからな（藁）

（´-`）。o ○ （やってみろよハゲとまた言われるのにな・・・）

アクチベートって何？

>>697
一番内側の関数から出る。
実際にやってみようよ、聞く前に・・・

try〜finallyの間でexitするとどこへ飛びますか？

>>702は放置します。

やってみてこうなったから、こうなんだ。
って危なくないですか？
たまたまかもしれないし。

2ちゃんねるのレスを信用する
って危なくないですか？
嘘ぶっこいてるかもしれないし。

フォームにbuttonを配置したら、どーなりますか？
フォームにbuttonを配置したら、どーなりますか？
フォームにbuttonを配置したら、どーなりますか？
フォームにbuttonを配置したら、どーなりますか？
フォームにbuttonを配置したら、どーなりますか？
フォームにbuttonを配置したら、どーなりますか？
フォームにbuttonを配置したら、どーなりますか？
フォームにbuttonを配置したら、どーなりますか？
フォームにbuttonを配置したら、どーなりますか？
フォームにbuttonを配置したら、どーなりますか？
フォームにbuttonを配置したら、どーなりますか？
フォームにbuttonを配置したら、どーなりますか？
フォームにbuttonを配置したら、どーなりますか？
フォームにbuttonを配置したら、どーなりますか？
フォームにbuttonを配置したら、どーなりますか？
フォームにbuttonを配置したら、どーなりますか？
フォームにbuttonを配置したら、どーなりますか？
フォームにbuttonを配置したら、どーなりますか？
フォームにbuttonを配置したら、どーなりますか？
フォームにbuttonを配置したら、どーなりますか？
フォームにbuttonを配置したら、どーなりますか？
フォームにbuttonを配置したら、どーなりますか？
フォームにbuttonを配置したら、どーなりますか？
フォームにbuttonを配置したら、どーなりますか？

だから危ないことは他人にさせる・・・と？

procedure a;
begin
　try
　　exit;
　　ShowMessage('1');
　finally
　　ShowMessage('2');
　end;
　ShowMessage('3');
end;

procedure b;
begin
　a;
　ShowMessage('4');
end;

>>704
この程度も自分でやろうとしない奴は逝ってよしですよ。

（´-`）。o ○ （正解は「こーやってみたら、こーなったんですけど、
どないなもんなんでしょうか？」かな…）

Captionはどうなりますか？
コンパイルせずに答えて！
>>708

procedure TForm1.Button1Click(Sender: TObject);
var
　Dummy: array[0..1] of Char;
　Buf: array[0..9] of Char;
　S: string;
begin
　Dummy[0] := 'A';
　Dummy[1] := 'B';
　S := '0123456789';
　StrPLCopy(Buf, S, SizeOf(Buf));
　Caption := Buf + Dummy;
end;

>>704
たまたまねぇ・・・・。
論理的なプログラマにたまたまって事は無いだろ、自分の頭の中で結果を予測しているはずだ、
結果と違ったら原因を探す、自分が書いたコードが「たまたま」か否かぐらい判断できんで
プログラムが組めるか？

プログラム作成後のテストはこれと全く逆を行うのは、プログラム作成時に既に「通常こーなる」って
意識で組んであるからだ、たまたまで作られるとテストもできんよ。（藁

>>710
708じゃないけど

Dummy[1]には#0以外入れちゃだめだよ

ﾐﾟωﾟ彡 ん？

>>712
あ、問題ないか？・・・いいことじゃないけど

　 ?　　?
?　(ﾟдﾟ)　?　急に誰もいなくなった。

Dummy[1]に#0が入ってなくても問題無い理由を教えて下さい！

Σ（´Д｀ｽﾞｶﾞｰﾝ　いた。

Delphiでアクティベーションシステムを作りたいのですが
どうすればよいでしょうか？

>>716
Dummyのサイズが宣言されてるからそれ以上持ってこないって事でしょ
Captionもstring型だから長さの情報を持っているので結果的に大丈夫だと
・・・Cでこんなことをしたらどうなるか分かったもんじゃないけど

今度、会社の基幹業務をDelphiを使って構築することになったのですが、
Delphiで業務アプリとか作れるのでしょうか？
速度を重視するようなプログラム以外ならVBでも十分だって言ったら
笑われました。

>>720
できないとおもふ。
理由…Delphiを使えない、Delphiを毛嫌いするプログラマが多いから(w

>>716
　　 ∧∧
　ヾ（ﾟ∀ﾟ）ﾉ　ソースを追っていったら単にBuf[10]に'\0'を入れてるだけだったよ。
　　（　　） ))
((　<　<

>>720
俺、一人でも作れるよ Delphi で
月100万なら請け負うけど・・・

じつは、みづほ銀行の預金システムを1から作り直すんですが、
>>723さん、本当に月100万で請け負ってくれますか？お願いしたいんですけど。
損害が出たら賠償請求しますけど

ネタはマ板でやれよ。

むこうにネタスレいっぱいあるからな。

>損害が出たら賠償請求しますけど
私は今までにプロジェクトをこけさせたことがありませんのでご安心下さい
といって「みずぽ」の人はこけたんだっけか・・・

賠償請求されても払い切れないだろうね〜・・・夜逃げ・・・あはははは

>>720でし。

>>725-726
すまそ・・・。
>>722
それはChar型配列の場合、Delphiが自動的に1個長く配列を作って、
自動的に末尾に\0を埋めてくれるってこと？エラスギル、Delphi・・・

>728
それはない。

>>728
　　 ∧∧
　ヾ（ﾟ∀ﾟ）ﾉ　　違うよ。単純にBuf[9]の次のメモリアドレスに'\0'を書き込んでるだけだよ。
　　（　　） )) 　だから、ちゃんと直さないと駄目。
((　<　<

>>721
私は別にDelphiを嫌いではないのですが、趣味で画像を扱うソフトとか
しか作ったことがなくて、DBとかって分野に疎いのです。
なぜ私がVBでやったら良いのでは？と会社の人に言ったかと言うと、
うちの会社では、VBAなら使える人間が多いのにDelphiが使える人間
は非常に少ないからです。しかも、DBがMS-SQLServerなもので、
Delphiから簡単に扱えるなら良いのですが、VBの方が楽に接続出来
るのかな？（私もVBAしか知らないので本当わかっていません）
と思いDelスレを荒らしているような書きこみになってしまいました。m(。。)m

なら、こういう使い方はどうなる？
var
Dummy: array[0..1] of Char;
begin
Dummy[0] := 'A';
Dummy[1] := 'B';
SetWindowText(Handle, Dummy);

m(。。)m←目が怖い

>>732
メモリ中にたまたま'\0'が現れるところまで表示するでｼｮｰ。

>>720, >>731
つまり、DBが心配なのだな。
心配無用だとは言えないが、そもそもSQLサーバを選択したのが間違いだと思ふ。
俺もSQLサーバを使った業務アプリケーションは組んだことあるけど、VBよりは
効率よく組めたし良かったよ。
趣味でDel使ってたのなら、会社でDel使えることを喜んでも良いと思ふ。

>>733
かなり思い詰めているとおもわれ（藁）

では、これはどうだ！

procedure Hoge(const Value: Integer);
var
　P: PInteger;
begin
　P := @Value;
　P^ := 0;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
　I: Integer;
begin
　I := 100;
　Hoge(I);
　Caption := IntToStr(I);
end;

>>736
|ω･`)つ�I ｺﾚ ｱｹﾞﾙ ｶﾗ ﾓｳ ﾈﾅｻｲ

|彡 ｻｯ　�I

この板への書き込みはこれで最後にします。
すいませんでした。

せんせー。737くんが736くんをいじめましたー。
わたしゆるせませーん。

(´･ω･`) ｼｮﾎﾞｰﾝ　ｿﾝﾅ ﾂﾓﾘ ｼﾞｬ･･･

737君は女子のスカートもめくってましたー！
わーるいんだーわーるいんだー！せーんせぇーに行ってやろー♪
掃除当番もさぼってましたー！

>>736
はい、消えた！

|ω･´)つ �I ｶｴｾ!!

|彡 ｻｯ

せんせー。737くんが、ぎゃくぎれしましたー。
じぶんがわるいくせにー。

この板への書き込みはこれで最後にします。
すいませんでした。

･ﾟ･(ﾉω`)･ﾟ･｡

>>737
はい、消えた！

ネタはマ板でやってくなさい

for i := A to B do begin
　//処理 ;
end;

A = B の場合、処理は１回実行される。
A > B の場合、処理は実行されない。

なんかDelphiでポインタ使うと途端にDelphiらしく無くなる気がする…
文字列なら普段はstring使って、やむを得ないAPIコールの時とかだけ、

PChar(string変数)

でキャストすれば大抵は問題ないと思うのだが…

フォームに文字を書きたいときはどうすればいいんでしょうか？
ボタンや他のオブジェクトは貼り付けられたんですが文字を表示させるには・・？

label貼り付けろ

>>750
TextOut()

そういや昔は
Label と　edit　の差もわからんで

Label1.Caption := Edit1.Caption

とかやって　何故だ！とかやってたなー
目に見える物は全部キャプションだとおもってたあの頃。

質問させて下さいなのです。

TSpinEditで中に４の倍数以外が入力されたら排他するにはどうしたら良いでしょうか？

OnExit、もしくはChangeの時に処理を掛けようかと思ってます。

if　SpinEdit1.value　=　(4*n)　then
　showmessage('ダメヨン！');

こんなんじゃ駄目ですよね？

if　(SpinEdit1.value　mod 4)<>0　then abort;

>>755
そうか！
mod演算子を忘れてた！
ありがとう！

うっかり君でした。

ググルで検索して出てくる様々なページのまねをしてやっています。
書籍は魔法の何タラというやつと、WIN32API何タラを参考にしています。
フォームのボーダースタイルをタイトルバーなしのものに変更したら、
自分で確保したアプバーのスペースから自分が追い出されてしまいました。
しかも確保したスペースにもう一度フォームを移動させることが出来ません。
なんのお礼も出来ませんがやったことがある方教えてください。

ソースはこちら>>654

>>675
そういうことになる。
そこらへんはGetMemのソース見れば判るが。
まあ、そんなに気にする事でもない。

>>757
魔○のなんたらって、MLとかあっちこっちのホームページからソースをパクッテるような
気がするのは俺の気のせいか？それとも同じような事をやろうとすると同じになるのか・・・。

それに、印刷ミスとか多すぎるし、まぁ、絶対に使わないようなTipもあるけど、総合的に
みてDelphi初心者には貢献している本だとは思うが・・・。

Delphi自体のエディタもDelphiで書かれているのでしょ？
あのエディタのソースも公開して欲しいなぁ・・・と思うのは私だけ？
色々修正したり拡張したりしたい部分も多い死ね。

そうDeathね。

っていうか、SpinEdit を Readonly にして、増分を 4 に設定すればよいのでは。

>>762
それは解決では無く逃げでは？
キーボードから入力出来ないし。

まあどっちでもバグでなけりゃ良いけどね。

>>760
フリーカーソル無効化アドオン便利だよ。
どっかで拾った。
Delphiのエディタはフリーカーソルだけがなじめなかった。

質問！
Delphiでcomポートを触りたいのですがVBのMSCommに相当する物って無いですか？

今はActiveXの取り込みでMSCommをDelphi上で使ってます。
でも使い方が良く分からなくて・・・

使いやすくて良いコンポーネント無いでしょうか？

MScommならこうじゃ駄目？

var
hoge　:　String;
begin
hoge　:=　'test';
　MSComm1.CommPort := 2;
　MSComm1.PortOpen := True;
　MSComm1.Output := hoge;
　MSComm1.PortOpen := False;

・
・
・
続く
end;

手荒でスマン

>>764　フリーのコンポも探せばあると思うよ

でも、普通にCreateFileしてボーレート設定して　使う方が簡単だと思うけど？

インターフェイスを使いたいのですが、
function QueryInterface(const IID: TGUID; out Obj): HResult;
function _AddRef: Integer;
function _Release: Integer;
には、どんなコードを書けばよいのでしょうか？

IHoge = Interface
　procedure Proc;
end;

THoge = class(TObject, IHoge)
　procedure Proc;
　....
end;

>>764
むしろフリーだからこそ使いやすいけどなあ。
とくに表みたいな形のコメント書くときは重宝してる。
こればっかりは、フリーカーソルじゃないとやりにくくて
しょうがないし。

また質問させて下さい。
コンポーネント＞ActiveXの取り込みから、Microsoft Direct Speech Recogtionを
取り込み、それを利用して音声認識をさせようと思ったのですが見当違いでしょうか？
DirectSR1.Listen　という物が見つかったのですが使い方がわかりません。
参考になる物もしくは、音声認識には他の物がよいのかどうかアドバイス頂けませんでしょうか？
長くなりましたが、宜しくお願い致します。

>>770
取り込んだあとコンパイルした？
pasファイルが指定パスに出来るはずだけど。

>>771　レスありがとうございます。
コンポーネントとしては表示されています。耳のアイコンです。
DirectSSならば、DirectSS.Speak('hoge);でhogeとしゃべるのですが、
音声を聞き取らす方法がさっぱりわかりません。
どうにかなりませんでしょうか？

>>769
いやね、最初は慣れなかったせいか「ナニコレ！」って思ってたけど今ではフリーカーソルが、
使いやすくてたまらんのよ。

フリーカーソル＋フリーカーソル無効化アドオン　これ最強。
無効化って言ってもマウスでフリーになるし使いやすいったらありゃしない。

ちなみにアドオンはここ
http://homepage1.nifty.com/fuu/software/nonfreecursor.htm

TInterfacedObject などの定義に書いてあるものを
そのままコピペすれば良いのでしょうか。

QueryInterfaceはそのままでOK
_AddRef,_Releaseは、リファレンスカウントを使いたいならそのまま、
使いたくないなら、result := 1;とでも書いとけばいいのではないでしょうか。

if文は絶対「Ｃ」形式の方が使いやすい。

ネストしてるif文書いてると、なぜか「end;が多い」と言われる。

>777

まず begin endって書く癖をつけろよ

ifbと書いてctrl+J

>>777
define begin {

>>778
「begin~end」やってるからこそ「endが多い」って言われるんだが・・

if (x[i] < x[i+1]) then begin
　if ((sx<x[i]) or (sx>x[i+1])) then continue ;
end else begin
　if ((sx>x[i]) or (sx<x[i+1])) then continue ;
end;
end;

if () ←括弧をつけなければならないのがイヤ。

if 式 then begin .......... end;

それから、ネスした if がおおいなら、ネストが深くならないような
工夫をするべきだとおもふ。もしかした

if Exp1 then
　Command1
else
if Exp2 then
　　Command2
　else
　　if Exp3 then
　　　Command3
　　else
　　　Command4;

if Exp1 then begin
　Command1;
end;

if Exp1 then begin
　Command1;
　goto EndOfIf;
end;

if Exp2 then begin
　Command2;
　goto EndOfIf;
end;

if Exp3 then begin
　Command3;
　goto EndOfIf;
end;

EndOfIf:

Ctrl+Shift+C でプロパティの補完をしたり、
自動生成される dfm のソースコードは、
インデントが半角スペース２つになっていますよね。
あれを、タブ１個に設定することは出来ないのでしょうか。
インデント設定を４文字タブにしているので使いにくいのです…

>>781
なんじゃそら。if は end と対応しないよ。
end は基本的に begin-end のセットで使う。

ただ例外として case 文は case-end のセットで使われている。

try-except(finally)-endもあるYO！

THoge=class
end;
とかも…

質問です。
同じコンポーネントをつかって同じものを作ってもC++Builderと比べて
ファイルサイズが大きいのはなぜですか？
なにが大きくしているんですか？

>>784-785
例外があるって事自体「begin〜end」の冗長性を証明してるな。
どうでもいいが。

なにが大きくなっているんですか？

僕の中の怪物が！

僕のちんこが

>>781
なんじゃそら。if は end と対応しないよ。

781はフツーに begin end で囲んであると思うのだけど。
最後の行の end に対応する　何か　がかいてないだけで。

end に対応する文では record-end とかいろいろあったね…
ど忘れしていたｽﾏｿ。

>>792
話の流れを読めよ。

>>792
それって、いいわけ？
「話しの流れを読めよ」、じゃわからないから、
どういう意味なのか分かりやすく教えて。

　　　 (ﾟдﾟ)　ｵﾁｹﾂ!
　　　~(　 )−
　 　　/　>

体の中から 何かが
　ぶえええ ぐええええええ

>>794
>>777 → >>778 → >>781 → >>784

かゆ…　うま…

どるどるるりりりり
人間に もどりたいよ・・・・
お前達のせいだ お前達が悪いんだよ！

800ｹﾞｯﾄ！！

⊂(ΦωΦ⊂　)⊃＝＝３
ﾑｯﾌﾝ

　　　　　　　　　　　ρ(´-｀ρ)
　　　　　　★Ruby★
(σ´ｰ`)σ

予想！
if (x[i] < x[i+1]) then begin ←このbeginを見落としている人がいます！

C/C++では
　なんたら {
　　ほげほげ
　}
という書き方が多いけど

Pascal(Delphi)では
　なんたら
　begin
　　ほげほげ
　end;
が普通だろうね

else使う時はどうなの？

1)
end else begin

2)
end
else begin

3)
end else
begin

4)
end
else
begin

漏れは
3)
end else
begin

if ***** then
begin
end else
if ***** then
begin
end else
if ***** then
begin
end else
begin
end;
パターン化しやすいことと
途中の end の後に ; を付ける間違いの起きないのがミソ

if then
begin
end
else if then
begin
end;

俺こうだなー
beginの前、endの後に必ず改行しちゃう

俺はこうだな

if then begin end else if then begin end;

彡 　　　ﾋﾞｭｳｳｳ…
　　　　　　　　　　　彡
　　彡　　　

ｻﾑｲﾅｵｲ…

>>784
> なんじゃそら。if は end と対応しないよ。

ああ、そういうことか。ＶＢかなんかの「endif」のイメージが残ってたようだ。

ついでに聞くけど
if Exp1 then //←if１
　if Exp2 then 処理１;//←if２
else
　処理２;

３行目のelseは、if１に対するelseのつもりで書いたんだが
「elseの前にはセミコロンがあってはいけません」と怒られる。
セミコロンをつけないとif２のelseと勘違いされると思うんだけど...
こういう場合はどう記述する？

>>809
Object Pascal 言語ガイド の 「Object Pascal の文法」を読んでからもう一度来てください。
何故そうなったかという歴史的背景はわからないが、文法はこれでわかるだろ。

スマソ。スレッド名みてなかった。ヘルプ見ろは禁句だったっけ？

>>809
endifはありません。確かにif文の仕様はわかりにくいです。
例えばそう言うときは、
if Exp1 then
　if Exp2 then 処理1
else
　処理2;

て書きます。(そのまんまやね
もしelseがif Exp1にかかる物ではなく、Exp2に掛かるのであれば、
if Exp1 then begin
　if Exp2 then
　　処理1
　else
　　処理2;
end;

と書く方が確実でしょう。
時間をおいた後に再びこのコードを自分が読んだとき、
もしくは他人がこのコードを読んだとき、
これなら比較的理解しやすいかと思われ。

>>810-811
外野が下手な説明して混乱するより、ﾍﾙﾌﾟ見た方が確実、
という意味合いであれば構わないと思われ。
漏れもうまく説明できないと思ったらそう書くことあるし。

またクダラナイ議論が始まったな。。

>>812
if Exp1 then
　if Exp2 then 処理1
else
　処理2;
これじゃelseはExp2のifについちまうだろ。
出鱈目教えてどうするんだよ。

Exp1に対応させるんなら
if Exp1 then
begin
　if Exp2 then 処理1
end
else
　処理2;

こうするしかないね。

フォームに直線を引くにはどうしたら良いのでしょう？
Shapeにはそのような機能がないようなのですが、標準コンポーネントにはないのでしょうか。

procedure TForm1.FormPaint(Sender: TObject);
begin
with Form1.Canvas do
begin
MoveTo(20,30);
LineTo(100, 10);
end;
end;

>>815
LineTo

>>815
じゃ別解として
http://do.sakura.ne.jp/~junkroom/cgi-bin/megabbs/lounge/file/1004530597_1/MyDraw.pas
これをコンポーネントとしてインストールして　Samplesに増えたコンポを貼り付け
Lines　プロパティから最初の行だけ残して削除　すればOK

>>816
>>817
>>818
ありがとうございます。
優しいレスで感動しました。

>>819
俺の優しかった？

>>817
・・・うん(*´д｀*)

「基礎からわかるDelphi6」という本を買いました。
すごくわかりやすい本だとは思うのですが、どちらかというと辞書に近いような気もします。
そこで実際にプログラムを組みながら覚えていくような本がありましたら
紹介していただけませんでしょうか？

　　　　　　　　　　　　　>>813
　　　 ∧,,∧ 　　　／　新しいﾃﾞﾙﾊﾟｲ使いには
　 _　ミ,,ﾟДﾟ彡_＜　　　こういう議論は1度2度は必要かと。
.=| |==U==U=| |= ＼
　| |〜ﾐ　　ﾐ .| |
　| |　∪''∪　| | >>804 オラ3)ダベ
　| |　　　　　 | | if then に対して、begin..endはほとんど常に付ける派

>>822
今日、本屋行ったら、日経プログラム（だったかな）から、
Delphiのムック本出てたよ。稟太郎って人が書いたやつ。
順を追ってソフト作ってた。読んでみたら？

oauuur8937487er4yuiygrjhgt

DEL

HTTP://PC.2CH.NET/TECH/

http://ime.nu/

http://www.delphi.com/

　 ∧,,∧　大分古いけど..な
　ミ,,ﾟДﾟ彡
　ﾐつ[|lllll］).
〜ﾐ　　ﾐ
　 Ｕ''Ｕ 　ﾀﾏﾉｶｷｺﾐ ｵﾚﾓｱｹﾞﾖｳｯﾄ

使いながら覚えるBorland Delphi４
　プログラミング入門
http://www.ai-pub.co.jp/contents/book/prog/del4_prog.html

目的には合致していると思うけど、名著とはいえないかな。

他には
> わたしでもできる！
> Delphi初心者奮闘記 伊藤 みどり と どりとすダンナ
(Delマガの連載のまとめならね)
とか
> カンタン！　Delphi プログラミング
とか(日ソフの連載のまとめなら)

http://www.borland.co.jp/bookinfo/delphi.html
なんなDel本の出版ペースがあがってる

http://www.delphi.co.jp/

http://2ch.net/

http://www.email.com/

今日から delphi はじめようとしている超初心者です。
なんで delphi スレって似たようなのがたくさんあるのですか？
どれをつかったらいいの？

>>834
TThread を継承して自作するのが一般的です。

無理して使わなくていいよ。

>>809
C/C++では　; は文の一部だが、
pascalでは　; はセパレーターなのだ

>>834
　 ∧＿∧　　／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　（　´∀｀）＜. 「なんで delphi スレって似たようなのが
　（　　　　）　.| たくさんあるのですか？」の質問には
　｜ ｜ ｜　 | 答えられないけど・・・。
　（＿_）＿） 　＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿

どのスレを使っても構いません。
主なDelphi関連スレは >>3-4 を見てください。
ただし他のスレに比べたら、
このスレは一番初心者向けだと思います。

DelphiでMTRソフトとか波形処理ソフトとか作れますか？

MultiTrackRecorderですか

>>840
そうです

本来は目的別に別れているはずなのだがどのすれもごっちゃ
マルチポストするやつもいたし

相談室がこのスレより難解、高度なことを扱い
フサギコスレはプログラム以外にもいろいろ（雑談スレ？）だったはず

>>839
TuaregってのがDelphi製

Delphiってボーランドっていう会社が作ったプログラミング言語ですよね？

>>844
>>5

なんで「インプライズ」とかになったの？
なんで元に戻ったの？

Inpriseインプライズだった期間ってどれぐらいだったっけ。

Inpriseインプライズって･･･

マシューに、あややが出るのはまだですか？待ってるんですが…。

>>846
>なんで「インプライズ」とかになったの？
気分転換のつもり
>なんで元に戻ったの？
やっぱりボーランドのほうが良かった

>>850
本当ォ？（藁
何か事情があるんじゃないのォ！？

姓名判断してもらったからと言ってみる