F�rum GRAVAR E LER FOTOS EM FORMATO JPEG #14728

27/01/2010

tenho uma tabela que tem 5 campos
tipo blob para grava��o de imagens atualmente estou conseguindo somente gravar
imagens em bmp, o meu cliente possui muitas fotos em formato jpeg, portanto preciso ler esse formato
banco de dados firebird, 2.0 driver interbase.
segue tabela

    KEY_CARTAO          INTEGER NOT NULL,
    KEY_SEQ_IMO_CARTAO INTEGER NOT NULL,
    FOTO_CARTAO         BLOB SUB_TYPE 0 SEGMENT SIZE 80,
    PRINCIPAL_CARTAO    CHAR(1) DEFAULT 'N',
    FOTO1_CARTAO        BLOB SUB_TYPE 0 SEGMENT SIZE 80,
    FOTO2_CARTAO        BLOB SUB_TYPE 0 SEGMENT SIZE 80,
    FOTO3_CARTAO        BLOB SUB_TYPE 0 SEGMENT SIZE 80,
    FOTO4_CARTAO        BLOB SUB_TYPE 0 SEGMENT SIZE 80,
    FOTO5_CARTAO        BLOB SUB_TYPE 0 SEGMENT SIZE 80,
    FOTO6_CARTAO        BLOB SUB_TYPE 0 SEGMENT SIZE 80,
    OBSERVACAO_CARTAO   VARCHAR(80)

se poss�vel mande algum exemplo ou sugest�o de componente.

Jorge Trento

Curtir t�pico

+ 0

Responder

Posts

28/01/2010

Wesley Yamazack

Ol� amigo, estou desenvolvendo um exemplo, para ver a viabilidade. Pe�o que aguarde .

Um abra�o

Wesley Y

Responder

Gostei + 0

28/01/2010

Wesley Yamazack

Ol� amigo, fiz uns testes aqui e montei a sua base de dados. veja o que fiz

Primeiro passo � dar uses em 2 units jpeg, Clipbrd;

{Crie esta fun��o para fazer a convers�o do arquivo}
function TForm1.ConvertJPG_BMP(xFile: string): TJPegImage; var JPG: TJPegImage; begin if LowerCase(ExtractFileExt(xFile)) <> '.jpg' then begin ShowMessage('Formato diferente de jpg'+#13+ 'Formato atual : ' + ExtractFileExt(xFile)); Exit; end; JPG := TJPegImage.Create; JPG.LoadFromFile(xFile); Result := JPG; end;
{Implementa��o de um button para poder carregar os JPG`s para os DBImages}
procedure TForm1.BitBtn1Click(Sender: TObject); begin ClipBoard.Assign(ConvertJPG_BMP(ExtractFilePath(Application.ExeName)+ 'IMG1.JPG')); DBImage1.PasteFromClipBoard; ClipBoard.Assign(ConvertJPG_BMP(ExtractFilePath(Application.ExeName)+ 'IMG2.JPG')); DBImage2.PasteFromClipBoard; end;

Espero que isso ajude , amigo. Estou a disposi��o.

Um abra�o

Wesley Y

Responder

Gostei + 0

02/02/2010

Wesley Yamazack

Ol� amigo, consegui analisar o exemplo ? Estamos aguardando para encerrar o chamado.

Um abra�o

Wesley Y

Responder

Gostei + 0