delphiftp上传
‘壹’ delphi 传异地输数据库数据，用FTP如何传输，在线等候
1.Ftp文件传输可以使用NMFTP控件，使用方法，D6的帮助里有详细说明2.服务器端做一常驻程序，当有文件上传（用API函数检测硬盘是否发生改动），即进行数据导入
‘贰’ Delphi中，怎么使用FTP主动下传文件
delphi 提供了 indy 组件包，其中 TIdFTP 可以实现通过以 FTP 方式进行文件的上传与下载。示例代码如下：procere TForm1.Button2Click(Sender: TObject);var tt :TIdFTPListItems; t : TIdFTPListItem; i : integer; tfname : String;begin IdFTP1.TransferType := ftBinary; //指定为二进制文件 或文本文件ftASCII for i:=0 to IdFTP1.DirectoryListing.Count-1 do begin tt := IdFTP1.DirectoryListing; //得到当前目录下文件及目录列表 t := tt.Items[i]; //得到一个文件相关信息 Label1.Caption :=t.Text; //取出一个文件信息内容 tfname := t.FileName; showmessage(t.OwnerName+' '+t.GroupName+' '+t.FileName+' '+t.LinkedItemName); if IdFTP1.DirectoryListing.Items[i].ItemType = ditFile then //如果是文件 begin IdFTP1.Get(tfname,'d:\FTPtest\'+tfname,True,True); //下载到本地，并为覆盖，且支持断点续传 end; end;end;
‘叁’ [delphi]关于上传文件，代码如下： 问题是文件上传都成功，可是下载的时候却只能下下来一个空白的文件
这种问题我也遇到过，不知道你用的是不是SQL，如果是SQL SERVER 的话，你可以用查询分析器查询这条数据，然后他的image字段就会显示出来，如果为空，说明你上传的时候没有将东西上传上去，那就是上传的问题，如果是有数据的，那主要就是下载的问题，先明确问题之后，再去找下面的原因。
哦，突然发现，你是将数据流用字符串保存的？
如果是这样，要用特定的函数将流转换成字符串的。 （自己网络下，把流转换成字符串，我这无法网络- -）
pWJNR:=Parameters.ParamByName('CJWJ').LoadFromStream(pFileStream,ftBlob);
这么写应该是不对的。
一般情况是，定义一个流类型，然后将文件转换成流，然后直接保存到数据库的image字段中，然后下载的时候，再将image字段转换成文件。就好了。。
var
m:TMemoryStream;
begin
m:=TMemoryStream.Create;
m.LoadFromFile(Fielname);
Data1.ADOhtgl.edit;
Data1.ADOhtgl.Parameters.ParamByName('CJWJ').LoadFromStream(m,ftBlob);
Date1.ADOhtgl.Post;
end;
如满意请采纳，如有问题请追问。