jpg no interbase

é o seguinte. o seu campo deve ser blob subtype 0 para gravar arquivos.

é blob, mas como sei se é subtype 0?
que parametro passo na chamada dessas funcoes?
será que alguem tem algum exemplo pronto pra eu ver?

..............
Foto no InterBase
procedure TFrmCredenc.CarregaFotoParaBanco(FileName: String);
Var
stImagem: TFileStream;
begin
stImagem := TFileStream.Create( FileName, fmOpenRead or
fmShareDenyWrite );
Try
// ibdsCredenciadosFOTO é um campo BLOB SUB_TYPE 0
DMMain.ibdsCredenciadosFOTO.LoadFromStream( stImagem );
Finally
stImagem.Free;
End;
end;

procedure TFrmCredenc.ObtemImagemDoBanco(var imgDestino: TImage);
Var
jpgImg: TJPEGImage;
stMem: TMemoryStream;
begin
If DMMain.ibdsCredenciadosFOTO.IsNull Then Exit;
jpgImg := TJPEGImage.Create;
stMem := TMemoryStream.Create;
Try
DMMain.ibdsCredenciadosFOTO.SaveToStream( stMem );
stMem.Position := 0;
jpgImg.LoadFromStream( stMem );
imgDestino.Picture.Assign( jpgImg );
Finally
stMem.Free;
jpgImg.Free;
End;
end;

:D
Eh exatamente essa a dica do link
nao sei pq nao consigo faze-la funcionar :(

Cara Léticia


No início de fev/2003 tbm tive a mesma dúvida, consegui selecionar, e coloquei o código aki no fórum. Dê uma procurada, o título se bem me lembro é ´Solução Jpg em interbase´


qqr dúvida

denise_mendes@hotmail.com

Achei ele aqui http://clubedelphi.videomart.com.br/viewtopic.php?t=2065&highlight=jpg+interbase

obrigada! vou dar uma olhada