DelphiTwain findet keine Geräte in Delphi 10.1 - in XE4 alles ok

[peterbelow]

Zitat von mts:

Hallo zusammen,

Habe hier ein ganz verrücktes Problem.
Ich nutze DelphiTwain schon seit geraumer Zeit.
Jetzt habe ich eine Anwendung von XE4 auf Delphi 10.1 migriert und delphiTwain findet keine Scanner mehr.

Habe daraufhin einfach die Sample-Anwendung (DelphiTwainDemo2) kompiliert. In Delphi XE4 werden sofort die Scanner angezeigt, in Delphi 10.1 keine.
- Beides 32bit Anwendungen
- LoadLibrary läd in beiden Fällen erfolgreich die gleiche dll (c:\windows\TWAIN_32.DLL)

Das Problem tritt in der Methode "TCustomDelphiTwain.EnumerateDevices()" auf.
Delphi XE4:

Code:

    CallRes := TwainProc(AppInfo, nil, DG_CONTROL, DAT_IDENTITY,
      MSG_GETFIRST, @NewSource.Structure);

>>    CallRes = 0

Delphi 10.1:

Code:

    CallRes := TwainProc(AppInfo, nil, DG_CONTROL, DAT_IDENTITY,
      MSG_GETFIRST, @NewSource.Structure);

>>    CallRes = 1

Hat irgendjemand eine Idee oder evtl. das gleiche Problem schon gehabt?

Eventuell liegt es an einer Änderung von Optionen wie dem Record-Alignment. Zeig mal die Deklaration des Typs von Newsource.Structure.