Imagens jpg e gif

Delphi

04/02/2003

Será que alguém conhece um componente para download que faça com que eu possa salvar imagens jpg e gif em uma tabela paradox ??? Pois , através do DBImage eu só consigo salvar imagens Bitmap ....


*thais*

*thais*

Curtidas 0

Respostas

Fern4ndø ßlek4ute

Fern4ndø ßlek4ute

04/02/2003

Nunca testei, mais pode ser q isso te ajude !
T+


[b:f20b620f9d]Gravar imagem JPG em tabela Paradox[/b:f20b620f9d]

Procedure Grava_Imagem_JPEG(Tabela:TTable; Campo:TBlobField;
Foto:TImage; Dialog:TOpenPictureDialog);
var BS:TBlobStream;
MinhaImagem:TJPEGImage;
Begin
Dialog.InitialDir := ´c:\temp´;
Dialog.Execute;
if Dialog.FileName <> ´´ Then
Begin
if not (Tabela.State in [dsEdit, dsInsert]) Then
Tabela.Edit;
BS := TBlobStream.Create((Campo as TBlobField), BMWRITE);
MinhaImagem := TJPEGImage.Create;
MinhaImagem.LoadFromFile(Dialog.FileName);
MinhaImagem.SaveToStream(BS);
Foto.Picture.Assign(MinhaImagem);
BS.Free;
MinhaImagem.Free;
Tabela.Post;
DBISaveChanges(Tabela.Handle);
End;
End;

procedure TForm1.Button1Click(Sender: TObject);
begin
Grava_Imagem_JPEG(TbClientes,TbClientesCli_Foto, Image1,
OpenPictureDialog1);
// TbClientes é o nome de alguma Tabela
// TbClientesCli_Foto é um variavel da tabela do tipo Blob
// Image1 é um componente
// OpenPictureDialog1 é o componente para abrir a figura
end;


GOSTEI 0
POSTAR