[delphi-users:3464] FTPサーバ上のファイルのタイムスタンプ

[村の人]

黒川と申します。

Delphi7 + Indy10 なのですが、
FTPサーバ上のファイルの一覧を取得した際に
タイムスタンプを確認すると時分までしか取得
出来ていないようなのですが、秒まで取得する
には何か設定があるのでしょうか？


MLホームページ: http://www.freeml.com/delphi-users

----------------------------------------------------------------------
練習や試合の予定調整は「とっとと決め太郎」におまかせ！
http://ad.freeml.com/cgi-bin/sa.cgi?id=kB88H
------------------------------------------------------[freeml byGMO]--

[Fukushi]

黒川さん、こんにちは。福士です。

> Delphi7 + Indy10 なのですが、
> FTPサーバ上のファイルの一覧を取得した際に
> タイムスタンプを確認すると時分までしか取得
> 出来ていないようなのですが、秒まで取得する
> には何か設定があるのでしょうか？

公式フォーラムの

Thread: DelphiXE TNMFTPの代わりにTIｄFTPを使用する場合について
https://forums.embarcadero.com/thread.jspa?threadID=53057

が参考になりませんか？

# ただしFTPサーバからタイムスタンプが秒単位で送られてきている
# ことが前提になります。

---
東洋テクニカルシステム株式会社 システム開発部 福士 光
Hikaru Fukushi (Toyo Technical System Inc.)
mailto:fuk...@tts-inc.co.jp


MLホームページ: http://www.freeml.com/delphi-users

----------------------------------------------------------------------
メールだけでみんなを招待できる便利機能♪
http://ad.freeml.com/cgi-bin/sa.cgi?id=kB95v
------------------------------------------------------[freeml byGMO]--

[村の人]

福士様

黒川です。
今のところ解決策は見つかっていませんが、
IdFTPのUseMLSをTrueにする事で、より詳細な
一覧データを取得する動きをするような内容
になっているようなのですが、実際にはUseMLS
をTrueにして一覧を取得するとIndyがエラー
を吐きます。

「Unable to handle command」

IssuFEATの内容ではCanUseMLSがTrueになって
いるので、コマンドMLSDコマンドは利用可能
なのではないかと思いますが、動作までには
いたっておりません。

ちなみにFileZillaで目的のFTPサーバーを
見ると秒単位まで取得できているようです
のでIndyの設定かなと思って調べていると
ころです。

MLホームページ: http://www.freeml.com/delphi-users

----------------------------------------------------------------------
使い方はいろいろ♪一部のメンバーだけにMLメールを送ろう！
http://ad.freeml.com/cgi-bin/sa.cgi?id=kBAvj
------------------------------------------------------[freeml byGMO]--

[Fukushi]

黒川さん、こんにちは。福士です。

> ちなみにFileZillaで目的のFTPサーバーを
> 見ると秒単位まで取得できているようです
> のでIndyの設定かなと思って調べていると
> ころです。

ネットワーク関係のプログラミング/デバッグの基本中の基本ですが、
Wireshark

http://www.wireshark.org/

のようなパケットキャプチャツールを使ってどのようなコマンド/
レスポンスがサーバとプログラムの間でやりとりされているのかを、
まずは確認するのがよいと思います。

---
東洋テクニカルシステム株式会社 システム開発部 福士 光
Hikaru Fukushi (Toyo Technical System Inc.)
mailto:fuk...@tts-inc.co.jp


MLホームページ: http://www.freeml.com/delphi-users

----------------------------------------------------------------------

いつでもどこでもメールチェック！freemlのスマートフォンアプリ
http://ad.freeml.com/cgi-bin/sa.cgi?id=kBAxR
------------------------------------------------------[freeml byGMO]--

[love56more]

お世話になります。
COOK2です。

Windows8のアプリをDelphiXe4で試作しています。

・開発環境
DelphiXE4 (Windows7)

・実行環境
ASUS T100TA-DK32G (Windows8.1)

・質問
ＶＣＬのメトロポリスＵＩでアプリを作っています。
ちょっと重い処理があり、処理中がわかるように

Screen.Cursor := crHourGlass

と入れてみましたが、画面にカーソルがなく
意味がありませんでした。

Windows8だとログインのときみたいにwaitのインジケータ（サークル？）を表示するのが
一般的なのかと思っていろいろ検索してみましたが
探し出すことができず、どうするのがいいのかわからない状況です。

iPhoneアプリなどをXCodeで開発したときは
waitのインジケータ（サークル）のオブジェクトがあって
それを貼って、処理の間動かすというようなことをしていましたが
そういうイメージではないのでしょうか。

どういうのが一般的なのかもわからない状況です。

知ってる方には、何いってんの？というような質問だと思いますが
教えてください。

すいませんがよろしくお願いします。

　


MLホームページ: http://www.freeml.com/delphi-users

----------------------------------------------------------------------
練習や試合の予定調整は「とっとと決め太郎」におまかせ！

http://ad.freeml.com/cgi-bin/sa.cgi?id=kBCbk
------------------------------------------------------[freeml byGMO]--

[love56more]

すいません、間違えました。

カーソルは、隠れていただけで、ありました。
ぐるぐる回転していました。


ほかの方法がありましたら、教えてください

よろしくお願いします。

MLホームページ: http://www.freeml.com/delphi-users

----------------------------------------------------------------------
メールだけでみんなを招待できる便利機能♪

http://ad.freeml.com/cgi-bin/sa.cgi?id=kBChI
------------------------------------------------------[freeml byGMO]--

[7of9]

COOK2さん。

セブンオブナインです。

黒川さんのメールトピックへの返信として別の質問をされているので、トピックを新しく作りなおした方が後々検索しやすいかもしれません。

とりあえず、回答します。

進捗を表示したい場合は、TProgressBarを使えばいいのではないでしょうか。
以下が使い方です。
この例では、Buitton1ClickがあるフォームにTProgressBarを載せていますが、
別のフォームにTProgressBarを載せたものを作り、その別フォームを
処理中だけ表示するというのでいいかもしれません。


procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
Screen.Cursor := crHourGlass;

ProgressBar1.Max := 5;
ProgressBar1.Position := 0;
ProgressBar1.Visible := true;

for i := 0 to 5 do begin
Sleep(1000);
ProgressBar1.Position := (i+1);
end;
ShowMessage('Fin');

ProgressBar1.Visible := false;

Screen.Cursor := crArrow;

end;

普段はC++ Builderでコードを組んでいるので、Delphiコードは
若干怪しいですが、上記のような感じでいかがでしょうか。

for分のto 5って、5まで処理されるのでしたっけ?

使い方はいろいろ♪一部のメンバーだけにMLメールを送ろう！
http://ad.freeml.com/cgi-bin/sa.cgi?id=kBCSj
------------------------------------------------------[freeml byGMO]--

[じゃぺ]

かわかみです

maxが5なので、Position:=i+1;するなら
for i := 0 to 4 do begin
ですかね。

MLホームページ: http://www.freeml.com/delphi-users

----------------------------------------------------------------------
いつでもどこでもメールチェック！freemlのスマートフォンアプリ

http://ad.freeml.com/cgi-bin/sa.cgi?id=kBCWD
------------------------------------------------------[freeml byGMO]--

[hosokawa]

COOK2 さん
セブンオブナインさん

こんばんは。
細川です。

多分、時間がかかる処理というのは、段階・回数が決まっている物では無いのですよね？
で、一般的に見られるサークル型の Progress を使用したいと言う事だと思います。

こういったときに、TProgressBar を使う場合は Style を Marquee にすると良いです。

そして、一般的なサークル型の WaitCircle は存在しないので、僕は自作しました。
最も楽なのは FireMonkey で作る事かも知れません。
そうすれば Additional に TAniIndicator があります。

なお

> for分のto 5って、5まで処理されるのでしたっけ?

for i := 0 to 5 do は６回処理されます。
Pascal の for 文は for i := Low to High do となるためです。

あと

> ProgressBar1.Position := (i+1);

の後ろに Application.ProcessMessages とか入れないとダメかもしれません（チェッ
クしてないので、動くかも知れません）

Regards,
HOSOKAWA Jun
[S/G] SERIALGAMES Inc.
TEL: 03-5812-0980
FAX: 03-5812-0970
twitter: http://twitter.com/serialgames
twitter: http://twitter.com/flaver_sg
mailto: j...@serialgames.co.jp
fla:ver http://flaver.jp/

MLホームページ: http://www.freeml.com/delphi-users

----------------------------------------------------------------------
練習や試合の予定調整は「とっとと決め太郎」におまかせ！

http://ad.freeml.com/cgi-bin/sa.cgi?id=kBCZh
------------------------------------------------------[freeml byGMO]--

[love56more]

セブンオブナイン様、かわかみ様、細川様
お返事ありがとうございます。

教えていただいた内容をもとに検討したいと思います。

ありがとうございました。^^

MLホームページ: http://www.freeml.com/delphi-users

----------------------------------------------------------------------
メールだけでみんなを招待できる便利機能♪

http://ad.freeml.com/cgi-bin/sa.cgi?id=kBDuA
------------------------------------------------------[freeml byGMO]--

[7of9]

かわかみさん、細川さん

セブンオブナインです。

for文に関しての回答ありがとうございます。
to 4というのがC++でいう所の i<=4になるのですね。


細川さん

>こういったときに、TProgressBar を使う場合は Style を Marquee にすると良いです。

これは知りませんでした。明日ビルド可能な環境で試してみます。
　勉強になりました。

使い方はいろいろ♪一部のメンバーだけにMLメールを送ろう！
http://ad.freeml.com/cgi-bin/sa.cgi?id=kBExH
------------------------------------------------------[freeml byGMO]--

[村の人]

福士様

黒川です。

いろいろ調べてみたところ
IdFTP.Listの使い方が原因だったようです
UseMLISがTrueの場合には秒単位のタイムスタンプ情報月で
ファイルの一覧が取得できるようですが、Listに引数を指定
して一覧をフィルタリングして取得しようとするとだめな
ようで、通常は
IdFTP.List(nil, Matches, True);
のような使い方で抽出したリストがDirectoryListingに入ってくる
のですが、UseMLISがTrueの場合には
IdFTP.List;
としてカレントの全てのリストを取得してからDirectoryListing
から必要な項目をとるようにしないとだめでした。

以上

MLホームページ: http://www.freeml.com/delphi-users

----------------------------------------------------------------------
【地域密着型で安心】住宅の悩みはプロに相談！
都道府県別 工務店ランキング注文住宅ランキング
http://ad.freeml.com/cgi-bin/sa.cgi?id=kBN87
------------------------------------------------------[freeml byGMO]--