Fórum Delphi 2010 + DBExpress + Firebird + Campo Blob #384026
18/08/2010
0
Alguém sabe da existência de algum problema em gravar/ler campo blob no Delphi 2010 ?
Tenho uma aplicação em Delphi 2009 que grava/lê campos blob usando o driver TBODBXFB (DBExpress).
Mas no delphi 2010, ele não gera nenhum erro na gravação, mas quando vou verificar o campo pelo IBExpert, aparece o texto que gravei, mas todas as letras separadas por um espaço ??!!??.
Vejam como fica gravando com o Delphi 2009:
Vejam como fica gravando com o Delphi 2010:
E quando vou fazer a consulta deste campo, somente é mostada a primeira letra que foi gravada.
Nilson Rapcinski
Curtir tópico
+ 0Posts
18/08/2010
Marco Salles
Gostei + 0
18/08/2010
Nilson Rapcinski
Não estou usando os componentes TDBMemo.
No firebird meu campo está definido como Blob Bub Type 1 Charset Win1252.
E na aplicação tenho um TMemo onde faço a seguinte atribuição através de uma Stored Procedure:
DataModule1.TStoredProcedure1.FieldByName('CAMPO').Value := Memo1.Text;
E o TField está definido com FTMemo.
Gostei + 0
19/08/2010
Marco Salles
Não estou usando os componentes TDBMemo.
No firebird meu campo está definido como Blob Bub Type 1 Charset Win1252.
E na aplicação tenho um TMemo onde faço a seguinte atribuição através de uma Stored Procedure:
DataModule1.TStoredProcedure1.FieldByName('CAMPO').Value := Memo1.Text;
E o TField está definido com FTMemo.
DataModule1.TStoredProcedure1.FieldByName('CAMPO').asString := Memo1.Text;
ou
DataModule1.TStoredProcedure1.FieldByName('CAMPO').AsWideString := Memo1.Text;
ou
DataModule1.TStoredProcedure1.FieldByName('CAMPO').AsAnsiString := Memo1.text;
Gostei + 0
19/08/2010
Nilson Rapcinski
Show de bola...
Funcionou com a opção:
DataModule1.TStoredProcedure1.FieldByName('CAMPO').AsAnsiString := Memo1.text;
Muito obrigado mesmo.
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)