Foros Club Delphi - Cancelar con DelphiTwain

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)

- - Cancelar con DelphiTwain (https://www.clubdelphi.com/foros/showthread.php?t=58067)

Cancelar con DelphiTwain

Saludos de nuevo, alguien ha utilizado este componente? alguien sabe como manejar, cuando cancelas una adquisiciòn de imagen, le he intentado con OnAvquireCancel, pero no se como utilizarlo, saludos :S

En uno de los ejemplos viene lo siguiente:

Código:

procedure TForm1.TwainTwainAcquire(Sender: TObject; const Index: Integer; 

  Image: TBitmap; var Cancel: Boolean); 

begin 

  ImageHolder.Picture.Assign(Image); 

  Cancel := TRUE;  {Only want one image} 

end;

Y en el otro ejemplo, lo siguiente:

Código:

procedure TFormMain.TwainSourceFileTransfer(Sender: TObject;



  const Index: Integer; Filename: TW_STR255; Format: TTwainFormat;



  var Cancel: Boolean);



var



  LoadFileName: String;



begin



  {Set file}



  LoadFileName := includetrailingbackslash(getcurrentdir) + 'picture.bmp';



  {Load and add to list}



  ImageList.Add(TBitmap.Create);



  TBitmap(ImageList[ImageList.Count - 1]).LoadFromFile(LoadFilename);



  DeleteFile(LoadFileName);



  {In case it's the first image, display}



  if ImageList.Count = 1 then SelectFirst;



  GoForward.Enabled := ImageList.Count - 1 > CurrentImage;



end;

Prueba con esos eventos, parece que es lo que necesitas.

Salduos y mil gracias

Es lo que buscaba, creo que me había perdido entre tanto código, el programa ya me anda como de rayo :) eres la onda.

Saludos y mil gracias

Muchas gracias, me anda como de rayo eres la onda.