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

2008-09-04 10:11:49 415 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

国际项目投标那些事（三）海外项目招标文件的组成以一个实际的项目作为例子，是我2020年初投的一个东南亚国家的水厂的竞争性投标。这个投标的招标基于FIDIC yellow book (Design and Build) 合同模板。海外项目的招标一般是有专门的咨询公司(consulting engineer)写招标文件，有的咨询公司非常专业，对于技术、合同、业绩的要求非常细致。我这个项目的招标文件共5册 400多页（全英文），附件26册将... 阅读详情

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

...全文

2023华为od机试C卷【启动多任务排序】C++ 实现一个应用启动时，会有多个初始化任务需要执行，并且任务之间有依赖关系，例如A任务依赖B任务，那么必须在B任务执行完成之后，才能开始执行A任务。现在给出多条任务依赖关系的规则，请输入任务的顺序执行序列，规则采用贪婪策略，即一个任务如果没有依赖的任务，则立刻开始执行，如果同时有多个任务要执行，则根据任务名称字母顺序排序。阅读详情

yanfeishen79

Delphi 5,944 成员 262,941 内容

+ 关注 + 加入社区

切换为时间正序

chinawcs 2008-09-05

打赏
举报

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

我的 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.

pengxuan 2008-09-05

打赏
举报

换台电脑试试

yanfeishen79 2008-09-05

打赏
举报

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

chinawcs 2008-09-04

打赏
举报

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

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

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

lyguo 2008-09-04

打赏
举报

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

yanfeishen79 2008-09-04

打赏
举报

那要怎么解决？

xabcxyz 2008-09-04

打赏
举报

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

yanfeishen79 2008-09-04

打赏
举报

还是不行，我用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;
这样写好像也是有问题，传上去的文件只有扩展名。。。

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

相关推荐