くだすれDelphi（超初心者用）その24

>>949
日本語限定というのが、おかしいですね。
そのGoogle検索でも、すでに大量にヒットしているじゃないですか。
英語が分からなくても、コードをみれば「適当に」分かるのでは？

付属ヘルプもリンク切れしていないようですし。
初心者すれで聞けば、すぐ回答がつく事ですし
何を求めているのか良く分かりません。

完璧を求めるなら、ソース付のPro版をお勧めします。

> 他の言語では、こんな酷い状態に陥りまくったことはないんだけど
何と比較しているのか良く分からんが
他の言語は金を出してもソースがついて来ないからな。

つか、適当に使って、上手く行かないって逆切れしている>>949って・・・

>>949
ヘルプのリンク切れであれこれ悩んで長文書く間に
お気軽にWideFormatってなんだと聞いてくれればいいのに。



# 気持ちはわかるがこのスレでそういう物言いをすると
# おにいさんたちが嬉々として寄ってくるので正直もう少し言葉遣いを考えてくれ。
# このスレの平和と安定の為に・・・

いまから、Delphi入門は正直おすすめしない。

そうそうWIN32対応のLonghornがリリースされるもんね。

最近プログラマにも、安定した公務員が一番、みたいなやつが増えてきたな。

そろそろこっちにおいで、ミ,,ﾟДﾟ彡フサギコのﾌｻﾌｻDelphi談話室その23
http://pc8.2ch.net/test/read.cgi/tech/1116997081/

タダにしても流行しない、それがDelphiクオリティ

ファイルの更新日時を秒単位まで正確に取得したいのですが、奇数秒が偶数に切り上げられてしまいます。
Delphiでファイルの更新時刻を正確に取得するにはどうしたらいいんでしょうか。
調べてみたところ、ファイルシステムがFAT32だと、奇数秒が切り上げられるというファイルシステム上の
制限があるらしいのですが、私の使用している端末はNTFSです。

テストに使用した関数は、
・FileAge→FileDateToDateTime
・FileGetDate→FileDateToDateTime
・（FindFirst→）SearchRec.Time→FileDateToDateTime
です。すべて同じように奇数秒が偶数に切り上げられます。

OSはWindowｓXP SP1
DelphiはDelphi7　Enterprise
です。
よろしくお願いします。

GetFileTime API

内部でDOS形式に変換してるから必ず2秒きざみになる
NTFS専用ならばSearchRec.FindData.ftLastWriteTimeを
FileTimeToSystemTimeで変換しる
>>961使う場合のやり方は>>961に聞け

>>961
私ももうちょっと調べてみましたが、Delphiから呼ばれるAPIは
・FileAge→FindFirstFileA
・FileGetDate→GetFileTime
・（FindFirst→）SearchRec.Time→FindFirstFileA
となっていました。
GetFileTime APIは、FileGetDateから呼ばれているようですね。
FATの最終更新時刻の分解能は 2 秒で、NTFSでは1秒（？）なので、
FileGetDateで正しく取得できるはずなんですけどねえ...

>>963
FileTimeToDosDateTimeを見落としてる

>>963
ごめん、>>962はFileTimeToLocalFileTimeしてからFileTimeToSystemTimeだ

皆さんありがとうございます。なんとかできました。
SearchRec.FindData.ftLastWriteTime→FileTimeToLocalFileTime→FileTimeToSystemTime→SystemTimeToDateTime
とすればうまく取得できますね。
こんな感じになりました。

function GetFileUpdTime(sFileName: String): TDateTime;
var
SearchRec: TsearchRec;
LocalTime: TFileTime;
SysTime: SYSTEMTIME;
begin
FindFirst(sFileName, faAnyFile, SearchRec);
try
FileTimeToLocalFileTime(SearchRec.FindData.ftLastWriteTime, LocalTime);
FileTimeToSystemTime(LocalTime, SysTime);
result := SystemTimeToDateTime(SysTime);
finally
FindClose(SearchRec);
end;
end;

966=960です。

FileAgeやFileGetDateでは、内部でFileTimeToLocalFileTime→FileTimeToDosDateTime
と変換しているため、秒が切り上げられてしまうんですね。
というわけで、GetFileTime（API)→FileTimeToLocalFileTime→FileTimeToSystemTime→SystemTimeToDateTime
でもうまくいきました。
ところでなぜ、DelphiではFileTimeToSystemTimeを使わずに、FileTimeToDosDateTimeを使っているのでしょうか？
FileTimeToSystemTimeがWin95/98に対応している以上、FATでも問題あるじゃないですよね？

>>967
WindowsAPIのヘルプにFATは2秒単位だと書いてあるが？
互換性という意味ではDOS形式にするのが正しい罠
ただ、プラットフォームで切り分けれとも思うけどさ

D1からの名残かもね。

>>968
互換性ですか。分解能が高くなる分には問題ないような気はしますが、もし互換性のためであれば、
やっぱりNTFSとFATの両方に対応した新しい関数も用意して欲しいものですね。

>>892
フォームを閉じただけではフォームは廃棄されず，そのコンポも廃棄されません．
閉じるときに廃棄したい場合はOnCloseイベントでAction に caFree を代入します．

>>929
もう5年くらい前ですが東京・新宿の紀伊國屋書店にDelphi関連書籍がほとんど無くて参ったことがありました．
近場の書店の方が揃っていたという．
（※近年，某魔法メガネ君の本で有名になった八王子駅前の某書店）

>>948
Delphiのヘルプは駄目なのは事実ですけどね．
J Builderの成功例をまねて普及のために無料版をばらまくなら
初心者がしっかり学べるドキュメントを残さなければいけなかったのですが…．

＞解能が高くなる分には問題ないような
偶数しか入ってこないはず、と思い込んでるソフトもあるんじゃないかな？

> J Builderの成功例をまねて普及のために無料版をばらまくなら
> 初心者がしっかり学べるドキュメントを残さなければいけなかったのですが…．

personal では作れないチュートリアルとかがあって、まだ修正されてないし、
もうそのときからドキュメントに関してはアキラメ。よって、ユーザ拡大もアキラメ。
先細りは自業自得だわな

パーソナルの登録で
「登録の最終確認のメールを xxxxx@xxxxxx に送信しました」
って出てから2日待ってもメールが来ないのは俺だけ？
もちろんメアドが間違ってるなんてオチじゃないよ。

>>973
もう暗くなったよ。巣にお帰り。

一定時間コンピュータがアイドル状態になったら
イベントが起きるようなコンポーネントかAPIってあります?
スクリーンセーバーみたいなことをやりたいんですが、
TApplication.OnIdle はメインスレッドが暇になったときにガンガン呼ばれるようで、
目的に合致しません。

Delphi 2005使ってます。

>>976
OnIdle イベント
アプリケーションがアイドル状態になったときに一度だけ呼び出され，
Done プロパティが False に設定されない限り再び呼び出されることはありません。
Delphi6のヘルプより。

>>977
Done := True; すればいいのではないか、ということでしょうか?

アイドル状態の説明が不十分だったのでちゃんとしておきます。
私がやりたいのは、一定時間マウスやキーボードをいじらずに
放置しておいた場合、イベントを発生させるということです。

TApplication.OnIdleは、処理すべきウィンドウメッセージがなくなったりすると
Done := True としてもミリ秒単位で発生するので向いていないようです。

よろしくお願いします。

GetLastInputInfo

>>979
ありがとうございます。
そのキーワードで検索したらDelphi-MLが出てきました。
お恥ずかしい限りです。
http://leed.issp.u-tokyo.ac.jp/~takeuchi/delphi/browse.cgi?index=079021

Pasclソースの整形ツールってありますか？

>>981
これかな？
http://jedicodeformat.sourceforge.net/

>>981
これも
http://onigiri.s3.xrea.com:8080/delphi/index.php?cmd=read&page=%A5%BD%A1%BC%A5%B9%A4%CE%BC%AB%C6%B0%C0%B0%B7%C1%A5%C4%A1%BC%A5%EB&word=formatter

八王子駅前って、くまざわ書店？

http://www.mapion.co.jp/c/f?uc=1&nl=35/39/08.524&el=139/20/31.806&grp=ic99&scl=10000

レスしたいところですが，もうすぐ1000なのでテンプレ作ってみたです．

すれたい：くだすれDelphi（超初心者用）その25

>>1 用 -------------------------------
このスレッドはBorland（ボーランド）のDelphi（デルファイ）について、
他のスレッドでは書き込めない超低レベル、
もしくは質問者自身何が何だが分からない質問を勇気を持って書き込むスレッドです。
Delphi使いが優しくコメントを返しますが、
お礼はDelphiの布教と初心者の救済をお願いします。

＜前スレ＞
くだすれDelphi（超初心者用）その24
http://pc8.2ch.net/test/read.cgi/tech/1115581376/

＜その他＞
Borland Home Page
http://www.borland.co.jp/
DelWiki （無料版Delphiの入手方法など）
http://onigiri.s3.xrea.com:8080/delphi/
----------
（続く）

>>2 用 -------------------------------
過去スレ

23 http://pc8.2ch.net/test/read.cgi/tech/1110470895/
22 http://pc5.2ch.net/test/read.cgi/tech/1107332482/
21 http://pc5.2ch.net/test/read.cgi/tech/1104511938/
20 http://pc5.2ch.net/test/read.cgi/tech/1101530485/
19 http://pc5.2ch.net/test/read.cgi/tech/1097454588/
18 http://pc5.2ch.net/test/read.cgi/tech/1093996761/
17 http://pc5.2ch.net/test/read.cgi/tech/1091671391/
16 http://pc5.2ch.net/test/read.cgi/tech/1089779142/
15 http://pc5.2ch.net/test/read.cgi/tech/1087823906/
14 http://pc5.2ch.net/test/read.cgi/tech/1085239007/
13 http://pc5.2ch.net/test/read.cgi/tech/1081003641/
12 http://pc5.2ch.net/test/read.cgi/tech/1076610073/
11 http://pc5.2ch.net/test/read.cgi/tech/1076609666/
-------------------------------
（続く）

>>3 用 -------------------------------
10 http://pc5.2ch.net/test/read.cgi/tech/1074523803/
09 http://pc5.2ch.net/test/read.cgi/tech/1071294733/
08 http://pc5.2ch.net/tech/kako/1068/10682/1068201045.html
07 http://pc5.2ch.net/tech/kako/1065/10651/1065195699.html
06 http://pc5.2ch.net/tech/kako/1063/10632/1063202727.html
05 http://pc5.2ch.net/tech/kako/1061/10610/1061090908.html
04 http://pc5.2ch.net/tech/kako/1058/10588/1058834815.html
03 http://pc5.2ch.net/tech/kako/1055/10559/1055986736.html
02 http://pc5.2ch.net/tech/kako/1053/10537/1053757982.html
01 http://pc5.2ch.net/tech/kako/1051/10518/1051882835.html
-------------------------------
（以上）

コメントが抜けておりました．問題点等ありましたらご指摘下さい．
特になければこのテンプレでスレ立てにトライしてみます．


以下，1レス消費してしまったので．
>>975 >>973の指摘は正しいと思います．ヘルプのリンク切れってぶっちゃけあ(ry
>>984 そうです．ここ数ヶ月は理工書売り場に行っていませんが，多分今でもおいてあると思います．

雑談・喧嘩はﾌｻﾌｻスレへっていれておいたら?

喧嘩って書くとかどが立つから、「雑談・討論」はフサスレへかな。

random(10)
とすると
かなり数値が偏るんですが
対処法は無いでしょうか？

random初期化関数無かったっけ？

ﾗﾝﾄﾞﾐｾﾞ

つうか初期化の話じゃないし
ttp://tobysoft.net/wiki/index.php?Delphi%2FMersenne%20Twister

>>990-991を考慮してスレ立てにトライします．

建てました．

くだすれDelphi（超初心者用）その25
http://pc8.2ch.net/test/read.cgi/tech/1119008091/

以後の質問は上記スレでおねがいします．

>>992
起動時にRandomize手続きを実行していますか？

>>997
乙です。

999

1000

このスレッドは１０００を超えました。
もう書けないので、新しいスレッドを立ててくださいです。。。