Saludos foreros, Auxilio!!!!!, necesito una gran ayudaaaaa, muchota
Miren he utilizado he tratado de aprender el uso de este componente llamado DelphiTWAIN, lo he entendido, pero no en su totalidad, este es el enlace
:
http://delphitwain.sourceforge.net/
Me base en el programa Full features,hay una parte donde entiendo de aqui se anexa la imagen a memoria.
Código Delphi
[-]
procedure TFdetalle.TwainTwainAcquire(Sender: TObject; const Index: Integer; Image: TBitmap; var Cancel: Boolean);
var MyJPG:TJPEGImage;
begin
if modoPreview=FALSE then begin
ImageList.Add(TBitmap.Create);
TBitmap(ImageList[ImageList.Count - 1]).Assign(Image);
fOriginalSizeW:= Tbitmap(ImageList[0]).Width;
fOriginalSizeH:=Tbitmap(ImageList[0]).Height;
if ImageList.Count = 1 then SelectFirst;
GoForward.Enabled := ImageList.Count - 1 > CurrentImage;
end else
begin
ImageList.Add(TBitmap.Create);
TBitmap(ImageList[ImageList.Count - 1]).Assign(Image);
SelectPreview;
end;
end;
El mayor problema de todos es cuando escaneo una imagen, se llena la memoria hasta el tope como 50mb por imagen, común
ImageList : TList tengo entendido manda un puntero un objeto, osea en este caso entiendo que es un Bitmap muy grandodododote, es posible reducir el costo de memoria del ImageList a mi se me ocurrio tratar de ponerlo en Formato JPEG, JPG, no sè si sea buena idea, cualquier sugerencia serìa muy apreciada no se què hacer , estoy al borde de la desesperaciòn XD, saludos , si necesitan más explicaciòn no duden en comentarme, pero porfas!!!!!