Suche TWAIN Komponente - für RAD Studio Delphi XE

[Andreas2k]

Ich suche eine TWAIN Komponente für Delphi XE. Am besten kostenlos und Open Source.
Wichtig: die Komponente muss kontinuierlichen Scan unterstützen also auch Einzugsscanner die mehrere Bilder/Seiten liefern.

Kennt jemand eine Komponente die leicht und verständlich ist und Problemlos mit Delphi XE zusammenarbeitet?

[Lemmy]

Hi,

du weißt aber schon, dass Twain zum alten Eisen gehört? Aktuell für Vista/7 ist das hier: http://www.delphipraxis.net/154861-w...ansteuern.html

zu Twain kann ich dir zumindest das sagen: Eine kostenlose Kompo habe ich bisher auch nicht gefunden....

Grüße

[Andreas2k]

Ja ist mir schon klar das TWAIN veraltet ist aber es geht um einen alten Mikrofilmscanner und für den gibt es nur einen TWAIN Treiber!

Ich habe hier im Forum ein Twain Beispiel gefunden aber das läuft irgendwie nicht in Delphi XE

Das mitgelieferte exe jedoch kommt sogar mit beidem klar TWAIN und WIA!

[jbg]

Zitat:

Zitat von Andreas2k (Beitrag 1072410)

Ich habe hier im Forum ein Twain Beispiel gefunden aber das läuft irgendwie nicht in Delphi XE

Das liegt wohl daran, dass XE Unicode (PChar=PWideChar) nutzt, aber die TWAIN-Schnittstelle so alt ist, dass es dazu kein Unicode-Pendant gibt und das Interface in Delphi höchstwahrscheinlich mit PChar deklariert ist, wo nun ein PAnsiChar hin muss.

[FrankJ28]

Hallo Andreas,
ich nutze Delphi_Twain unter Windows 7/Vista mit Delphi XE. Klappt prima.
Ciao
Frank

[haentschman]

Hallo...

ich häng mal Delphi_Twain für Delphi > 2009 an. Ich weiß noch, daß ich lange suchen mußte und zig ausprobierte...

:hi:

[himitsu]

ImageEn (von HiComponent) hat auch was an Board

[Andreas2k]

Zitat:

Zitat von haentschman (Beitrag 1072475)

Hallo...

ich häng mal Delphi_Twain für Delphi > 2009 an. Ich weiß noch, daß ich lange suchen mußte und zig ausprobierte...

:hi:

Damit gibt's leider folgendes Problem sobald die Komponente im Form ist

Zitat:

[DCC Fehler] E2161 Error: RLINK32: Unsupported 16bit resource in file "Y:\Users\~\Desktop\TWAIN\fullfeatures\MainForm.DF M"

Ps: Ich nutze Windows 7 Pro 64Bit.

Der Witz ist das die vor compilierte Example.exe funktioniert nur wenn ich das Beispiel in Delphi XE öffnen und ausführen will kommt der Fehler

[haentschman]

Morgen... :hi:

ich hab die Komponente zwar noch nicht unter XE im Praxiseinsatz aber ich kann die Komponente auf die Form legen und problemlos kompilieren.
(XP,32bit)

Zitat:

Unsupported 16bit resource

...da liegt wohl der Hund begraben. Mit W7 ist es mit der 16bit Unterstützung vorbei. Mach dir eine neue Demo.
Ich hab mit XE die Demo geladen und fehlerfrei gestartet. In der DFM der Demo ist eigentlich nix auffälliges was mit 16 bit in Verbindung gebracht werden könnte. Das einzige wären die Bilddaten der SpeedButtons. Wenn du die mal manuell entfernst und guckst was passiert ?

[jbg]

Zitat:

Zitat von haentschman (Beitrag 1072861)

Mit W7 ist es mit der 16bit Unterstützung vorbei.

Der Delphi Compiler/Linker meldet immer diesen "16Bit Resource" Fehler wenn mit der DFM Datei irgendwas nicht stimmt. Die Fehlermeldung ist Humbug und sollte besser "Das Format der DFM Datei ist fehlerhaft" lauten.

[haentschman]

Zitat:

Ich hab mit XE die Demo geladen und fehlerfrei gestartet.

...die Demo, die er hochgeladen hat. Da kann deine Aussage auch nicht zutreffen. Der Unterschied liegt nur in XP-W7.

[Andreas2k]

Also ich habe auch mal eine neue VCL Anwendung erstellt und lediglich die Twain Komponente ins Form gelegt was den selben DFM Fehler produzierte :(

[haentschman]

da bin ich dann ratlos ...

[Andreas2k]

Ich glaub Delphi XE verarscht mich!

Ich habs jetzt bestimmt 20x versucht die Delphi Twain Komponente zu installieren, jedes zweite mal installiert er zwar das Package dieses enthält aber keine Komponenten die anderen male gibt es Fehler angeblich kann er Datei XYZ nicht finden obwohl ich die Pfade eingetragen habe.

Jetzt hab ich endlich wieder geschafft das die Komponente installiert wurde und auch die Examples lassen sich öffnen und auch Ausführen.
Aber die von mir compilierte Version findet keine Scanner bei select Source - die mitgelieferte vor compilierte example.exe jedoch findet den Scanner unter select source

Also der 16 Bit DFM Bug ist weg dafür ist die Delphi Komponente ohne Funktion - der Sourcemanger wird zwar angezeigt enthält aber keine Scanner und somit kann ich auch keinen Scan starten :(

[haentschman]

na supi... :? Das mit dem leeren Sourcen ist bei mir auch so. Hatte ich noch nicht gemerkt, da ich es in einem XE Projekt noch nicht gebraucht habe.

Jetzt kommt noch einer dazu der gern eine Lösung hätte... :zwinker:

[jbg]

Die Komponente und die Twain.pas Unit steuern die TWAIN-Schnittstelle auch mit Unicode an, obwohl diese nur ANSI Unterstützt. Da ist es kein Wunder wenn nichts funktioniert.

Ich habe mir mal die Mühe gemacht und die Units dahingehend abgeändert, dass sie auch in Unicode-Delphi Versionen funktionieren.

[haentschman]

Du bist ein Genie...

vielen, vielen Dank. :P

[Andreas2k]

Zitat:

Zitat von jbg (Beitrag 1073142)

Die Komponente und die Twain.pas Unit steuern die TWAIN-Schnittstelle auch mit Unicode an, obwohl diese nur ANSI Unterstützt. Da ist es kein Wunder wenn nichts funktioniert.

Ich habe mir mal die Mühe gemacht und die Units dahingehend abgeändert, dass sie auch in Unicode-Delphi Versionen funktionieren.

Also deine Version produziert komplett andere Fehler, hier kann ich nicht mal die Komponente ins Form werfen da ich hier einen Fehler "Fehler bei Bereichsprüfung." erhalte.

Zitat:

---------------------------
Fehler
---------------------------
Fehler bei Bereichsprüfung.
---------------------------
OK Details <<
---------------------------
[16F56E9D]{TWAIN1.bpl } DelphiTwain.TTwainIdentity.SetLanguage + $15
[50037762]{rtl150.bpl } System.ErrorAt (Line 4559, "System.pas" + 3) + $4
[500377AD]{rtl150.bpl } System.Error (Line 4583, "System.pas" + 5) + $E
[16F56E9D]{TWAIN1.bpl } DelphiTwain.TTwainIdentity.SetLanguage + $15
[16F56BC1]{TWAIN1.bpl } DelphiTwain.TTwainIdentity.Create + $31
[16F57499]{TWAIN1.bpl } DelphiTwain.TDelphiTwain.Create + $6D
[21B9B4C7]{delphicoreide150.bpl} CompPalMgr.TComponentPalettePageItemDelegate.Creat eComponent (Line 2564, "CompPalMgr.pas" + 2) + $7
[21079D8A]{designide150.bpl} ComponentDesigner.TComponentRoot.DoCreateComponent (Line 2322, "ComponentDesigner.pas" + 10) + $17
[2107F022]{designide150.bpl} ComponentDesigner.TComponentRoot.CreateCurrentComp onent (Line 4384, "ComponentDesigner.pas" + 2) + $32
[2109636E]{designide150.bpl} Surface.TDesignSurface.CreateItem (Line 187, "Surface.pas" + 1) + $11
[2104E6BE]{designide150.bpl} Designer.TDesigner.DoDragCreate (Line 764, "Designer.pas" + 1) + $F
[2104EE98]{designide150.bpl} Designer.TDesigner.DragEnd (Line 928, "Designer.pas" + 19) + $3
[21051474]{designide150.bpl} Designer.TDesigner.MouseUp (Line 1710, "Designer.pas" + 1) + $2
[51B1CCA1]{vcldesigner150.bpl} VCLSurface.MouseEvent (Line 2908, "VCLSurface.pas" + 45) + $11
[5003AC1B]{rtl150.bpl } System.TMonitor.Exit (Line 12537, "System.pas" + 2) + $7
[51B1D87B]{vcldesigner150.bpl} VCLSurface.TVclDesignSurface.IsDesignMsg (Line 3169, "VCLSurface.pas" + 48) + $6
[5003A336]{rtl150.bpl } System.@IsClass (Line 11370, "System.pas" + 1) + $8
[5027DCDB]{vcl150.bpl } Controls.TControl.WndProc (Line 6987, "Controls.pas" + 4) + $21
[502820C3]{vcl150.bpl } Controls.TWinControl.IsControlMouseMsg (Line 9608, "Controls.pas" + 1) + $9
[50282830]{vcl150.bpl } Controls.TWinControl.WndProc (Line 9831, "Controls.pas" + 144) + $6
[5034FB28]{vcl150.bpl } Forms.TCustomForm.WndProc (Line 3961, "Forms.pas" + 191) + $5
[223F532B]{delphivclide150.bpl} VCLFormContainer.TControlSizer.ControlWndProc (Line 313, "VCLFormContainer.pas" + 33) + $C
[50281ED0]{vcl150.bpl } Controls.TWinControl.MainWndProc (Line 9552, "Controls.pas" + 3) + $6
[500AFA64]{rtl150.bpl } Classes.StdWndProc (Line 13491, "Classes.pas" + 8) + $0
[50358AF7]{vcl150.bpl } Forms.TApplication.ProcessMessage (Line 9760, "Forms.pas" + 23) + $1
[50358B3A]{vcl150.bpl } Forms.TApplication.HandleMessage (Line 9790, "Forms.pas" + 1) + $4
[50358E65]{vcl150.bpl } Forms.TApplication.Run (Line 9927, "Forms.pas" + 26) + $3

[jbg]

Das liegt daran, dass du die Bereichsprüfung aktiviert und nun die Datei neu kompiliert hast womit sie mit aktivierter Bereichsprüfung kompiliert wurde. An der Zeile, die nun zusammenbricht, habe ich nichts geändert.

Füge einfach folgende Zeile als erste in die Datei DelphiTwain.pas ein:

Code:

{$A8,B-,C+,D+,E-,F-,G+,H+,I+,J-,K-,L+,M-,N-,O+,P+,Q-,R-,S-,T-,U-,V+,W-,X+,Y-,Z1}

[Andreas2k]

Also ich bekomme die Komponente einfach nicht installiert -
Ich habe sie nach Y:\Users\Admin\Documents\RAD Studio\Components\Delphi\Twain kopier - dieser Pfad ist auch in delphi als Bibliotheken-Pfad eingetragen.

Wenn ich dann auf Komponente Installieren klicke und "DelphiTwain.pas" "DelphiTwainUtils.pas" "Twain.pas" auswähle - dann auf in neues Package installieren klicke ->Package Name DelphiTwain - Beschreibung - Twain eingebe kommt nur

Zitat:

---------------------------
Fehler
---------------------------
Datei y:\Users\Admin\Documents\RAD Studio\Projekte\DelphiTwain.pas kann nicht geöffnet werden. Das System kann die angegebene Datei nicht finden.
---------------------------
OK
---------------------------

Wenn ich das ein paar mal versuche kommt irgendwann die Meldung das es erfolgreich installiert wurde - in Packages Twain werden aber keine Komponenten angezeigt. Bei manchen versuchen wird die Twain Komponente angezeigt aber funktioniert nicht - irgend einer der oben genannten Fehler.

[haentschman]

Versuch mal einen anderen Weg der Installation:
- das Projekt TWAIN1 im Ordner öffnen
- in Projektverwaltung rechte Maustaste auf TWAIN1.bpl --> Compillieren
- in Projektverwaltung rechte Maustaste auf TWAIN1.bpl --> Installieren

[MEissing]

Zitat:

Zitat von Andreas2k (Beitrag 1073344)

Also ich bekomme die Komponente einfach nicht installiert -

Trial/Test- oder Vollversion?

[Andreas2k]

Zitat:

Zitat von haentschman (Beitrag 1073366)

Versuch mal einen anderen Weg der Installation:
- das Projekt TWAIN1 im Ordner öffnen
- in Projektverwaltung rechte Maustaste auf TWAIN1.bpl --> Compillieren
- in Projektverwaltung rechte Maustaste auf TWAIN1.bpl --> Installieren

Endlich, das hat funktioniert... vielen dank!

[musicman56]

Hallo Kollegen,

ich hatte die Komponente schon vor dem Umstieg auf XE2 unter 2007 im Einsatz. Hab jetzt die aktualisierte Version installiert, komme aber nicht weiter.

So war die "alte" Version unter D2007

Code:

procedure TFrmScanDlg.Execute;
begin
  DelphiTwain1.LibraryLoaded := TRUE;
  DelphiTwain1.SourceManagerLoaded := TRUE;
  if DelphiTwain1.LibraryLoaded = FALSE then Exit;
  if DelphiTwain1.SourceCount = 0 then exit;
  DelphiTwain1.Source[0].TransferMode := ttmMemory;
  DelphiTwain1.Source[0].Loaded := TRUE;
  DelphiTwain1.Source[0].Enabled := TRUE;
end;

An dieser Stelle unter XE2 jetzt eine Zugriffsverletzung:

DelphiTwain1.Source[0].Loaded := TRUE;

Also hab ich....

Code:

procedure TFrmScanDlg.Execute;
var
  Index: integer;
begin
  DelphiTwain1.LibraryLoaded := TRUE;
  DelphiTwain1.SourceManagerLoaded := TRUE;
  if DelphiTwain1.LibraryLoaded = FALSE then Exit;
  if DelphiTwain1.SourceCount = 0 then exit;
  Index := DelphiTwain1.SelectSource;
  if Index < 0 then begin
    DelphiTwain1.LibraryLoaded := False;
    DelphiTwain1.SourceManagerLoaded := False;
    Exit;
  end;
  DelphiTwain1.Source[Index].TransferMode := ttmMemory;
  DelphiTwain1.Source[Index].Loaded := TRUE;
  DelphiTwain1.Source[Index].Enabled := TRUE;
end;

Es werden zwei Quellen angeboten:

http://otto-herdegen.de/images/twain-source.jpg

Bei der Auswahl Twain (Index "0") nach wie vor die Zugriffsverletzung, bei WIA friert die App ein. (Win7 Ultimate 64Bit) Mit meinen anderen installierten Programmen funktioniert der Scanner. Ich kapier's nicht. Liegt vielleicht auch daran, dass ich mit dem Scanner-Handling keine Erfahrung hab. Ist auch nur ein kleines AddOn in meiner Datenbank-Anwendung, aber sollte trotzdem funktionieren.

Gibt es eine Alternative? Muss nicht kostenlos sein, sollte aber auch nicht gleich meine App unnötig aufblähen.