FTP后文件的读取导入问题
秋天之落叶 2019-05-16 04:30:33 上一个问题,使用shell和cmd命令,由于某一台客户端的问题,导致cmd命令加载有问题,可能重装系统会修复。
使用了copyfile(),和使用DOS命令一样,其他机子没问题,原来的机子还是不行。
我就更换了FTP,以前没有使用过FTP,这里出现了一个问题:如何调用建立FTP上传文件成功后的使用问题?
以下为:客户端A上传datafile.xlsx文件到服务器端B的E:\temp\files\下,然后系统将服务器端B上传的文件E:\temp\files\datafile.xlsx导入SQL数据库表中。
问题:这个服务器端的E:\temp\files\datafile.xlsx文件,如何设置路径才能被客户端A远程调用?
使用\\IP\E$\temp\files\datafile.xlsx还是DOS的那一套,有的终端不能正常执行,有没有FTP状态下的路径使用方法?
以下请问: filespath := ??? //在FTP状态下,这里的路径如何写?
begin
with DataModule1.IdFTP1 do
begin //上传Excel文件
host := ftpip;
Username := ftpuser;
Password := ftppwd;
Connect;
RetrieveCurrentDir;
str := TStringList.Create;
List(str, '', False);
if DataModule1.OpenDialog1.Execute() then
Put(DataModule1.OpenDialog1.FileName, ExtractFileName(DataModule1.OpenDialog1.FileName));
filespath := ??? //在FTP状态下,这里的路径如何写?
end;
s := TStringList.Create;
with DataModule1.ADOConnection2 do
begin //远程装载FTP上传的excel文件,并读出其sheet页
Close;
ConnectionString := 'Provider=Microsoft.ACE.OLEDB.12.0;Data Source=' + filespath +
';Extended Properties=Excel 12.0;Persist Security Info=False';
LoginPrompt := False;
Open;
GetTableNames(s, False);
Close;
end;
s.Sort;
s.Sorted := True;
CheckListBox1.Items.AddStrings(s);
FreeAndNil(str);
FreeAndNil(s);
end;