Foxtable(狐表)用户栏目专家坐堂 → ftp 文件 另存 打开 报错.


  共有2016人关注过本帖树形打印复制链接

主题:ftp 文件 另存 打开 报错.

帅哥哟,离线,有人找我吗?
ljh29206
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1359 积分:12004 威望:0 精华:0 注册:2012/3/5 11:32:00
ftp 文件 另存 打开 报错.  发帖心情 Post By:2020/1/6 11:54:00 [只看该作者]

BeforeOpenFile 事件


 If e.filename.Contains(".pdf") Then
    Dim ftp As New FTPClient
    ftp.host=vars("FTP_ip地址")
    ftp.Account =vars("FTP_账号")
    ftp.password =vars("FTP_密码")
    ftp.Port= vars("FTP_端口")
  '  ftp.RootDir = "\图片文件\" & n '设置根目录
    If ftp.Download(e.FileName,"e:\downpdf.pdf") = True Then
        Dim fn As String = "e:\downpdf1.pdf"
        e.FileName = fn
    End If
End If

路径报错   ,打开不了文件,   是不是 ftp文件列  不能用本来路径打开?


 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106142 积分:539827 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/1/6 12:00:00 [只看该作者]

名称不一致呀

  If ftp.Download(e.FileName,"e:\downpdf.pdf") = True Then
        Dim fn As String = "e:\downpdf1.pdf"
        e.FileName = fn
    End If
End If

 回到顶部
帅哥哟,离线,有人找我吗?
ljh29206
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1359 积分:12004 威望:0 精华:0 注册:2012/3/5 11:32:00
  发帖心情 Post By:2020/1/6 12:06:00 [只看该作者]

 篮板  我没把代码贴全!

If e.filename.Contains(".pdf") Then
    Dim ftp As New FTPClient
    ftp.host=vars("FTP_ip地址")
    ftp.Account =vars("FTP_账号")
    ftp.password =vars("FTP_密码")
    ftp.Port= vars("FTP_端口")
  '  ftp.RootDir = "\图片文件\" & n '设置根目录
    If ftp.Download(e.FileName,"e:\downpdf.pdf") = True Then
        Dim fn As String = "e:\downpdf1.pdf"
        
        Dim waterMarkName As String = "TBFC  "  & User_ReName  & " " & Date.now
        Dim reader As New iTextSharp.text.pdf.PdfReader("e:\downpdf.pdf")
        
        Dim msWater As new io.FileStream(fn, io.FileMode.Create)
        
        Dim total  As Integer = reader.NumberOfPages
        Dim pdfStamper As new iTextSharp.text.pdf.PdfStamper(Reader, msWater)
        
        Dim psize = Reader.GetPageSize(1)
        Dim width = psize.Width
        Dim height = psize.Height
        Dim gs As new iTextSharp.text.pdf.PdfGState
        Dim basefont  As iTextSharp.text.pdf.BaseFont = iTextSharp.text.pdf.BaseFont.CreateFont("C:\WINDOWS\Fonts\SIMYOU.TTF", iTextSharp.text.pdf.BaseFont.IDENTITY_H, iTextSharp.text.pdf.BaseFont.NOT_EMBEDDED)
        For i As Integer = 1 To total
            
            Dim waterContent = pdfStamper.GetOverContent(i)
            waterContent.SetGState(gs)
            waterContent.BeginText()
            waterContent.SetColorFill( iTextSharp.text.BaseColor.RED)
            waterContent.SetFontAndSize(basefont, 28)
            waterContent.SetTextMatrix(0, 0)
            waterContent.ShowTextAligned(iTextSharp.text.Element.ALIGN_CENTER, waterMarkName, width / 2, height / 2, 55)
            waterContent.EndText()
        Next
        
        pdfStamper.close
        reader.Close()    '这里 加了水印 再另存的'

        e.FileName = fn    '但是来到这里  就报错了  ,说 路径 有问题
    End If
End If

图片点击可在新窗口打开查看此主题相关图片如下:捕获.jpg
图片点击可在新窗口打开查看


'----------------------------------------------------'
If e.filename.Contains(".pdf") Then
    Dim ftp As New FTPClient
    ftp.host=vars("FTP_ip地址")
    ftp.Account =vars("FTP_账号")
    ftp.password =vars("FTP_密码")
    ftp.Port= vars("FTP_端口")
  '  ftp.RootDir = "\图片文件\" & n '设置根目录
    If ftp.Download(e.FileName,"e:\downpdf.pdf") = True Then
        Dim fn As String = "e:\downpdf.pdf"
        e.FileName = fn
    End If
End If
'----------------------------------------------------'

直接这么写 也一样的错误
[此贴子已经被作者于2020/1/6 12:13:19编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106142 积分:539827 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/1/6 13:44:00 [只看该作者]

如果是远程ftp的文件,e.FileName 也必须是远程文件,而不能是本机文件

 回到顶部
帅哥哟,离线,有人找我吗?
ljh29206
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1359 积分:12004 威望:0 精华:0 注册:2012/3/5 11:32:00
  发帖心情 Post By:2020/1/6 13:50:00 [只看该作者]

 这样哇 , 我现在的需求 是

把 pdf  的 源文件  加入水印, 然后另存,

在打开另存为的文件.

像这种情况,该怎么处理好点呢?


难道要下载处理完,然后又上传上去,再读取?
[此贴子已经被作者于2020/1/6 14:02:21编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106142 积分:539827 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/1/6 14:24:00 [只看该作者]

那就只能是做个按钮,自己下载文件,然后打开,不要使用文件管理器界面

 回到顶部