GRAVAR E LER FOTOS EM FORMATO JPEG

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

Jorge Trento

Curtidas 0

Respostas

Wesley Yamazack

Wesley Yamazack

27/01/2010

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

Um abraço

Wesley Y
GOSTEI 0
Wesley Yamazack

Wesley Yamazack

27/01/2010

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
GOSTEI 0
Wesley Yamazack

Wesley Yamazack

27/01/2010

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

Um abraço

Wesley Y
GOSTEI 0
POSTAR