Ver Mensaje Individual
  #3  
Antiguo 23-01-2007
Roberto Angulo Roberto Angulo is offline
Registrado
 
Registrado: ago 2005
Posts: 6
Reputación: 0
Roberto Angulo Va por buen camino
Estableciendo Propiedades de DelphiTwain

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

Código:
 
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;
Responder Con Cita