Definido agora como: BLOB SUB_TYPE 0

O driver da Devart me parece mais robusto, rápido (e mais experto), pois muitos dos problemas que se apresentaram com o driver da Embarcadero, o driver da Devart resolvia as questões internamente. Espero concluir os testes com os trials em 2 semanas.

Este mesmo código funciona no Delphi 2009 sem problemas (consigo salvar e ler a imagem – e trocar por outra, salvar de novo, ler de novo, etc.) – eu testei com drivers diferentes (upscene, devart) e tudo ok no 2009. No delphi 2010 testei com o próprio driver da Embarcadero e depois com um driver free do Chau Chee Yang (http://sites.google.com/site/dbxfirebird/) e o erro foi o mesmo.

Acredito que algo mudou no TJPeg/TImage/TStream/TClientDataSet.CreateBlobStream que trata de forma diferente a informação, já que no vídeo sobre o Delphi 2010+Driver Embarcadero+Firebird+DBImage funcionou.

Esta “quebra” de compatibilidade de código é prá matar, afinal, queremos produzir e não ficar consertando algo que já funcionava. E prá completar a Embarcadero ainda muda a política de licenciamento. Terei agora até o final do ano para comprar o upgrade, porque depois, só quem tiver delphi 2006 ou superior (No meu caso comprei o 2005 e solicitei downgrade para o 7). Isto foi uma decisão injusta, já que algumas das versões após o delphi 7 tiveram pouca aprovação.

Quando tiver tempo eu vou testar pra ver o que acontece.

Mas vão algumas dicas:

• Você tentou usar um TDBImage? Dá o mesmo erro?
• Você tem certeza de que a imagem foi salva corretamente?
• Tem como testar o tamanho do blob salvo X o tamanho da imagem original, para ter certeza de que não está truncado?

Aqui está uma tabela de alguns erros do JPEG

• #36 : m:=m+’Output file write error — out of disk space?’;
• #51 = JERR_NO_QUANT_TABLE: Quantization table 0x%02x was not defined
• #52 : File is not a JPEG-File (for example if you try to read a GIF as a JPG)
• #53 = JERR_OUT_OF_MEMORY: Insufficient memory (case %d)
• #60 : JPEG file is incomplete
• #67 : JPEG file is incomplete (like #60 – don’t know where the difference).

Uma dica de como saber que erros são estes
http://edn.embarcadero.com/article/20433

Pela descrição do erro, parece que está faltando alguma informação do JPEG que deveria ser salvo junto com a imagem.

Topei com um problema e se puder me dar uma luz ou direção lhe agradeço. É o seguinte:

Eu estou testando o Delphi 2010 e um código que funcionou no 2009 (uso a versão 7 para ambiente de produção) apresenta o erro JPEG error #51 ao ler a imagem do TClientDataSet (firebird2.1.2+drive delphi2010) para um componente Timage:

ob_stream:TStream;
ob_jpg:TJPegImage;
ob_cld:TClientDataSet;
.
.
ob_stream:=ob_cld.CreateBlobStream(ob_cld.FieldByName(‘FOTO’),bmRead);
ob_jpg.LoadFromStream(ob_stream);
ob_img.Picture.Assign(ob_jpg);
.
.
e segue o código, mas o erro ocorre no trecho acima.