Alberto y Iciar
14 de Diciembre del 2002

Tenemos en un campo binario un archivo .pdf y queremos recuperar de este campo binario el contenido de dicho archivo para poderlo mostrar.

Necesitamos un api que nos haga esta conversion


Por favor se ruega que contesten cuanto antes

webJose
14 de Diciembre del 2002

No ocupa ninguna función API para eso, si es que no utilizó un contenedor OLE para guardarlo.

Si el archivo fue leído y guardado mediante métodos normales (Open statement + InputB), entonces puede utilizar métodos normales para regenerar el archivo.

dim vArchivo() as byte
dim numArch as integer

vArchivo() = rs.fields("Archivo").value
numArch = freefile()
Open "C:temp.pdf" for binary access write lock read write as #numArch
put #numarch, vArchivo
close #numarch
'para abrir el archivo en Acrobat...
shell "Start C:temp.pdf", vbnormalfocus