引言: 各位Delphi前輩： 小弟使用TIDFTP的元件，將Client端的檔案傳送到FTP Server上，結果上傳到FTP Server檔案的修改日期被修改為傳送的日期，與原來Client端檔案的修改日期不同，請問要如何做才能達到由Client端傳送到FTP Server上的檔案，其檔案的修改日期同Client端檔案的修改日期?敬請指教，感激不盡…

procedure ...
  var fHandle: THandle;
      fdate: TDateTime;
begin
  fdate:= StrtoDateTime('2004/12/24 13:00:00');
  fHandle:= FileOpen('c:\test.dbf', fmOpenWrite);
  FileSetDate(fHandle, DateTimeToFileDate(fdate));
  FileClose(fHandle);
...
end;    2.如何得知server端的檔案日期
由於透過FTP下來的都會被更改日期, 所以我的做法是下載一個LOG檔
該檔記錄此檔案的日期時間, 下載LOG FILE後去讀內容的資料, 再解成
上面的日期時間來變更, 這是比較快的方法

引言:

引言: 各位Delphi前輩： 小弟使用TIDFTP的元件，將Client端的檔案傳送到FTP Server上，結果上傳到FTP Server檔案的修改日期被修改為傳送的日期，與原來Client端檔案的修改日期不同，請問要如何做才能達到由Client端傳送到FTP Server上的檔案，其檔案的修改日期同Client端檔案的修改日期?敬請指教，感激不盡…

這個基本上有些棘手, 要分幾個層面 1.變更目前檔案的日期時間

procedure ...
  var fHandle: THandle;
      fdate: TDateTime;
begin
  fdate:= StrtoDateTime('2004/12/24 13:00:00');
  fHandle:= FileOpen('c:\test.dbf', fmOpenWrite);
  FileSetDate(fHandle, DateTimeToFileDate(fdate));
  FileClose(fHandle);
...
end;    2.如何得知server端的檔案日期
由於透過FTP下來的都會被更改日期, 所以我的做法是下載一個LOG檔
該檔記錄此檔案的日期時間, 下載LOG FILE後去讀內容的資料, 再解成
上面的日期時間來變更, 這是比較快的方法

引言: Hi, 就弟所知, 這個得看你 ftp server 上的設定, 若是 server 上的設定就是如此, 可能沒有辦法解決, 不過也可以查看 server 是否有 support MDTM 指令, 可以修改檔案日期及時間, 請參考, http://www.nsftools.com/tips/RawFTP.htm#MDTM 這篇只有顯示的語法介紹, 若是要修改 server 上的檔案日期時間, 語法為: MDTM yyyymmddhhnnss file-name 這樣即可!! 發表人 - timhuang 於 2004/12/27 18:28:27

var
  sRes: string;
begin
  IdFTP1.Host := 'ftp.test.com';
  IdFTP1.Port := 21;
  IdFTP1.Username := 'username';
  IdFTP1.Password := 'password';
  IdFTP1.Connect;
  sRes := IntToStr(IdFTP1.SendCmd('mdtm 20040501100900 file.txt'));
  if copy(sRes, 1, 1)='2' then
    ShowMessage('ok')
  else
    ShowMessage('fail with response:' ＋ IdFTP1.LastCmdResult.Text.Text);
  IdFTP1.Disconnect;
end;

引言: 當然不是用 ShellExecute 囉, 是要對遠端的 ftp server 下達 ftp command 利用 SendCmd 即可, 弟寫了一個小範例, 給你參考,

var
  sRes: string;
begin
  IdFTP1.Host := 'ftp.test.com';
  IdFTP1.Port := 21;
  IdFTP1.Username := 'username';
  IdFTP1.Password := 'password';
  IdFTP1.Connect;
  sRes := IntToStr(IdFTP1.SendCmd('mdtm 20040501100900 file.txt'));
  if copy(sRes, 1, 1)='2' then
    ShowMessage('ok')
  else
    ShowMessage('fail with response:' ＋ IdFTP1.LastCmdResult.Text.Text);
  IdFTP1.Disconnect;
end;

引言: It all depends on what kind of ftp server you are using..... Perhaps 'SITE EXEC' command or other site commands could help. http://pywong.hk.st http://www.lazybones.ca

引言: 請問是什麼 ftp server 呢? 可以找看看有沒有這方面的設定資料!!