Solved

Get file date & hour from NMFTP

Posted on 2001-08-02
4
373 Views
Last Modified: 2007-12-19
I am using Delphi 5 and NMFTP Component.
I need to get the date of the files in the server.
I want to do something like this:

with NMFTP1 do
  begin
    ParseList := TRUE;
    Connect;
//gets a listing of files,names,dates&attributtes
    List;
    Name1stFile := FTPDirectoryList.Name[0];
    Date1stFile := FTPDirectoryList.ModifDate[0];
    StrToDateTime(Date1stFile); //!!!!FAIL!!!!
end;

The date recovered is in this format "Aug 2 18:08"
But i need something that i can convert to datetime, and of course the year...
It not depends on server configuration because BulletProof FTP get then date by the way in need "02/08/2001 18:08:00" as configured in my machine, so there may be a way...
Thanks to you all
0
Comment
Question by:spk2000ar
  • 2
  • 2
4 Comments
 
LVL 2

Expert Comment

by:SChertkov
Comment Utility
This is POSIX date convention: for date less 7 month ago
the date be reflected as mon day time
(have in mind current year),
for greater date  format is mon day year.

For decode this date you can try following


const
  Months: array[1..12] of string = (
    'Jan', 'Feb', 'Mar', 'Apr',
    'May', 'Jun', 'Jul', 'Aug',
    'Sep', 'Oct', 'Nov', 'Dec');

function MyDecodeDate(S: String): TDateTime;
var
  Parser: TParser;
  StringStream: TStringStream;
  Month, Day, Year, Hour, Minute: Integer;
  d,m,y: Word;

  function GetMonth: Boolean;
  begin
    Month := 1;
    while not Parser.TokenSymbolIs(Months[Month]) and (Month < 13) do Inc(Month);
    Result := Month < 13;
  end;

begin
  StringStream := TStringStream.Create(S);
  try
    Parser := TParser.Create(StringStream);
    with Parser do
    try
      if not GetMonth then
        raise EConvertError.Create('');
      NextToken;
      Day := TokenInt;
      NextToken;
      Year := TokenInt;
      NextToken;
      if Token = ':' then
        begin
          Hour := Year;
          DecodeDate(Date, y, m, d);
          Year := y;
          NextToken;
          Minute := TokenInt;
          Result := EncodeDate(Year, Month, Day) + EncodeTime(Hour, Minute, 0, 0);
        end
      else
        Result := EncodeDate(Year, Month, Day);
    finally
      Parser.Free;
    end;
  finally
    StringStream.Free;
  end;
end;
0
 
LVL 4

Author Comment

by:spk2000ar
Comment Utility
I read the code and it seems to work but... what is TParser??
0
 
LVL 4

Author Comment

by:spk2000ar
Comment Utility
Sorry i found Tparser in classes unit.
I will select your comment as an answer but i need some advice first...
what will happens when the year changes... i still get the new year (says 2002) but the real year will be (2001)???
Thanks
0
 
LVL 2

Accepted Solution

by:
SChertkov earned 200 total points
Comment Utility
TParser defined in CopyPrsr unit.
If year changes you date represented
as Mon Day Year
0

Featured Post

IT, Stop Being Called Into Every Meeting

Highfive is so simple that setting up every meeting room takes just minutes and every employee will be able to start or join a call from any room with ease. Never be called into a meeting just to get it started again. This is how video conferencing should work!

Join & Write a Comment

A lot of questions regard threads in Delphi.   One of the more specific questions is how to show progress of the thread.   Updating a progressbar from inside a thread is a mistake. A solution to this would be to send a synchronized message to the…
Introduction Raise your hands if you were as upset with FireMonkey as I was when I discovered that there was no TListview.  I use TListView in almost all of my applications I've written, and I was not going to compromise by resorting to TStringGrid…
This video gives you a great overview about bandwidth monitoring with SNMP and WMI with our network monitoring solution PRTG Network Monitor (https://www.paessler.com/prtg). If you're looking for how to monitor bandwidth using netflow or packet s…
This video explains how to create simple products associated to Magento configurable product and offers fast way of their generation with Store Manager for Magento tool.

743 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

18 Experts available now in Live!

Get 1:1 Help Now