[firebase-br] Sobre campos BLOB

[Carlos Vitorino]

Pq não do tipo TImage?

Segundo o Help do Delphi : Use TImage to display a graphical image on a 
form. Use the TPicture object in the Picture property to specify the actual 
bitmap, icon, metafile, or other graphic object displayed by TImage.

----- Original Message ----- 
From: "Roberto - Sui Generis" <roberto em suigenerisinf.com.br>
To: "FireBase" <lista em firebase.com.br>
Sent: Thursday, December 02, 2004 1:00 PM
Subject: Re: [firebase-br] Sobre campos BLOB


> Na verdade, preciso do Seguinte:
> Criar um tipo record e gravar a imagem do banco neste record...
>
> Type RecordEmpresa = Record
>  ID                     : Integer;
>  DESCRICAO   : String[50];
>  RUA                 : String[50];
>  LOGOTIPO     : ??????????
> end;
>
> O Logotipo deve ser definido como ???
> E preciso usar a Procedure abaixo ???
>
>
> ----- Original Message -----
> From: "Carlos Vitorino" <vitorino em ctvoicer.com.br>
> To: "FireBase" <lista em firebase.com.br>
> Sent: Thursday, December 02, 2004 11:53 AM
> Subject: Re: [firebase-br] Sobre campos BLOB
>
>
> Olá Roberto
>
>
> aqui vai um exemplo para carregar a um arquivo JPG
>
> []'s
>
> Carlos Vitorino
>
>
> procedure TForm1.ObtemImagemDoBanco(var imgDestino: TImage);
> Var
>  jpgImg: TJPEGImage;
>  stMem: TMemoryStream;
> begin
>  If Query1FOTO.IsNull Then Exit;
>  jpgImg := TJPEGImage.Create;
>  stMem := TMemoryStream.Create;
>  Try
>  Query1FOTO.SaveToStream( stMem );
>  stMem.Position := 0;
>  jpgImg.LoadFromStream( stMem );
>  imgDestino.Picture.Assign( jpgImg );
>  Finally
>  stMem.Free;
>  jpgImg.Free;
>  End;
> end;
>
> ----- Original Message -----
> From: "Roberto - Sui Generis" <roberto em suigenerisinf.com.br>
> To: "Firebase" <lista em firebase.com.br>
> Sent: Thursday, December 02, 2004 9:22 AM
> Subject: [firebase-br] Sobre campos BLOB
>
>
>
> Tenho gravado uma imagem num campo do tipo
> BLOB SUB_TYPE 0 SEGMENT SIZE 80
>
> mas preciso salvar esta imagem em uma variável de memória, qual o tipo de
> variável que uso ???
>
> []'s
>          Roberto Krug
>   Sui Generis Informática
> Novo Hamburgo - RS - Brasil
> roberto em suigenerisinf.com.br
>   Interbase / FireBird DBA
>        Delphi 7 - IBX 4.6
>
> ______________________________________________
> FireBase-BR (www.firebase.com.br) - Hospedado em www.bavs.com.br
> Para editar sua configuração na lista, use o endereço
> http://mail.firebase.com.br/mailman/listinfo/lista_firebase.com.br
>
>
> ______________________________________________
> FireBase-BR (www.firebase.com.br) - Hospedado em www.bavs.com.br
> Para editar sua configuração na lista, use o endereço
> http://mail.firebase.com.br/mailman/listinfo/lista_firebase.com.br
>
>
> ______________________________________________
> FireBase-BR (www.firebase.com.br) - Hospedado em www.bavs.com.br
> Para editar sua configuração na lista, use o endereço 
> http://mail.firebase.com.br/mailman/listinfo/lista_firebase.com.br