Suche TWAIN Komponente - für RAD Studio Delphi XE2

[Blumensis]

Hallo liebes Forum,

ich suche eine TWAIN-Komponente (Freeware / Lgpl / vergleichbare Lizenz) für Delphi XE2. (WIA kommt aufgrund der schlechten Treiberverfügbarkeit älterer Scanner hier nicht in Frage.)

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

Bereits ausprobiert habe ich DelphiTwain von 2004 und die oben zitierte Version für Delphi 2009+ - jedoch erzeugen beide einen Fehler wenn ich die Komponenten mit XE2 kompilieren will:

Zitat:

[DCC Fehler] DelphiTwain.pas(1): E2234 Getter oder Setter für Eigenschaft 'MinorVersion' kann nicht gefunden werden
[DCC Fehler] delphitwain_200.dpk(45): E2234 Getter oder Setter für Eigenschaft 'MinorVersion' kann nicht gefunden werden

Das hilft mir jedoch leider nicht weiter, da getter/setter meiner Ansicht nach existieren, auch das Entfernen (Auskommentieren) der Eigenschaft hat den Fehler leider nicht umgangen.

Kann mir jemand bei obigem Fehler weiterhelfen oder hat/kennt jemand eine passende Komponente für mich?

Danke Euch

PS: Ich programmiere unter Windows 7 64 Bit und teste anschließend unter Windows XP 32 Bit.

[haentschman]

Moin...

ich wollte schon auf den Thread verweisen als ich mein Zitat sah. Ich habe diese Version unter XE am Laufen. Sollte zu XE2 eigentlich kompatibel sein. Was spuckt denn Google aus ?

[Blumensis]

Moin

• http://delphitwain.sourceforge.net/
• http://vcldeveloper.com/downloads/DelphiTwain_2009.zip
• http://www.torry.net/pages.php?id=507
• http://www.almico.com/delphi/newstwain.php
• http://delphi.about.com/od/graphics/l/aa030299.htm
• http://www.delphi-jedi.org/apilibrary.html
• Und diverse Seiten und Foreneinträge, welche auf DelphiTwain verweisen, jedoch ohne Hinweis auf XE2

Jedi steht noch aus, mal schaun, ob ich damit etwas erreiche..

Aber auch der obengenannte Fehler irritiert mich.. Irgendwie ergibt der für mich keinen Sinn..

---

PS: Indys Twain-Komponente scheint es nicht mehr zu geben, kann sie weder in den visuellen Komponenten von Jedi noch über Google finden und der Link auf obiger Seite ist ja tot.

[haentschman]

Zitat:

jedoch ohne Hinweis auf XE2

... in Bezug zu deinem Fehler oder überhaupt ? Ich kann dir leider nicht wirklich helfen außer mit Denkanstößen...

Nachtrag: Willkommen in der DP

[Blumensis]

Danke

..in Bezug auf TWAIN-Komponenten. An dem Fehler rätsele ich noch .. vielleicht entdecke ich ja etwas nach dem Schlafen..

[Klaus01]

Wenn einer des spanischen mächtig ist -> quelle

.. vielleicht zielführender, aber auch in spanisch

Vielleicht trifft der Lösungsweg ja auch auf XE2 zu.

Grüße
Klaus

[Blumensis]

*lol*
nach einem Neustart von Delphi ließ es sich kompilieren/installieren, aber nicht zum Projekt hinzufügen (Fehler bei der Bereichsprüfung).. Super^^

Wen es interessiert:

Delphi-Quellcode:

[162975D5]{TWAIN1.bpl  } DelphiTwain.TTwainIdentity.SetLanguage + $15
[50037CD6]{rtl160.bpl  } System.ErrorAt (Line 4349, "System.pas" + 3) + $4
[50037D1A]{rtl160.bpl  } System.Error (Line 4360, "System.pas" + 1) + $7
[162975D5]{TWAIN1.bpl  } DelphiTwain.TTwainIdentity.SetLanguage + $15
[16297341]{TWAIN1.bpl  } DelphiTwain.TTwainIdentity.$bctr + $31
[16297BD1]{TWAIN1.bpl  } DelphiTwain.TDelphiTwain.$bctr + $6D
[21BAE51B]{delphicoreide160.bpl} CompPalMgr.TComponentPalettePageItemDelegate.CreateComponent (Line 2744, "CompPalMgr.pas" + 2) + $7
[20FEC450]{designide160.bpl} ComponentDesigner.TComponentRoot.DoCreateComponent (Line 2363, "ComponentDesigner.pas" + 12) + $17
[20FEBE5A]{designide160.bpl} ComponentDesigner.TComponentRoot.CreateComponent (Line 2221, "ComponentDesigner.pas" + 1) + $1C
[21BAA700]{delphicoreide160.bpl} CompPalMgr.TPalettePageItem.Execute (Line 1303, "CompPalMgr.pas" + 4) + $1E
[208343D6]{coreide160.bpl} ToolFrm.TToolForm.DoItemExecute (Line 2665, "ToolFrm.pas" + 1) + $D
[2083094C]{coreide160.bpl} ToolFrm.TToolForm.PaletteButtonClicked (Line 1232, "ToolFrm.pas" + 13) + $9
[504B133D]{vcl160.bpl  } Vcl.CategoryButtons.TCategoryButtons.DoItemClicked (Line 2216, "Vcl.CategoryButtons.pas" + 13) + $A
[504B10FA]{vcl160.bpl  } Vcl.CategoryButtons.TCategoryButtons.MouseUp (Line 2139, "Vcl.CategoryButtons.pas" + 13) + $C
[5003C9A6]{rtl160.bpl  } System.@CallDynaInst (Line 13519, "System.pas" + 4) + $0
[503331A0]{vcl160.bpl  } Vcl.Controls.TControl.DoMouseUp (Line 7448, "Vcl.Controls.pas" + 2) + $28
[5033321C]{vcl160.bpl  } Vcl.Controls.TControl.WMLButtonUp (Line 7461, "Vcl.Controls.pas" + 9) + $6
[5033280D]{vcl160.bpl  } Vcl.Controls.TControl.WndProc (Line 7204, "Vcl.Controls.pas" + 91) + $6
[5033715B]{vcl160.bpl  } Vcl.Controls.TWinControl.WndProc (Line 9976, "Vcl.Controls.pas" + 152) + $6
[5003C85A]{rtl160.bpl  } System.@IsClass (Line 13351, "System.pas" + 1) + $8
[50454200]{vcl160.bpl  } Vcl.Forms.TApplication.DispatchAction (Line 11356, "Vcl.Forms.pas" + 6) + $F
[504494FD]{vcl160.bpl  } Vcl.Forms.TCustomForm.WndProc (Line 4344, "Vcl.Forms.pas" + 201) + $5
[50332448]{vcl160.bpl  } Vcl.Controls.TControl.Perform (Line 6982, "Vcl.Controls.pas" + 10) + $8
[50454225]{vcl160.bpl  } Vcl.Forms.TApplication.DispatchAction (Line 11359, "Vcl.Forms.pas" + 9) + $A
[50451A8F]{vcl160.bpl  } Vcl.Forms.TApplication.WndProc (Line 9753, "Vcl.Forms.pas" + 98) + $B
[503369A3]{vcl160.bpl  } Vcl.Controls.TWinControl.IsControlMouseMsg (Line 9745, "Vcl.Controls.pas" + 1) + $9
[5033715B]{vcl160.bpl  } Vcl.Controls.TWinControl.WndProc (Line 9976, "Vcl.Controls.pas" + 152) + $6
[500B6030]{rtl160.bpl  } System.Classes.MakeObjectInstance (Line 13921, "System.Classes.pas" + 0) + $0
[504B2A2B]{vcl160.bpl  } Vcl.CategoryButtons.TCategoryButtons.WndProc (Line 3040, "Vcl.CategoryButtons.pas" + 24) + $4
[503367B0]{vcl160.bpl  } Vcl.Controls.TWinControl.MainWndProc (Line 9689, "Vcl.Controls.pas" + 3) + $6
[500B6030]{rtl160.bpl  } System.Classes.MakeObjectInstance (Line 13921, "System.Classes.pas" + 0) + $0
[208305E0]{coreide160.bpl} ToolFrm.TToolForm.PaletteHook (Line 1102, "ToolFrm.pas" + 14) + $A
[500B6030]{rtl160.bpl  } System.Classes.MakeObjectInstance (Line 13921, "System.Classes.pas" + 0) + $0
[504525E7]{vcl160.bpl  } Vcl.Forms.TApplication.ProcessMessage (Line 10164, "Vcl.Forms.pas" + 23) + $1
[5045262A]{vcl160.bpl  } Vcl.Forms.TApplication.HandleMessage (Line 10194, "Vcl.Forms.pas" + 1) + $4
[5045295D]{vcl160.bpl  } Vcl.Forms.TApplication.Run (Line 10331, "Vcl.Forms.pas" + 26) + $3

[hathor]

Die Zahlen bei COREIDE, RTL und VCL entfernen.

[RWarnecke]

Ich habe kein Delphi zur Hand, aber unter diesem Link findest Du eine Twain-Komponente, die ich unter Delphi 2010 in einem Projekt erfolgreich einsetze.

Unter XE2 habe ich die Komponente och nicht ausprobiert. Würde mich über ein Feedback freuen ob es geklappt hat.

[Blumensis]

Tut mir leid, aber ich bin noch nicht weiter...

Zitat von hathor:

Die Zahlen bei COREIDE, RTL und VCL entfernen.

...ich verstehe leider nicht, was Du meinst.

Zitat von RWarnecke:

Ich habe kein Delphi zur Hand, aber unter diesem Link findest Du eine Twain-Komponente, die ich unter Delphi 2010 in einem Projekt erfolgreich einsetze.

Unter XE2 habe ich die Komponente och nicht ausprobiert. Würde mich über ein Feedback freuen ob es geklappt hat.

...leider konnte ich die Komponente dort nicht herunterladen. Der Link erzeugt lediglich eine leere Seite (sowohl Opera als auch IE9).