Problema al guardar en campo BLOB firebird

[n03l]

saludos.

recurro a uds a ver si me echan una manito ya q tengo problemas al guardar datos en un campo memo de firebird 2.5

tengo este campo en la base de datos:

 PRUEBA BLOB SUB_TYPE 1 SEGMENT SIZE 4096

y este codigo

Código Delphi [-]
Opciones.Edit;
Opciones.FieldByName('PRUEBA').AsString:='prueba cinco seis';
Opciones.Post;
IBTransaction.CommitRetaining;

pero no se porque desde delphi solo me muestra el primer caracter

y desde IBEXpert me lo muestra asi p r u e b a c i n c o s e i s
y si le doy editar tambien solo me muestra el primer caracter y si lo edito desde alli si funciona bien.

uso delphi 2010 componentes interbase para las tablas el TIBDataset

saludos

[celades1]

hola

prueba con size 80, que es como yo trabajo

Código SQL [-]
CREATE DOMAIN T_MEMO AS
BLOB SUB_TYPE 1 SEGMENT SIZE 80 CHARACTER SET NONE;

si no te carga bien con el asstring deberias hacerlo con loadfromstream.

si tienes problemas te pondre un ejemplo

Saludos

[n03l]

Hola gracias por responder,
Fijate q me fije este post
http://www.clubdelphi.com/foros/showthread.php?t=80380

e ise esto

Código Delphi [-]
FileName, FieldName: string;
BLOB:TSTREAM;
STREAM:TSTREAM;
begin


Filename:='D:\AAA.txt';

 BLOB:=TFILESTREAM.Create(Filename,FMOPENREAD); //Asignamos el archivo abierto al //stream blob.
    Opciones.Edit;; // Insertamos un nuevo registro.
   STREAM:=Opciones.CreateBlobStream(Opciones.FieldByName('PRUEBA'), bmWrite); //Preparamos el campo blob para escritura.
   STREAM.CopyFrom(BLOB,BLOB.Size); //Copiamos el archivo que hemos abierto al Stream //para que el query lo guarde.
 
   BLOB.DESTROY;
   STREAM.DESTROY;
   Opciones.Post; //guardo el registro.
  IBTransaction.CommitRetaining;

pero me aparecen puros ?????????????????? signos de interrogacion en el campo

tambien e sustituido esta linea

Código Delphi [-]
 BLOB:=TFILESTREAM.Create(Filename,FMOPENREAD);

por esta otra

Código Delphi [-]
BLOB:=TStringStream.Create('uno dos tres');

y pasa lo mismo guarda puros signos de interrogacion???

saludos

[n03l]

Bueno e hecho la prueba asi

Código Delphi [-]
Opciones.Edit;
Opciones.FieldByName('PRUEBA').Text:='uno dos tres';
Opciones.Post;
IBTransaction.CommitRetaining;

y funciona bien en una aplicacion delphi estandar, pero yo lo estoy hacien desde un servico delphi y me sigue sin funcionar me lo sigue guardando asi: u n o d o s t r e s y cuando lo edito en IBEXpert se borran todos los caracteres menos el primero
saludos

[Casimiro Notevi]

Recuerda, no somos adivinos ni tenemos bola de cristal, si no pones todo el código de lectura y grabación ¿cómo te ayudamos?

[n03l]

Hola, saludos

el codigo de grabacion son los q e puesto arriba

y para ver lo que se guarda uso el IBEXpert u o un programita delphi con un TDBMemo