Fórum 3 Camadas - SOAP x COM #167852

Salva figura da memória para a tabela 

procedure TFPrincipal.Button4Click(Sender: TObject);
var J : TJPEGImage;
    figura : tbitmap;
    S : TMemoryStream;
begin
   // Para usar as opções do JPeg voce deve por a clausula << JPeg >> no uses
   // Para usar o clipbord (memoria) voce deve por a clausula << Clipbrd >> no uses

   // Cria Figuras
   figura := Tbitmap.Create;
   j := TJPEGImage.Create;
   S := TMemoryStream.Create;

   // Carrega do ClipBoard << Memoria >>
   figura.LoadFromClipBoardFormat(cf_bitmap,ClipBoard.GetAsHandle(cf_bitmap),0);
   J.CompressionQuality := 50; // 50¬ de Qualidade voce pode ir até 100

   // Mas não esqueça quanto mais qualidade maior o arquivo 
   J.Assign(figura);
   J.SaveToStream(S);

   // Salva Figura na Tabela
   b.foto.edit;
   b.fotoFoto.LoadFromStream(S);
   b.foto.post;
end;

Exibe figura 
procedure TFPrincipal.Button3Click(Sender: TObject);
var S:TMemoryStream;
    j:tjpegimage;
begin
   // Só faz se o registro onde esta o JPeg não estiver vazio   
   if b.fotoFoto.BlobSize <> 0 then begin
      image1.Visible := true;
      S := TMemoryStream.Create;
      j := Tjpegimage.Create; // Cria o Jpeg
      b.fotoFoto.SaveToStream(S); // Salva texto da tabela na memória
      S.Seek(0, 0);

      j.LoadFromStream(S); // Carrega o Jpeg
      j.Scale := jsquarter; // mostra em 1/8

      image1.Picture.Bitmap.Assign(j); // Joga JPeg para o image1
   end else begin
      showmessage(´Imagem vazia´);
      image1.Visible := false;
   end;
end;