FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Corrupt Memo/BLOB file. Table: C:\tabla.mb
Hola, tengo el siguiente problema: estoy trabajando con una tabla Paradox y al querer guardar el contenido de un TMemo en un campo tipo Memo size 240 me salta el error "Corrupt Memo/BLOB file. Table: C:\tabla.mb" si es muy largo el string, pero si pongo solo algunas lineas no pasa nada.
¿Por que se produce este error y que puedo hacer para solucionarlo?. Gracias!... |
#2
|
||||
|
||||
De que forma tratas de guardarlo?
Utiliza la siguiente forma y nos comentas tus resultados Código:
Campoparadox.AsBlob := Memo.Text;
__________________
Lecciones de mi Madre. Tema: modificación del comportamiento, "Pará de actuar como tu padre!" http://www.purodelphi.com/ http://www.nosolodelphi.com/ |
#3
|
|||
|
|||
Mira, estube probando, pero no me deja hacer CampoParadox.AsBlob . En realidad lo que hago es
Table1.FieldByName('Nombre_Campo').AsBlob , y al compiarlo no me lo reconoce (me dice "undeclared identifier 'asBlob' ") . No se si hay otra forma de referirse al campo de la tabla, yo la que conocia era esa... La forma que usaba, y que me daba el error, era Table1.FieldByName('Nombre_Campo').AsString:= Memo1.Lines.Text; o tambien ingresando el texto en un TDBMemo, pero igual me daba error al hacer el post de la tabla. No se si servira de mucho este dato, pero trabajo con delphi 6. Y otra cosa, el texto que estoy tratando de guardar en la tabla es codigo HTML, no se si tendra algo que ver... |
#4
|
|||
|
|||
Me parece q el fallo está en lo de 'Memo1.Lines.Text', creo q un objeto TString sólo puede tener como longitud máxima 235 caracteres, o algo así me pareció leer una vez.. compruébalo.
Salu2 |
#5
|
|||
|
|||
Bueno, gracias por tratar de ayudarme, al final encontre como solucionar el error, por si alguien tiene el mismo problema, con esto anda bien (aunque puede que halla una solucion mas sencilla):
Código:
var bs: TBlobStream; ... bs:= TStringStream.Create(AAdjuntos.Items.Text); try TBlobField(FieldByName('Adjuntos')).LoadFromStream(bs); finally bs.Free; end; ... Adri. |
#6
|
|||
|
|||
en realidad ese problema lo tuve yo cuando estana usando delphi 1 imaginense... jejeje
la solucion es Tabla.FieldByName('campo_mem').Assign(Memo1.Lines); y para subirlo Memo1.Lines.Assign(Tabla.FieldByName('campo_mem'));
__________________
saludos desde Puebla Mexico.. asanxt@hotmail.com "como siempre a sus ordenes y siempre con buena cara" 'lolita me excitas, perversa piel de melocotón' |
|
|
|