Ver Mensaje Individual
  #1  
Antiguo 01-09-2008
Avatar de mrnovice
mrnovice mrnovice is offline
Miembro
 
Registrado: oct 2006
Posts: 163
Reputación: 18
mrnovice Va por buen camino
Unhappy DelphiTWAIN y Bitmap:S

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
  {An image has being acquired, add to list}
    ImageList.Add(TBitmap.Create);
    TBitmap(ImageList[ImageList.Count - 1]).Assign(Image);
    fOriginalSizeW:= Tbitmap(ImageList[0]).Width; {Valor del tamaño del Timage Width Normal}
     fOriginalSizeH:=Tbitmap(ImageList[0]).Height; {Valor del tamaño del Timage Height Normal}
      {In case it's the first image, display}
    if ImageList.Count = 1 then SelectFirst;
    GoForward.Enabled := ImageList.Count - 1 > CurrentImage;
  end else{ModoPreview}
  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!!!!!
Responder Con Cita