我用delphi 自带ftp上传文件为啥只能上传英文文件名的资料

[yanfeishen79]

我用delphi 自带ftp上传文件为啥只能上传英文文件名的资料
ftp.put(PChar(opendialog1.FileName),filename,FALSE);
上传中文文件名的的就会提示Project GreenOA.exe raised exception class EIdProtocolReplyError with message '/??.doc: Cannot create file错误。

[yanfeishen79]

还是不行，我用ics写的也是有我问题。。
if ftp1.Connected then ftp1.Quit;
ftp1.Username:='greenway';
ftp1.Passive:=true;

ftp1.password:='';
ftp1.hostname:=';
ftp1.Connect;
if ftp1.Connected=true then
begin
ftp1.LocalFileName:=filedir+filename;
Ftp1.HostFileName:=filename;
ftp1.Put;
end;
这样写好像也是有问题，传上去的文件只有扩展名。。。

[xabcxyz]

没有试,从现象猜测是字符集问题,internet的7bit字符集和GB字符集传输出错了.

[yanfeishen79]

那要怎么解决？

[lyguo]

用INDY 中的试一下，
目录不要太长，另外不要有太多的其它字符，如：空格 括号等。

[chinawcs]

文件目录中 不能有 空格 如 : c:\123 456\xx.iso

最好用 ics 控件做个 ftp 简单稳定 不用 indy

另外 当文件大小超过 2G时 就不能上传了 需要该 原代码

[yanfeishen79]

上传文件的 目录是C:\Documents and Settings\syf\My Documents\厦门东通道维护制度.doc'

[pengxuan]

换台电脑试试

[chinawcs]

把你的 文件目录名+文件名 贴出来

我的 ics ftp 上传线程部分代码(仅供参考) 没有问题的


unit FtpPut;

interface

uses
Classes,UMirrorSend,dialogs,SysUtils,idftp;

type
ftpThd = class(TThread)
private
{ Private declarations }
CreateFileName:String;
ProName:String;
protected
procedure Execute; override;
public
constructor Create(StreamFile:String;FilesName:String);
procedure putfile;
end;

implementation

uses Math;

{ Important: Methods and properties of objects in visual components can only be
used in a method called using Synchronize, for example,

Synchronize(UpdateCaption);

and UpdateCaption could look like,

procedure ftp3.UpdateCaption;
begin
Form1.Caption := 'Updated in a thread';
end; }

{ ftp3 }

constructor ftpThd.Create(StreamFile:String;FilesName:String);
begin
CreateFileName :=StreamFile ;
ProName :=FilesName ;

FreeOnTerminate := True;
inherited Create(False);
end;

procedure ftpThd.Execute;
var
fstream: TFileStream ;


begin
try
fstream := TFileStream.Create(CreateFileName,fmOpenRead);
except
//ShowMessage('读取文件出错');
Abort;
end;

{ if not Form1.IdFTP2.Connected then
begin
ShowMessage('err');
fstream.Free;
end;}

try
{ftp1:=TIdFTP.Create(nil);
with ftp1 do
begin
Host :='124.0.0.188';
Port :=23;
Username :='system';
Password :='system';
Connect();
end;}

frmMirrorSend.ftpClient.put(fstream,ProName ,False );

Synchronize(putfile );
finally
fstream.Free;
Terminate ;

end;
{ Place thread code here }
end;

procedure ftpThd.putfile;
begin

//frmMirrorSend.ggFileSend.Progress :=0;
ShowMessage('上传完毕111！');
//frmMirrorSend.lvFileList.Items[2].Caption := '已发送';
{ Place thread code here }
end;

end.