如何使用VFP從SQL讀取varbinary（max）字段值並將其另存為pdf？

Question

我正在將vfp應用程序與SQL Server連接。 一個具有varbinary字段的表，我需要讀取二進制文件並將其轉換為pdf文件。 我該怎么做？

Answer 1

您是說varbinary數據本身就是PDF文件（或任何文件）嗎？ 如果是這樣，只需保存字節，您就可以得到擴展名為.PDF的文件。 即：

假設您在數據庫“ test”中有一個名為“ Files”的表，其中包含Id，FileExt和FileContent等字段。 保留擴展名的FileExt和FileContent是文件本身，為varbinary（Max）。 您要將所有文件保存到名為“ c：\\ temp \\ files”的文件夾中：

Local handle, filename
handle = Sqlstringconnect("driver={Sql Server Native Client 11.0};server=.\SQLExpress;Database=test;Trusted_Connection=yes")

SQLExec(m.handle, 'Select * from [Files]', 'crsData')
SQLDisconnect(m.handle)

Select crsData
Scan
    fileName = Forcepath(Forceext(Ltrim(Str(crsData.Id)),Trim(crsData.FileExt)))
    Strtofile(crsData.FileContent, m.fileName, 'c:\temp\files')
Endscan