1 ：
デフォルトの名無しさん ：
03/09/25 01:26 Delphiに関する中級以上の技術相談室です。
2 ：
デフォルトの名無しさん ：03/09/25 01:27
3 ：
デフォルトの名無しさん ：03/09/25 01:27
5 ：
デフォルトの名無しさん ：03/09/25 01:29
7 ：
デフォルトの名無しさん ：03/09/25 01:30
8 ：
デフォルトの名無しさん ：03/09/25 01:38
> かちゅーしゃとかのDelphi製2chブラウザで板一覧取得してListViewに表示する処理で
9 ：
デフォルトの名無しさん ：03/09/25 01:39
>ついでに言っておくが、実行コードを走らせるには実行可能フラグの設定されたメモリ領域ではならない。
>通常のヒープやスタックは実行不可。さらにオーバーフローされたとしても大抵は
>隣接する関係のないデータが書き換わるかAVが発生してあぼーんして終わり。
Windowsアプリケーションソフトウェアにおけるバッファオーバーフローの危険性
http://www.shadowpenguin.org/sc_documents/spsdocument21.pdf > 5. スタック上に置かれたコードの実行
> カーネルにより割り付けられたスタック領域は、読み
> 書き可能であると同時に実行可能です。つまり、スタック
> 上にコードを置き、EIPを適切に移すことができれば、置
> かれたコードは問題なく動作します
釈明ま～だ～？
GetSearchString使わなければいいじゃん。
11 ：
デフォルトの名無しさん ：03/09/25 01:40
ｷﾀｷﾀｷﾀｷﾀｷﾀ━━━ (ﾟ∀ﾟ≡(ﾟ∀ﾟ≡ﾟ∀ﾟ)≡ﾟ∀ﾟ) ━━━━!!!!!!!!!!
379 名前：****緊急**** 投稿日：03/09/25 01:18 ID:AitgqY+Y
開発ツールDelphiで作成されたアプリケーションに深刻なセキュリティーホールが発見されました。
TComboBox，TListBox，TToolBar，TListView にﾊﾞｯﾌｧｵｰﾊﾞｰﾌﾛｰ
http://memo.st.ryukoku.ac.jp/archive/200309.month/6508.html 同じ会社から販売され上記コンポーネントを使用している開発ツールC++Builderで開発されたWinny2にも
同種のセキュリティーホールが存在する可能性はきわめて高いです。
特にTListView(データを一覧表示するコンポーネント)のセキュリティーホールを利用することで
ファイル一覧を表示するだけでネットワークからダウンロードされた
任意のコードが強制的に実行されてしまう危険性があります。
# たとえばバッファを溢れさせるほど非常に長いファイル名の後ろにコードを埋め込むなど。
具体的な方法はまだ見つかっていませんが、おそらくは時間の問題です。
作者の安全宣言がでるまでは使用を控えるなどの自衛手段をとることを強く推奨します。
380 名前：[名無し]さん(bin+cue).rar 投稿日：03/09/25 01:29 ID:pFLFxdHr
がくがくぶるぶる((((((
>>10 > というより かちゅーしゃ 使ってるの?このメソッド。
> 大体そんな長い板名設定できないんじゃないかな?
何も知らないくせに勝手に結論出すな。ヴォケ。ヴァカはお前だ。ヴォケ。
上級者スレたてなきゃ。
>>15 バッファオーバーフロー利用して移すのですよ。
>>16 それはできないって。
できるなら、今回の件での方法を提示してみな。
>>17 >>9 を読みましたか？
出来ないって言っている奴はスタック上のコードが実行できないと
勘違いしていた奴なのであてになりません。
できる
>19
21 ：
デフォルトの名無しさん ：03/09/25 02:14
しかしVCLってarray [0..xxx] of byte/charの嵐だな。
>>20 取得元はウィンドウだし、ウィンドウはnull終端で終わる文字列として保持しているから0が入る命令は書けない。
元ネタに戻るがバグを含むVCL側のコードを実行する機会がなければ、ハグが発生する機会さえないわけで。
報告された問題は内部で意図的に作り出さないと起きない問題なため通常は発生しない。
ネット越しの汚い文字列を取り込まず攻撃コードに0x00が含まれず
微妙に表現が違うぞ。全部orで、どれかひとつでも満たされれば安全だ。
実は、Iniファイルの読み出しも2048文字に制限されてたりするので実際につくのは難しいかもね。
>>24-25 の条件を満たした場合に
このバグを実際に利用するには
バッファをオーバさせ（オーバさせた領域はスタック）リターンアドレスを書き換えて乗っ取るわけだけど
リターンアドレスはダイレクトアドレスでなければいけない。
他のパソコンで実行されるプログラムが同じアドレスに配置される可能性は低いので、これは乗っ取る側
が何度かアドレスを変更しトライする必要があり、その間に暴走・異常終了してしまう可能性大。
もし利用されても、他の手段ほど危険な状態にはならないだろう。
>>27 は 実行コード側に利用出来るコードが含まれている場合だけど、
それが無い場合はバッファオーバランを利用してそこにコードを書かなければいけない。
そうなると、スタックアドレスはアプリの状況により刻々変化するので余計に難しいように思う
29 ：
デフォルトの名無しさん ：03/09/25 10:41
ゆえにバッファオーバーフローは一般に危険ではないと。
バッファオーバーランは
31 ：
デフォルトの名無しさん ：03/09/25 10:55
> 他のパソコンで実行されるプログラムが同じアドレスに配置される可能性は低いので、
32 ：
デフォルトの名無しさん ：03/09/25 10:57
> そうなると、スタックアドレスはアプリの状況により刻々変化するので余計に難しいように思う
33 ：
デフォルトの名無しさん ：03/09/25 11:00
> １、ＡＰＩ等のＯＳの機能
>>30-33 スレ違いです。
Delphiではネットワークで通信するようなアプリケーションは開発しないし
そもそもセキュリティーホールを狙われるほど広く普及したDelphi製のアプリケーションなどありません。
つまりこの問題は修正をしてもしなくても発生しないのです。断固セキュアなのです。
そこまでしてDelphiを貶めるのには何かわけがあるんですか？
もしかして滅びつつあるVBユーザーですか？
それとも予定ほどには普及していないまたGUIの貧弱なC#ユーザーですか？
我々の問題は我々自身で解決するので（そもそも問題自体が無効なのですが）これ以上スレを荒らさないでください。
これ以上続けるようなら管理者に連絡してアクセス禁止等の処置を取りますよ。
35 ：
デフォルトの名無しさん ：03/09/25 11:03
36 ：
デフォルトの名無しさん ：03/09/25 11:09
Delphi相談室（上級者以上）スレを作って
>>31 へえ
procedure hoge;begin end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Caption := Format('%p',[@hoge]);
end;
試してみたよ。 ホントだ。
>>32 でも、その場合、相対では指定出来ないでしょ。
38 ：
デフォルトの名無しさん ：03/09/25 11:12
いまだに暫定パッチすら出ていないということはBorlandの危機意識の低さを表しているよな。
>>38 やはりスタックの位置がわからないとダメみたいだね。
でも
procedure TForm1.Button1Click(Sender: TObject);
var test:integer;
begin
Caption := Format('%p',[@test]);
end;
として試してみると、やはり必ず同じアドレスになるようだ。
よって、スタックの位置が必ずわかっているのと同じだね。
という事で、想定しないバッファオーバラン対策として
42 ：
デフォルトの名無しさん ：03/09/25 11:53
バカか
>>41 じゃオールアセンブラで
procedure muddleSP;
asm
call GetTickCount
mov edx,[esp]
and eax,$00000ff0
sub esp,eax
jmp edx
end;
44 ：
デフォルトの名無しさん ：03/09/25 12:22
どこがオールだ
>>44 GetTickCount の部分も手続きに入れた所が
46 ：
デフォルトの名無しさん ：03/09/25 12:24
Del厨にとってはアセンブラ＝埋め込み言語としか知らないのさ。
あとは、プログラムの配置アドレスを毎回動的に変更出来ればいいのだが・・・
興味を持つのは構わないけど思いつきで物言ってないで
>>48 検索したら既存の対策方法も同じ感じだね。
・ 毎回ロードアドレスを変更する
・ スタックのベースアドレスも毎回変更する
既に巨大システムになったアプリケーション全てのバッファオーバラン対策を行うコストよりこっちが少ないからだってさ。
前スレで言ったけど、バグが起きる機能使わないだけでいいんだって。
ああ、スタックポインタを256*16バイト程度動かすだけなら
>>50 まあね。 今回のVCLの不具合はまあ大した事はないけど、
つい自分でも同じような事やっちゃう場合もあるでしょ。
そんな時の安全策は無いかと思ってさ
>>50 >ついでに言っておくが、実行コードを走らせるには実行可能フラグの設定されたメモリ領域ではならない。
>通常のヒープやスタックは実行不可。さらにオーバーフローされたとしても大抵は
>隣接する関係のないデータが書き換わるかAVが発生してあぼーんして終わり。
Windowsアプリケーションソフトウェアにおけるバッファオーバーフローの危険性
http://www.shadowpenguin.org/sc_documents/spsdocument21.pdf > 5. スタック上に置かれたコードの実行
> カーネルにより割り付けられたスタック領域は、読み
> 書き可能であると同時に実行可能です。つまり、スタック
> 上にコードを置き、EIPを適切に移すことができれば、置
> かれたコードは問題なく動作します
釈明ま～だ～？
釈明ってなんのさ? このスレ全部読めば?(ﾌﾟ
>>51 スタックをもっと大きく動かすと勿体無いお化けが出そうだから
別スレッドをランダムな個数作ってからそのスレッドをメインスレッドにするというのはどうだろか？
>>38 なるほど，『バッファオーバーフロー』の意味がよくわかりました．ありがとう．
Application.Run 内で1回メッセージループが回る都度 スタックをシャッフルするとかは意味あるかな？
初心者はｶｴﾚ
こっちに引越しする。
>>59 そんなことで誤魔化そうってのか(綰听邵
Del厨必死だな(綰听邵
>>59 試してみた。 Win2K では スタック領域はコード領域より前にくるようだ。
コードは$400000番地代 よって、スタック領域は必ず上位は 00 になるのは間違いない。
ただし、上位が00という事は 丁度リターンアドレスの最上位でデータ列を終わらせれば不可能ではない。
コード部をその前の4096バイトの部分におけば良いからだ。
>>59 数多のクラックコードは当然'\0'を避けたコードを書いているんだけどな。
0使う命令には体外代替命令があるしデータの0なんて演算でいくらでも作り出せる。
>>60 どのあたりが必死なのか具体的に説明してくれませんか?
>>62 だから、命令の事じゃなくて、コードの流れを自分のコードに持ってくる為の最初の1ステップである
リターンアドレスを変更する為のデータが置けないと言ってるのだろう。
もちろん、たった一つだけなら0を置くことは出来る
>>61 ソースコード嫁
>>62 そんなことを言うのならば今回のケースで実際に動くコードを書いてみろ
>>65 言いたい事は、たぶん
4096バイトもスタックに取る場合は スタックフレームも作られるだろうから
帰り番地の前にスタックフレームもちゃんと書いてやらなければならないという事かな？
そうすると２つの#00を置くことは出来ないから帰り番地を書き換えられないと
俺を含めて4人だけかよ!
function TComboBoxStrings.Get (Self: TComboBoxStrings;
>>68 は
>>66 への反証だ。
つまり、スタックフレーム(EBP)は作られていない。
よって、もしも何らかの方法で任意の文字列を置けるならば、
攻撃者がリターンアドレスをスタックフレーム内に書き換える事は可能。
結局、CALLでのSPが$123456 だとしたら
4096+3*4 バイトの後に #$56#$34#$12#00 というデータを作り
この文字列の先頭からウイルスプログラムを書けばいいという事だね。
こういう攻撃法に対しては
>>41 >>43 もある程度は有効。
ただし、
>>51 の方法で回避されるから、もう少し大きめ と4byte単位で
俺Delphi7使いだから関係ねーし
.dpr じゃなく ユニットのinitialization 節でやる方法はないかな？
74 ：
デフォルトの名無しさん ：03/09/25 23:18
この瞬間Del厨の間に非本質的で小手先なバッファオーバーフロー対応が広がろうとしています！！
>>74 いいじゃないか
暴走原因としてのバッファオーバフローはデバッグして取るべきものだけど
それでも残る事はあるさ、その場合でも攻撃者に利用し辛くしておくことには意味はある。
今回の件は、そもそもセキュリティネタに入れるのはどうかと思うようなことだけどね。
75 = 荒らし本人
はせがわの謝罪まだー
結局誰もセキュリティを破ることは出来ないってわけね。
なんだかんだいってもDel厨って放置できないからマヌケだよね。（ｗ
>>41 >>43 を使う場合は、.dprの中で実行して end の前に元に戻すようにしないとダメなんじゃない？・・・・
と思ったら、end の所で RETは実行されないのか・初めて知ったよ。
>63
82 ：
デフォルトの名無しさん ：03/09/26 22:07
>>73 .dpr の begin の前に @InitExe という隠れた手続き中で initializationは呼ばれ
initialization は ret で終わり、その後 pop /retが何度かある
という事で、 initialization 中ではスタックを変更するのは無理。
initialization 中で InitProc を設定して
Application.Initialize; でやる方法もあるけど
そうすると、 InitProc は他のユニットからもリンクチェイン式に使われるので難しいかもね
やるとすれば initialization 中に@InitExe の ret の帰り番地を書き換えて
パッチをあてる方法だけど、こういうコードがexeに入っていると、逆に攻撃者にこれを
利用されてしまうような気がする・・・大丈夫かな？
そんな細工しなくても、VCL コードを直せばすむと思うんですが。
オーバーラン対策は、オーバーランしない用にコードを書くこと。
>>86 まあそうなんだけど、今回の騒ぎのように、使ったライブラリに入ってしまった場合とか
テストコードのつもりで書いたのがデグレで混入してしまったり、
5万行くらい書いてると、完璧だって言い切るのは難しくなるでしょ？
まあ、GUIアプリだと CUIのようにGCIから呼ばれて使われるという事もないから、
ネットワークとの入出力の部分だけに限ってチェックすればいいとは思うけど
>>87 でも片手落ちだと思うよ。
１、確かにスタック上の任意のコードを走らせる確率は減るけどゼロではない。
まあ、失敗したら例外で落ちるだろうから大多数は攻撃に気づくだろうけど、ゼロでない事は重要。
２、スタック上の任意コードはガード出来たとしても、プログラム領域はガード出来ない。
任意のコードは書けないが、普段とおらない筈の部分をいくらでも呼び出せる。
たとえば、個人情報を吸い出されたり、パスワードを解除するような部分を呼び出してパスワードを解除したり、
コード上にある全ての機能を呼び出せてしまう。
と、書くと今度はコード領域もシャッフルすると言い出すんだろうな。
まあそれも有効な方法だから否定はしないけど。
ライブラリに問題があったら直す。自分のコードに問題があったら直す。
>テストコードのつもりで書いたのがデグレで混入してしまったり、
まあ、ヒープであっても PCHAR( 文字型 ) を使うと、常にバッファオーバランの可能性はあるわけで・・・・
>>90 いや、だから、そういう注意を優先項目の一つとしておざなりにすべきではないと思うし、
現在は自分だって注意してコーデングしてるつもりだよ。
しかし、長年使ってると、自作したライブラリはとても大きいし、貰ってきたライブラリも多数あるって事でさ、
おきてしまったときに、攻撃し難くしておこうというのが、スタックスクランブルの手法で、
この為に支払うコストは僅かなスタック上のゴミだけで、実行には何の影響もない。
僅かなコストを支払って、大きなメリットがあるのだから、入れて問題は無いと思うのだが？
いや自分でやる分には反対はしないけどね。
>>88 の追加
３、データ領域にもコードを置いて実行させる事が出来る。
文字列の場合、元と同じサイズまでなら同じアドレスに配置されるので、文字列にコードを埋め込んでおいて
そのアドレスに分岐することも出来る。
その検証コード
procedure TForm1.Button1Click(Sender: TObject);
var s:string;
type TGetSP=function:Integer;
begin
s:='XPﾃ';
caption:=IntToHex(TGetSP(PChar(s)),4);
end;
これで 文字列中の XPﾃ を実行してかえってくる
X: POP EAX
P: PUSH EAX
ﾃ: RET
簡単にわずかでもリスクを減らす。ってのなら否定はしない。
>>94 のように、データ領域を使って任意コードが実行出来るとなると
ここに数バイトのコードさえ置けるなら、これを使ってSP相対で分岐されてしまい
スタックをシャッフルするという対策は意味のないものになってしまう。
結論として、スタックシャッフルを入れても悪い訳ではないが、それを入れて安全とは言えない。
話が発散してないか？
>>97 もし、ネットワークで任意データを取得するプログラムでバッファオーバランが起きた時に
事前に設定した文字列・あるいは数値が固定アドレスに配置されているなら、それと組み合わせてつつく事が可能。
文字列はネットワークデータからのデータで再配置されてしまう可能性が高いが、
文字列上の数値を利用するような場合、数値は固定番地におかれる可能性が高い。
グローバル変数でなく、クラス等使ってヒープ上にそれがあっても、そのヒープはプロセスの先頭で確保されているなら
同じアドレスとなってしまうためだ。 特に負数が設定出来るような場合は・・・
わかってるって。
>>99 いや、オーバランしてもスタックをスクランブルすれば効果があるというのに対して、
スタックをスクランブルしても、別の攻撃方法があるよという事。
条件：
・
>>68 のコードがあるとする
・データが $00789ABC に配置されてる整数型変数があるとする
攻撃者
１、整数型変数に $802464FF を設定する これは JUMP [ESP-128]相当
２、攻撃コードは 4096+3*4-128バイトからに配置
乗っ取りコードは4096+3*4 バイトの後に #$BC#$9A#$78#00
これで、JUMP [ESP-128]が実行された後、スタックの位置に関係なく攻撃コードが実行される。
そろそろ Delphi 固有の話ではなくなってきていませんかね？
>>101 LINUXの方は OS 側でもあるていど対応しようとしてるみたいだね。
１、スタック・データ・コード再配置アドレスのシャッフル
２、スタック領域の実行不可属性
３、データ領域（ヒープ）の実行不可属性
Windowsの方は何のアナウンスもないようだ。
同じようなせ制限とアドレスシャッフルは有効だと思うのだけどね
ただMSはMAC用のIEで、これと似た手法で対策を入れたらしい。
それと C/C++ではコンパイラ側で
で、102, 103 で言及している方法でも完全ではない。ってこともわかっているんだよね？
>>105 うん。だからもう少しその関係を勉強しなさい。
Linux にもその実装はあるの。で既存のコードとの非互換性とかがおきているの。
ソースコードレベルで再コンパイルできる UNIX でそれだから MS Windows ではちょっと
難しい。
で、どこらへんが Delphi ?
>>106 もともと WindowsのEXE/DLLは再配置可能モジュールで実際 NT/9xでアドレスも違ってたので
アプリの配置アドレスのシャッフルでは影響は出難いと思うよ。
で、その話のどこがDelphi？
結論としては、
いや、だからそれで簡単に結論出ちゃうと、世の中に Exploit はなくなっちゃうのだよ。
W2Kで
>>94 のコードに追加して
procedure TForm1.Button1Click(Sender: TObject);
var s:string;
type TGetSP=function:Integer;
var OldAcc:Integer;
begin
s:='XPﾃ';
VirtualProtect(PChar(s),10,PAGE_READWRITE , @OldAcc)
GetLastError;
caption:=IntToHex(TGetSP(PChar(s)),8);
end;
とやったけど 例外が出ない。
Win2KではPAGE_READWRITE 属性だと実行可能なのか・・・
確かに 実行不可で Read/Write可能って属性をページ毎に割り振れるなら
>>111 うぅ。先人の苦労を一から踏む気か。i386 の資料を読んで頂戴。
そろそろもっとレベルの高い話してくれませんか?
そういえば、何でスタックは上からなのでしょうね？
>>115 汎用CPUだとデータ領域は上からスタックを下から取れば領域を動的に目いっぱい使えるからでしょう。
DSPなんかではスタックをどっち方向に使うか切り替えられるものもありますよね。
>>116 ちゃんと
>>115 のネタに付き合ってやれよ。
「スタックは下からだよバーカ」でもいんだよ。そこからネタが広がるんじゃないか。
あ、ひょっとして上下間違えました？
>>118 昔の人は、メモリマップを描く時に ０番地を上に書いたので 上、下というと逆の意味になる事が多いです。
上位・下位と言えばその通りになります。
上の報告だと Win2000では OS →スタック → コード →データ みたい。これは 調べてみたら？
だから、空間を有効利用出来るという事では意味が無いですね。
バッファオーバーフローの件はその通りですね。 そこまで考えなかったのでしょう。
そこまで考えていれば i386 で読/書可能で実行不可な状態を簡単に作れるようにしてくれたでしょうし
調べてみました。SDK見ても、
121 ：
デフォルトの名無しさん ：03/09/27 19:45
俺は基礎知識としてCを覚えておけという主張には常々否定的だったんだが、
ｷｮｳﾓ ｼｺｼｺ ｺｰﾃﾞﾝｸﾞ
∧,,∧ ノートPC用に環境ごとに
ミ*ﾟДﾟ彡 ネットワーク設定を
ﾐ つ旦)~~ 一発切り替え
～と,,,~),,~) できるソフトを
作りたくなりました。
IPアドレス・サブネット・デフォゲ・DNS
LMHOSTS・etc....
レジストリの変更箇所は追えましたが
([Delphi-ML:15656]とか参考)
手動で変更しても、設定に反映されませんです。
ネットワークの接続先アイコンのCaptionやら
プロパティの中身やらを、自由に取得変更する方法を
どなたかご存知でしたら教えてください。
http://redmaru.hp.infoseek.co.jp/index.html NetSet
と同じような機能のソフトを作りテー表ます
皆さんやっぱりソフトとか作る前には
UMLでデザインしているぜ。
HSPにフサギコが負けた。
128 ：
デフォルトの名無しさん ：03/09/28 22:40
こんばんわ、
129 ：
デフォルトの名無しさん ：03/09/28 22:43
こんばんわ、
こんばんわ、
>>122 SHChangeNotifyで行けないかな？
Shell系の関数だから関係ないか。
133 ：
デフォルトの名無しさん ：03/09/29 00:05
>>132 内部でキャンバス作ってやったんだけどうまくいかなかったもんで・・・
やり方が悪かったかな、
134 ：
デフォルトの名無しさん ：03/09/29 00:07
>>132 もしよければ簡単なサンプルを教えてもらえませんか？
135 ：
デフォルトの名無しさん ：03/09/29 00:11
誰かお願いします。どうしてもやりたいもんで・・・
何度もageてゆーなっつーとろーが。
137 ：
デフォルトの名無しさん ：03/09/29 00:27
>>136 どもありがとです、
くだすれみてみます。
場違いでした、すみません。
だからsageを覚えてくれ。頼むから。(TT)
Canvas、つまりデバイスコンテキストを使わずに文字列の大きさを取得する方法は
上級者だと思われ。
言ってることが矛盾してるな。取得しようとしている値はDC依存だろ。DC使わないで何を取得するの?
DCって何の略？
143 ：
デフォルトの名無しさん ：03/09/29 04:50
144 ：
デフォルトの名無しさん ：03/09/29 06:22
デジ・キャラットとか思ったそこのお前！
デ・ジ・キャラットなわけだが。
ドリームキャスト
149 ：
デフォルトの名無しさん ：03/09/29 15:55
>>130 ということは、出力さきのデバイスに依存してるっと事なんですね。
一応内部的にキャンバスを作り解決しました。
みなさんどうもありがとうでした。
内部的にCanvas使ってるなら、結局Canvas使ってるじゃない。
あほな質問すなや。
>>141 DCが保持しているパラメータを使ってシミュレートするんじゃない？
描画はしないけど情報だけほしい。ってときには CreateDC の変わりに CreateIC を
たしかにたぶん違うね。
>>150 uses, ShlObj;
SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_FLUSH, nil, nil);
でレ痔ストリの内容がシステムに反映されます。
ただ、おいらはアプリの *.icoを更新しただけだから､フサ氏のやりたいことが
このコードでできるかどうかは不明｡
クズレスならｽﾏｿ｡
155 ：
デフォルトの名無しさん ：03/09/30 15:28
これだからDel厨は
コンポーネント作成の話題はこちらでいいでしょうか？
157 ：
156のコードです ：03/10/03 11:37
interface
RegisterPropertyEditor の第２、第３引数を厳密に指定してみたらどうなる？
>>158 恥ずかしい・・・既に clNone という色は定義されてたのを忘れていました。
名前を変更したらいけそうです。ドロップダウン時に参照されるようなので
>>157 のコードではエラーが出るようになりましたが。
というか、Ｄｅｌｐｈｉ定義済のclNoneをそのまま使って、clNoneを使わないという意味に使っても大丈夫みたいですね。
161 ：
デフォルトの名無しさん ：03/10/04 00:45
釣れた（藁
162 ：
デフォルトの名無しさん ：03/10/04 17:01
IDEでコンポーネントを最初に貼り付けた時に特別な初期値を用意したいのですが可能でしょうか？
自己解決しました。
∧,,∧ どもーー、
ミ*ﾟДﾟ彡 ごぶたさです。
ﾐ つ旦)~~
～と,,,~),,~)
レスサンコ
>>154 、フサファンさん。
進中のページを見ますと
http://www.asahi-net.or.jp/~GV4J-SGUR/narik/stp001.htm#SHChangeNotify SHChangeNotifyについての、オプションがいろいろ変えられることがわかるのですが
いったい、どれがTCP/IP設定変更時のレジストリ更新に
有効なのか、とんと、検討もつきません。
TCP/IPの設定はレジストリ更新差分比較ツールでみたところ
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\{NIC名}\Parameters\Tcpip]
このあたりにあると思ワレなのですが、
レジストリを変更してSHChangeNotifyを実行しても
うまく動かないっすね。
なんか、特殊なやり方があるように思うのですが…
どこかに情報ないかしら。
リバースエンジニアリング。しなさい
166 ：
デフォルトの名無しさん ：03/10/15 16:53
TCustomControlを継承して、付箋紙のようなウィンドウを表示するにはどうすればいいのでしょうか？
TControl はウィンドウを持たないから...
TCustomControlはTWinControlからの継承だよ。
>>166 THintWindow とかのソースを参照したら？
THintWindowのソースが参考になりました。thx!
171 ：
バグですか？ ：03/10/17 15:48
超初心者に書いてしまいましたが、以下の内容は中級者で良い？
>>171 だったら適当にファイルを作って容量を減らせばいい。
2の32乗ってわかる？
>>171 バグだと思いますよ。 レポートを上げておくべきでしょう。
DWORD付近ですねぇ。
>>171 どこか間違えてるが95%、バグの可能性が5%と見た
フォトショップの選択ツールで見られる「蟻の行列」を
xor モードで画面枠の点点を描いては？
178 ：
バグですか？ ：03/10/17 18:01
いろいろ試したが、2147483648Byteで割り切れるサイズを境に、TBatchMoveが
>>178 delphi側では DiskFreeを使ってないみたい。だからたぶんBDEの問題じゃないかな。
自称中級者はｶｴﾚ
delphiでパケットモニタみたいなの作れる？
パケットモニタの原理が解らないわ！
>>182 漏れもわからんのだが80番ポートを監視したらできそうな気がするが
違うん？
port:80はHTTP専用では？
なんつー低レベルな会話・・・
WinsockだけでNETSTATみたいなのは作れないよ。
NETSTATはSNMPかと。パケットキャプチャと関係ない。
>>184 それ見ると、デバイスドライバ作ってるね。
NDIS中間ドライバなるもので実現しているみたい。
あれ、たしかActiveXだったと思ったが。Delphiから利用できるっと。
193 ：
デフォルトの名無しさん ：03/10/20 17:46
THintWindow上の子ウィンドウを表示するにはどうすればいいのでしょうか？
>>193 普通に表示されましたよ？
var w:THintWindow;
begin
w:=THintWindow.Create(Self);
w.Parent:=Self;
w.Left:=10;
w.Top:=30;
w.Width:=100;
w.Height:=40;
with TButton.Create(w) do begin
Parent:=w;
Caption:='test';
end;
デル厨はレベルが低いなぁ（ｹﾞﾗｹﾞﾗ
>>195 w.Parent:=nil; の場合は表示されませんよ。
>>198 だからさ、親にTCustomForm継承が無いと上手く動かないようになってるんだよ。
どうしてもやりたいなら、そこの部分を自前で処理しないといけない。
とりあえず表示させたいなら、
w:=THintWindow.Create(Self);
w.Left:=10;
w.Top:=50;
w.Width:=100;
w.Height:=40;
with TButton.Create(w) do begin
Parent:=w;
Caption:='test';
SetWindowPos(Handle, 0, 0, 0, 0, 0, SWP_NOSIZE + SWP_NOMOVE + SWP_NOZORDER + SWP_NOACTIVATE + SWP_SHOWWINDOW);
end;
SetWindowPos(w.Handle, 0, 0, 0, 0, 0, SWP_NOSIZE + SWP_NOMOVE + SWP_NOZORDER + SWP_NOACTIVATE + SWP_SHOWWINDOW);
とか無理やりに表示フラグをオンしてやれば表示はするけど、Visibleフラグは更新されないぞ。
とりあえず、Parentにnilが嫌なら
>>199-200 子ウィンドウをすべて検索して、一個一個表示させないといけないようですね。
>ParentWindow:=Application.Handle;
MainFormを最小化したら、HintWindowも最小化されてしまいました。
パケットモニタを作るのはやめなの？
難しいのでやめらしい。
WinSockAPIのフックならDelphiでも出来るんだけどね。
205 ：
デフォルトの名無しさん ：03/10/24 23:19
>>204 Rawソケット使うんじゃないの？フックつかうの？
Rawソケットを使うやり方はWindows2000以降で
お前らいつまでも馬鹿なこといってないでさっさとetherealのplugin作ってしまえ
dcc32でターゲットファイル名を指定できないのはバグですか？
ファイル名に空白を含んでいるのでは？
"" でくくってください。
くくりたくない場合はどうすればいいですか？
氏ね
くくればいいじゃんかよぉ
首くくれ。
病院坂逝け
プロジェクトオプションのリンカのタブにある
>>217 はるか太古の昔からの機能ゆえ、俺も最初のリファレンスを知らん。
JCLにTD32の情報を読み取るクラスがあるのでそれらから調べることができるかもしれない。
Jediに聞けば答えてくれるかもね。
おおっサンクス。
古の Borland デバッグ情報は、
221 ：
デフォルトの名無しさん ：03/11/09 23:48
8ｷﾀ-
堤さやか \952
文字列にメソッドポインタを割り付けて、メソッドを呼び出したいのだが
224 ：
デフォルトの名無しさん ：03/11/10 01:48
すまん、↑のやつの補足。
type
↑早速ありがとうっす。
↑すんません自己解決しました。
IntraWebって、簡単にＷｅｂソフトができそーな予感がするんだけど、
Delphiではprivateメソッドの引数の型は非公開にできないのでしょうか？
>>229 現状できないね…。Delphi.NETだと確か入れ子宣言が可能になったはずだけども。
>>230 ありがとうございます。
そうですか、Delphi.Netから対応ですか・・・(これだけの為に買うのも・・・)
クラス内クラス以外でも実現できないとすると、
InitメソッドをProcedureに置き換えるしかないなぁ。
ComboBoxをオーナードローで描画したら、ComboBoxのエディット部分を編集できなくなったす。
プロパティを何も設定しない状態で(Style=csDropDown)
234 ：
デフォルトの名無しさん ：03/11/17 17:29
こんにちは。教えてください、スゴイひと。
ControlStyleからcsSetCaptionを削除すると幸せになれるかもしれません。
回答ありがとうございます。
237 ：
デフォルトの名無しさん ：03/11/17 19:13
コンストラクタをオーバーライドすればいいだけじゃないのか？
Delphi2や3ではTFTPコンポーネントがあったと思うのですが、Delphi６や７では
>>238 Indyに代わりました。検索するとサンプルが出てくるかもしれません。
”静的メソッドはオーバーライドできません。” だそうです。
240は237さんへのレスです。
>>240 で、君はそのメッセージをヘルプで調べたのかね？
>>242 それがどうかしたのか？ 答えになってねーぞ。
はぁ…
もう自己解決した。お前らみたいな口だけの馬鹿に聞いたのが間違いだったな。
さすがDelphiのスレだな。
自称中級者sage
どこのスレで質問するのが一番適当なのか悩んだのですが、ここで質問させていただきます。
251 ：
デフォルトの名無しさん ：03/12/15 14:58
Dephi7のインラインアセンブラでSSEとか、SSE2コードを書いていると、
氏ね
254 ：
デフォルトの名無しさん ：03/12/16 08:33
21インチのモニタでビデオカードも最強な漏れ
PC4台とモニタ4台。
>>255 あんた賢いね！！！
でもそれじゃダメなんだよ
なぁ分かってくれよ…
ソリティア、ハーツ、フリーセル、スパイダーでﾊｧﾊｧする254萌え
フルスクリーンのソリティアって何なんだよ！！
260 ：
デフォルトの名無しさん ：03/12/18 00:32
自アプリにフォーカスが当たっている以内に関係なく
>>254 DelphiML:79620にこんなのあったけど。
面倒だからインデントなし。
procedure TForm1.Button1Click(Sender: TObject);
var
Wnd: HWnd;
begin
if WinExec('Notepad',CmdShow)<32 then exit;
Wnd:=FindWindow('Notepad', nil);
if Wnd<>0 then
Windows.SetParent(Wnd,Panel1.Handle);
end;
263 ：
デフォルトの名無しさん ：03/12/19 09:27
コードエディタの右に線が引かれてますけど
おお、教えて君な漏れにﾏｼﾞﾚｽｻﾝｸｽ
>フルスクリーンでしか起動しないゲームを
>>265 ありがとう
あんたの一括が無ければ、10時間を無駄にする所だったよ。
VMWARE？なんじゃそりゃ。5時間以内に調べて来る。
よし、リサーチ完了出来た。
だめぽ
もう一台PC買ったら? ゲームやるやつらはよく複数台のPCでプレイしているよ。
>>263 TMemoやTRichEditをベースにして実現する事は恐らく出来ないと思います．
DelphiのコードエディタはWindowsに標準で付いてくるエディットコントロール（TEditやTMemoの実体）や
リッチエディットコントロール（TRichEditの実体）をベースに作っているわけではなく，
一からすべて自前で作られているものと思われます．
出回っているテキスト編集コンポの中にはそういうものもいくつかあるようですが
これらの中で背景のオーナー描画を自由に出来るものがあればそういう機能を実現する事が出来るかも知れません．
271さんありがとうございます<(_ _)>
いまふとタスクマネージャみたら、delphi32.exe様が48,276KBも
正常終了できなかったときはよくなる
いや、ふつうにコーディング→実行→デバッグを
C++BuilderXは立ち上げただけで69,276KB
>276 Javaだからな。
ListBoxをオーナー描画すると、再描画のたびにちらつくのですわよ
280 ：
デフォルトの名無しさん ：03/12/25 09:45
むず・・・
281 ：
デフォルトの名無しさん ：03/12/26 10:35
オーナー描画ってのはいったいどうやるんでしょうか？
>>281 =
>>278 ?
もしそうなら、ソース出してみ。
「再描画のたびにちらつく」
とだけ言われてもどうしようもない
タスクトレイに常駐し、メールの新着をお知らせするアプリを作ってるんですが、
SetForeGroundWindow
最小化したときにしたのタスクバーにCaptionの内容が反映されるように
Application.Titleだったような
288 ：
デフォルトの名無しさん ：04/01/04 16:02
>>281 正月休みの間やってみようとしたけど僕にも無理でした・・
>>288 何のオナニー描画をしたいのか言え。
コンポによって使うイベントが違ったりする
漠然としすぎた質問はスルーされる
Winny 2.0b7.1のメニュー
∧,,∧ わかりました。
>>281 とっかかりがほしいのか？
とりあえず以下のとおりやってみ
・ListBox1を配置しる
・プロパティ「Style」に「lbOwnerDrawFixed」設定
・プロパティ「Items」に適当なアイテムいくつか設定
・イベント「OnDrawItem」に以下のコードを記述しる
procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
begin
ListBox1.Canvas.Brush.Color := clWhite; //←(A)
ListBox1.Canvas.FillRect(Rect);
ListBox1.Canvas.Brush.Color := clWhite; //←(B)
ListBox1.Canvas.TextOut(Rect.Left, Rect.Top, ListBox1.Items[Index]);
end;
以上のコードがうまく動くこと確認したら、(A)とか(B)に適当な色を入れて楽しんでみれ
慣れたらRect.Leftあたりの数値いじってみたり、Canvasに絵を埋め込んでみたり
293 ：
デフォルトの名無しさん ：04/01/05 10:11
タブ区切りテキストをStringList.DelimitedTextで読み込むと、
294 ：
デフォルトの名無しさん ：04/01/05 11:39
デルファイをはじめたいのですが、何からはじめたらいいでしょうか？
>>294 取りあえず公用語のC言語の本とフリーのコンパイラ。
それで3ヶ月ほど勉強してみ。
>>294 えっパーソナル版はタダでダウンロードできるって知らないの？
×昔の話だな。
SetForegroundWindowでウインドウとそれに関連するスレッドも全部前面に出るんだから
301 ：
パントマイマの軌跡● ◆xPantyHouQ ：04/01/13 11:36
すんまへん、正規表現で番号付きグループができるコンポーネント探してるんですけど・・・
どっかありませんかね？
【例】
<a href="index.html">トップページ</a>を
<a href="([^"]+)\1">([^<]+)\2</a>
みたいに書いて、\1と\2が別途の変数として取れるようなものです。
bmonkeyさんのところも、BRegExpも両方見てみましたが実装していなかったっぽいんですが。
TRegExpr
303 ：
パントマイマの軌跡● ◆xPantyHouQ ：04/01/13 12:09
>>302 ｳﾜｰｲｱｯﾀｰ！！！
早速使って見るです！㌧ｸｽ！！
304 ：
デフォルトの名無しさん ：04/01/16 18:51
USBカメラの画像を横取りしてPGで処理してから、
難しいかどうかは別として可能です
デバイス制御は初めてでとまどってます。
悪いことはいわないから制御系はCかC++にしておけ。
>>307 で、何が制限となるのか具体的に説明して下さい。
VBならスダンディングマスターベーションするが。
また一人VBにコンプレックスをいだいている奴が釣れたとｗ
デバドラでしょ。
>>310 シリアルとかパラレルならそんなもん書くまでも無いっしょ。
>>309 いや、単純にvbってポート叩けたっけ？みたいな。
DelphiはTPの名残で普通にできるけど。
USBカメラからの画像を加工（文字入れ）してから、
315 ：
デフォルトの名無しさん ：04/01/18 11:09
delphi6 PersonalでSOPAって使える？
ゴメン、あげてしまった。
>>315 XMLとhttpでスクラッチするというのもありかと。
そぱ
319 ：
デフォルトの名無しさん ：04/01/20 20:14
あるexeファイルから別のexeファイルを呼び出したときにウィンドウ自体に
>>319 そのexeで SetForegroundWindow してもダメ？
自分自身を最背面に移動するんだ。
会社から１回以上カキコすると規制がかかるのなー。初めて知ったよ。
>>322 ありがとうござます。
Cはよくわからないのですが設定を変更する箇所をDelphiで書くと
SystemParametersInfo (SPI_SETFOREGROUNDLOCKTIMEOUT, 0, Pointer(0), 0);
ですよね？
やっぱりうまくアクティブになりませんでした。
ちょっと説明を追加すると
"（呼出）元.exe"から"（呼出）先.exe"を呼び出す際、CreateProcessメソッドを使って
呼び出してます。
で、先.exeが表示されたら元.exeのフォームのVisibleをFalseにして、画面が遷移したように
見せかけてるわけです。
元.exeは、先.exeが終了するまでsleepさせています。
先.exeが終了したら元.exeのフォームのVisibleをTureにして表示してるのですが、この仕組み
が悪いのかな?
ちなみにSetForegroundWindowを組み込んだのは元.exeの再表示直後です。
>会社から１回以上カキコすると規制がかかるのなー。初めて知ったよ。
うちの会社なんてアダルトサイト扱いだよ…
OSの設定でClearTypeを有効にしておくと、
できました！
>>328 どうでもいいことだけど
ifの中がBringWindowToTopのみ かつどちらでも実行されるなら
if dwID <> dwForeID then
begin
//ここにelseでの処理Attatch…(…False);まで
end;
BringWindowToTop(ｈWnd);
のほうがコード量少なくて済む。
が、可読性は下がりそう(ｽﾏﾝ
331 ：
デフォルトの名無しさん ：04/01/23 18:18
MySQLのテーブルのBLOBフィールドにバイナリデータを書き込むことに成功した方って
>>332 もうそんなんどうでも良いから、成功した人のやり方を真似させて下さい。
成功した事がない人は黙ってて下さい。
>>333 切に願う。
自分でプログラムやる気がない人は来ないでください。
偽者は黙れヴォケカス
だから答え様がないんでしょ。(w
MySQLのBlob clumnにはDelphiからは書き込めません。
>>338 うそつき.
別の言語でdllを作ってできるなら原因不明ということになるはずないだろ？
>>339 注意：商用利用は有料です。
(ソース無しバージョンで一人の開発者が使う時は約$60必要です）
ま、無料でやるなら、blobは使うなってこった。
FUD はやめましょうね。
ソースは？
345 ：
デフォルトの名無しさん ：04/01/26 17:54
>>342 マジっすか？
次の開発はDelphi + MySQLで行こうと思ってたのに、やめようかなぁ。
業務開発で 6000円出せないんだったら、その会社、やめたほうがよいよ。
大体 MySQL 自体、自分のソースを公開したくない場合はライセンス料（\29,800）が必要なんだから
>>347 Jpeg格納してみ
俺はできんかった。
ちなみにDel7。
正直、ライセンス料払わずに販売してる奴はいるとおもた。
350 ：
デフォルトの名無しさん ：04/01/28 12:42
FireBird使え、無料だぞ
HyperThread に対応していないサーバー RDB かい。> FireBird
>>351 それって動作しないってこと？それとも最適化されてないってこと？
>>352 今MLで話題になってるが、遅くなるらしい。
まじ？
>>353 どのMLか教えて。
まぁデータは飛ばんし、遅くなっても我慢して使うかな。
HT - along with hardware SMP - will be a problem for Firebird Superserver
>>347 私が試したところバイナリデータの中に
F*27とか
E*27とか
9*27とかの数値があるデータは書き込めませんでした。
（*はワイルドカード）
もしこれらの数値があるデータでも書き込めたのなら、やり方をご教授下さい。
環境
WindowsXP HomeEdition
MySQL 4.0.15(Windows版 文字コードsjis)
MySQL ODBC 3.51 Driver
Delphi6 Enterprise(BDE 5.01)
コード
ms := TMemoryStream.Create;
ms.LoadFromFile('test.dat');//test.datの内容はE727というバイナリデータ
Table1.Edit;
Table1.Insert;
table1.FieldByName('id').AsInteger := 1;
st := TBlobStream.Create(TBlobField(Table1.FieldByName('data')), bmWrite);
try
ms.SaveToStream(st);
Table1.Post;
finally
St.Free;
ms.Free;
end;
E7 27
問題ないな。
359 ：
デフォルトの名無しさん ：04/01/29 18:26
360 ：
デフォルトの名無しさん ：04/01/29 18:26
UDPソケットなんて使った事ないです。
>>360 TUdpSocket の話はつい最近、どこかで見たような...
「他人事だと思っていたら私も」って Delphi-ML でコメントつかないからこっちに振ったんでしょ。
性格悪いな。教えてあげない。
要するにまるぽなんだな
ばれたか。くそどもが。
すまん、だれか、俺が前に質問したやつを
>365
>>359-360 (キートン○田)
TUdpSocket は UDP なので、OnReceive は発生しません。仕様です。
その代わりに ReceiveFrom を使います。
ReceiveFrom TUdpSocket
でググればヒントが出てくるよ。
Indy の方が使いやすいのは事実だが
がんがれよ＞普通のサラリーマン
370 ：
デフォルトの名無しさん ：04/01/31 21:29
普通のサラリーマンです。ありがとうございます。結局Indy使っちゃいました。
>>370 直にWinsock叩くと言う手もありますよ～。
Winsockを使ってみようぜ
>>370 Delphi7 では、TUDPSocket は使うな。Indy に移行しろ。と書かれているのはよんだのか？
375 ：
デフォルトの名無しさん ：04/02/04 19:58
Jpegファイルの明度を明るくするライブラリとかありますか？
376 ：
デフォルトの名無しさん ：04/02/04 20:13
スレ違いかもしません。QuadrupleDの質問です。
Delphiでユビキタスコンピュータは作れますか？
言語煽りなどという程度の低いことをやっている奴には永劫未来無理。
それを貴方にあげます。
>>375 画像をビットマップオブジェクト（TBitmap）に書き出してからTBitmapのScanLineプロパティ経由でピクセルを直接いじる感じになるのでは？
とりあえずイメージコンポに読み込んだ画像から明るさ２倍？の画像を作ってペイントボックスに表示する例．
procedure TForm1.Convert; // Image1.Pictureに画像を読み込んだ後に呼び出す
var x, y: integer; p: PByte;
begin
FWorkBitmap.Assign(Image1.Picture.Graphic); // FWorkBitmapはフィールド変数．あらかじめCreateしてPixelFormatをpf24bitにする
for y := 0 to FWorkBitmap.Height - 1 do
begin
p := FWorkBitmap.ScanLine[y];
for x := 0 to FWorkBitmap.Width * 3 - 1 do
begin
p^ := Min(255, p^ * 2); // usesにMathユニットを追加
inc(p);
end;
end;
PaintBox1.Invalidate; // ペイントボックスの再描画
end;
>>356 俺も無理だった。データが1234だったらOK。F727だったらNG。
---------------エラーメッセージ--------------------------
一般 SQLエラーです
[MySQL][ODBC 3.51 Driver][mysqld-4.0.17-max-debug]You have an error in your SQL syntax.Check the manual that corresponds to
your MySQL server version for the right syntax to use near "･")'at line 1.
---------------------------------------------------------
なんでだろね。ただ俺はMySQLに詳しくないのでどこか設定が間違ってるのかも。
OS：WindowsXP
開発環境：Delphi7 Pro + BDE 5.01
データベース：MySQL 4.0.17
ODBCドライバ：MySQL ODBC 3.51.06
fm := TMemoryStream.Create;
fm.LoadFromFile('test.dat');
with TQuery.Create(self) do begin
RequestLive := true;
SQL.Text := 'select * from test';
Open;
Append;
FieldByName('code').AsInteger := 1;
st := TBlobStream.Create(TBlobField(FieldByName('bdata')), bmWrite);
fm.SaveToStream(st);
try
Post;
finally
Free;
st.Free;
fm.Free;
end;
end;
Delphi6 pro,paradoxでデータベースアプリケーションを作成しているのですが、
blob とは関係ありません。
実際に保存してみました
>>384 私は383であり385の発言はしておりませんが、実際に保存したら240バイト
くらいしか保存されていませんでした。判定方法は、保存された文字数を
数え、170文字（２バイト文字と1バイト文字の混合）くらいしか保存されて
いませんでした。
コードを書かずに TTable -> TDataSet -> TDBMemo とつなげたんだよね？
煽りは勝手に無視するから、フォローがいいよ。
s/フォローがいいよ。/フォローはいいよ。/
383です。
フォーム上のコンポーネントをすべて見えなくしたいんですが・・
>>392 for i := 0 to ComponentCount -1 do
begin
if Components[i] is TControl then
(Components[i] as TControl).Visible := false;
end;
isしたらasは不要だろ
>>393 ばっちりです。とても助かりました。
どうもありがとうございましたm(__)m
396 ：
デフォルトの名無しさん ：04/02/13 02:24
色々なアプリを操作したいんですが
乗っ取るってのは
>>396 さんは、そのボタンがそこに「ある」とはどーゆーことか考えた事はありませんか？
if Components[i] is TControl then
>>401 (Components[i] as TControl).Visible := false;
TControl(Components[i]).Visible := false;
上の２つは何が違うの？
>>402 型の解決をコンパイル時にやるか実行時にやるかみたいな話だったかと。
>>403 つまり実用上はどちらも変わらないということでしょうか？
いいえ
>>392 見えたり見えなかったりするのはコントロールだけなのでこれでよいはず．
var
i: integer;
begin
for i := 0 to ControlCount - 1 do
Controls[i].Visible := False;
end;
>>402 ●前者（ オブジェクト as クラス型 ）
オブジェクトが指定されたクラス型またはその派生クラス型のオブジェクト，あるいはnilかどうかをチェックします．
いずれにも当てはまらない場合は例外を生成します．
●後者（ クラス型(オブジェクト) ）
オブジェクトが指定されたクラス型かどうかをチェックをせずに
強引にそのクラス型のオブジェクトであると解釈します．
TWebBrowserを使って、User_Agentを書き換えたいのですが
URL := '
http://hogehoge/ '
flg := 0;
Header := ''hogehoge Browser;
WebBrowser1.Navigate(URL, flg, tmp, tmp Header);
上記のやり方では、無理なのでしょうか？
よろしければご教授ください。
自己解決しました。
URL := '
http://hogehoge/ '
flg := 0;
Header := 'HTTP_USER_AGENT: hogehoge Browser';
WebBrowser1.Navigate(URL, flg, tmp, tmp, Header);
これでできました。
409 ：
デフォルトの名無しさん ：04/02/21 09:24
Canvasの一部にDraw()メソッドで
DrawでCanvas全体が描画されるって部分が良く判らないんだけど
画面に表示されていないCanvasに書いて、
>>410 レスありがとうございます。
TImageのCanvasに
cv.Draw(x, y, CharImg);
と描画しています。
描画イメージのサイズは32*32
TImageのサイズは500*180です。
TImageのTransparentはTrueにしています。
>>411 ありがとうございます。
早速試してみたのですが
あまり改善しませんでした…
つまり、TImageでTImage.Canvasをアクセスして自動的に作られた TBitmap.Canvasにアクセスしてるんだよね。
>>414 今のマシンは速いから、ダブルバッファで十分じゃないの？
一部でも書き換えられたら全体が描画されるといっても Invalidateが発行されて TImage.paintが遅延実行される訳だから
ダブルバッファは速度向上ではなく、ちらつき防止なのだが。
ガイシュツ気味だが。
質問です。
>>419 質問です。
あれが出てくる位置を変更するのはどうしてでしょうか？
>>419 死ぬ気でWindowハンドルなりダイアログハンドルなどを取得してごにょごにょ
難しいんじゃないの？ 似たの自前で作った方が速いように思うけどなあ
>>420 転送する時に、エクスプローラーの真上に出てくるじゃないですか。
あれをやられると、次に転送するファイルを探しにくいというか・・・。
邪魔なので、右上とか左上に追いやりたいんですけどね。
>>421 ・・・ホント死ねるかも。
ちょっともう少し調べてみることにします・・・。
>>422 やっぱりそっちのほうが早いですか。
私がやり方を知らないだけで、
比較的簡単に出来るのかもしれないと思ったんですけどね。
とりあえず、421さんのやり方で出来ないかもうちょい検討して、
どうしても難しいと悟ったら422さんの案で、自前で用意することにします。
レスありがとうございました。
そういう時こそ W2kのソースがあれば・・・・
>>414-418 ありがとうございます。
上に置くビットマップ素材を作り直すことで
TImageのTransparentをFalseにしても上手く表現
出来たので、今回はTImageを使うことにします。
少なくとも私の環境ではTImageの方で画像を透過しようとすると
大幅なパフォーマンスダウンが見られました。
今回は時間が無かったのでTImageのままですが
次回はTBitmap＆TPaintBoxにチャレンジしてみます！
そうだね。 透過をTrueにするなら、下の絵を含めて TBITMAP上で合成してから
中級レベルの話かどうか定かじゃないですが、ご教授ください。
function toPointer(var dt):Pointeger;
という冗談は置いておいて
>>429 ありがとうございます。
それを組み込んでみたんですが、
未定義の識別子：'StringToInt'
となったんですが、特別な関数なのでしょうか？
PointerよりPCharの方がなぜいいのでしょうか？
＞でも Pointer型より PChar とかにした方がいいよ。
＞ 未定義の識別子：'StringToInt'
>>431 StrToInt。
後半確かにね。 言いたいのは、Pointer型だとそのままじゃ殆ど使えないからって事。
何かポインターとして使いたいなら、その型で使うべきだと思うよ。
Pointer型の加減算もできなくてこまっていたんです
strtoint(point^)
> 最後にString型よりPAnsiCharの方がいいとおっしゃってましたが
PChar より PAnsiChar がいい、という理由はないと思うよ
438 ：
デフォルトの名無しさん ：04/02/25 21:54
>>473 でも、PCharだと、Incしたときに、何バイト分ポインタが進むかが、コンパイラに
依存するぞ。
もっとも、現在存在する全てのコンパイラは1バイト単位だけど。
くだらね
>>438 Delphiごときに標準規格なんて無いだろｗ
>>440 そういう神経の持ち主が作ったソフトは使いたくないなｗ
・PChar は 8 ビット文字で構成される，ヌルで終わる文字列へのポインタです。
443 ：
デフォルトの名無しさん ：04/02/26 00:55
＞Char が汎用文字型であり，これはAnsiChar と同じです。Char の実装は変更される
444 ：
デフォルトの名無しさん ：04/02/26 01:00
ま、よってバイト数が固定されることが保証される文字を扱うには、
AnsiChar型、UCS2Char型、UCS4Char型のいずれかを使いなさい、ってこった。
文字列やポインタについても同じ。
String型やPChar型の実装は、コンパイラ依存ですよ
>>442 確実に8ビット文字列のポインタを扱いたければPAnsiCharを使うのが正解。
こんなスレあったんだ…。
> よってバイト数が固定されることが保証される文字を扱うには、
PAnsiChar をつかうんなら、文字列も AnsiString にしておかないとね。
> String型やPChar型の実装は、コンパイラ依存ですよ
>>442 だから PChar が正解なんでは
>>446 質問者っつーか、442が間違いとも取られかねない発言をしているのに対しての意見じゃないの？
>>447 それはケースバイケースでしょう。
少なくとも、例えばフォーマットの固定されたファイルから文字列をコピーする
時なんかは俺はちゃんとAnsiStringにしてるが。
内部で一時的に記憶する文字列は汎用のStringで一応使い分けている。
>>449 あのね、PChar をつかうより PAnsiChar をつかえ、とか偉そうに説教してるのが
いるでしょ。そもそも質問者は型なしポインタをつかってるのよ。なにを指して
るのかわからんけど。だから一般的には、PChar でも PAnsiChar でも正解なんか
ないのよ。
>>444 確実に8ビット文字列のポインタを扱いたければPAnsiCharを使うのが正解。
「確実に8ビット文字列のポインタを扱いたければ」なんて誰もいってないの。
そもそも文字列のポインタかどうかさえ分からないんだから。
あなたがどう使い分けてるかは関係ないの
> そもそも文字列のポインタかどうかさえ分からないんだから。
Delphi.NETへのポータビリティ無視した妄想の議論は無意味だな
> Delphi.NETへのポータビリティ
基本型と汎用型を混同している奴がいるな・・・本当に中級スレ？
なんか話が大げさになってしまってますね（滝汗）
元が文字列なのにはなんか意味あるのか？
>>456 たぶん、ゲームなんかのデータ変更ツールを作ってるんだよ。
で、誰かがどこかに流してるデータを・・・
他プロセスのメモリの内容を読みとるのね。アドレスを絶対値（リテラル）で指定して
WindowsではEXE は同じアドレスにロードされるから大抵は大丈夫。
> WindowsではEXE は同じアドレスにロードされるから大抵は大丈夫。
あっ、そうか、仮想アドレスなのかな
質問です。
UWSCというソフトをご存知でしょうか？↓
http://www.vector.co.jp/soft/win95/util/se115105.html このソフトはマウスやキーボードの動きを記録して
再生することができるんですが
マウスクリックはどうやって実現されているのかがわからないんです。
マウスを動かすことまではできたんですが、よろしくお願いします。
どうやったかは以下のソースのようにしました。
procedure TForm1.Button5Click(Sender: TObject);
var
hCalc: HWND;
Rect: TRect;
begin
hCalc := FindWindow(nil, '電卓');
GetWIndowRect(hCalc,Rect);
SetCursorPos(Rect.Left+23,Rect.Top+79);
sleep(3000);
sendmessageA(hCalc, WM_LBUTTONDOWN, 0, 0);
sleep(10);
sendmessageA(hCalc, WM_LBUTTONUP, 0, 0);
end;
サンプル的に電卓の16進数のラジオボタンをクリックするようにしてみたんです。
なにがだめなんでしょうか？
>>463 procedure TForm1.Button5Click(Sender: TObject);
var
hCalc: HWND;
Rect: TRect;
hButton: HWND; //追加
begin
hCalc := FindWindow(nil, '電卓');
GetWIndowRect(hCalc,Rect);
SetCursorPos(Rect.Left+23,Rect.Top+79);
hButton := WindowFromPoint(Point(Rect.Left+23,Rect.Top+79)); //追加
sleep(3000);
sendmessageA(hButton, WM_LBUTTONDOWN, 0, 0); //修正
sleep(10);
sendmessageA(hButton, WM_LBUTTONUP, 0, 0); //修正
end;
Del用のCodeGuardみたいなツールって無いんでつか？
BoundsCheker買え
>>466 Del用はDel2用以降死滅して居るんだが。
Cheker ですよ？
CodeGuard買ったが、その後、ぜんぜんメンテナンスやらねーんだよな。
完全的
Pascalだけは絶対言い残させないと。
Delphiでアプリのオプション設定のような、フォームを書いているときに、
CM_COLORCHANGED でフックをかければどう？
TAction.OnUpdateに常時監視させるのも手かな
引数にTWinControlとEnabled状態をとる関数作って、それで処理しる
こんな手続きをつくってみた
>>476 さらに脇道にそれるが、
Edit.Color := IfThen(Enabled, clWhite, clBtnFace);
三項演算子がそんなに珍しいのか？
>>472 パネルのEnabled を変更したら自動的に子供も変更されなかったっけ？
作った方のコンポーネントから、親の CM_ENABLEDCHANGEDをフックして処理すればいいんじゃないの？
そうすれば親のコンポーネント（パネル）には手を付けなくていい。
あるいは、逆に非表示コンポーネントを作って、パネルの COLORCHANGED をフックして
乗ってる子コントロールの色を全部変更してしまえば・・・ってのは既に
>>473 が書いてるのかな？
ここでいうフックっていうのは、
WindowProcプロパティを自分のインスタンス内に保存(SaveWindowProc)した上で
自分のメソッドに置き換えて、
自分のメソッド内で ENABLEDCHANGEDなら処理してそれ以外なら SaveWindowProcの方を呼ぶってことね。
で、サブクラスをするコンポーネントを使う時は
（ ﾟДﾟ)ノ Delギコ猫のﾌﾟﾛｸﾞﾗﾐﾝｸﾞ相談室part2
http://piza2.2ch.net/tech/kako/999/999482946.html 928
var WM_DetachProc:Cardinal; をローカル変数として定義し
コンポーネントの初期化部で
initialization
WM_DetachProc := RegisterWindowMessage('WM_SubclassFreeNotify');
end.
とする。
サブクラス解放時にはこのメッセージIDで
WParam,LParam はユニークな値を入れて サブクラス先に送信する
それを受信したWindowProcでは、
この２つの値で送信者が自分かどうか判断し
自分でなければリンクを解放して下位にメッセージを送り
メッセージが帰って来たらリンクを再接続する
送信者が自分ならリンクの解放だけを行う
VCL上のサブクラス取り外し
WParam で selfが渡される WParam = LongInt(self)
LParamは無視してよい サンプルコード
>>922 Win上のサブクラス取り外し
LParamでプロセスID
WParamはプロセス内ユニークな値（メソッドアドレス等それぞれのプロセスで管理）
注意： WM_DetachProc は定数ではないので case では使えない ifで判断する事
いろいろ、どうもです。
>>481 フォームに貼り付けたら、フォーム上の全部のTControlのメッセージフックをして
自分の思うスタイルを実現するっていう非ビジュアルコンポーネントを作れば出来るよ。
仕掛けそのものは簡単だけど、フックしてるから、コンポ設計中につけ外しされた時の処理
（これはパネルやフォームにCM_CONTROLCHANGEとかのメッセージが来る）
をしっかり考えとかないと、IDEが暴走して悲しい事になる。
でも、そこらへんを考えるのが一番面白いよね。
半日くらい調べて結局判らなかったので質問させてください。
追記。
言っていることがよくわかりません。
>>483 つまり、D&Dをサポートしたアプリに、 WM_DROPFILE を自分が送り付けてやりたいという事かな？
でも、WM_DROPFILEだけ送りつけても その後そのアプリがシェル API呼ぶからダメだと
OleDropTargetInterface と WS_EX_ACCEPTFILES で列挙。
DFとか、PyxisやSpringMやCraftDropあたりでしょうか。
>487
ScriptControl (ActiveX)使って自分のアプリをスクリプトにいじらせたいんだけど、
あ、追記。
>>490 VBが フォームそのまま使えるのはVBのフォームがIDispatch持ってるから
Delphiでは そのままという訳にはゆかない。
>>492 O.K!じゃあ、さっそくIDispatchとやらをForm1につけてやろう。
type
TForm1 = class(TForm, IDispatch)
・・・・
コンパイル通った。Goooood!!!
よっしゃ、さっそくいじくりまわしてやるぜ!
とりあえず
Form1.Caption = "test"
↓
エラー：
このオブジェクトではサポートされていない操作です Form1.Caption
ヽ(`Д´)ﾉ
'test'
>>494 いや、上のコードはScriptControl上のVBScriptに書いてるコードだから、
文字列のリテラルは "test" でいいのよ。
(正確に言うと、Memo1.textに書いているVBScriptのコードを
ScriptControl.ExecuteStatementに引き渡している。
説明不足でした。すんません)
あといろいろいじってみたんだけど、
どうやら AddObjectで渡された'Form1'は何者か知らないけど、オブジェクトなんだろう
ということは認識しているらしい。 ScriptControl君は。
いろんなコードを引き渡して観察してみると・・・
Msgbox "test" → OK
Msgbox Form1.Caption → 「このオブジェクトではサポートされていない操作です」
Msgbox hoge.Caption → 「オブジェクトがありません」
というわけで、かろうじて名前は認識しているらしいが、彼にもっとものを教えるにはどうしたら・・
>>495 フォームじゃなくて、オートメーションオブジェクトを渡す
or
IDispatchのメソッドを自力で実装する
Delphi中で、OleVariant経由で操作できるものじゃないと、渡しても意味がない
∧,,∧,,,,,, ） (´⌒(´
⊂ミﾟДﾟ⊂,,,,,,,｀つ≡≡(´⌒;;;≡≡≡
ｽﾞｻﾞｰｰｰｰｰｯ (´⌒(´⌒;;
やってみたんだけど、ものすごい簡単に
アプリにVBScriptが搭載できるんですね。
MsgBoxで出力するのは出来たのですが
この中で計算させた値を
変数に代入するにはどうしたら…？？
Form1.FValueに代入するのも
やっぱり
>>496 の書きこみみたいのを
実装しなきゃだめ？
∧,,∧,,,,,, ） (´⌒(´
⊂ミﾟДﾟ⊂,,,,,,,｀つ≡≡(´⌒;;;≡≡≡
ｽﾞｻﾞｰｰｰｰｰｯ (´⌒(´⌒;;
http://www.delphidevelopers.com/learnbooks/Scripting_your_Delphi_Application.htm このあたりかニャー
きっと、世界のどこかに コンポーネントを指定したら publishedメンバーがアクセス出来るような IDispatchクラスがあるに違いない。
rubyのApolloやら、DMonkeyが似たようなことやってるから、お前もがんばれ
ライブラリはそろっているので、ソースがあれば D6Personal でも動かせるのだが、
>>499 のページと、あと
http://www.wwlnk.com/boheme/delphi/techdoc/dad0030.html なんか参考にして作ってみた。
ComObjユニットにあるTAutoObjectっていうクラスが、あらかじめIDispatchを実装しているらすぃ。
なので、TAutoObjectと、自分が実装したい機能を持ったインターフェースをくっつけて、
新しいクラスを作ればとりあえずOK?みたいな?
uses にComObjを追加
IExposingObjectsDemo = interface
function Get_Age: Integer;
function Get_Name: OleVariant;
procedure Set_Age(Value: Integer);
procedure Set_Name(Value: OleVariant);
end;
TExposingObjectsDemo = class(TAutoObject, IExposingObjectsDemo)
function Get_Age: Integer;
function Get_Name: OleVariant;
procedure Set_Age(Value: Integer);
procedure Set_Name(Value: OleVariant);
end;
続く・・
で、あとは
>>499 に書いてあるのを多少自分の環境にあうように改変して実行！！
→エラー：
TExposingObjectsDemo クラスの オブジェクトファクトリがありません
(・∀・) ﾀﾞﾒﾎﾟ!!
むずかしいなあ・・・それにしても、COMってググりづらくねえすか？
>>501 それかっこいいよ。アッツいよ。
最終目標はそういうコンポの作成だな。
>>502 Apolloいじってみた。
すげーよ！まさにコレやりたかったんだよぅ。
Apolloのソースで勉強するかぁ
>>503 ええ、動くソースさえあれば、壊しながら勉強しますとも
サンプルくれるの? (ﾟ-ﾟ ) ←期待でいっぱいの目
>>504 まず、タイプライブラリが必要
ほら、ActiveXを読み込むと xxx_TLB.pas が出来るでしょ？アレ。 アレを真似する。
interfaceで公開したいのと同じ名前の dispinterface を作る。で、それに dispid を付けてゆく。
これが無いと、外部からメソッド名が判らないでしょ？
あと、メソッドはsafecallにするのと GUIDを付ける GUIDはinterfaceと dispinterface で同じにする
>>505 ＞ExposingObjectsDemo クラスの オブジェクトファクトリがありません
initialization
TAutoObjectFactory.Create(ComServer, TExposingObjectsDemo, CLASS_xx, ciInternal);
なんてのを書けってエラーだと思うよ
http://www.wwlnk.com/boheme/delphi/techdoc/dad0080.html ここの サーバーアプリケーションのコード を参考に
>COMってググりづらくねえすか？
>>505 >>501 の方向がやりたいなら、TAutoObjectを使わず IDispatchを自前でサポートする必要があると思うぞ
>>507 COMは一般的な単語のため検索には使われません。
と言う恐ろしいwarningを出してくれる。
COMとか.NETとか…なんか恨みでもあるんか。
511 ：
デフォルトの名無しさん ：04/03/13 21:36
delphi5でプログラム開発しているんですが
>>511 Del6でやってましたが止めてるスレッド以外は動いてたりして結局ややこしくなります。
>>510 ネットでの検索をしにくくして書籍を買わそうという魂胆
とか言ってみる
>>512 やっぱりスレッドのデバッグは、ムリみたいですね。
（ブレークポイントで停止しても、delphi自体がハングします）
そこで一時的にスレッドのユニットをシングルのユニットにしたら、
ちゃんとデバッグできました。
そうするとスレッドのユニットにはあまり複雑な処理を記述せず、
ほとんどのロジックを普通のユニットとして作成して
スレッドのユニットはそれらのユニットを呼び出すだけの処理に
する必要がありますね。
>>514 ひょっとしてDirectX使ってたりしてる？
NT系だとマルチスレッドのデバッグでも問題なかったと思うけど、
>>515 DirectXは使ってません。
pradoxのデータベースを使っています。
ｏｓはＸＰを使ってます。
原因は結局、０での割り算だったんですが、マルチスレッドのままで
デバッグしようとすると、ブレークポイントで停止しても、delphiがハングアップして
しまいます。そして、普通アプリがハングしてもＸＰ自体の再立ち上げは不要なんですが
このdelphiのハングアップの場合は、もう一切の操作をＸＰが受付なくなります。
再立ち上げしか方法がない、でもアプリでこんな目に会ったのは何年もＸＰ使っているけど
初めてです。
また何回かはブレークポイントで停止し、ハングするのが一定の箇所でなかったため
マルチスレッドのままデバッグしようとしてまる２日も原因究明にかかりました。
（疲れた）
>>511 FAQ
詳細なテキストサービスをオフに汁
>>517 て言うかスレッドで発生する未キャッチの例外ってたまに通知してくれない気がする。
521 ：
デフォルトの名無しさん ：04/03/14 21:15
質問です。
EnumWindowsで取得したウィンドウに手当たり次第WM_MINIMIZE送りつけるとか。
>>522 タスクバー(appbar)的なプログラムをDelphiで書いていて、ユーザが[Win] + [M]を押しても
巻き添えにならない方法を探しているんです。
拡張子scfを持つテンポラリファイルを作って、
>>525 appbarにはしてます。
でもアレってTApplication.Handleを設定するのが筋っぽいですよね。
で、このリンクだと思うのでちょっと呼んでみます。
>>523 釣りと思いつつ、そんなことやっていたら、Winではなくなるだろうが。
変なの
>>527 多くのランチャはタスクバーからの整列や最小化などには追随しないようにできている。
ちゃんとした Windows の作法がある。それが AppBar アプリ。
>>527 タスクバーはWindowsアプリではないってこったな。タダのcoolbarなんだけれど。
Winの作法、Macの作法それを守れないなら、プログラム作るなよ。
>>528 いくつかの優秀なグラフィックソフトやオーディオシーケンサを否定する発言ですね。
Macの作法をWinに持ち込んでいるから？
>>531 君は集合論や論理学の初歩をしらないの。
ある機能を実現する正式な方法ある、と主張しているのが 528 だろ。
それ以外の方法では駄目とはいってないだろ？
>>533 自分を正当化するのに多大な労力をかけるより、素直に引っ込むなり謝るなりした方が
コストパフォーマンスは高いと思うが。
なぜだか一人熱くなってるイタイやつがいるな。５２７はなにをいいたいんだろう？
>>536 そうだよ。お前はMACにでも逝けば？
何、おまけにdelで作ってる？言語道断だな！
あっ、そういう人なんだぁ。
すみません、Macにはdelのような高価なコンパイラ無いからな。
すみません、ちょっとオフトピですが、まじめに....
CodeWarrierかね？ C++もPascalも使える。しかもクロスプラットフォーム。
>>541 ありがとう。ちょっと興味がでてきました。５３９によるとタダでついてくるんだよね。
>>542 使えないとか言うよな。
インタフェースビルダーくらいは憑いて来るが、がんばれよ。
はい、すこし調べてみます。ありがとう
MACでタダで使える開発環境・・・
Windows の AppBar について。
面倒くさいのでVC++で組み直すことにしました。
Win32APIをコールするアルゴリズムを教えてください。
VC++ だと面倒くさくないの？ Delphi の方がずっと簡単だと思うが。
>>549 そう言う変な動きに対しての気遣いが少なくて済む。
メイン画面はDCが一枚あればいいので大して難易度は上がりません。
やっと規制解除さえた(´ω`)=3
>>521 WM_WINDOWPOSCHANGING見れ。
Win+M, +Dは最小化ではなくて画面外にウィンドウを移動させてる。
>>551 ありがたいです。
しかしながら、挫折して云年、久々に触るVC++はなんともわかりやすく、コレで一度戦ってみようと思います。
ダイアログベースにするだけでCTRL + M対策ができたりとか素直なので。
画面外に移動は良いんですがタスクバーのボタンで元の位置に戻るってのはWindowsさんが
親切でやってくれるんでしょうか。
>>551 イベントは取れるようになりましたがWin+Mに対して踏みとどまれません。
LParamのポインタに対してごにょごにょしたりMoveWindowを呼んでも消えてなくなりやがります。
ダイアログベースにしたらいけるなら、Delphiでダイアログアプリに・・・まあ素直にVC++かな
みんなデータベースは使わないんだね…
Delphiのユーザでお仕事モードの人は少ないんじゃないの？
>>556 知り合いの会社はAccessを使ってるらしいよ。
UIの自由度やら配布のしやすさを考えるとDelphiの方に分があるのは明らかなんだけどね。
大きな会社ほどM$製じゃなきゃ駄目なんだと思うと少し気の毒な気もする。
VS.NETでもあんまり状況は良くなってないし…
（DB用の部品を「買えば」いいらしいけど）
> 大きな会社ほどM$製じゃなきゃ駄目なんだと思うと少し気の毒な気もする。
単純にその会社のデファクトスタンダードがMSと言うだけだと思われ。
氏ね
自作フリーソフトのメインのpasが、13000行を突破･･･。
そろそろ機能分割すべきでしょうね。
>いや、それで間に合ってるんならそれでいいのでは？
> 結局、VBAで開発するわけです。
VBAの方が
そう思わないひとの方がおおいし、それで間に合ってるならいいのでは？
どうしてもDelphiでつくりたいならつくればいいんだし。
>>557 のように
気の毒に思うのはどうか、ということから始まっているんだよ。
┐(´ー｀)┌
ごちゃごちゃの基準も曖昧だしな。
おれがマサヨシだ。
> まぁ、他人のコードバカにする暇があったら満足度の高い成果物を作れと。それが正義だ。
"自己"満足度
> "自己"満足度
574 ：
デフォルトの名無しさん ：04/03/19 07:11
以下をMMX で高速化できないものでしょうか？
procedure TForm1.MMXDraw(cY1,cY2,m:integer);
塗り潰しのように大量のメモリアクセスの発生する処理は、あんまり速くならないよ。
prefetchしとけ
塗り潰しだから読み込みはしていない。 書込みの前にフェッチしたら、余計に遅くなるわな
579 ：
デフォルトの名無しさん ：04/03/19 10:02
スプライト高速化に使えるらしいよ＞MMX
>>574-575 ループの中で２次元配列の同じ要素へ[]を使って何度もアクセスするのをやめてポインタを使うようにしたり，
ピクセルをRGB個別ではなく一括で転送すれば多少は速度が上がるようです（一応実験しました）．
今回のコードをCPUウィンドウをのぞいてみたら
１バイトを転送するための処理が非常に長いばかりか毎回Push/Popしていました．
>>576 delphiの場合、Pentium3やPentium4では、確実に早くなるぞ。
なぜかというと、P3以後ではフェッチされるバス幅、
および、ライトコンバイニングバッファが３２ビット(＝４バイト)ではなく、
３２バイト単位(P4では６４バイト)なので、使用するデータ幅が大きいほど、
バス効率が上がるから、CPUのロードバッファ、ストアバッファの負担が下がる為。
P4以後でSSE2命令のレイテンシがMMX命令より悪くても、
MMXより高速化できる場合があるのはこの為。
プリフェッチもひとつの手段だが、CPUごとにプリフェッチの時間距離計算を
変える必要が出たり、色々不定要素が絡むので難しいぞ。
582 ：
デフォルトの名無しさん ：04/03/24 13:12
>>581 よく読んでやれよ
塗る場所が広ければと書いてる つまりはキャッシュが溢れたら メモリ書込速度のみに調速される。
それから、 プリフェッチについては
>>578
ようしらんけど書き込みって一次キャッシュ経由じゃないの?
1バイトづつ書いたら、読み出しサイクルがタマに発生するんじゃないのか
復旧記念パピコ
Y < 0
おまいが何をしたいのかがさっぱり解からん
高速化のため、ループ無しで C を求めたいのですよ。
確かにＣが何なのかの説明がないとｻﾊﾟｰﾘですね．
説明不足でした。
方程式たてればいいじゃない
>>592 そのやり方は理解できませんでした。
で、結局591を手直ししてできました。
C = ループ回数
DX * (-Y - 1) = 最後のifブロック実行前のSの増加分
DY * C = 最後のifブロック実行前のSの減少分
S + DX * (-Y - 1) - DY * C < 0
C > (S + DX * (-Y - 1)) / DY
を満たす、最小の正の整数 C を求める。
(S + DX * (-Y - 1)) を A に置き換えると、
C > A / DY になる。
C := A div DY + 1;
となるので、
C := (S + DX * (-Y - 1)) div DY + 1;
また質問です。
>>594 function hoge(C,DX,DY: Integer):Integer;
var
p,r: Integer;
begin
Result := S;
r := C;
if r = 0 then exit;
Dec(Result,DY);
Dec(r);
p := Result div (DX
if p = 0 then
Dec(Result,DY*
else
begin
Dec(Result,(D
Dec(Result,DY*(r
end;
end;
>595
どの辺が「ｳﾞｧｶ」なのかすら、解らない…
>595
まぁ 594 あたりが「中級者」ではないことはよくわかった。
>>599 (DX や DY* の意味が解らなくてすみません。
for I := 0 to C - 1 do
begin
Dec(S, DY);
if S < 0 then Inc(S, DX);
end;
↓
for I := 0 to C - 1 do
Dec(S, DY);
for I := 0 to C - 1 do
if S < 0 then Inc(S, DX);
が言えたらいいのですけど。
if S < 0 then が無ければ分割できるのですけど。
for I := 0 to C - 1 do
begin
Dec(S, DY);
Inc(S, DX);
end;
i:1..C 番目迄に何度 Inc(S, DX) が実行されたかを K[i] とする
Del6EntでTADODataSeを使ってるんですが、Nextメソッドが異常に遅いです。
つまり、一度でもS<0になったらループ終了後のSの値は 0<=S<DX になるって事か。
605 ：
デフォルトの名無しさん ：04/04/17 02:25
質問です。
再コンパイルが速いから気にしない。
それほどディレクトリを複雑にしていないなら dcc32 -Uコンポーネントフォルダ hoge.dpr で作成出来ると思う
609 ：
デフォルトの名無しさん ：04/04/17 16:17
>>605 IDEではできない。
makeかなんか使うしかない。
wantってのもある。
俺はantを使ってる。
フォローどうもです。>>皆様
>日本語版だと謎のエラーが出るとか
もう少し、詳細を。D7 Pro?
「日本語版だと謎のエラーが出る」ってことかな？
616 ：
デフォルトの名無しさん ：04/04/22 08:04
TClientDataSetをオンメモリDB(MyBase)として使っている方います？
618 ：
デフォルトの名無しさん ：04/04/23 17:28
DelForExpソースフォーマッタを使ってみて、
ttp://www.dow.wau.nl/aew/DelForExp.html 日本語環境でフォームの大きさがくずれるので、Del7でビルドしようと思ったのですが、
ExpIntf.pasが見つからないって言われ、Buildできません。
これって、標準のモジュールなんでしょうか。
Del用ウィザード作るのに使うやつみたいなので、当然Borland謹製のものだと思うんですが...
そのページのトップに
この Expert は DLL で作っているのか。
>>620 あれ、うちではみつかりません。
あれ、D7Proをデフォルトインスコなんですが、
標準では入らないのかなぁ。
V:\usr\delphi7\Source\ToolsAPI のディレクトリ
2002/09/06 16:00 7,363 ClxDesignWindows.pas
2002/09/06 16:00 24,764 ClxEditors.pas
2002/09/06 16:00 7,904 ClxSprigs.pas
2002/09/06 16:00 1,949 DesignConst.pas
2002/09/06 16:00 90,411 DesignEditors.pas
2002/09/06 16:00 48,713 DesignIntf.pas
2002/09/06 16:00 5,057 DesignMenus.pas
2002/09/06 16:00 6,460 DesignWindows.pas
2002/09/06 16:00 14,609 PropertyCategories.pas
2002/09/06 16:00 164,917 ToolsAPI.pas
2002/09/06 16:00 70,674 TreeIntf.pas
2002/09/06 16:00 45,121 VCLEditors.pas
2002/09/06 16:00 7,812 VCLSprigs.pas
2002/09/06 16:00 3,539 VcsIntf.pas
んー。
622 ：
デフォルトの名無しさん ：04/04/27 01:33
Del5で使いやすいシリアル通信コンポってないですかね？
>>621 D7 Pro には無いね。なんでこれを抜いたんだろう..
Delphiには期待していないのでどうでもいい。
626 ：
デフォルトの名無しさん ：04/04/27 11:11
すんませ～ん！！
627 ：
デフォルトの名無しさん ：04/04/27 11:22
追加で、なんですけど。
マルチ
Delphi8 → for .NET Framework
まぁ、知らないから買った、とも言える。（藁
１０１人目のユーザですか？
632 ：
デフォルトの名無しさん ：04/04/27 11:38
>>629 いや知らないわけではないんですけど。
都合上最新モデルでプログラムを改良せよとの命令が下りましてねｔ
で、どうなんでしょう？共存させちゃっていいんでしょうか？
633 ：
デフォルトの名無しさん ：04/04/27 12:04
>>629 普通のWin32用のプログラムが作りたきゃDelphi7つかえってことですかい？
そゆこと
635 ：
デフォルトの名無しさん ：04/04/27 12:14
どうなんだろDelphi5とDelphi6いっしょにしたときはむちゃくちゃに
＞Delphi5とDelphi6いっしょにしたときはむちゃくちゃに
637 ：
デフォルトの名無しさん ：04/04/27 12:19
ん？なんか設定ファイルがかぶらなかったかい？
>ん？なんか設定ファイルがかぶらなかったかい？
639 ：
デフォルトの名無しさん ：04/04/27 12:24
追加。
641 ：
デフォルトの名無しさん ：04/04/27 12:26
えーと、どこで聞いた話かもう忘れたけど、
> 世の中にはいろんな人がいる。ということで。
644 ：
デフォルトの名無しさん ：04/04/27 20:30
ﾃﾞﾙﾌｨｱﾝサイコ－でしょ
マジシャンテンコーでしょ
646 ：
デフォルトの名無しさん ：04/04/28 10:21
StrToDateTimeだと、OSのロケールに影響を受けてしまいます。
647 ：
デフォルトの名無しさん ：04/04/28 10:31
日付表現は原則ロケール依存なので、何か書式を決めないと。
648 ：
デフォルトの名無しさん ：04/04/28 11:19
で、
649 ：
デフォルトの名無しさん ：04/04/28 12:57
厳密には無いです。
650 ：
デフォルトの名無しさん ：04/04/28 13:01
D7 にはあるが。
652 ：
デフォルトの名無しさん ：04/04/28 13:05
>>651 本当ですね、D7はオーバーロードしてますね。
BCB6には無い...
で、
ShortDateFormatを変更すれば？
655 ：
デフォルトの名無しさん ：04/04/28 18:43
System or Windowsユニットに数値->文字列変換する手続きか関数ありますか？
>>655 SystemにStr手続きがあります。
え？君ﾃﾞﾙﾌｨｱﾝ？ もうサイコ－でしょ
このスレもう要らないのでは
Variant型にNullを入れたいんだけどDelphi7じゃ入らないんだよね
Unassinged （バリアント）これか！！
Variant変数 := UnAssingedでＯｋ？
どうせバリアントなんだろ
Nullを入れるときVariantは便利だな。
質問です。
668 ：
デフォルトの名無しさん ：04/05/01 13:31
あげときます
見てみましたが・・・。
引数の渡し方について、ちょっと教えてください。
video for windowsの定義：
function AVIMakeCompressedStream(
var ppsCompressed : PAVISTREAM;
ppsSource : PAVISTREAM;
lpOptions : PAVICOMPRESSOPTIONS;
pclsidHandler : PCLSID
): HResult; stdcall; external AVIFILDLL;
呼び出し：
SourceStream, DestStream: PAVIStream;
opt: TAVICOMPRESSOPTIONS;
if AVIMakeCompressedStream(DestStream, SourceStream, @opt, nil) <> AVIERR_OK then exit;
手本にしたCソース：
AVICOMPRESSOPTIONS opt;
PAVISTREAM pstm,ptmp;
if (AVIMakeCompressedStream(&ptmp,pstm,&opt,NULL)!=AVIERR_OK) return 0;
-----
DelphiからのAVIMakeCompressedStream関数の呼び出しが実行時にエラーに
なるんですが、どうしてでしょう？ 最初の引数に問題があると思うんですが？
ちなみに、以下のページで何か言ってるようだけど、英語わからん。
ttp://www.experts-exchange.com/Programming/Programming_Languages/Delphi/Q_10246460.html よろしくお願いします。
>>672 何でか分からないが、キャストする必要があるみたいだった。
AVIMakeCompressedStream(DestStream, SourceStream,
PAVICOMPRESSOPTIONS(@opt), nil)
> 何でか分からないが
675 ：
デフォルトの名無しさん ：04/05/02 23:24
@opt は ^TAVICOMPRESSOPTIONS 型なの？
定義はこうなってる。
アドレスが変わるはず無い、はず。
そもそも型が違えばコンパイラエラーになる。
679 ：
デフォルトの名無しさん ：04/05/05 03:05
Indy9使っているんですけど
ソース見て。
>680
>>681 ステップ実行するとどこがバグってるのかよくわかるよ。
勉強だと思って追ってごらん。
フィールドが通貨項目だった場合、DBGrid に表示させると \1,000 と表示されますが、
意味不明
Format関数つかえば？
誤爆でした。スマソ。
VB の DSUM 関数みたいなことをやるにはどうしたらいいでしょうか？
例外エラーのエラーメッセージを取り込みたいのですがどうすればいいでしょうか？
>>687 > VB にできるんだから、Delphi にできないはずはないと思うんですが・・・。
愉快なご意見。
ＣでできるんだからＤｅｌｐｈｉにできないはずはないと思うんですが・・・。
691 ：
デフォルトの名無しさん ：04/05/07 05:20
E.Message
Delphi は VB 以下ですか・・・
function DSUM(const FieldName: String; AQuery:TQuery):Int64;
ありがとうございます。
695 ：
デフォルトの名無しさん ：04/05/07 13:43
うちではアップデートしてもエラーは何もでてないよ。
698 ：
デフォルトの名無しさん ：04/05/07 13:54
>>696 それは素晴らしい。漏れもやってみようかな・・・
D8 付属の D7 は大丈夫。
700 ：
デフォルトの名無しさん ：04/05/07 14:01
700get
>699
テストミスか製品管理ミスか。
D8の付属版D7って以前のと全く同じじゃんグルァ
同じじゃなかった。ってことでしょ？
そこら中の人々
706 ：
デフォルトの名無しさん ：04/05/07 15:51
>>699 ニュースソースはどこよ？
Updateしてみたが、バージョン上がらないのは確か・・・欝死
>691
>>703 D7インスコして環境構築し終わった時点で、D8付属のCDの方は番号が1あがってるのに気づいた。
が、なんか入れなおすのが怖いのとマンドクサイので放置...してたのにーーー。
710 ：
デフォルトの名無しさん ：04/05/11 11:02
Delphiで、MACのPICTファイルを扱えますか？
扱えます
712 ：
デフォルトの名無しさん ：04/05/11 14:37
MACのPICTファイルには、
どのレベルで扱いたいんだ?
714 ：
デフォルトの名無しさん ：04/05/11 15:05
>ライブラリが欲しいのか、フォーマットが知りたいのか。
質問の内容がはっきりしたところで、Delphi PICT でぐぐって下さいでつ。
ググっても、PICTのライブラリは無さそうですね。
susie
Delphi PICT でぐぐると、先頭にPICT→Jpeg変換の質問がでてくる。
>>718 日本語ページの検索だとそうなるけど、その次のサイトが・・・。
susieのコンポーネント調べましたが、
>>722 一部抜き出したので、これで勘弁。
procedure TSPI.GetBitmap(ms: TMemoryStream; bm: TBitmap);
var
hBmpInfo, hBitmap: HLOCAL;
pBmpInfo, pBitmap: Pointer;
BmpInfo: PBitmapInfo;
begin
GetPicture(ms.Memory, ms.Size, 1, hBmpInfo, hBitmap, nil, 0);
pBmpInfo := GlobalLock(hBmpInfo);
pBitmap := GlobalLock(hBitmap);
BmpInfo := pBmpInfo;
bm.Width := BmpInfo^.bmiHeader.biWidth;
bm.Height := BmpInfo^.bmiHeader.biHeight;
SetDiBits(bm.Canvas.Handle, bm.Handle, 0, BmpInfo^.bmiHeader.biHeight, pBitmap, BmpInfo^, DIB_RGB_COLORS );
GlobalUnlock(hBmpInfo);
GlobalUnlock(hBitmap);
GlobalFree(hBmpInfo);
GlobalFree(hBitmap);
end;
何言ってんだ・・・？
>725
susie で検索して出てきた別の奴にもソースついてた。
と思ったらあったよ。ゴミレスすまん。
Susieプラグ印がそんなにDelphiに普通に繋がる良質なインターフェースとは思わなかった。
730 ：
デフォルトの名無しさん ：04/05/12 22:08
会社には開発ツール（デル）が無い。
731 ：
デフォルトの名無しさん ：04/05/12 22:10
業務上横領age
732 ：
デフォルトの名無しさん ：04/05/12 22:44
「その業務用プログラムを、開発環境フリーなC#に移植して使う」
道具の持ち込み如何にかかわらず、
734 ：
デフォルトの名無しさん ：04/05/12 23:25
こういう場合、作者が会社に著作権を渡すことは
735 ：
デフォルトの名無しさん ：04/05/12 23:32
>>730 著作権法第１５条の２
「法人その他使用者の発意に基づきその法人等の業務に従事する者が職務上作成するプログラムの著作物の著作者は、その作成の時における契約、勤務規則その他に別段の定めがない限り、その法人とする」
736 ：
デフォルトの名無しさん ：04/05/13 04:51
業務プログラムなら会社から給料と
仕事中に書いたんならダメだろ･･･
>>729 プラグインのインターフェースが良いわけでもDelphiが賢いわけでもない。
DelphiでDLLを利用する、それだけの話。
Susieプラグインコンポを使えば簡単に扱えますね．
自分のプログラムから自己解凍形式のファイルを出力というか
742 ：
デフォルトの名無しさん ：04/05/14 06:54
著作権についていろいろ意見ありがとうございました。
>723
これだと、中身がビットマップのPICTしかサポートできない。
712は扱いやすい物と扱いにくい物の両方が可能か聞いているが、これは前者のみ。
本来PICTはWindowsのWMFに相当するフォーマットで、QuickDraw(Win32のGDIに相当)描画命令全般の記録ができる。
所がMacにはBMPに対応するフォーマットが無いので、ビットマップ画像もPICTを使って保存されている。
Susieは前者しかサポートしていない。
もしもすべてのPICTのサポートが必要であれば、QuickTimeのイメージインポーターに対応するのが確実。
これはAppleが作っていて、QuickDrawの命令をフルサポートしている。
ヘッダは下記から取得できる。
ttp://www.delphi-jedi.org/TEAM_QTM_HOME:347231 ∫,,,,,,,,,∧,,∧ そういうことを
About Delph は更新が止まってるらしくて
更新が止まっているんじゃなくて、１０００毎に追加されることになってる
て言うか、
>>730 みたいなことされたら、すげー迷惑だよ。
>>730 がいなくなったら誰が保守するんだ ?
ていうか、保守出来ないならはじめから著作権主張するなよ。
また、話の流れが読めてないヴァカがきたよ...。
LightReport2 を使っています。
「でつ」を使う香具師には、なんだか教えても無駄になるような気がして
よろしくお願いします。
754 ：
デフォルトの名無しさん ：04/05/19 12:49
Turn := First;
> もっと賢い方法がないですかね。
>>755 お前が無能なのはわかったからだまっとけ
「もっと賢い方法」があると思ってる時点でアウト
イベントドリブンなアプリのメインルーチンはメッセージループ
>>754 別にPlayerに代入する必要なくないか？
760 ：
デフォルトの名無しさん ：04/05/19 16:19
PICTファイルを描画するためにJQTComponent_Demoをダウソしてデモを実行しましたが、
QuickTime をインストールしたら動作しました。
DLLだけじゃ動作しないみたい。
>>760 配布しちゃダメだと思う。
つーか、それ以上はスレ違いになりそうな予感。
>>740 流れを読む以前にスレをよく読んでいなかったようで…＿|￣|○…失礼しました．
ところでエンプラ以外で英語環境でも動くアプリを作る場合，どうすればいいのでしょうか．
うちのD5ProにあるリソースDLLウィザードはいまいちよくわかりません．
（ウィザードがはき出したRCファイルはコンパイルしようとするとエラーになりました）
これを使わないとなると
自分で日本語と英語の文字列リソースからリソースDLLを作って
私の頭では実行時に必要な方を読み込む方法ぐらいしか思い浮かびませんでしたが，
私のウィザードの使い方が悪いのでしょうか．またもっとスマートな解決方法はありますでしょうか．
…と思ったらリソースDLLウィザードで作れました．
ななしへたぐらまさん、今日は名前どおりみたいだね
フォームに貼り付けたボタンを矢印キーで動作を変えたいのですが、
追記
フォーカス遷移は、メッセージ処理より低レベルなメッセージループのなかで
>>768 ボタンコントロールは矢印キーを受け取らないので、代わりにフォーム側で
CM_DIALOGKEY を捕まえたらどう?
カスタムコンポーネントで矢印キーを受け取りたい場合は WM_GETDLGCODE を
捕まえて、Result に DLGC_WANTARROWS を追加してやる必要がある。
フォーカスの移動も PostMessage を使うと割り込みが入る可能性があるので、
該当コントロールの親の FindNextControl で次のコントロールを特定して、
フォームの FocusControl を呼ぶ方がいいと思う。
CM_DIALOGKEY でどうかな。
フォーカスがボタンにあるときにその親であるフォームに CM_DIALOGKEY メッセージ
VCLがそういう設計だから
パネルにのってたらパネルにくるの？
メインフォームで全てのメッセージを処理しる
パネルにはこない
>カスタムコンポーネントで矢印キーを受け取りたい場合は WM_GETDLGCODE を
ファイルの削除などの際に表示される(コモン？)ダイアログの
>>780 shell32.dll の中にあるけど、これを変更するのはやめるべきだと思う。
というか何のためにそうしたいの?
コモンダイアログの「コモン」の意味について考えてみる
783 ：
デフォルトの名無しさん ：04/05/24 22:45
DBExpress + DataAccess + DBGrid を使ってデータを更新しようと
784 ：
デフォルトの名無しさん ：04/05/24 23:13
>783
785 ：
デフォルトの名無しさん ：04/05/25 10:30
巨大なデータを移し替えるとき、
> LoadFromStreamってリソースエラーをおこすときってありますよね？
メモリを「巨大なデータ」サイズの１０倍くらい積んだらいい
Delphiもだんだん高級な使い方の質問が増えてきたな
789 ：
デフォルトの名無しさん ：04/05/25 11:25
さらに良くわからないのが、Syncronizedするとエラーが出なくなります。
> Syncronizedするとエラーが出なくなります。
なるほど、何が起きてるか、感覚的に分かったような。
>>791 IndyのHTTP受信コンポーネント使ってて、
受信時にスレッドが生成されその中で
ストリームの移し替えで画像変換を行ってます。
画像コンポーネントがスレッドセーフじゃないのかも。
それと、メインスレッドが関係してるかも知れないと思ったのが、
大した処理じゃないとき、
マウスで画面動かしたときに同様の現象が起きたときがあったので、
メインスレッドと画像変換スレッドが競合してるのかも。。。
メインいじってるときにメインのものを他からつつくな
>>793 重要な感じは受けるのですが、今ひとつ意味が分かりません。
噛み砕いて教えて下ちい。
今回の回避策は、
スレッドセーフじゃなさそうな部分をSyncronizedで回避、
と納得しとけば良いのかなぁ。
グラフィックコンポーネントはネットで落としたソースでつ。
796 ：
デフォルトの名無しさん ：04/05/25 18:08
>>795 トランザクションは使っていないです。使わなきゃダメですか？
ちなみに、Delphi6pro + InterBase6 では トランザクションを
使わなくても出来ました。プロパティに違いが何かあるのかな？
下ちい。 でつ。 ＜ バカっぽくておしえたくねぇー
798 ：
デフォルトの名無しさん ：04/05/25 20:55
Delphi6でXML読み書きするサンプルってないですか?
>>796 漏れは
>>795 じゃないけど、データベースに対して
変更処理をしたら、直後に必ず明示的に
Transaction.Commitしたほうがいいですよ。
とくにサーバで複数のクライアントがアクセス
するような場合、commitしないと、他のクライアントで
変更がなかなか反映されない。
それと、例外処理でRollBackも。
800 ：
デフォルトの名無しさん ：04/05/25 23:42
>>799 とりあえず、テストで開発していたのでまだトランザクションをかけていなかったのです。
それと、解決しました。
TSQLTable,TSQLDataSet だと上手くいき、TSQLQueryだとダメでした。
なのでTSQLDataSetを採用していきたいと思います。
まだ、Delphi8の製品登録をしていないので、Update2はやっていないです。
明日、製品登録をしてから、もう一度チャレンジしてみようかと思います。
他の方で、TSQLQuery でBLOB Subtype 1 を 更新できた方がいらっしゃったら
教えてください。
あぁ。疲れた。やっと、次へ進めそうです。それにしても、Delphi8は良く落ちる。
ここまでくるのに５回落ちた。
Delphiで作ったEXEファイルをバイナリエディッタで開いてみると
Del厨ってXMLもろくに使えないんですね。失望しました。VB.NETを使うことにします。さようなら。
エディッタ･･･？
>>803 「失望しました。」
なにを期待してたんだか・・・・（ｗ
浅ましい乞食ですね。
>>805 >803はGoogleも知らない、自分で探すことすらできないアマチュアなんだよ。
たまにいるから仕方がない。
こいつはVB.NETを使ってもまあこの程度なんだろうな。
まぁ、そこで、C# にいかず、VB.NET に言ってしまうあたりが自らの
まぁ、Del7以前にとどまったり、Ｄ８に走るよりは何倍もましだが
Del5使いなんですが、Win32のアプリっていつまで使えますか？
自分で調べる
812 ：
デフォルトの名無しさん ：04/05/27 17:02
日本語版で作ったアプリをWindows英語版で実行すると、
Scaledをfalseにすると何とか大丈夫ですが、
>>809 いまだにWin16のアプリがとりあえずといえども動作している現状から類推しる。
> いまだにWin16のアプリがとりあえずといえども動作している現状から類推しる。
ゲイシにメールでも撃てや。
>>809 この先10年は確実に現役。
Longhornが出たからと言ってもWin2k/XPから積極的に移行する理由もないし、
Win95時代と違って古いPCだからといってそれほど困る事もないからPCの買い換え需要は伸びないかと
> この先10年は確実に現役。
８１８は自分の書いたことを日付とともにしっかり覚えておくように。
821 ：
デフォルトの名無しさん ：04/05/28 15:23
>>818 Longhorn・・・２年後＋α＝３年後？
XP・・・Longhorn登場直前に買えば、３～５年は使用
８年は確実の予感
あのね、Windows95 が出た時点で Windows3.1 専用開発環境は引退。
>>821 のような数え方なら、いまならまだ Delphi1 が現役。そういう意味ならＯＫ。
つくったもののユーザが自分だけならね。
つくったものが動作する = 現役
>>822 Win32アプリはいつまで使えるかっていう話じゃないの？
> Windows95 が出た時点で Windows3.1 専用開発環境は引退。
っていう理屈が、どうも分からん
>>823 素人さんでつか？
公開ソフトなんて関係ない
企業内で業務に使われているソフトが動いている間＝現役
マイクロソフトが未だにNTやWIN98を切れない理由も、その辺りにある
使えるかって話と、実際に使う人がいるのか、って話はぜんぜん別なのね。
3.1→95とWin32→WinFXは大分状況が異なるだろ。
オマエラ、スレ違いですよ
>> マイクロソフトが未だにNTやWIN98を切れない理由
玄人さんは、過去むけでがんばってくださいね。
>>821 のような数え方で
８年後も Del5 を使って仕事してるようじゃ、つらいものがあるね。
そのころ Del5-7 つかって遊んでる素人さんは一桁もいないと思うよ。
> Longhornってなにかこれといったメリットあるのか？
>>826 だからさ、個人ユーザーがどうしようと関係ないの
メーカーが気にしているのは、企業ユーザー
>>827 なんて上司に言われちゃったら反論できないだろ＞826
パソコンは時間とともに確実に壊れて、新規の需要が生まれる。
> 個人ユーザーがどうしようと関係ないの
>>832 ゆっくりっと代替わりしていくんでないの？
>>833 アマチュアが支えてこなかったから、某に見捨てられたんだろ
新しいバージョン出ても買い換えない。ケチ臭いDel 使いが多いからさ
> アマチュアが支えてこなかったから、某に見捨てられたんだろ
> ゆっくりっと代替わりしていくんでないの？
>>836 > 開発ツールとしては劇的に代替わりすると思うよ。
どうなんだろ？某は、劇的変化を演出したいみたいだけど
Kylix、C#Builder、Delphi8と失敗続き・・・
劇的代替わり＝某倒産。日本撤退？
で、MSの宣伝の影で、WIN32アプリがしぶとく残る。７～８年
> 劇的代替わり＝某倒産。日本撤退？
ロングホーンが出れば、一般ユーザ向けの製品とか、フリーソフトなんかは
>>838 > Delphi はなんとか生き延びてくれないものか
漏れも信者だから、そう願っているが・・・
エンプラ版の出荷量が増えれば、日某も振り向くんだろうけど
現状でも、日某のサポート＝終了っていう感じだからな・・・
これから先は海外のDel 信者と連携して生き残っていくしかない予感
>> MSの宣伝の影で、WIN32アプリがしぶとく残る。７～８年
>> 長角出て１年が限界と見た。
＊＊＊結論＊＊＊
>>843 なんか、もう駄目駄目じゃん＞Delphi
と思ってたけど、まだそんなに長い間使えるのか
宝くじ当選＞D6 Personal（無料）使用者
Delphi6per無料厨はC#Bがソース、バイナリ配布不可だったので行き場を失いますた
ところでDelphi終わったら何使ったらいいの？
JAVA 言語も、C/C++ に比べて、
Delphi しか prog 言語を知らない人間にとって、
>>847 デスクトップ・アプリ開発という意味なら
JAVA・・・速度遅すぎて、デスクトップ・アプリには向かない
DOTNET・・・まだ実験段階。コンポーネントも揃っていない
を考えると、ここ１～２年はノンビリDelphi
＋ちょっとだけDOTNETがお勧め
Delphi 9の出来を見て、DOTNET本格移行を考えるべし
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
去年の1月辺りに、この板のほぼ全てのスレに書かれていた
意味無しコピペの集合を思い出してしまった。
>>815-855 >>856 Delﾌｻｷﾞｺ は中級者なの？ 自称するなら、だれが来ても同じだろ。
>>857 なにを思い出そうと勝手だが、個人的な感慨はスレ違い
８５７は「意味無し」とか思いながら全部読んだみたいだな（藁
さぁ、おもしろくなってまいりました。
談話室スレ逝けよ。
質問！
BDNの賢い歩き方ってある？
>>852 Delphi9？
たしかDelphiって8で打ち止めですよね？
もうPascalコンパイラは作らないとかって某がコメントしてませんでした？
Del7のアップデート、まだ入れてないけど、ヘルプがいきなり使えなくなったりとか
>>866 Code Central玉石混交だね・・・
基本的には、素人さんが多いのかな？
で、こっそりSharewareが混ざっている（ウザ）
アメリカ人が多いが、スペイン語やフランス語も結構ある。
案外、堂々と書いても許される予感＞日本語
もっと日本からの投稿が増えると良いな～
だって、誰でもアップロードできる空間だから。>Code Central
>よいネタには Borland からお金
873 ：
デフォルトの名無しさん ：04/06/01 21:17
質問です。delphiとは無関係になってしまうかもしれませんが、
>>875 オレへのレス？単純にその方が分かりやすいと思っただけだけ。
だけだけって何だよ…。トホホ。
ワトソン博士に怒られてしまいましたとさ。
DelphiにPackage機能（クラス・ライブラリ？）があるって本当？
>>879 ヘルプのキーワードに「パッケージ」といれろやハゲ。
＞どうやって使うの？
激しく意味不明。
使ってねえのか？
てめーでパッケージ作りてえのか？
>>874 >>875 ありがとうございます。
意味もなく、プロジェクトソースにSleep(5000)を入れたら全然でなくなった。
スタートアップに登録して起動/終了を100回やってもワトソン君はでない。
ヨカッタ。
>>880 おお！｢パッケージ｣だとヘルプ出ますね
> てめーでパッケージ作りてえのか？
はい。コンポーネントの入れ物じゃなくて、
Javaみたいに、Unitを集めた、クラスライブラリみたいな物を
作りたいんです。
あんまり使われている所を見た事無いんですけど、
これってありですか？
>>882 中級スレで質問するからにはもうちょっと自分で調べてください。
885 ：
デフォルトの名無しさん ：04/06/18 13:43
Oracle接続で教えてください。
文字の描画で教えてください。
>>885 どうあがいても無理なものは無理。
自分で実装してみたら？
もし実装できたらリバースだといって訴えられるかもしれんがw
ODBC,oo4o,DBexpress のどれも Oracle が提供するライブラリの上で動くからね。
普通は、Oracle Client なしにオラクルには接続できない。
つか、MDACにMicrosoftのOracle ODBC Driver 入ってなかったっけ？
そもそも
>>885 のクライアント環境がわからん。
どなたかRSA暗号のソースかコンポーネント知りませんか？
ttp://swiss.torry.net/crypting.htmで PGP Components for Delphi v.3.3.5 っての見つけたんで早速入れたら
PGP Software Development Kit Core Library not foundってエラーが出て起動しなくなった・・
Libraryなんて見つからないし、、もうだめぽ..
ぉ、ｷﾀｰｰｰ・・
コンポーネント系がおかしくなって起動できない場合は
>>896 早速使ってみます。
どうもありがとうございました。
898 ：
デフォルトの名無しさん ：04/06/22 13:31
質問です。
どうも、ボタンを押しても、環境変数CONTENT_LENGTHが0のようなのです。
で、まあ、無理やりデバッグ用データ(CONTENT_LENGTHと標準入力)を渡したところ、
901 ：
デフォルトの名無しさん ：04/06/23 10:35
TDateTimePickerの文字列を消すことは出来ませんか？
902 ：
デフォルトの名無しさん ：04/06/23 11:08
interface
そういうもの。
>>902 THoge1をTObjectなんかの上位クラスにしとけば、
interfaceにさらす必要ないよ。
ただ、FHoge1を生成するときはTHoge1をCreateすること。
その場合、
クラス自体にはアクセス制限はないでしょ。THoge1 自体には private であること
> implementation の下にTHoge1の入ったソースをusesするか、
904 の方法だと、実装部でいつもキャストする必要があるでしょ。
Delphiにはクラスにアクセス指定できないから気にせずやるしかないよ。
>>907 FHoge1: TObect;
と書いといて、
FHoge1にTHoge1のオブジェクトを入れれるんだよ。
>>908 別に、privateに、そういうpropertyを用意してもいいし
ｱﾊｧ?
>>911 property FHog1: THoge1 write ....
とかのように THoge1 がそもそも使えないんじゃ実装部でキャストするしかないでしょ
>>914 class helper…ごにょごにょ
>>906 のがまともだろ。例えば TMemo.Lines は抽象クラス TStrings 型だけど
実際は実装部で宣言実装されている TStrings の派生具象クラス TMemoStrings
のインスタンスが代入されている。ユーザは TStrings のメソッドを呼び出しても
多態性により実際は TMemoStrings クラスのメソッドが実行される。
>>916 話がずれとる。
拡張性の話とは無関係だよ。
こう書きたいんだろ。Del8なら可能だったような。
>>918 単に晒したくないって理由で抽象クラスを用意するというのは
Delphi的にはまっとうなやり方ではないよ。
> Delphi的にはまっとうなやり方ではないよ。
まっ、意見の相違だな。宣言部で TObject で実装部でキャストしまくるのが
>>923 説明としてTObjectを使っただけであって、
TWinControlでもTComponentでも構わない。
あぅ、気にするな、っていうのがまっとうだと。それはそうかも。
902はどうした？
みなさんありがとうございます。ちょっと期待してたのですが残念です。
928 ：
デフォルトの名無しさん ：04/06/23 18:15
ところで、文字列の長さが255までと決まってるなら
そんなことは気にしない
AnsiStringを取る関数の引数に使ったりすると変換入って逆に不利になるし
>>927 >ちょっと期待してたのですが残念です。
なにをどう期待してたのか分からないのですが？
>>902 には納得できない、としか
書いてないけど。
AnsiStringを取る関数の引数に使ったりすると変換入って逆に不利になるし
なんかいい隠蔽方法が無いか期待してたんだろ
>>927 > 名前衝突のリスクとか考えると
THoge2 の private で宣言するのはよくて、同じユニットで THoge1 を宣言すると
どうして名前衝突のリスクが増えることになるんですか？
> なんかいい隠蔽方法が無いか期待してたんだろ
>>935 結論
> あぅ、気にするな、っていうのがまっとうだと。それはそうかも。
>>927 クラス名の衝突はユニット名が異なれば起こらないから
ビルドできなくなることはないよ。
問題はたまたま同名クラスの同名メソッドを呼び間違える可能性があることだけど
それほど神経質になることはないと思うよ。
>>935 おっしゃるとおりです。
interface
type
TFunc = procedure(A, B, C: integer) of object;
THoge2 = class
private
FFunc: TFunc;
public
end;
implementation
ちなみに TFuncを隠蔽するにはどう宣言しとくのがよいでしょう？
気にしないことにしたのですが隠蔽も覚えておいた方がいいかと思いまして。
うーむ、今回の件は
>>909 のいうとおり
>Delphiにはクラスにアクセス指定できないから気にせずやるしかないよ。
>無理してやってもメリットは薄い。
だと思う。いろいろ手をつくしても得られるメリットがそれに見合ってないよね。
いろいろなところで質問があるんだけど、回答する方は、なんとか解決しようとする。
でも、質問者は軽い気持ちで、簡単ならいいけど面倒ならまぁいいや、ってことも
あって、回答者はガックリ、ということも多い。質問者は、一応回答を得たなら、
実際に採用するかどうかはともかく、「参考にさせていただきます」とか答えて
おけばいい。
いっぽう、どんな方法でもいいから絶対解決したい、という質問もあるので、
そこらへんの見極めが難しいんだよね。
適当な質問には答えないのも節度かもね。
>>939 Delphiには型宣言にアクセス指定できないから気にせずやるしかないよ。
無理してやってもメリットは薄い。
>>940 デフォルトは簡単でまともなやり方を答えつつ
無理な方法が存在することを匂わせとけば十分。
それを聞きたきゃ再度聞けばいいだけだし。
迷うのは最初からまともでないやり方を指定した質問。
直接答えるべきか勘違いを指摘しつつ代案を示すべきか。
まともでないことを自覚しつつ後者の返答をもらうと
なぜまともでないことをやりたいのかを
説明しないといけないから割にウザかったりするんだよな。
何かおおげさなことに（＾＾；）
> こんな当たり前のことができないはずはない、
えーと（＾＾；）こんな隠蔽もできない言語といわれてくやしいとかそういうことですか？
なんだ、手の込んだ釣りだったのか
>たいした弊害でもない、といってる時点で初心者丸出しですが。
902 は隠蔽したいから.NETを勉強するんだとさ。
なんつうか・・・
902は釣り確定だな
句読点を使い分けて荒らしと言ってみるテスト。
>>901 なにをしたいかよくわからんが、
DateTimePicker.Format := ' ';
とでもしておけばとりあえず非表示になる。
955 ：
デフォルトの名無しさん ：04/06/25 16:51
くだすれでスルーされてしまいましたので、
＞WriteComponentできちんと書き込みは出来ているのですが、
>>956 TPersistent.GetOwner
使ったことはないが
>>955 TDataN を THoge の中に置くのではなく、クラスの外に作って THoge から
参照するだけにしておけばどうですか?
この場合、TDataN は TPersistent ではなく TComponent から派生します。
そうすれば Read/Write や Create/Destroy の面倒は Owner (フォームや
データモジュール) が見てくれるので、特に何もする必要はありません。
>>958 dData = record
case DataType: Integer of
｛Data1..Nのデータ型を定義｝
end;
THoge = class(TComponent)
public
property Data: dData read FData write SetData;
end;
みたいのじゃダメなの？的外れならｽﾏｿ
>>959 955 じゃないが書き込み可能なメンバーにレコードを使うのは
何かと不便だと思うけど。
・パブリッシュできない。つまり dfm に保存することができない。
・Data.X := Data.X + 1 みたいな操作ができない。
いろいろなご意見、ありがとうございます。
>>956 Dataへの代入時にFDataを実際の型でCreateしてますんで、
WriteComponent時にはきちんと保存できているようです。
>>958 TComponentから派生させるように作り直すことも考えたのですが、
先ほど簡便性のためにTData1，TData2...TDataNなど書いたクラス群は
実際にはTCustomDataA，TCustomDataBとあり、
さらにTCustomDataAを継承したTDataA1，TDataA2...というクラスが
数十個、すでに構築されてますんで、これをすべてやり直すのも
いかがなものかと思ったわけなんです。
どうせTHogeは、ファイル入出力時に一時的にCreateするだけですし。
>>959 近いものとして、以下のようにしようかとも思いました。
THoge = class(TComponent)
public
property Data: TPersistent read FData write SetData;
published
property DataType: TClass read FDataType;
end;
Dataプロパティへの代入時、FDataTypeへその型を代入しておいて、
読み込み時にはFDataTypeに代入されている型をもとにFDataをCreateさせようかと。
もっともそのためにはDataプロパティを偽プロパティを設定して
読み書きする必要があるかと思うんですが。
なんか途方もなく無駄なことをしようとしてるような気が。
詳細はともかく、最終的に実現したいことを素朴に書いてみたら
>>955 >>963 簡単に書くと、
・TData...のクラスの内容をファイル入出力したい。
・TData...の構成はできればあまりいじりたくない。
の、２点のみですｗ
>>962 で書いたことを試してみたんですが、ちょっとうまくできませんでした。
やっぱりTData...をTComponentから派生させたほうが楽なのかな…
965 ：
デフォルトの名無しさん ：04/06/29 15:06
閉店間際ですが、質問させてください。
MySQLではないけど
>966
>>966 情報ありがとうございます。ただ残念ながら、今回は TSQLQuery.Open メソッドの
直後で FieldCount の値が決まっているので、それが直接の原因ではないようです。
なお、insert や update では 10 以上のカラムを同時に挿入・更新できました。
今のところ、select 文を発行するときは * を使わずに 6 つ以下のカラム名を列挙
してごまかしています。
何か分かったらここに還元します。
Delphi + BDE で Paradox 形式のデータファイルを使用している
970 ：
デフォルトの名無しさん ：04/07/05 04:25
| 何について調べますか？
>>969 > データベースソフトに Firebird を入れて、BDE系のコンポーネントを IB系に換えれば
> いいのかなぁ？と漠然と考えてますが、
そんな感じでどうぞ。
でも、差し替えるのならBDEからdbExpressもおすすめです。
サーバはライセンス関連でUnix系がおすすめ
ただ、差し替えるにあたってデットロックが起こらないように
トランザクション関係はしっかりね
>>971 レスありがとうございます。
昨日、Firebird を入れてみました。
今日、Marathon を入れてみましたが、
使いかたがわかんね；；
いそいでないのでゆっくりやります。
973 ：
デフォルトの名無しさん ：04/07/07 02:03
>>973 非常におもしろいんだが、スレ違いだと思う。
Office アシスタントはＭＳですら失敗だったと認めるくらいだが。
パーソナル版ユーザーが
C#買え
>>978 VCLがどの様にメッセージを処理しているのか、
VCLのソースが参考になると思っているのですが。
>>977 スターターアップキャンペーンでしたっけ？
アレが終わってしまったので、今は買う気はありません。
パーソナル版はVCLのソースがついてこないんだっけ？
982 ：
デフォルトの名無しさん ：04/07/09 01:56
>>982 Win98だとまともに動かないんです。
Win9x で正しく動かないのは .NET Framework も同じ。
>>984 どうも動かすには、Pro版に含まれる
コンポーネント(masks.pas)が必要なようです。
いやはや。やはりPro版を買うかなぁ。
いまから Pro 版買うのは無駄。UNICODE 対応エディタつくるんなら Ｃ＃ で
ベータなんて軽々しく進めるもんじゃないと思うが。
>>986 >Ｃ＃ でやっておけばいい。無駄にならないし。
言い切るのはどうかと。.NETｲﾗﾈっていわれてるし。
Delphi8 をすすめるべきなんだろうが、ベータにも達してないし
>>989 ちょっとびっくりするほど認識不足だと思うよ。
> システム側に不具合出るって報告もあるし。
994 ：
デフォルトの名無しさん ：04/07/10 01:11
>>987 このセキュリティ証明書は、信頼できる会社から発行されていません。
証明書を表示して、この証明機関を信頼するかどうか決定してください。
とか出るし(w
流石MS
> とか出るし(w
