=?US-ASCII?Q?Re: RES: [firebase-br] Essa =E9 Complicada!??=

[Pha-Lista]

O codigo abaixo faz parte do editor de uma Grid que utilizo se quiser te envio o arquivo com código completo em private.
 
var
  {$IFDEF JPEGGRAPHICS}
  FJPEGImage: TJPEGImage;
  MS: TStream;
  {$ENDIF}

  {$IFDEF OLEGRAPHICS}
  FOleImage: TBitmap;
  MS1: TMemoryStream;
  {$ENDIF}
begin

      try
        if not FBlobField.IsNull then
          Image1.Picture.Assign(FBlobField);

      except
        {$IFDEF JPEGGRAPHICS}
          {$IFDEF OLEGRAPHICS}
          try
          {$ENDIF}
            try
              FJPEGImage := TJPEGImage.Create;
              MS := FDataSource.DataSet.CreateBlobStream(FBlobField, bmRead);
              FJPEGImage.LoadFromStream(MS);
              Image1.Picture.Assign(FJPEGImage);

            finally
              FJPEGImage.Free;
              MS.Free;
            end;

          {$IFDEF OLEGRAPHICS}
          except
          {$ENDIF}
        {$ENDIF}

          {$IFDEF OLEGRAPHICS}
            try
              FOleImage := TBitmap.Create;

              MS1 := TMemoryStream.Create;
              TBlobField(FBlobField).SaveToStream(MS1);
              MS1.Seek(78, soFromBeginning);
              FOleImage.LoadFromStream(MS1);
              Image1.Picture.Graphic := FOleImage;

            finally
              FOleImage.Free;
              MS1.Free;
            end;

          {$IFDEF JPEGGRAPHICS}
          end;
          {$ENDIF}

          {$ENDIF}

        {$IFNDEF JPEGGRAPHICS}
          {$IFNDEF OLEGRAPHICS}
          raise;
          {$ENDIF}
        {$ENDIF}
      end;

    except
      Image1.Picture.Graphic := nil;
      // raise;
    end;

end;


PHA
Nova Odessa / SP - Brazil

-----Mensagem original-----
From: "MaiconCP" maiconcp em terra.com.br
Date: Tue, 18 Jan 2005 10:17:26 -0300
To: "Rodrigo Lopes" roclopes em ig.com.br
Subject: RES: [firebase-br] Essa é Complicada!?

> Estou trabalhando com o delphi, e gostaria de ter essa informaçao via
> programação.
> 
> 
> -----Mensagem original-----
> De: Rodrigo Lopes [mailto:roclopes em ig.com.br]
> Enviada em: terça-feira, 18 de janeiro de 2005 11:07
> Para: maiconcp em terra.com.br; FireBase
> Assunto: Re: [firebase-br] Essa é Complicada!?
> 
> 
> Use o IBExpert ele exibe a imagem contida no campo blob.
> Tb exibe texto, página html entre outros.
> 
> ----- Original Message -----
> From: "MaiconCP" <maiconcp em terra.com.br>
> To: "FireBase" <lista em firebase.com.br>
> Sent: Tuesday, January 18, 2005 10:59 AM
> Subject: [firebase-br] Essa é Complicada!?
> 
> 
> Alguem SABE COMO FAÇO PRA SABER QUAL É O TIPO DA IMAGEM Q ESTÁ ARMA> ZENADA
> NUM BLOB???
> 
> MAICON
> 
> 
> ______________________________________________
> 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