DelphiTwain: Accesar propiedades de Scanner

[Roberto Angulo]

Saludos:
Necesito ayuda sobre como establecer las propiedades del scanner desde Codigo, necesito establecer resolución, escala, modo , etc. y adquirir imagen desde un TButton

Lo único que he podido hacer es fijar su modo de transferencia (Archivo) y su formato (JPG)

Gracias por la atención.

[kalisto]

En la pagina http://Torry.net seguro que encuentras mas de un componente que te permita hacer lo que pretendes.

[Roberto Angulo]

Gracias por la atención, esto es lo que llevo y voy resolviendo el asunto

 
Código Delphi [-]
 
procedure TfrmEmpleados.JvBtnObtener_ActaClick(Sender: TObject);
var
  SourceIndex: Integer;
  XV : WORD ;
begin
  //Try loading the library
  if Twain.LoadLibrary then
  begin
    //Same as SourceManangerLoaded := TRUE
    Twain.LoadSourceManager();
    //Select the source
    SourceIndex := Twain.SelectSource();
    if SourceIndex <> -1 then
      BEGIN
      with Twain.Source[SourceIndex] do
      begin
        //Prepare for transfering using ttmFile mode
        Loaded := TRUE;
        TransferMode := ttmFile;
        ShowUI := False ;
        Enabled := TRUE;
        SetIXResolution(200) ;
      end ;
      END
    else ShowMessage('Cancelado')
  end
  else MessageDlg('No Está Instalado el Controlador Twain NECESARIO', mtError, [mbOK], 0)
end;

[Roberto Angulo]

Esta funcion es parte de DelphiTwain

Código Delphi [-]
 
{Sets an one value capability}
function TTwainSource.SetOneValue(Capability: TW_UINT16;
  ItemType: TW_UINT16; Value: Pointer): TCapabilityRet;
var
  Data: HGLOBAL;
  OneV: pTW_ONEVALUE;
  ItemSize,ItemSize2: Integer;
begin
  {Allocate enough memory for the TW_ONEVALUE and obtain pointer}
  ItemSize := TWTypeSize(ItemType);
  //npeter: TW_ONEVALUE minimal size !!!
  //I think to meet the specifications the
  //Item's size must be at least sizeof(TW_UINT32)!
  //when I did it, some mistic errors on some drivers went gone
  if ItemSizethen ItemSize2:=TWTypeSize(TWTY_UINT32) else ItemSize2:=ItemSize;
  Data := GlobalAlloc(GHND, sizeof(OneV^.ItemType) + ItemSize2);
  OneV := GlobalLock(Data);
  {Fill value}
  OneV^.ItemType := ItemType;
  CopyMemory(@OneV^.Item, Value, ItemSize);
  GlobalUnlock(Data);
  {Call method to set}
  Result := SetCapabilityRec(Capability, TWON_ONEVALUE, Data);
  {Unload memory}
  GlobalFree(Data);
end;

[Roberto Angulo]

y estas son valores que aparecen en la Unidad Twain


Código Delphi [-]

ICAP_JPEGQUALITY = $1153; { Added 1.9 }
{$EXTERNALSYM ICAP_JPEGQUALITY}



{ ICAP_JPEGQUALITY values (JQ_ means jpeg quality) }
TWJQ_UNKNOWN = -4;
{$EXTERNALSYM TWJQ_UNKNOWN}
TWJQ_LOW = -3;
{$EXTERNALSYM TWJQ_LOW}
TWJQ_MEDIUM = -2;
{$EXTERNALSYM TWJQ_MEDIUM}
TWJQ_HIGH = -1;
{$EXTERNALSYM TWJQ_HIGH}







Espero puedan ayudarme a establecer la Calidad del JPG, pues deseo que tenga calidad sin que el tamaño del Archivo sea muy grande

[mrnovice]

Quizás te sirva, en twain.org viene el estàndar TWAIN1.9 pdf creo el 2 ya salió en este manualito jeje, vienen primordialmente triplets y capacidades creo que lo que buscas son capacidades, en el manual de DelphiTwain viene como usar esas capacidades, las capacidades como ICAP_XRESOLUTION, te permiten manipular las propiedades del dispositivo, sólo tienes que buscar en TWAIN1.9PDF lo que quieres modificar eso sì està en inglés, suerte espero que te haya servido cualquier duda notificalo.