VFP中怎么保存和打开PDF文件

[w568412]

我想将本地的PDF文件保存到SQL数据中，然后再从SQL读取打开此PDF文件。我采用了十豆三老师分享的方法
1、将图片文件用 Filetostr()转成字符A； 2、再用 Strconv("字符A",13)将字符A转成base64编码数据的字符B； 3、将字符B保存到SQL Server的Text类型字段或者Access的备注字段。
这个方法对不太大的PDF文件可以有效的保存和读取打开，但是我测试一个30M大小的文件时，出现了读取失败的问题，主要是这个函数Strconv报错，提示字符串太长不能容纳，保存到数据库这个步骤却没报错，搞不明白了？
我测试了Blob 类型字段的方法，但是这个不知道哪里不对，保存到SQL的步骤也没成功(不是文件大小的问题)。
我想请教还有其他更好或者不限制大小的保存、打开方法吗？

[w568412]

非常感谢夜猫老师！确实可行的。
不过在运行过程中存在这么个问题，如果用存储过程来执行保存和读取操作，而不是直接用SQL语句，会存在存储过程的输出参数无法接收到，但数据已经正确保存的问题。

[都市夜猫]

我一直用 vfp 的 blob 配合 sql server 的 Image 类型来保存这类二进制文件，没有发现有什么问题，你可以这样试试：

1. sql server 中新建一个 test 表，两个字段

   id    int   (not null / key)
   fff   image (null)

2. vfp 中，略去错误检查

   *-- 创建测试数据
   create cursor t1 (id int, fff blob)
   append blank
   append memo fff from (getfile('pdf'))

   *-- 保存到 sql server 
   hh = SQLStringConnect('Driver={SQL Server};Server=(Local);Database=test;Uid=sa;Pwd=连接口令')
   ? SqlExec(hh, 'insert into test (id, fff) values (1, ?fff)')
   SQLDisconnect(hh)
   use in t1

   *-- 从 sql server 中取出另存
   hh = SQLStringConnect('Driver={SQL Server};Server=(Local);Database=test;Uid=sa;Pwd=连接口令')
   CursorSetProp("MapBinary", .t., 0)
   ? SqlExec(hh, 'select fff from test where id = 1', 't2')
   SQLDisconnect(hh)
   copy memo fff to c:\1.pdf

用 text 类型来保存二进制文件，就必须先转成 base64 编码，大小将增加 1/3，没必要