FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Recuperación de campo long raw
Hola, mi problema es el siguiente: en la bd oracle tengo un campo long raw que contiene ficheros doc, pdf.... necesito poder rescatar esos ficheros desde delphi guardándolos en el disco duro y además abriéndolos con la aplicación correspondiente (word, adobe...). Hasta ahora he conseguido que me cree el archivo donde quiero y con el nombre y extensión con el que se guardó originalmente en la bd, pero no se almacena correctamente, el fichero creado siempre tiene 2kb de tamaño y no se visualiza.
El código que tengo es algo así: blob: TBlobStream; fich:TFileStream; nombre_fichero, nombre, extension: string; fichero :TMemoryStream; begin SPFichero.Close; SPFichero.ParamByName('V_ID').AsInteger:=p_id; SPFichero.Open; nombre:= SPFicheroNOMBRE_FICHERO.AsString; extension:= SPFicheroEXTENSION_FICHERO.AsString; nombre_fichero:= 'C:/'+ nombre + '.'+ extension; blob := TBlobStream.Create(SPFichero.FieldByName('FICHERO') as TBlobField,bmRead); try blob.Seek(0, soFromBeginning); with TFileStream.Create (nombre_fichero, fmCreate) do try CopyFrom(blob, blob.Size) finally Free end; finally blob.Free end; Si alguien detecta que me falta o falla algo... gracias de antemano... |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Recuperación de Memoria dinámica | adpa | Varios | 1 | 15-12-2005 15:29:10 |
[Fatal Error]XBSel.pas(1): Line Too long.... | Enan0 | Varios | 6 | 06-12-2005 22:10:58 |
line too long - error 1023 - cr /lf | caldera_py | Varios | 1 | 06-12-2005 20:37:10 |
Recuperacion de una Bases de Datos | Jose Mari | Firebird e Interbase | 0 | 15-03-2005 17:37:00 |
Error Line too Long | Viet | Varios | 3 | 27-09-2003 00:29:02 |
|