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