把你的 文件目录名+文件名 贴出来
我的 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.
