foxpro - 我可以从 foxpro 通用字段中提取文件吗？

Question

我正在将 VFP 9 应用程序移植到 SQL Server。 VFP 应用程序有一些表格，其中包含“常规”字段。查询字段的时候得到一个字节数组，存盘的时候可以看里面是word文档，还是Paint BMP等。

通过阅读，我发现通用字段是一种专有格式，并且包含文档预览的缩略图(除其他外，我敢肯定)。

有人能给我指出一些代码，这些代码首先提取文件类型，然后提取我可以保存为原始文件的实际文件数据。 (把预览图拿出来也不错。)

显然回到过去，有人在 foxpro 中编写了一个名为 GENTOFIL.PRG 的程序，听起来像是将一般字段转换为文件。但是，谷歌在试图找到它时帮不上什么忙!

Answer 1

如果您知道“常规”字段的内容是一个 Word 文档，我有一些应该提取它的人推荐的 Visual FoxPro 代码。

* First create a form programmaticallyloForm = CREATEOBJECT("Form") * Open your VFP table with the general field. Change name as neededUSE CustomerDocs.DBF IN 0 ALIAS WordDataloForm.AddObject("oleWordDoc", "oleBoundControl") loForm.oleWordDoc.AutoSize = .T. * bind general field to oleboundcontrol loForm.oleWordDoc.ControlSource = "WordData.gen1" lnCounter = 1SCAN    * File names all the same with counter at end   * You might have file name in another column in the table.   lcFileName = "docfromgeneralfield" + TRANSFORM(lnCounter)   lcFileName = FORCEEXT(lcFileName, "doc")   * save data from general field to .doc file    loForm.oleWordDoc.SaveAs("lcFileName")    lnCounter = lnCounter + 1 ENDSCAN RELEASE loFormUSE IN (SELECT("WordData"))RETURN

如果您需要帮助从表格中提取图像，您可以查看我过去使用过的 Microsoft 知识库文章。

http://support.microsoft.com/kb/894819

里克·舒默视觉 FoxPro MVP