向ftp服务器 写入文件失败,关于从FTp服务器取回文件写入数据表时提示:file not found(2)...
当前位置:我的异常网» Delphi » 关于从FTp服务器取回文件写入数据表时提示:file not
关于从FTp服务器取回文件写入数据表时提示:file not found(2)
www.myexceptions.net 网友分享于:2015-08-26 浏览:29次
end;
end;
end;
//FTp连接
function TFtpDatFrm.FuncConnectFTP(var AErrMsg: string): integer;
begin
Result := -1;
if not IdFTP1.Connected then
try
IdFTP1.User := ps_UserName;
IdFTP1.Password := ps_PassWord;
IdFTP1.Host := ps_ServerIP;
IdFTP1.Port := StrToInt(ps_Port);
IdFTP1.Connect;
if not IdFTP1.Connected then exit;
Except
On E:Exception do
begin
ProcMemoAdd( E.Message);
exit;
end;
end;
Result := 0;
end;
//将数据从文件写入数据表中,Orale9i
procedure TFtpDatFrm.ProcUpdateData(p_type:integer);
var
v_i,v_II:integer;
v_s,v_zmzh,v_spbm,v_xql,V_hdl,v_filename,v_khjlbm,v_cjy,v_khbm,vsql:string;
ttt,ff:TextFile;
pInfile:string;
v_dir,v_filedirname:string;
FileStream:TFilestream;
begin
try
ADOConnection.BeginTrans;
with Aqry do
begin
close;
sql.Clear;
if p_type=1 then
sql.Add('truncate table TEMP_QT_XQHDL');
if p_type=0 then
sql.Add('truncate table TEMP_TABLE_KCZ');
vsql:=Aqry.SQL.text;
ExecSQL;
end;
ADOConnection.CommitTrans;
except
on e:exception do
begin
ADOConnection.RollbackTrans;
//Application.MessageBox(pchar('清空青铜数据出错:'+e.Message),'提示');
ProcMemoAdd('清空青铜数据出错:'+e.Message);
exit;
end;
end;
v_dir:=ExtractFilePath(Application.ExeName);
v_filedirname:=v_dir+'new\Imput.ctl';
AsSignFile(ttt,v_filedirname);
//if Not FileExists(v_filedirname) then ReWrite(ttt)
// else Append(ttt);
if FileExists(v_filedirname) then
Application.MessageBox(pchar('文件存在'),'提示')
else Application.MessageBox(pchar('文件不存在'),'提示');
ReWrite(ttt) ;
Writeln(ttt,'load data');
if p_type=1 then
FlbFiles.ApplyFilePath(ExtractFilePath(Application.ExeName) + 'FilesDownLoad_flow\');
if p_type=0 then
FlbFiles.ApplyFilePath(ExtractFilePath(Application.ExeName) + 'FilesDownLoad_userstore\');
for v_II:=0 to FlbFiles.Items.Count-1 do
begin
v_filename:=FlbFiles.Items.Strings[v_II];
if p_type=1 then
if Copy(v_filename,length(v_filename)-15,12)=ps_flow then
Writeln(ttt,'infile '''+ExtractFilePath(Application.ExeName) + 'FilesDownLoad_flow\'+v_filename+'''');
{if p_type=0 then
if Copy(v_filename,length(v_filename)-25,22)=ps_userstore then
Writeln(ttt,'infile '''+ExtractFilePath(Application.ExeName) + 'FilesDownLoad_userstore\'+v_filename+''''); }
end;
if p_type=1 then
begin
Writeln(ttt,'append into table TEMP_QT_XQHDL ');
Writeln(ttt,'(khbm POSITION(01:12),spbm POSITION(14:21),CJYXQL POSITION(27:31),CJYHDL POSITION(32:36),SYXQL POSITION(37:41),SYHDL POSITION(42:46),SYXSL POSITION(47:51))');
end ;
{else
begin
Writeln(ttt,'append into table TEMP_TABLE_KCZ ');
Writeln(ttt,'(zmzh POSITION(01:12),spbm POSITION(13:23),kcz POSITION(24:33),pdrq POSITION(34:41),cjrq POSITION(42:49))');
end;}
CloseFile(ttt);
AsSignFile(ff,ExtractFilePath(Application.ExeName)+'new\Imput.bat');
ReWrite(ff) ;
Writeln(ff,'c:');
Writeln(ff,'sqlldr userid='+ps_ConnUser+'/'+ps_ConnPassWord+'@'+ps_Sid+' control='+ExtractFilePath(Application.ExeName)+'Imput.ctl');
文章评论
向ftp服务器 写入文件失败,关于从FTp服务器取回文件写入数据表时提示:file not found(2)...相关推荐
- mysql 服务器安全狗_服务器卸载安全狗后,数据库无法连接,点击启动时提示mysql无法启动1069...
服务器卸载安全狗后,数据库无法连接,点击启动时提示mysql无法启动1069 前些天装了服务器安全狗后,发现网速反而变慢了,影响体验,并且相应的服务器都变慢了, 只有把安全狗软件删了,可以问题来了,删 ...
- linux下载大文件失败,Linux下FTP/SFTP传输大文件总是失败的处理办法
海外服务器,一般延迟都比较高.如果不是China Telecom/China Unicom路由直连,延迟更加的不稳定,甚至长连接会经常闪断.国内跨运营商服务器,没有BGP网关,也同样会发生这样的情况, ...
- pureftpd mysql 失败_pureftpd传输速度慢与传送文件失败问题以及不能上传文件/目录的解决办法...
pureftpd其实是一款不错文件上传功能了,但是如果说我们开了主动模式之后你会发现它传输速度慢与传送文件失败这些问题了,下面我来给各位介绍一个解决办法. pureftpd本身传输文件和反映速度可以, ...
- 服务器部署系统启动失败,安装程序配置服务器失败Microsoft SQL Server Desktop Engine...
安装MSDE2000出现错误的解决办法 安装程序配置服务器失败Microsoft SQL Server Desktop Engine Microsoft SQL Server Desktop Engi ...
- t6服务器验证密码失败,T6客户端连接服务器报错误-SA用户登陆失败
固定资产恢复月末结账时提示BOF或EOF中有一个值是真错误解决方法固定资产恢复月末结账时提示BOF或EOF中有一个值是真错误 问题名称:固定资产恢复月末结账时提示BOF或EOF中有一个值是真错误问题现 ...
- 登录用友时显示不能建立跟服务器的连接,用友GRPR9乡财县管管理软件登录时提示“无法与中间层服务器建立连接,请重新设置中间层”的解决办法知识课件(11页)-原创力文档...
用友GRP_R9乡财县管管理软件登录时提示"无法与中间层服务器建立连接,请重新设置中间层"的解决办法; 当登录用友GRP_R9乡财县管管理软件出现如下提示,请按以下所述解决: (1 ...
- PHP将sql文件导入mysql数据库及将mysql中的数据表导出为 sql文件
导入: 1.(运行环境为wamp)浏览器地址栏输入http://localhost/phpmyadmin/,进入phpmyadmin首页. 2.在左边目录选择要加入的数据库 3.点击上方import按 ...
- oracle不能写入注册表,保存注册表时提示无法创建值,写入注册表时出错怎么办?...
如何解决保存注册表提示"无法创建值,写入注册表时出错"的问题?电脑当中的注册表编辑器有着十分重要的作用,但是最近却有用户表示遇到了编辑注册表后保存却提示"无法创建值,写入 ...
- scp 下载服务器文件失败,因为目标服务器升级 ECDSA host key for IP has changed and you have requested strict checking.
1. 代码: 2. 问题log: 3. 解决代码: 4.原因: 这是Linux重装或者openssh-server重装引起的. 用ssh会把你每个你访问过计算机的公钥(public key)都记录在~ ...
最新文章
- linux音频时钟bclk,linux alsa音频中采样率fs、比特率BCLK 、主时钟MCLK关系
- android edittext 手机号码,Android中EditText中的电话号码格式
- select count mysql_mysql select count 与 select count 两个执行效率怎样
- IDL | 实验四 IDL输入输出
- 南昌计算机学校哪家最可靠,南昌问题孩子管教学校哪家靠谱
- 价值连城 神经网络- 吴恩达Andrew Ng Coursera Neural Networks and Deep Learning
- 【UX/UI原型模板】中国地图元件库操作说明(省份+直辖市+自治区+行政特区详细地图)
- 游戏战斗力量模型量化
- win10虚拟机连接不上内网服务器,win10系统虚拟机无法连接网络的解决方法
- 对接企业微信3:网页授权登录
- 计算机储存单元中的储存的内容是什么,什么是存储单元的地址?什么是存储单元的内容?...
- 【mysql】mysql 中 text,longtext,mediumtext 字段类型的意思, 以及区别
- 每日一题 笨拙的手指
- Java实现-数字组合1
- postman打开启动慢,原因:长时间没清理缓存,解决:删除postma缓存重启即可
- linux内存测试工具memtest,用Memtest86检测电脑内存
- jenkins通过git拉取大项目出现拉取失败的情况Error fetching remote repo ‘origin’
- 计算机图形学 学习总结
- ECCV 2022 | 港中文MMLab:基于Transformer的光流
- 阿里云国际站:互联网云巨头增速放缓 SaaS生态决胜未来?