一个刚毕业生的苦恼。。摆脱大家帮个忙,我快哭了。 ^_^。。。。(200分)

你好，我是一个刚毕业的学生，我应聘了一家公司，他们让我编这么一个FTP程序，
这个程序取得服务器中指定的目录下的所有文件的Datetime，然后这个文件的
Datetime要跟客户机上所指定目录下的文件的Datetime做比较，如果来自服务器
的文件日期比来自客户端的文件日期要新的话把服务器的哪些日期新的文件转送到
客户端所指定的目录下覆盖日期早的文件《服务器和客户端有同样路径和文件名》。
否则反过来。。。。
请大家帮个忙好吗。。。我好急呀。。。。 后天就交了。。。。。
我会万分感谢你们的，以后我也会帮你们做，我能作的到一切。。。。。

,帮不上忙，提！

找本书去。VC书上这样的例子，我都看到好几回了。
自己凭空怎么可能编出来啊？？？
找不到这样的书，那就没戏了。

哭啥哦！女人啊？
demo目录下面有个ftp程序

网上有不少关于FTP的源程序,你下载看看.

哭什么，有什么大不了的，找本书，给自己定个目标，做不出来不睡觉，看你做不做得出来！

别害怕。 到网上找ICS2000 控件的主页。 主页上有 FTP 程序的例子
稍微改改就好了。不明白的地方到这里来问.中午和下午晚上这里人都多。

大家是否说以下： 怎么得到服务器的某个路径的文件的修改日期。。
然后怎么互相比较日期就是说: datatime>datatime1 我使用是总是报错。。。。

搜索一下ftp指令集，看看也许会有帮助，别哭呀，“此处不留爷，自有留爷处“

shi fou gao cu <ics2000> de 详细地址。。
我艘了，有好多呀。。。

上網找相關例子，可以上Google.com找找。

DELPHI的DEMO中就有FPT的例题啊！ 去研究一下，这个问题不难解决！

msdn wininet 和 delphi demo 都不看就来这里哭，你还是别干了，干了也是浪费一个职位。

别哭,哎,如果你一点编程基础也没有的话,两天是有些困难,
就尽力试试看把,不行算了.
有具体的问题再来这里问问.

It业的门槛是否太低了点？搞得什么人都以为自己看了两本书就能编程？
这么简单的问题都搞不定，就别耽误时间了，干点更简单的工作去吧

不会就问,没什么不可.否则这里要来干吗?
中国的教育使得很多人连怎么学都不知道?
在各位网络冲浪很久的现在,还有人没有上过网.
何必扼杀他人的学习热情.

呵呵，同意mikedeakins和hubdog两位兄台的看法。
这个问题第一不用作系统分析——问题里已经说得很清楚了（获得文件时间、比较、传送——仅此而已。
你总不能希望对方出一个“Hello World!”程序让你写吧）；第二没有什么“难以实现”的技术问题——
ftp控件的使用方法——只要愿意查资料、看例子，相信智力正常的人都可以作出来，更不用说即将成为
程序员的人了。
悲哀！

>>不会就问,没什么不可
理直气壮嘛。
——if 他是小学生 and 这里是小学bbs then
随他问。问题是他好歹想成为一个程序员，
不是一遇到问题就跑去问老师的小学生！授人以鱼不如授人以渔——程序员是干什么的？就是
以写程序代码为职业的人。程序员必须有学习的能力——查帮助、翻资料获得知识的能力。
看他的架式，同志们如果不把完整的源代码给他的话，他是无法完成的。
>>扼杀他人的学习热情
您从哪一点看出他有“学习热情”这个东西？他除了会提问题，还会别的吗？他“试图”翻阅
资料、查看例子之后再来问吗？这种人遇到一个小问题，就跑到这个免费论坛，把问题整个
抛出来，等着吃现成的——这也叫“学习”吗？这无异于抄作业。
相比之下，我们对那些在探索的过程中遇到的问题还是很欢迎的——这种问题一点就通，不用
一行一行的把代码整个贴出来——回答的人也不费劲，提问的人也有实际收获。

哈哈，有个性[]

助人快乐之本
uses Wininet;
var
hConnect,hSession,hFind:HInternet;

procedure TForm1.Button1Click(Sender: TObject);
begin
if assigned(hConnect) then
InternetCloseHandle(hConnect);
hSession:=InternetOpen('MySoft',Internet_open_type_preconfig,nil,nil,0);
if assigned(hSession) then
begin
hConnect:=InternetConnect(
hSession,
PChar(Edit1.Text),
21,
//Internet_Default_ftp_port,
PChar('anonymous'),
PChar('tingweb@wx88.net'),
Internet_Service_ftp,
Internet_Flag_passive,
0);
{以上为连接FTP部分}
if assigned(hConnect) then
begin
FTPSetCurrentDirectory(hConnect,PChar('database/my'));
Label1.Caption:=GetCurrentDirectory;
ShowMessage('完毕！');
end;
end;
end;

然后
var
lpFindFileData:TWin32FindData;
isDirectory:Boolean;
begin
FTPSetCurrentDirectory(hConnect,PChar(Directory));
//
Label1.Caption:=GetCurrentDirectory;
hFind:=FTPFindFirstFile(hConnect,nil,lpFindFileData,0,0);
if assigned(hFind) then
begin
//if GetLastError<>ERROR_NO_MORE_FILES then
begin
repeat
isDirectory:=(lpFindFileData.dwFileAttributes and File_Attribute_Directory)=FILE_Attribute_Directory;
IF isDirectory then
begin
Memo1.Lines.Add(String(lpFindFileData.cFileName));
//AddFTPFile(lpFindFileData);
SetDirectory(String(lpFindFileData.cFileName));
//递归
end
else
begin
AddFTPFile(lpFindFileData);
end;
until InternetFindNextFile(hFind,@lpFindFileData)=False;
end;
InternetCloseHandle(hFind);
end;
end;