jpg no interbase
20/02/2003
0
Estou fazendo um programa onde vou precisar colocar JPEG´s no banco de dados (estou usando interbase).
Achei essas funcoes: http://www.delphibr.com.br/mostradica.php?id=551
sobre o assunto.. mas não consigo fazê-la funcionar.
Alguém tem alguma dica pra mim?
Moonlight
Posts
20/02/2003
Anonymous
20/02/2003
Moonlight
que parametro passo na chamada dessas funcoes?
será que alguem tem algum exemplo pronto pra eu ver?
20/02/2003
Carnette
..............
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;
20/02/2003
Moonlight
Eh exatamente essa a dica do link
nao sei pq nao consigo faze-la funcionar :(
21/02/2003
Anonymous
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
21/02/2003
Moonlight
obrigada! vou dar uma olhada
Clique aqui para fazer login e interagir na Comunidade :)