Delphi初心者のための ..
[2ch|▼Menu]
176:173
06/10/19 11:24:15
>>174
すみません、もっと根本的な問題だったようです。
やりたいことは、レコードロックによるタイムアウトエラーを取得したいのですが、
タイムアウトはEDatabaseErrorではないようです。

タイムアウトはEDatabaseError以外のどのExxxErrorでとれるのでしょうか?

177:173
06/10/19 11:25:55
>>175
データモジュールにADOConnectionを貼り、ADOQueryで実行しています。

178:デフォルトの名無しさん
06/10/19 11:35:44
>>176
そこまで細かいことは自分で調べちゃった方が早くね?

179:デフォルトの名無しさん
06/10/19 11:46:42
>>176
on E: Exception で捕まえて、E.ClassNameを調べる

180:173
06/10/19 15:30:24
>>178、179
ありがとうございました。
調べたところ、EOleExceptionと出ました。



181:デフォルトの名無しさん
06/11/04 19:10:27
SyncObjsの中にあるTCriticalSectionですが、
EnterとAcquire、LeaveとReleaseの違いは何ですか?
いろいろ試した限りでは同じ処理に見えるのですが・・・

182:デフォルトの名無しさん
06/11/04 22:59:27
>>181
ヘルプ見た?
その上で動作が同じだと判断するなら同じなんです
深く考えすぎないほうが良いかと

183:デフォルトの名無しさん
06/11/06 22:23:11
>>182
TCriticalSectionのページに行こうとしても、
リンクがみつかりません って出るんですよ
無料のDelphi6だからかな? まぁ気にしないことにします

184:デフォルトの名無しさん
06/11/07 11:13:41
QuickReport印刷内容をビットマップ(Jpegでもおk)に落とす方法教えて下さい。

185:デフォルトの名無しさん
06/11/07 18:24:07
そういうプリンタドライバがあるよ

186:デフォルトの名無しさん
06/11/23 13:53:16
リレー動作のプログラムなんですが64個のリレーを
チェックボックスに分けて選んでリレーを
ON/OFFしたいんですが

procedure TForm1.Button1Click(Sender: TObject);
begin
Relay[Time]:=True;
Time:=Time+1;

RelayChange;
end;

これからどう増やせばいいでしょうか?
どうかよろしくお願いいたします。

187:デフォルトの名無しさん
06/11/23 20:25:23
>>186
日本語でおk

188:デフォルトの名無しさん
06/11/25 17:27:49
IsDelphiで、このソフトが、Delphi製とでるのですが、
URLリンク(www.highdots.com)
オフィスっぽいGUIは、どんなコンポーネントを使っているんでしょうか?

189:188
06/11/25 17:28:27
すみません。超初心者スレと間違えました(汗

190:デフォルトの名無しさん
06/12/25 17:35:38
コンストラクタ内で例外を発生させるのってまずい?

自作クラスのコンストラクタの引数で作業フォルダのパスを指定して
フォルダが存在しなければ作成ってのをやろうと思うんだけど、
try〜finallyの手前でCreateすると例外が発生したときに例外を捕まえられないし
try内の先頭でCreateするとコンパイルで「初期化されていない可能性があります」と警告が出る。

コンストラクタは内部変数の初期化だけにしておいて
作業フォルダのパス指定は別メソッドにしておいたほうがいいのだろうか・・・

191:デフォルトの名無しさん
06/12/25 19:14:46
>>190

try
 Create
 try
  hoge
 finally
  hoge
 end;
finally
 hoge
end;

192:デフォルトの名無しさん
06/12/29 14:20:58
>190
Delphiにおいてはコンストラクタ内で発生して捕捉されない例外は
コンストラクタの失敗を意味する。

193:デフォルトの名無しさん
07/01/06 19:54:05
hosyu

194:デフォルトの名無しさん
07/01/27 03:40:04
2chブラウザのJaneみたいな動かせるメニューバーってどうやって作ったらよいのでしょうか。

195:デフォルトの名無しさん
07/01/27 03:58:26
>>194
TCoolBar のバンドの .Control に TToolBar 設定して、
TToolBar.Menu に TMainMenu 設定。

196:デフォルトの名無しさん
07/01/31 17:58:13
Bitmap画像をレイアウト部分はコーディングでなくてポトペタで作成したいのですが、
良い方法はありますか?

QuickReportで良いのですがQuickReportは汎用画像出力が出来ないので...

197:196
07/01/31 19:05:07
そういう機能をレポーティング コンポーネントって言うらしいですね。
でもWin32用が無いお。

198:デフォルトの名無しさん
07/01/31 23:11:14
>196
日本語でおk

199:デフォルトの名無しさん
07/01/31 23:15:30
グラフィックソフトとか、ワープロでつくるようなをDelphiでやりたいんじゃないの?
で、最終的に、印刷じゃなくて、画像にしたいと。

200:デフォルトの名無しさん
07/03/02 07:58:21
.netを普及させる方法を思いついた!
win32に、WCaption: WideString みたいなメンバを追加して
さらにくそでかく遅いバイナリしか生成できなくする。
これなら.netでいいや、ってなりwin32死滅。


201:デフォルトの名無しさん
07/03/02 16:54:35
日本語でおk

202:入門きぼん
07/03/18 23:52:34
 すみません。教えて下さい。
DelphiTurboExplorerを、サイトからDLして使用したいと考えているのですが、
ユーザー登録をすませても、DLページに行けずに困っています。

それと、フリーのデーターベースであるFirebirdと
繋げられるのでしょうか?
やはり製品版でないと無理なのでしょうか?

自分は、単純に初心者向けプログラムである。
CDやDVDの在庫管理アプリを作りたいだけなんですが、
自分の労力以外は、極力フリーで作りたいと思っています。
可能でしょうか?

宜しくお願いします。

203:デフォルトの名無しさん
07/03/19 00:54:43
URLリンク(www.turboexplorer.com)

204:デフォルトの名無しさん
07/03/19 01:06:50
>>203
The page cannot be found

205:デフォルトの名無しさん
07/03/19 06:01:06
URLリンク(www.turboexplorer.com)

206:デフォルトの名無しさん
07/03/19 11:33:22
>>204,205

HTTP Error 404 - File or directory not found.


207:デフォルトの名無しさん
07/03/19 20:46:50

URLリンク(torrent.borland.com)

208:202
07/03/19 21:55:11
>>207

すみません。
やはりHTTP Error 404 - File or directory not found.になります。

みなさん、ありがとうございました。
残念で、悲しいですが、すみませんがDelphiあきらめます。

209:デフォルトの名無しさん
07/03/19 22:07:23
繋がるけどなぁ
URLリンク(www.codegear.com)

210:デフォルトの名無しさん
07/03/20 00:22:27
>203 >205 >209は普通に繋がるね。

211:デフォルトの名無しさん
07/03/21 07:19:26
普通につながるけど?

212:デフォルトの名無しさん
07/03/21 23:56:26
条件文がたくさんあって、それらを同じ処理するときはどうしたらいいですか?
ifのあとに条件をズラーッとandでくっつけるしかないのでしょうか?
例えばxが1 3 5 6 7 10・・100と不規則なときに、一定の動作をさせたいです。

213:デフォルトの名無しさん
07/03/22 00:14:26
case x of
1,3,5,6,7,10,100: 〜〜';
else
〜〜;
end;

214:デフォルトの名無しさん
07/03/22 07:13:44
if x in [1,3,5,6,7,10..100] then XX;
ってのもあるよ

215:デフォルトの名無しさん
07/03/22 14:14:54

二次元配列があり地図のようになってるとします。

その時に●から一番近い5(複数ある)への経路を求める問題。
マスは30*30
●は(16、16)
0は通れる、1は通れない、4はいやな人
で、5の周りに4がいた場合それは目的の5にはなりません。

000000000000000000000000000000
000000000000000000000000000000
000000111100000000050000000000
000000001100000000000000000000
000000000100541110000000000000
000000000000111111000000000000
000000000000000000000000000000
001100000000000000000000000000
00000000000000●000000000000000
000100000000000000000000000000
000100000000000111111110000000
000000000000000000000000000000
000000500000000000050000000000
000000000000000000000000000000
000000000000000000000000000000

216:デフォルトの名無しさん
07/03/23 12:23:28
>>215
2chのレス数じゃ無理w
試しに幅優先探索して書こうとしたら、600行超えたからやめたw

217:デフォルトの名無しさん
07/03/23 17:39:42
>>215
たけしのコマ大かと思った・・・。

斜め移動はあり?
地形は固定?
障害物1等のオブジェクトは、定数?

つっこむ所が多々ありそうだなぁ。

218:デフォルトの名無しさん
07/03/24 19:35:42
>>215
普通にA*でいいんじゃないの?

>>216
600行はありえん。

219:デフォルトの名無しさん
07/03/25 00:12:27
>>217
俺は斜め移動無し、固定でMAPはファイルからそのまんま読み込んだ状態としたよ
んで、今の箇所から上下左右で自分の関数を呼び出して、再起関数にして探してった。
でもこれじゃ全数検索になってしまう。
こういうアルゴリズム習ったけどやり方有ってるか不明

>>218
A*って何?

220:デフォルトの名無しさん
07/03/25 04:42:33
工場勤務でブルーワーカなのだが、明日から夜勤なので睡眠時間調整の
暇つぶしに >>215 をやってみた。5時間かかったお。

再帰呼び出しとかは使えないし分からんので、長めになっちゃった。
キュー(FIFO)をやってみようと思って、ポインタとか使ってみたけど訳分からん。

URLリンク(strawberry.web-sv.com)
(フォームにボタン1個要)

だって、MC工作機械マクロ言語に再帰呼び出しとかポインタなんて無いよ orz
あ、でも、なんちゃってポインタは出来るかな? #(#10) な感じで。

221:デフォルトの名無しさん
07/03/25 07:25:37
A Starでやれ

222:デフォルトの名無しさん
07/03/27 02:25:05
昔Delphi6触ったときにはたしか標準でフォルダ選択ダイアログってなかったような気がするんですが

TurboExplorerにもなかったりします?

223:デフォルトの名無しさん
07/03/27 06:53:37
SelectDirectoryなら昔からあったと思うが?
名前がセレクトフォルダじゃないからダメなの?

224:デフォルトの名無しさん
07/03/28 09:12:04
Delphi6のSelectDirectoryはダイアログの表示位置がずれるバグがあるんだよな

225:デフォルトの名無しさん
07/03/28 09:45:16
バグじゃないよ、たんに場所指定してないだけ。ML の過去ログやら、コンポ
で解決したのがわんさかあったけど、いまは知らない

226:デフォルトの名無しさん
07/03/28 09:54:17
まあ、フォルダのD&Dに対応しとけば、みんなソレ使うから
SelectDirectoryはとりあえずあればいいやみたいなもんだし

227:デフォルトの名無しさん
07/03/28 21:40:15
uses
FileCtrl;

procedure TForm1.Button1Click(Sender: TObject);
var
dir: string;
begin
MoveWindow(Application.Handle , Left ,Top ,0 ,0 ,False);
SelectDirectory('表題', '', dir);
Label1.Caption := dir;
end;


228:215
07/03/29 09:06:36
>>220
遅くなったがサンクス!
ただ、速度おっそいなぁw

229:デフォルトの名無しさん
07/03/31 10:40:58
保守

230:デフォルトの名無しさん
07/04/07 19:52:37
現在BDEで作成されているものをFirebirdに簡単に変更できるものでしょうか
Firebirdはまだ触ったこともないし、BDEもそのとき玉々作ってみただけの
データベース素人ですが。

231:デフォルトの名無しさん
07/04/08 13:26:52
>>230
どういう作りになっているのかにも寄るけど
簡単には無理じゃね。

232:デフォルトの名無しさん
07/04/08 20:33:05
>>231
ありがとうございますm(_ _)m
やっぱ作り直しですか。

233:デフォルトの名無しさん
07/04/08 20:57:31
いや、普通にコンポーネント貼り付けて作ってるなら
InterBase Data Access に変えるだけで問題ないだろし
そうでないなら、それなりに大変だろうってだけさ

234:デフォルトの名無しさん
07/04/08 21:59:34
やってみまふ。

235:デフォルトの名無しさん
07/04/10 13:29:14
ヒント: Firebird ODBCドライバ

236:デフォルトの名無しさん
07/04/10 20:04:01
今しばらくは生きていけそうです

237:疑問
07/04/16 02:52:02
なんでIntegerとかが予約語になっていないのでしょうか

var
Integer: string;
begin
Integer := 'Double';
Writeln(Integer);
end.


238:デフォルトの名無しさん
07/04/16 08:03:01
Integerは予約語ではないけど定義済の型名だから
変数として使うと、
使った後整数型の定義とか、型変換とかで困ってしまうよ

他の型名とか自分で定義する型名も同じ事情があるよ。

239:デフォルトの名無しさん
07/04/16 16:19:27
回答になってねぇw

240:デフォルトの名無しさん
07/04/16 23:21:03
>>237
なんでだろ。
Windows.hとかのCからコンバートしたときのための兼ね合い?
似たようなので、引数でも例外あったような

241:名無し@沢村
07/04/17 00:10:20
おみゃーらー♪
Delphiはつまらんぞー!
おみゃーたー、『肥えた語』つー言語があるの知ってる?
おりは知ってるよ。
おりがつくった言語よ。これからh『肥えた語』の時代よ。
URLはここよ↓
URLリンク(www.geocities.jp)
感想を頼むなー♪


242:デフォルトの名無しさん
07/04/23 22:52:08
JEDI がDelphi2005にインストールできません。
以前入れたときは確か、すんなり入ったのですが。
..\JEDI\jvcl\run\JvJVCLUtils.pas(7359) エラー: E2010 'Char' と 'string' には互換性がありません
..\JEDI\jvcl\run\JvJVCLAboutForm.pas(115) 致命的エラー: F2063 '..\..\run\JvJVCLUtils.pas' ユニットはコンパイルできませんでした
ほかにも出てきます。
pas は秀丸では欧文フォントで文字化けなしに読めたんですが「TM」とかの特殊文字が
○株みたいに扱われているんでしょうか、Shift-Jis ではChar扱いしてもらえないようです。

OSは Vista
D5 にはインストールされています。
m(_ _)m

243:デフォルトの名無しさん
07/04/23 23:02:28
せめてバージョンくらい書こうよ・・・

244:デフォルトの名無しさん
07/04/23 23:05:38
すんません、JVCL320CompleteJCL197-Build2172.zip でした。

245:デフォルトの名無しさん
07/04/23 23:07:22
なんでそんなに古いのを入れようとしてるの?

246:デフォルトの名無しさん
07/04/23 23:17:26

そんなに古いのー?

247:デフォルトの名無しさん
07/04/23 23:18:12
すみまそん。
しばらくD5で使ってたのでそれをそのままフォルダからインストールしようとしてました。

248:デフォルトの名無しさん
07/04/23 23:19:48
それだとD5でコンパイルされたファイルと混じっておかしくなるんじゃない?

249:デフォルトの名無しさん
07/04/23 23:28:30
やっぱそうですか。
はき出す場所が違うからOKだと思っていたのですが、
とりあえず2005には最新版を入れてみます。

250:デフォルトの名無しさん
07/04/24 20:28:58
JVCL331CompleteJCL199-Build2551.zip
入れてみましたが状況は変わりませんでした(x.x)

251:デフォルトの名無しさん
07/04/24 21:14:09
前にインストールしたときのゴミが残ってるんじゃないかね。
とりあえずJcl*.bplとJv*.bplを削除してみたら?

252:デフォルトの名無しさん
07/04/24 21:28:50
ってことは皆さん問題なく入れていたということなんでしょうね。
結局使わない部分っぽかったので修正して無理矢理入れてしまいました。

JvgUtils.pas
function Transliterate(const Str: string; RusToLat: Boolean): string;
コメントアウトで Result := Str;

JvDBGrid.pas
FCharList :=
['A'..'Z', 'a'..'z', ' ', '-', '+', '0'..'9', '.', ',', Backspace{,
'e', 'e', 'e', 'e', 'o', 'o', 'u', 'u', 'a', 'a', 'a', 'i', 'i', 'c'}];
下半分をコメントアウト

JvJVCLUtils.pas
// Text: Char;
Text: string[2];
Char を string に変更

JvStrToHtml.pas
特殊文字 27 個コメントアウト

ありがとうございましたm(_ _)m

253:デフォルトの名無しさん
07/04/24 21:35:10
Delphi5って、サポートされてたっけ?

254:デフォルトの名無しさん
07/04/24 22:06:55
されてる。

255:デフォルトの名無しさん
07/04/24 22:44:22
JCL/JVCLって昔試したときマルチバイト文字に対応してなかったような記憶が
あったようななかったような・・・

256:デフォルトの名無しさん
07/04/24 23:15:42
コンポーネントによってされてたりされてなかったりだね。

257:デフォルトの名無しさん
07/06/18 23:36:07
コンポーネントがDesignideを使っててコンパイルできなくなるとかの
問題でずっと悩まされてます・・・
古いIDE組み込み型のコンポーネントって
新しくなるとコンパイルが通らなくなる・・(泣

Designideで悩まない方法はありますか?


258:デフォルトの名無しさん
07/06/19 05:33:00
D6パーではHelpに書いてある。互換性の問題

259:ミ,,゚Д゚ミノ ◆A6VzDeLphI
07/06/19 14:05:42
こんなんでよい?

-- DsgnIntfが見つからない場合 --

コンポーネントをインストールするときに
DsgnIntfが無いといってエラーになる場合があります。

Delphi5からDsgnIntf.dcuのコンパイル済みユニットが
無くなったからこのような現象が起きるそうです。

Delphi6からはDesignIntfという名前に変更されています。

DsgnIntf Unit はおもに、コンポーネントエディタやプロパティエ
ディタを作るときに利用するものです。

「環境オプション/ライブラリパス」に
$(DELPHI)\Source\Toolsapi
を追加してみましょう。

解決するはずです。

本当は、この方法を用いるとプロパティエディタのコードが
実行ファイルに含まれてしまうので、そういう書き方をしている
コンポーネントが悪いので、自分の作る物ではこういう問題が発生しないように
気をつけましょう。

参照──────────
[Delphi:42979] Delphi5 変更点
URLリンク(www2.big.or.jp)

260:デフォルトの名無しさん
07/06/21 20:49:16
Delphi7を使ってます。
designide.dcuが見つからないという
エラーが出てしまいます・・orz


261:デフォルトの名無しさん
07/06/21 22:17:40
そうですか

262:デフォルトの名無しさん
07/06/28 07:12:16
TUIWebBrowserで読み込んだFlash上の入力ボックスで
BackSpaceキーは効くものの
Enterキーがきかないのですが
効くようにすることは可能でしょうか?



263:デフォルトの名無しさん
07/06/30 08:58:54
>>259
ありがとうございます。
いろいろいじっていて
実行時パッケージでない方でビルドできました。

264:デフォルトの名無しさん
07/06/30 22:34:43
ナッキーのdelphi奮戦記面白い
間違いなくナッキーは淫乱

ペイントソフト楽に作れ杉

265:デフォルトの名無しさん
07/07/04 09:36:13
TShapeじゃなくて、ラインをペタペタ貼るコンポーネントありましたっけ?

266:デフォルトの名無しさん
07/07/04 09:44:58
直線だけなら OnPaintに Canvas.MoveTo Canvas.LineToで簡単に引けるから需要無いかと


267:デフォルトの名無しさん
07/07/04 09:49:35
Delアメ猫だったかの人がフサギコと絡んで、マウスで直線を動かせるようなコンポーネントの原型を作って
どっかにアップしてたように思うのだけど、今検索してもみつからないな

268:265
07/07/04 09:55:01
>>266
やっぱ、そうですか。

>>267
>マウスで直線を動かせるようなコンポーネントの原型を作って
欲しいもの、これですorz

269:ミ,,゚Д゚ミノ ◆A6VzDeLphI
07/07/04 10:54:14
HDDに、原型のやつがあったよ。
検索に1時間ほどかかってしまた。


270:265
07/07/04 11:00:48
>>269
デルフサギコ様、うpをお願いしますorz

コンポーネントのソースは読めるので、
手直しとか派生くらいできますし、
使いこなせると思いまつ。

271:ミ,,゚Д゚ミノ ◆A6VzDeLphI
07/07/04 11:00:59
実行時にマウスで動かせた矢印コンポもあったような気がするんだけど
手元にあるのはShapeの矢印版っすね。

majunarrowexとか、viArrow.pas
って名前だけど、googleではでないみたいだ。

とりあえずうpろうか。午後くらいでよい?



272:265
07/07/04 11:03:42
>午後くらいでよい?

ずっと待ってまつ。

希望では、以下の機能も欲しかったり。。。
・マウスで動かせる
・マウスで長さが変えられる
・移動や長さが変ったときに、Changeイベント
・矢印をオフにして単なるライン化

273:ミ,,゚Д゚ミノ ◆A6VzDeLphI
07/07/04 11:09:05
URLリンク(delfusa.main.jp)

いや、はようpっとくよ。

もっといいものをつくってくれた人もいたきがするんだが...

あの時期てきにホットゾヌの作者の中の人だった気がするが
確証無しで。

このコンポ、いったい誰作なんだろう...中国の方かしら。

274:ミ,,゚Д゚ミノ ◆A6VzDeLphI
07/07/04 11:11:48
設計時なら
>・マウスで動かせる
>・マウスで長さが変えられる


>・移動や長さが変ったときに、Changeイベント
わからない。というか、Resizeイベントはなさそうだから
どっちにしても自作だね。

>・矢印をオフにして単なるライン化
なぜか出来ないみたいだ。
改造すれば簡単でしょう。



275:デフォルトの名無しさん
07/07/04 11:20:24
コレの事?
URLリンク(delwiki.info)


276:265
07/07/04 11:27:46
>>274
>>275

サンクス!

両方ダウソしました。
どっち使うか決めなきゃ。。。

277:デフォルトの名無しさん
07/07/04 11:53:46
>>273
・1個だけ
・設計中のみ変更可能
・コードはシンプル

>>275
・複数のラインやオブジェクトが1コントロールに入る
・フォームにフックさせて最下面に無理やり描画するのも出来る
・実行中に移動等も可能
・出来る事が大きいだけに、けっこう複雑

278:265
07/07/04 11:56:32
>>277
サンクス

どっちもクセ多杉orz

やりたいことは275なんだけどメッセージフック&インライン汗と、
何かあったとき対処できるかなとドンビキ。

273に275のコード混ぜるかなぁ。。。

279:デフォルトの名無しさん
07/07/04 12:06:35
>>275 には コンポが2つ入っていて、片方は TGraphicControl でメッセージフックは使ってない。
インラインアセンブラの部分はたぶん変更しなくていいいだろう。

ただ、文字を回転させるのに端ではなくて 真中というのは、チョットとまどった

あと、DesignProcでマウス応答全部やってるので
右ボタンメニューに対応させるとか、ココでやらんとあかんのかも


280:デフォルトの名無しさん
07/07/04 12:50:49
アセンブラの部分は 浮動小数点に置き換えたらいいんじゃないの?
iHypot -> math.Hypot で代用
MulSubDiv はコメント通りに浮動小数点で計算させる

281:265
07/07/04 13:02:06
汗は汗のままでも良いです。

>あと、DesignProcでマウス応答全部やってるので

この作り、拡張性大丈夫かなぁ。

282:デフォルトの名無しさん
07/07/04 13:11:00
WndProc で inherited してるから大丈夫じゃないの?
気になるなら、それぞれ分けたらいいだけで

ひとつはデザイン中だけ処理させる判定を1箇所にまとめたかったのと、
TMyFormDraw と TMyDraw の両方で使いたくてコピペが楽だからそうしたんだろな


283:265
07/07/04 13:19:59
>WndProc で inherited してるから大丈夫じゃないの?

了解でつ。

このコンポってStringsの中身をLines1つにすれば1本の線になるんですね。
動きも面白いし、機能は完璧。

最期の悩みは、このまま使うか、Linesプロパティを削除して、1本の線のコントロールとサブセットコントロール化するか。。。

284:Delフサギコ ◆A6VzDeLphI
07/07/04 13:21:48
 ∩ ∩
 ミ ゙''゙〜     ________
 ミ∧,,∧   /
 ミ,,゚Д゚彡 < おお。あったですかぁ。
 U U    \あっててよかったDelWiki新
           ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
こういうのって、コンポインストールしないとサンプルプログラムが
コンパイルできない形になってて、非常に面倒よね〜
コンパイルしたsample.exeを是非に付けて欲しいもので。
まあ、漏れも付けてないんだけど。

それにしても、MyDraw....すごすぎだな。
(って何年も前にも言った感じがとてもデジャブー)

>>283さん
贅沢な悩みだな。(w

みつかってよかったね。


285:265
07/07/04 13:25:23
>>284
有難う。

デルフサさんて、一時期見かけなかったような。。。

286:デフォルトの名無しさん
07/07/04 13:27:30
MyDraw1.Lines.Add('LINE');
で実行中に、線を増やせるね。

287:|Д゚彡 ◆A6VzDeLphI
07/07/04 13:30:56
いつもひっそりと
草葉の陰から見つめているんですよ。

288:デフォルトの名無しさん
07/07/04 15:13:17
>>コンパイルしたsample.exeを是非に付けて欲しいもので。
そんな物、ダウソして実行する馬鹿がいたら是非お目にかかりたい物でwwww



289:デフォルトの名無しさん
07/07/04 18:28:34
たくさんいますよ

290:デフォルトの名無しさん
07/07/04 19:37:14
何か呼ばれた気がしたので来ました。

291:デフォルトの名無しさん
07/07/04 20:00:09
デモには、実行ファイルをつけようよ・・・

292:デフォルトの名無しさん
07/07/04 21:15:30
URLリンク(delwiki.info)
ココに、サンプル書いてみた。

右ボタンで削除出来るようにコンポ側に少し追加もした

でも、コレ、誰がItemのオブジェクト削除してくれてるんだろ?
テキストを変更してもメモリリークしないんだろか?

293:初心者++
07/07/05 00:11:28
いきなり割り込んで書き込みます、すいません。 
初心者です。データベースの接続で困ってます。
TTableのDataBaseNameで
サンプルのDBDEMOSでは無事接続できるんですが、
ほかのアリエス名(MSAccess,Excel...)では
ログインダイアログでユーザー名 パスワードをきかれ、
先へ進めません。どなたか教えてください。

  Turbo Delphi for wind32
OS : wind2000です。

294:初心者++
07/07/05 00:15:55
いきなり割り込んで書き込みます、すいません。 
初心者です。データベースの接続で困ってます。
TTableのDataBaseNameで
サンプルのDBDEMOSでは無事接続できるんですが、
ほかのアリエス名(MSAccess,Excel...)では
ログインダイアログでユーザー名 パスワードをきかれ、
先へ進めません。どなたか教えてください。

  Turbo Delphi for wind32
OS : wind2000です。


295:デフォルトの名無しさん
07/07/05 16:25:33
>>294
URLリンク(www.lares.dti.ne.jp)

296:デフォルトの名無しさん
07/07/05 16:38:53
こんにちは。Delphi製ブラウザコンポーネント
(TUIWebBrowser)のFlash上の
テキスト入力コントロールでEnter入力が
できない問題について質問した者です。

RADながらWin32APIとの親和性,
カスタマイズ性が高くアセンブラも使え、
デフォルトコントロールの綺麗さなど、
色々優れた点がある中で、生産コストを下げる目的で
Delphiを選ぶときについて意見をお伺いしたいです。

ブラウザを作る際に、
まずTWebBrowserを使ってみて、入力に関する
致命的なバグがあったために、そのバグを修正した
TUIWebBrowserを使ったのですが、
そこでまた入力バグに出会ってしまい、
これらの問題が、VC++での開発でははじめから起きない
問題であったために、VC++で作り直すべきか考えています。

流通しているDelphi製のブラウザ系ソフトにも同じバグが見れました。
しかし、作りやすいので本当はDelphiを使いたいです。

Delphiで、資料やバグフィクス情報が無く、
節約できるはずの時間が、逆に冗長になるケースを考慮したとき、
そういった面を考えても、Delphiの生産性を活用するためには
どういったことが必要になりますでしょうか。
Delphi開発の先輩である皆さんに
お考えをお聞かせ願いたいです。



297:デフォルトの名無しさん
07/07/05 17:19:12
>そういった面を考えても、Delphiの生産性を活用するためには
>どういったことが必要になりますでしょうか。

VCLコードを読んで理解する事。

298:デフォルトの名無しさん
07/07/05 17:46:02
VC++で解決出来るんなら、 それを見て自分で修正すればいいんじゃないの?
でも、たぶん VC++でも色々拡張しようとすると、いろんな問題が出ると思うよ。
他人の作ったコードをソース無しに使おうってんだから当然だ。

TWebBrowser ならともかく TUIWebBrowser は使ってる人が少ないだろうし
さらに Flash となると、問題に答えてくれる人は少ないと思うよ。

>>262 の問題は メッセージポンプの所で流れてるメッセージ
を(Application.OnMessage とかで)見て、なんとか出来ないか考えてみたら?


299:デフォルトの名無しさん
07/07/05 17:47:05
ActiveX や OLEControl の制御は VCL のソースを読んでも、個人レベルでは
解決は難しい。TWebBrowser やその派生コントロールは、Delphi で簡単に
使えるように見えるが、Delphi での細かい制御が一番面倒なもののひとつ。
VC++ でできるなら、そっちでやればいいでしょう。

300:デフォルトの名無しさん
07/07/05 17:49:23
いまさらだがMLに投げてみりゃよかったのに。

301:デフォルトの名無しさん
07/07/05 17:54:18
まぁなんでもMLに投げてみりゃいいんだよな。

302:デフォルトの名無しさん
07/07/05 18:45:41
Delphi TWebbrowser Enter ぐぐれかす

303:デフォルトの名無しさん
07/07/05 19:02:10
>>302
TWebBrowserのバグを回避した
TUIWebBrowserでFlashActiveX上のコントロールを経由した
ときだけ起こるって言ってるし
TWebBrowserの有名な入力バグは普通もう回避してるだろう。


304:デフォルトの名無しさん
07/07/05 22:25:45
コード量が短いので>>273を参考にして勉強中のものです。

そこで質問です。>>273
.dfm に記述されたコードを .pas側で実行時に自動生成する
形に書き直すと、どういう風になりますか?じぶんはテキスト
エディタ派なのでコードの編集はできればテキストエディタで
やりたいとです。。。

プロジェクトを立ち上げると、

フォーム作成中にエラーが発生しました。(中略)
クラス TviArrowが見つかりません
とか出て上手くゆかなかったとです。

viArrow.pas をプロジェクトに追加して
プロジェクトを再構築。でコンパイルしたら実行
ファイルのほうは簡単にできてちょっと感動したとです。ひろしですひろしですひろしです

305:デフォルトの名無しさん
07/07/05 22:39:05
>>304
なあ、こっちも実行してみてくれ。
URLリンク(delwiki.info)


306:304
07/07/05 23:07:33
>>305
1000行越えのコードの解読は厳しかったとです orz

307:デフォルトの名無しさん
07/07/06 07:39:12
>>304
.dfm にはコンポーネントのプロパティが入っている。
実行中に位置やサイズを変更したいなら、 Left, Top, Right, Bottom をコードで弄る必要がある

>>305のは、コンポーネントを登録しなくてもいいように作られている
位置やサイズは文字列で与えてるようだ

308:Delフサギコ ◆A6VzDeLphI
07/07/06 09:35:55
    ∧,,∧  オハヨ
   ミ,,゚Д゚彡
    ミ つ旦)~~
  〜と,,,~),,~)  旦~~
]]]]]]]]]]]]]]]]]]]]]]]]]]]]

自動生成する形になってて、いいっすね
>>305さん

どうせなら、バイナリも含んじゃえばいいのに。(w
IDE起動するのメンド(い人もいるかもね。)

>>307さん
MyDrawコンポーネントは単体で
たくさんの矢印や
矩形を処理するようになっていて
その位置を元々TStrings系でもっているのですよ。



309:デフォルトの名無しさん
07/07/09 18:36:58
TFormとかTImageってCanvasプロパティがありますよね。

TScrollBoxみたいにCanvasプロパティの無いコンポーネントにお絵かきするには、
どうすれば良いですか?

310:デフォルトの名無しさん
07/07/09 22:34:16
1.Canvasがある他のコンポーネント(TImageとか)を貼る。
2.TWinControlから派生したものであれば、さらに派生させてCanvasプロパティをpublicにする。
ん〜これしか思いつかなかった。もう少し具体的にやりたいことを書けば、もう少しまともな
回答がつくと思うよ。

311:デフォルトの名無しさん
07/07/09 22:42:34
var
 Canvas: TCanvas;
begin
 Canvas := TCanvas.Create;
 try
  Canvas.Handle := GetDC(hoge.Handle);
  try
   Canvas.TextOut(0, 0, 'HOGE');
  finally
   ReleaseDC(hoge.Handle, Canvas.Handle);
  end;
 finally
  Canvas.Free;
 end;
end;

312:309
07/07/10 08:56:46
サンクス>>310 >>311

具体的には、
TScrollBoxの上にTImage、その上にMyDrawを乗せています。

それで、MyDrawの図形をマウスでいじると、
TImageが物凄くチラツクんですよね。

それで、TScrollBoxにもTImageの図形描いておいてやろうかな、と。

313:309
07/07/10 09:35:54
TScrollBoxをやめて、TPanelにしてDoubleBufferdをtrueにしたらチラツキなくなりました。


314:デフォルトの名無しさん
07/07/10 22:26:17
現在おされているキーをセンスする関数みたいなのはないのでしょうか?


315:デフォルトの名無しさん
07/07/10 22:41:54
windows.getkeystate

316:デフォルトの名無しさん
07/07/10 23:14:11
>314
つ GetAsyncKeyState
URLリンク(msdn.microsoft.com)

>315
現在押されている、ということであればGetKeyStateは不適切。

317:デフォルトの名無しさん
07/07/11 22:17:05
ありがとうございます。

windowsの世界だと int 21h(AH=8) みたいなのはないんでしょうか。
シーラカンスですんません。


318:デフォルトの名無しさん
07/07/12 00:08:04
意味不明。何をしたいのかを具体的に。
たとえばOnKeyPressとかTForm.KeyPreviewあたりは幸せになれるかも?

319:デフォルトの名無しさん
07/07/12 06:53:33
ごめんどうおかけします。

やりたいのは、コンソールアプリケションで、
enter (1-9 or q):
みたいなプロンプトをだして、一文字キーボードから入力してもらい、
入力された文字で処理を分岐させようというだけです。
つまりread(c); でreturn を入れなくても一文字読み込みたいというだけです。


320:デフォルトの名無しさん
07/07/12 08:00:06
コンソール入力はwindows側でバッファされてるから、イベント入力を使う必要がある
GUIアプリの例だと、ボタンとメモと、タイマーを貼り付けて
procedure TForm1.Button1Click(Sender: TObject);
begin
 AllocConsole;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
 pirBuffer: INPUT_RECORD;
 hdl: THandle;
 lpcRead: DWORD;
begin
 hdl := GetStdHandle(STD_INPUT_HANDLE);
 if integer(hdl) < 0 then
 exit;
 while ReadConsoleInput(hdl, pirBuffer, 1, lpcRead) do
  with pirBuffer do case EventType of
    KEY_EVENT: //Event.KeyEvent
     if Event.KeyEvent.bKeyDown then
      Memo1.Lines.Add('KEY=' + Event.KeyEvent.AsciiChar);
    _MOUSE_EVENT: //Event.MOUSE_EVENT
     with Event.MouseEvent do
      Memo1.Lines.Add(format('%5d %5d ', [dwMousePosition.x, dwMousePosition.y]));
    WINDOW_BUFFER_SIZE_EVENT, //Event. WindowBufferSizeEvent
     MENU_EVENT, // Event. MenuEvent
     FOCUS_EVENT: //Event.FocusEvent
   end;
end;

コンソールアプリだと、このタイマーの部分でキー入力があるまで無限ループする関数を書く事になるだろな

321:デフォルトの名無しさん
07/07/13 07:16:47
ありがとうございます。
これを参考にコンソール用に書き直してみます。


322:296
07/07/13 17:53:11
お世話になります。
ブラウザコンポーネント上の
FlashActiveX上の入力問題で質問した>>296です。
みなさんありがとうございました。
時間がかかりましたが、
なんとか解析して自己解決できました。
これでDelphiのままいけそうです。


323:デフォルトの名無しさん
07/07/16 03:42:15
>>322
解析結果を書いてくれるとみんなが幸せになれるかもよ

324:デフォルトの名無しさん
07/07/28 20:12:22
>>323
スクリプトによって書かれて配置される
FlashActiveXが、1ページに2つ以上あるときに、
従来の方法で
2つ目のものにメッセージを送れていない場合があるようです。
ウィンドウを細かく検索することで回避しました。


325:デフォルトの名無しさん
07/09/17 21:48:04
前スレうp頼む

326:デフォルトの名無しさん
07/09/17 21:56:24
っ 前スレうp

327:デフォルトの名無しさん
07/09/17 22:06:24
神キタ━━━(゚∀゚)━━━ !!
楽しみに待ってます。本当にありがとう!!
前スレの字句解析から意味解析のログ本当に勉強になったので

328:デフォルトの名無しさん
07/09/19 19:02:18
EditのPopupMenuに自作PopupMenu1をセットしたら、
元々EditにあったPopupMenuが無くなりますよね。

そうじゃなくて、EditのデフォのPopupMenuに自作PopupMenu1を足すには、
どうしたら良いでしょうか?

329:デフォルトの名無しさん
07/09/19 19:27:16
DPAPI(データ保護 API) を 使って パスワードを
OSに記憶してもらう方法とか有ったら知りたいのですがなかなか見つかりません。
マイクロソフトのページには

DPAPI は、以下の項目を保護するのに役立ちます。
• Web ページの資格情報 (たとえば、パスワード)
• ファイル共有の資格情報
• EFS (暗号化ファイル システム)、S/MIME、および他の証明書に関連付けられた秘密キー
• CryptProtectData() 関数を使用して保護されているプログラム データ
とあるのですが このDPAPIは単純に任意のパスワード等保護してもらえる機能として
捕らえていいのでしょうか 。 delphi7を利用しています。 どなたか情報いただけませんか。


330:デフォルトの名無しさん
07/09/20 08:37:27
>>328 もヨロ!

331:デフォルトの名無しさん
07/09/20 12:07:54
>>328
たぶん出来ない。
右ボタンメニュを出すには TrackPopupMenu を呼び出すわけで
エディットコントロールにはデフォルトのWM_RBUTTONUP内部でコレを呼び出してる部分があるのだろう

TrackPopupMenuを呼び出すにはhMenuが必要だけど、EDITでコレを入手する方法が見つからない。
親窓なら、GetMenuでhMenuを呼び出せるけど、小窓ではそれが出来ないから。


332:デフォルトの名無しさん
07/09/20 12:38:35
そうですか(´・ω・`)ショボーン

>親窓なら、GetMenuでhMenuを呼び出せるけど、小窓ではそれが出来ないから。

親窓を取得したりできないですかね。

差し替えたPopupMenu1のイベントハンドラを実行すると、
EditのデフォルトのPopupMenuを開きなおしたり、
とかでも良いのですが。



333:デフォルトの名無しさん
07/09/20 12:53:09
>>332 後半なら
var SaveMenu:TPopupMenu;
begin
 SaveMenu:=Edit1.PopupMenu;
 Edit1.PopupMenu:=nil;
  SendMessage(Edit1.Handle,WM_RBUTTONDOWN,Edit1.Left,Edit1.Height);
  SendMessage(Edit1.Handle,WM_RBUTTONUP,Edit1.Left,Edit1.Height);
 Edit1.PopupMenu:=SaveMenu;
end;

と、いったんメニューを外して、右ボタンを押して離してを送りつければ出るよ

334:デフォルトの名無しさん
07/09/20 12:57:32
有難うございます。それでやってみます。(*`∀´*)

335:デフォルトの名無しさん
07/09/20 13:28:00
メニューを外さなくても、直接小窓にメッセージを送ると出るみたい

var pt:TPoint;
begin
pt:=ClientToScreen(Point(Edit1.Left,Edit1.Height));
PostMessage(Edit1.Handle,WM_CONTEXTMENU,Edit1.Handle,pt.x+(pt.y shl 16));
end;


336:デフォルトの名無しさん
07/09/20 13:49:46
thx! >>333 >>335

両方おk、でした。

TPointを指定するのメンドウだから、333でやるかも。

PopupMenu1のメニューの一つに編集っていうメニューを用意して、それだとデフォメニューをオープン、
という動作でカコヨクできました。

337:デフォルトの名無しさん
07/09/21 20:03:36
>>326
ひょっとしてあたしを騙したの?

338:デフォルトの名無しさん
07/09/21 20:47:23
勝手な思いこみ

339:デフォルトの名無しさん
07/09/22 02:55:26
今からでるふぁい

340:デフォルトの名無しさん
07/09/22 18:11:26
もう死んデルファイ

341:デフォルトの名無しさん
07/09/24 00:52:44
みなさん
多言語化(日本語/英語)
をするときはどうしてますか?おしえてください


342:デフォルトの名無しさん
07/09/24 00:58:53
>>341
TNT+dxgettext

343:デフォルトの名無しさん
07/09/24 03:36:29
素直にリソースDLLウィザード。日本語/英語以外の言語サポートが必要ならTNTも併用。

344:デフォルトの名無しさん
07/09/24 04:17:57
標準VCLって役立たずだな

345:デフォルトの名無しさん
07/09/24 12:17:20
>>341
Delphiに国際化対応のツールが付属してるでしょ、

346:デフォルトの名無しさん
07/09/25 07:52:39
61 名前:34[] 投稿日:2007/09/24(月) 19:13:21
お久しぶりです。TThreadでボヤいてた者です。
TThreadをプールして使い回してみたところ問題なさそうなのでこれで行くことにしました。
あとスレッドで処理中にフォームを操作するとCPU100%のまま帰ってこなくなる現象が出ましたが、
TThreadの方にpublicで作ったAnsiStringに渡した文字列が原因だったようで、
スレッドの変数をAnsiString.Unique()して参照を切り離してやったら問題無くなりました。
これから先に嵌る人が居るかもしれないので書いておきます。

改めてありがとうございましたorz



347:デフォルトの名無しさん
07/09/27 14:25:29
みなさんありがとうございます。
>国際化、リソースDLL

こちらに書いてあることでしょうか?
URLリンク(www.wwlnk.com)
最後に書いてある、一度設定したらもう変更できないみたいな
ことが気になるのですが、
修正が入ったり、言語が変わると文字列の幅が変わるので
画面の調整も必要に思うんですが
みなさんどうしているのでしょうか?

何度も修正する場合
TNT+dxgettextが使われるのでしょうか。


348:デフォルトの名無しさん
07/10/04 12:21:13
アプリ全体のフォントサイズを大きくするって簡単ですか?

349:デフォルトの名無しさん
07/10/04 15:10:25
Formのフォントサイズをでかくすれば
その上に貼り付けたコントロールも一緒にでかくなる。
ParentFont参照。
ウィンドウキャプションとかはWindowsが描いてるものだから無理。

350:348
07/10/04 15:20:04
サンクス>>349

351:デフォルトの名無しさん
07/10/04 16:38:18
JPEG2000を表示する方法を教えて頂けないでしょうか?

352:デフォルトの名無しさん
07/10/04 22:53:42
>>351
Susie Plug-in + SPIS

353:デフォルトの名無しさん
07/10/10 11:38:53
実行中のexeのリストを取得するコンポはありまつか?

354:デフォルトの名無しさん
07/10/10 14:59:41
すれ違い

>Delphi初心者が問題をコツコツと解きながらレベルアップするためのスレです。

355:デフォルトの名無しさん
07/10/10 16:31:39
>>353
マジレスするとDelphiでは無理

356:デフォルトの名無しさん
07/10/10 18:38:07
>>353
コンポは知らないけど
NtQuerySystemInformation
を googleさんに begin とか pas と and で聞いたら 教えてくれるんじゃないかな

357:デフォルトの名無しさん
07/10/10 19:06:35
>>353
コンボはないけど、
多分、TookHelp関数を使えば割と簡単にできると思う。
具体的にはTHelp32.pasに宣言されている、
Process32FirstとProcess32Nextを使えばいいんじゃない。

358:デフォルトの名無しさん
07/10/10 23:55:39
>>355
お前の持ってるでるふゃいではな。

359:デフォルトの名無しさん
07/10/11 00:26:35
API使える言語ならどれでも出来る
逆にこれをライブラリ化してる製品ってないんじゃないかな

360:Delフサギコ ◆A6VzDeLphI
07/10/11 01:04:52
   ∧,,∧   これつかってちょ。
  ミ,,゚Д゚彡 
   U  つ   
 @ミ  ミ    
   ∪''∪ 

DelFusa Library - Delphi OpenSource - DelFusa Floor
URLリンク(delfusa.main.jp)

GetProcExeNameList


361:デフォルトの名無しさん
07/10/11 05:28:29
おまいら、すれ違い

>Delphi初心者が問題をコツコツと解きながらレベルアップするためのスレです。

362:デフォルトの名無しさん
07/10/11 06:37:28
問題
インチをセンチメートルに変換するプログラムを作って
細かい仕様は自由
ヒント:1in = 2.540cm 、StrToFloat

363:デフォルトの名無しさん
07/10/11 07:36:26
program Project1;
{$APPTYPE CONSOLE}

function InchToMetre(Value:Double):Double;
const
  INCH_UNIT=0.0254;
begin
  Result := Value * INCH_UNIT;
end;

begin
  writeln(InchToMetre(0.050)); //12.7
  writeln(InchToMetre(0.045)); //7.62
  writeln(InchToMetre(0.030)); //5.56
end.


364:デフォルトの名無しさん
07/10/11 07:36:56
嘘が書いてあるorz

365:デフォルトの名無しさん
07/10/11 09:15:41
DelphiでJpeg2000を表示する方法を教えて下さいでつ。

366:デフォルトの名無しさん
07/10/11 09:48:48
しつこい

367:デフォルトの名無しさん
07/10/11 09:53:58
URLリンク(codecentral.borland.com)

368:デフォルトの名無しさん
07/10/11 11:44:07
DelphiでJpeg2000を表示する方法を教えて下さいでつ。

369:365
07/10/11 11:51:18
368はニセモノでつ。









でも、実は未だに解決してなくて知りたかったりして。

370:デフォルトの名無しさん
07/10/11 13:22:13
普通に>>367ので表示できたけど?

371:365
07/10/11 14:23:02
サンクス>>370

実は自分もDel7出来ました。

が、実際の環境である、














C++ Builder 6だと上手くコンパイルできないんでつ><

372:デフォルトの名無しさん
07/10/11 16:41:56
Delphiアプリのメインフォームのウィンドウクラスって、TApplication固定でしたっけ?

373:デフォルトの名無しさん
07/10/11 19:19:37
でつでつ言うなよ

374:デフォルトの名無しさん
07/10/11 22:14:07
でつな

375:デフォルトの名無しさん
07/10/12 15:44:09
(a+3)^
ってある^はどういう意味?

376:デフォルトの名無しさん
07/10/12 16:43:45
ObjectPascalの場合 後ろの^は ポインタの参照
C言語の *(a+3) と同じ

377:デフォルトの名無しさん
07/10/12 17:52:24
なるほどサンクス

378:デフォルトの名無しさん
07/10/12 18:39:09
よく見かける、
エディットボックスにファイルをD&Dしてそのパスを取得
はどのようにやればよいですか?

379:デフォルトの名無しさん
07/10/12 19:29:56
質問はこちらにどうぞ
くだすれDelphi(超初心者用)その44
スレリンク(tech板)l50

380:デフォルトの名無しさん
07/10/13 05:15:36
答えられんからって誘導とは酷いな!

381:デフォルトの名無しさん
07/10/17 17:21:40
vb.netでそこそこは作れるレベルだけど、delphi始めようと思ったら最初に買うべき
本は何がいい?
それかどぼんみたく、そこだけ見ればそこそこのものは作れるようになるサイトか

382:デフォルトの名無しさん
07/10/17 23:12:41
何を作りたいかだろ
ファイラ作りたいとか、MMO作りたいとか(スレがあっったりするが)

383:デフォルトの名無しさん
07/10/18 08:44:22
ドトネトみたく環境設定も要らないし、コンポーネントも要るものはあるし。
いきなり始めて、躓いてから質問してみたら?


次ページ
最新レス表示
スレッドの検索
類似スレ一覧
話題のニュース
おまかせリスト
▼オプションを表示
暇つぶし2ch

5117日前に更新/190 KB
担当:undef