Suche TWAIN Komponente - für RAD Studio Delphi XE

[Andreas2k]

Zitat von 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.

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

[Andreas2k]

Zitat von 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

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.

[MEissing]

Zitat von Andreas2k:

Also ich bekomme die Komponente einfach nicht installiert -

Trial/Test- oder Vollversion?