是用下面这种方式上传附件的
sLocalFile:=Tstringlist.Create;
sServerFile:=Tstringlist.Create;
sLocalFile.Add(sFileName);
sServerFile.Add(strDir+'\'+sFileTitle);
ftpStr:=OAZYJ.TOAZYJ.GetFtpIpAddress;
ftpPort:=Sysutils.StrToInt(OAZYJ.TOAZYJ.GetFtpPort);
ftpPwd:= OAZYJ.TOAZYJ.GetFtpUserPass;
ftpUser:=OAZYJ.TOAZYJ.GetFtpUserName;
if ccseasy.justftp.UpDownFile(self.handle,ftpStr,ftpUser,ftpPwd,ftpPort,sLocalFile,sServerFile,'1')=1 then
begin
jsdialogs.ShowMsg('附件上传成功!','提示');
end;
sLocalFile.Free;
sServerFile.Free; |