[santus]

Holas. Mira, ami tambien me tocó hacer algo parecido. Es cuestion de ver exactamente que quieres hacer con un stream.

Aca en el foro con el buscardor puedes encontrar un monton de soluciones.

Te dejo lo que hice yo. Capaz que te puede ayudar. Tome la ayuda de Seoane en que se trataba de como guardar una imagen. Aqui el Link.

Luego lo cambie por esto:

Código Delphi [-]
 
uses jpeg;//procedure Capturar(Filename: string; Panel: TPanel);funcion Capturar(Filename: string; Panel: TPanel): TStream;var  SrcWindow: THandle;  SrcDC: HDC;  Bitmap: TBitmap;  Jpg: TJPEGImage;  stream : Tstream;begin  SrcWindow:= Panel.Handle;  if SrcWindow <> 0 then  begin    SrcDC:= GetDC(SrcWindow);    if SrcDC <> 0 then    begin      Bitmap:= TBitmap.Create;      Jpg:= TJPEGImage.Create;      stream := TMemoryStream.Create;      try        Bitmap.Width:= Panel.Width;        Bitmap.Height:= Panel.Height;        BitBlt(Bitmap.Canvas.Handle,0,0,Bitmap.Width,Bitmap.Height,SrcDC,0,0,SRCCOPY);        Jpg.CompressionQuality:= 60;        Jpg.Assign(Bitmap);        //Jpg.SaveToFile(Filename); Aqui lo comento y en vez de guardarlo a un archivo lo guardo a un stream.        Jpg.SaveToStream(stream);      finally        Bitmap.Free;        Jpg.Free;        ReleaseDC(SrcWindow,SrcDC);      end;    end;  end;end;// Ejemplo de como usar la funcionMiStream:=Capturar('c:\1.jpg',Panel1);

Y listo. Ya tienes la imagen en un stream. Despues si lo quieres guardar en una base de datos, tal vez quieras ver este link. El maestro Delphi.com.ar respondio muchisimos mensajes sobre stream. Capáz que él te podra dar una mano mas en profundidad.

Espero haberte sido de ayuda. No siempre la pego respondiendo mensajitos, pero bue.. son ideas.

Muchos saluditos.