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

[mts]

[QUOTE=mts;1500243]

Code:

var
  _Handle: HInst;
  _TwainProc: TDSMEntryProc;
  res : boolean;
  resI : integer;
  idn : TW_IDENTITY;
  newS : TW_IDENTITY;
  hndl : THandle;
begin
  _Handle := LoadLibrary('c:\Windows\twain_32.dll');;
  if (_Handle = INVALID_HANDLE_VALUE) then exit;

  _TwainProc := nil;
  @_TwainProc := GetProcAddress(_Handle, MakeIntResource(1));
  if (@_TwainProc = nil) then exit;

  idn.Id := 0;
  idn.Version.MajorNum := 0;
  idn.Version.MinorNum := 0;
  idn.Version.Language := 0;
  idn.Version.Country := 0;
  idn.Version.Info := '';
  idn.ProtocolMajor := 1;
  idn.ProtocolMinor := 9;
  idn.SupportedGroups := DG_CONTROL or DG_IMAGE;
  idn.Manufacturer := '';
  idn.ProductFamily := '';
  idn.ProductName := '';

  hndl := Handle;
  res := _TwainProc(@idn, nil, DG_CONTROL, DAT_PARENT, MSG_OPENDSM, @hndl) = TWRC_SUCCESS; //source manager loaded
  if (not res) then exit;

  newS := idn;
  newS.Id := 0;
  resI := _TwainProc(@idn, nil, DG_CONTROL, DAT_IDENTITY, MSG_GETFIRST, @newS);
  if (resI = 0) then
    ShowMessage('gut');

Das ist der komplette code, den man zum testen braucht. Wie man sieht nutze ich hier keine Funktionen aus irgendeiner Lib. Nutze nur die twain.pas header Datei.
Unter Delphi XE4 wird „gut“ ausgegeben, auf Delphi 10.1 nicht.

Es MUSS also an der TW_Identity Struktur liegen.

[KodeZwerg]

Zitat von mts:

Code:

  _Handle := LoadLibrary('c:\Windows\twain_32.dll');

ist sichergestellt das diese datei immer an diesem ort zu finden ist?

[himitsu]

In Win95 war sie schon dort.

Die 16 Bit-Variante heißt wohl twain.dll (jedenfalls sah ich vorhin in Win95 die twain.dll und twain_32.dll an jener Stelle)
aber wo 64-Bit ist ... k.A.


Und System-DLLs ruft man niemals mit absolutem Pfad auf.

Wegen soeinem Scheiß war Microsoft auf die Idee gekommen, dass die Systempartition immer C: heißt, weil zuviele alte schrottige Programme mit hartcodierten Pfaden daherkamen.

[KodeZwerg]

Zitat von himitsu:

Und System-DLLs ruft man niemals mit absolutem Pfad auf.

Darauf wollte ich hinaus, obwohl es daran nicht liegen kann, denke ich mal.

[mts]

Diese vereinfachte Methode mit statischer Verlinkung und fixem Pfad habe ich nur für dieses Forum geschrieben um das Problem auf wenige Zeilen einzuschränken…

Die Win64 Dll heißt entsprechend anders.
Nutze jetzt einfach wieder die DelphiTwain.pas von Kluug.

Bin jetzt erst mal froh dass alles wieder läuft. Nach wie vor finde ich das alles sehr seltsam.

P.S. hatte es auch via c++ probiert (msvc 2017), da lief es auch.