Alguien me ayuda con los streams?

[mrnovice]

Saludos,primero que nada agradezco cada día que me ayudan, lo que pasa es que yo que yo adquiero imágenes por medio del escáner, pero no se cómo meterlos a un formato stream por así decir, alguien me pudiera recomendar algún tutorial para conocer mejor los streams en Delphi, porfavor, ó pudiera ser còmo pasar un Tbitmpa a un Tstream

[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.

[santus]

Lo copio de nuevo porque nose que paso:


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;
Result:=stream;
end;

// Ejemplo de como usar la funcion
MiStream:=Capturar('c:\1.jpg',Panel1);

[mrnovice]

Muchas gracias ya estoy analizandolo,en cuanto tenga un resultado te lo notifico, me hes de mucha ayuda me dejastes sin palabras saludos

[mrnovice]

Saludos, ya me funcionó muchs gracias,cualquier duda avisenme,aunque hay algo que necesito verificar cuando cambio el tamaño con la VCL Vampyre Imaging Library al usar resizeImage,(Lo hago para realizar los thumbnails <con jvthumbview>) se tarda en cargar las imagenes stream obtenidas del bitmap obtenido por el escáner ,.es normal?, se puede optimizar?... ejej
saludos.

[santus]

Empezado por mrnovice

Saludos, ya me funcionó muchs gracias,cualquier duda avisenme,aunque hay algo que necesito verificar cuando cambio el tamaño con la VCL Vampyre Imaging Library al usar resizeImage,(Lo hago para realizar los thumbnails <con jvthumbview>) se tarda en cargar las imagenes stream obtenidas del bitmap obtenido por el escáner ,.es normal?, se puede optimizar?... ejej
saludos.

Me alegro entonces que todo marche bien. Parece que estamos haciendo proyectos parecidos, ya que yo tambien me encuentro con tus mismos problemas ..
La verdad que no conozco esa libreria Vampyre (causa gracia el nombre, jejeje).. Si lo que quieres es hacer un redimesionado del tamaño de la imagen, ya se ha tratado muchas veces aqui, y la verdad que ami me funciono muy bien que incluso se adapta muy bien a la solucion anterior. El secreto esta en el TBitmap.Canvas.StretchDraw

Mira este hilo y quiza tambien algo mas completo, mira este truco.

Suerte en tu proyecto.