|
|
下面是我上传ftp的一段代码：10分钟前测试时正常的可以上传文件，现在却上传不了？
卡在put这个地方，代码如下
procedure TWJSC.Button1Click(Sender: TObject);
var
lFileGUID,lFileName:string;
begin
Borland.Delphi.ActiveX.CoInitialize(nil);
IdFTP1.Host := '*.0.0.*'; //FTP服务器地址
IdFTP1.Username := '*'; //FTP服务器用户名
IdFTP1.Password := '*'; //FTP服务器密码
IdFTP1.Connect(); //连接到ftp
if IdFTP1.Connected then
begin
lFileGUID:='cs'+Business.System.JSCommon.CreateGUIDStr;
if OpenDialog1.Execute then
begin
IdFTP1.MakeDir(lFileGUID);
IdFTP1.ChangeDir(lFileGUID);
IdFTP1.TransferType :=TIdFTPTransferType.ftASCII;
IdFTP1.Put(OpenDialog1.FileName,Business.System.SysUtils.Extractfilename(opendialog1.filename),false);//上传
jsdialogs.ShowMsg('上传成功！！','提示');
end;
end;
IdFTP1.Quit;
IdFTP1.Disconnect;
Borland.Delphi.ActiveX.CoUninitialize;
end; |
|
发表于 2009-4-13 11:42:48
楼主