Über WIA scannen will nicht

[HPB]

Guten Tag Delphianer,
ich habe die WIA-Komponente von Kluug.net installiert.
Das Scannen im Demo-Programm funktioniert auch ganz gut.
Nun habe ich in meiner Anwendung, mit dem gleichen Quellcode wie in der
Demo, ein Formular über dass der Anwender scannen soll, erstellt.
Der Aufruf des Scanners über WIA geht.
Die Scan-Vorschau geht.
Das Übertragen der Daten geht nicht.

Es wird das Formular mit der Fortschrittsanzeige angezeigt, jedoch
kommt die Übertragung der Daten nicht zu Ende.
Ich muss das Programm über den Taskmanager killen.

Eigenartig ist auch, das dass Scannen funktioniert, wenn über "TW-Brother MFC-7820N USB",
ein Dokument gescannt wird.
Nur über "WIA-Brother MFC-7820N" will es nicht funktionieren.

Und wie schon oben erwähnt, ist es der gleiche Quellcode wie in der Demo.
Auch die verwendeten Komponenten wie Listbox und Image sind gleich.

Kann vielleicht jemand ein kleinwenig Quellcode zeigen, wie es ohne der Demo-Aplication gelöst werden kann??
Mit Gruß
HPB

[HPB]

Guten Tag Delphianer,
weiß denn wirklich keiner einen Rat?
Mit Gruß
HPB

[himitsu]

Wie war das mit dem 24 Stunden warten, bevor man puschen darf?


Vielleicht war nur noch keiner die letzten Minuten online, der was weiß und/oder Zeit hatte?

[Lemmy]

Zitat von HPB:

ich habe die WIA-Komponente von Kluug.net installiert.
Das Scannen im Demo-Programm funktioniert auch ganz gut.
Nun habe ich in meiner Anwendung, mit dem gleichen Quellcode wie in der
Demo, ein Formular über dass der Anwender scannen soll, erstellt.

- Democode geht
- dein eigener Code geht nicht
- einfachste Lösung: Dein Code ist nicht mit dem Democode identisch.

Den Democode habe ich, den kann ich dir auch geben (übrigens funktioniert der bei meinem Scanner nicht) - bringt aber nichts, weil du den ja schon hast.

Also: Entweder du postest deinen Code, baust den Democode in einem leeren Projekt nochmal nach und schaust ob es damit geht... oder du kontrollierst ob du in deinem Code das Event TwainAcquire verwendest um das Bild zu laden und ob du dort in jedem Zweig (!) der die MEthode verlässt auch wirklich ein Cancel := true;
stehen hast...

[HPB]

Hallo Lemmy,
vielen Dank für Deine Antwort.
Hier nun der komplette Code:

Delphi-Quellcode:

unit formDokumenteScannen;

interface
uses
  Winapi.Windows,
  WinApi.Messages,
  System.SysUtils,
  System.Classes,
  Vcl.Graphics,
  Vcl.Controls,
  Vcl.Forms,
  Vcl.Dialogs,
  Vcl.Menus,
  Vcl.ExtCtrls,
  Vcl.ActnList,
  Vcl.ImgList,
  Vcl.StdCtrls,

  AdvToolBar,
  AdvToolBarStylers,
  AdvPreviewMenu,
  AdvPreviewMenuStylers,
  AdvShapeButton,
  AdvOfficeStatusBar,
  AdvOfficeStatusBarStylers,
  AdvGlowButton,
  FormSize,
  AdvMenus,
  AdvOfficePager,
  AdvOfficePagerStylers,
  AdvPanel,

  DelphiTwain,
  DelphiTwain_VCL;

type
  TfrmDokumenteScannen = class(TAdvToolBarForm)
    AdvToolBarPager1: TAdvToolBarPager;
    AdvPage1: TAdvPage;
    AdvToolBarOfficeStyler1: TAdvToolBarOfficeStyler;
    AdvToolBar1: TAdvToolBar;
    AdvShapeButton1: TAdvShapeButton;
    AdvPreviewMenu1: TAdvPreviewMenu;
    AdvPreviewMenuOfficeStyler1: TAdvPreviewMenuOfficeStyler;
    AdvOfficeStatusBar1: TAdvOfficeStatusBar;
    AdvOfficeStatusBarOfficeStyler1: TAdvOfficeStatusBarOfficeStyler;
    AdvQuickAccessToolBar1: TAdvQuickAccessToolBar;
    ImageListOffice: TImageList;
    FormSize1: TFormSize;
    AdvMenuStyler1: TAdvMenuStyler;
    ActionListBPS: TActionList;
    ActionbpsHome: TAction;
    ActionMailAnBPS: TAction;
    ActionPrgTeil: TAction;
    ActionProgramminformation: TAction;
    ActionWhatsNewBPS: TAction;
    ImageListBPS: TImageList;
    advfcpgrfcstylr1: TAdvOfficePagerOfficeStyler;
    advpnlLeft: TAdvPanel;
    advpnlstylr1: TAdvPanelStyler;
    lstScanner: TListBox;
    advpnl1: TAdvPanel;
    imgHolder: TImage;
    advglwbtnScannen: TAdvGlowButton;
    advglwbtnScannerEinlesen: TAdvGlowButton;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure advglwbtnScannerEinlesenClick(Sender: TObject);
    procedure advglwbtnScannenClick(Sender: TObject);
  private
    { Private declarations }
    Twain: TDelphiTwain;

    procedure ReloadSources;
    procedure TwainTwainAcquire(Sender: TObject; const Index: Integer;
      Image: TBitmap; var Cancel: Boolean);
  protected
    { Protected declarations }
  public
    { Public declarations }
    procedure DoCreate; override;
    procedure DoDestroy; override;
  end;

var
  frmDokumenteScannen: TfrmDokumenteScannen;

implementation

{$R *.dfm}

procedure TfrmDokumenteScannen.advglwbtnScannenClick(Sender: TObject);
begin
  Twain.SelectedSourceIndex := lstScanner.ItemIndex;

  if Assigned(Twain.SelectedSource) then
  begin
    //Load source, select transference method and enable (display interface)}
    Twain.SelectedSource.Loaded := True;
    Twain.SelectedSource.ShowUI := True; //display interface
    Twain.SelectedSource.Enabled := True;
  end;
end;

procedure TfrmDokumenteScannen.advglwbtnScannerEinlesenClick(Sender: TObject);
begin
  ReloadSources;
end;

procedure TfrmDokumenteScannen.DoCreate;
begin
  inherited;

  Twain := TDelphiTwain.Create;
  Twain.OnTwainAcquire := TwainTwainAcquire;

  if Twain.LoadLibrary then
  begin
    //Load source manager
    Twain.SourceManagerLoaded := TRUE;

    ReloadSources;
  end
  else
  begin
    ShowMessage('Twain ist nicht installiert.');
  end;
end;

procedure TfrmDokumenteScannen.DoDestroy;
begin
  inherited;
  Twain.Free; //Don't forget to free Twain!
end;


procedure TfrmDokumenteScannen.FormClose(Sender: TObject; var Action:
  TCloseAction);
begin
  action := caFree;
end;

procedure TfrmDokumenteScannen.ReloadSources;
var
  i: Integer;
begin
  lstScanner.Items.Clear;
  for i := 0 to Twain.SourceCount - 1 do
    lstScanner.Items.Add(Twain.Source[i].ProductName);

  if lstScanner.Items.Count > 0 then
    lstScanner.ItemIndex := 0;
end;

procedure TfrmDokumenteScannen.TwainTwainAcquire(Sender: TObject;
  const Index: Integer; Image: TBitmap; var Cancel: Boolean);
begin
  imgHolder.Picture.Assign(Image);
  Cancel := True; //Only want one image
end;

Der Code ist identisch mit dem Demo-Code.
Mit Gruß
HPB

[himitsu]

Du hast ja noch viele weitere Komponenten, die sich teilweise böse sonstwo reinhacken (ADV) ... da kann es schon passieren, daß sich bissl was in die Quere kommt.

Und du hast dir doch bestimmt mal das hängende Programm im Debugger angesehn?
Anhalten, schauen wo der Code steht (Stacktrace), den/die gewünschten Threads raussuchen und etwas verfolgen ob man erkennt wo es warum hängt?

[Lemmy]

Danke. Posten war der falsche Begriff. zippe das dfm und die pas-Datei und hänge die an deinen Beitrag an, dann schau ich mir das mit meinem Scanner an

[HPB]

Zitat von Lemmy:

Danke. Posten war der falsche Begriff. zippe das dfm und die pas-Datei und hänge die an deinen Beitrag an, dann schau ich mir das mit meinem Scanner an

Guten Tag Lemmy,
in der Anlage die gezippten Dateien.
Vielen Dank im Voraus für Deine Mühe.
HPB