如何取得FTP服务器上某文件的时间（精确到秒）？

[charleysong]

我使用IFTP的控件，用LIST取回的文件，文件时间只精确到分钟，有没有办法精确到秒？请各位指点一二。

[Delphiandliu]

学习中

[charleysong]

推。

[qiujsh]

看FTP服务器支不支持了（返回字符串中是否有秒)，如果不支持，你用FTP换什么方法也实现不了

[huangrenguang]

记住引用WinINet哟！！！
{***************************************************************
* 方 法 名 : frmMain
* 编写目的 : 获取服务器上对应文件的大小(已上传部分)
* 作 者 : 黄仁光
* 参 数 :
SendFileName:发送给服务程序的续传文件的文件名
* 结 果 : int64
* 编写日期 :2002年09月25日
****************************************************************}
function GetServerFileSize(ServerAddr,UserName,Password:String;SendFileName:String):int64;
var
hOpenHandle: HINTERNET;//InternetOpen得到
RemoteData:WIN32_FIND_DATA;//结构
FContext:Integer;
FftpHandle:HINTERNET;//连接句柄
hFindHandle :HINTERNET;//查找句柄
HighSize:DWORD;
LowSize:DWORD;
begin
hOpenHandle := InternetOpen('http://192.168.100.21/tuopu.asp', 0, nil, nil, 0);
FContext := 255;
if hOpenHandle <> nil then
begin
FftpHandle := InternetConnect(
hOpenHandle, // Handle from InternetOpen
PChar(ServerAddr),
21,
PChar(UserName),
PChar(PassWord),
Internet_Service_Ftp,
0,
FContext
);
if FftpHandle <> nil then
begin
hFindHandle := FtpFindFirstFile(
FftpHandle,
PChar(SendFileName),
RemoteData,
0,
FContext
);
if hFindHandle <> nil then
begin
//下面这些时键的具体意思你看看帮助就明白了
//信息都在WIN32_FIND_DATA结构里啦
RemoteData.ftCreationTime;
RemoteData.ftLastAccessTime;
RemoteData.ftLastWriteTime;
/////////////////////////
HighSize := (RemoteData.nFileSizeHigh)*MAXDWORD+RemoteData.nFileSizeHigh;
LowSize := RemoteData.nFileSizeLow;
Result := HighSize+LowSize;
end
else
Result := 0;
end
else
Result := 0;
end
else
Result := 0;
end;

[charleysong]

高手请进！

[hjb8000]

用API自己写FTP功能好象可行，我没有用过控件方法

[charleysong]

TO： hjb8000(北极熊)

能不能给个例子，多谢！！！

[charleysong]

试了一下，不太好用，但还是表示感谢。