如何在Z在程序中调用FTP.EXE ,然后登陆FTP, 把服务器上文件抓下来.然后关闭FTP

[xuxf]

谢谢

[Tensionli]

shellexecute函数,功能运行外部程序，用法看看帮助。

[柯本]

先用程序生成一角本文件,形式如下:
用户名
口令
bin
get xxx
bye
然后用winexec或shellexecute或createprocess调用ftp.exe,参数为:
ftp.exe -s:角本文件名 服务器IP

[easyboot]

用shellexecute调用ftp
用 TerminateProcess结束ftp

[mugi]

把要运行的脚本生成为文本文件，然后执行的时候用-s参数：

ftp -s:文件名

-s:和文件名之间没有空格

如果要等待ftp传输完毕的话（也就是要得到ftp退出的事件通知的话），就要用CreateProcess来创建进程然后用WaitForSingleObject来进行等待，懒了，想知道的话回帖再说。

[xuxf]

嘿嘿,楼上的有具体的代码吗??或者一个小例子,谢谢

搞定好结贴

[xuxf]

嘿嘿，脚本应该怎么写？？还是没有搞定。。呵呵！郁闷!

[ly_liuyang]

还不如用IdFTP写一段简单的代码来得更实际
Indy官方提供Demo的,改改就能用

[mugi]

var
StartupInfo: TStartupInfo;
ProcessInfo: TProcessInformation;

begin
FillChar(StartupInfo, SizeOf(StartupInfo), 0);
StartupInfo.cb := SizeOf(StartupInfo);
StartupInfo.dwFlags := STARTF_USESHOWWINDOW;
StartupInfo.wShowWindow := SW_SHOW; // 改成SW_HIDE试试，呵呵

CreateProcess(nil, 'fff.exe -s:c:\test 221.236.28.104', nil, nil,
False, 0, nil, 'c:\'{保存路径}, StartupInfo, ProcessInfo);

while (True) do
begin

if MsgWaitForMultipleObjects(1, ProcessInfo.hProcess, False, INFINITE,
QS_ALLINPUT) = WAIT_OBJECT_0 then
begin
Break;
end;

Application.ProcessMessages;

end;

if FileExists('c:\o2ma100.ojn'{下载下来的文件}) then
begin
ShowMessage('上传成功');
end else begin
ShowMessage('上传失败');
end;

CloseHandle(ProcessInfo.hProcess);
CloseHandle(ProcessInfo.hThread);