AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

Über WIA scannen will nicht

Ein Thema von HPB · begonnen am 26. Mär 2015 · letzter Beitrag vom 27. Mär 2015
Antwort Antwort
HPB

Registriert seit: 2. Jun 2008
365 Beiträge
 
Delphi XE7 Professional
 
#1

Über WIA scannen will nicht

  Alt 26. Mär 2015, 09:11
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
Miniaturansicht angehängter Grafiken
scanner-1.png  

Geändert von HPB (26. Mär 2015 um 17:44 Uhr)
  Mit Zitat antworten Zitat
HPB

Registriert seit: 2. Jun 2008
365 Beiträge
 
Delphi XE7 Professional
 
#2

AW: Über WIA scannen will nicht

  Alt 26. Mär 2015, 12:22
Guten Tag Delphianer,
weiß denn wirklich keiner einen Rat?
Mit Gruß
HPB
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
40.477 Beiträge
 
Delphi 11 Alexandria
 
#3

AW: Über WIA scannen will nicht

  Alt 26. Mär 2015, 12:54
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?
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
my Delphi wish list
  Mit Zitat antworten Zitat
Lemmy

Registriert seit: 8. Jun 2002
Ort: Berglen
2.322 Beiträge
 
Delphi 10.3 Rio
 
#4

AW: Über WIA scannen will nicht

  Alt 26. Mär 2015, 16:20
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...
  Mit Zitat antworten Zitat
HPB

Registriert seit: 2. Jun 2008
365 Beiträge
 
Delphi XE7 Professional
 
#5

AW: Über WIA scannen will nicht

  Alt 26. Mär 2015, 17:46
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
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
40.477 Beiträge
 
Delphi 11 Alexandria
 
#6

AW: Über WIA scannen will nicht

  Alt 26. Mär 2015, 19:49
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?
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
my Delphi wish list

Geändert von himitsu (26. Mär 2015 um 20:29 Uhr)
  Mit Zitat antworten Zitat
Lemmy

Registriert seit: 8. Jun 2002
Ort: Berglen
2.322 Beiträge
 
Delphi 10.3 Rio
 
#7

AW: Über WIA scannen will nicht

  Alt 26. Mär 2015, 20:33
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
  Mit Zitat antworten Zitat
HPB

Registriert seit: 2. Jun 2008
365 Beiträge
 
Delphi XE7 Professional
 
#8

AW: Über WIA scannen will nicht

  Alt 27. Mär 2015, 08:25
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
Angehängte Dateien
Dateityp: zip Scannen.zip (7,1 KB, 33x aufgerufen)
  Mit Zitat antworten Zitat
Lemmy

Registriert seit: 8. Jun 2002
Ort: Berglen
2.322 Beiträge
 
Delphi 10.3 Rio
 
#9

AW: Über WIA scannen will nicht

  Alt 27. Mär 2015, 08:50
Guten Morgen,

zu früh gefreut ...

funktioniert bei mir wie gewünscht...

hast Du schon mal mit dem Debugger geschaut was bei TwainAquire passiert? bzw. wo letztlich das Programm hängen bleibt?

Grüße
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 10:47 Uhr.
Powered by vBulletin® Copyright ©2000 - 2022, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2021 by Daniel R. Wolf