Einzelnen Beitrag anzeigen

ryLIX

Registriert seit: 16. Nov 2008
Ort: Westoverledingen
264 Beiträge
 
RAD-Studio 2009 Pro
 
#1

Probleme beim einbinden einer DLL

  Alt 16. Mai 2010, 23:57
Hi,
ich habe folgendes Problem.
Ich habe eine DLL eingebunden, der Code sieht so aus:
Delphi-Quellcode:
type TAPIRESULTFORMAT = (APIFORMAT_CHAR,
                           APIFORMAT_BYTE,
                           APIFORMAT_INTEGER,
                           APIFORMAT_WORD,
                           APIFORMAT_LONG,
                           APIFORMAT_DWORD,
                           APIFORMAT_TEXT,
                           APIFORMAT_BINARY,
                           APIFORMAT_REAL);

  function __apiEnd(): Boolean; stdcall; external 'api32.dll';
  function __apiInit(): Boolean; stdcall; external 'api32.dll';
  procedure __apiJob(ecu, job, para, result: PChar); stdcall; external 'api32.dll';
  function __apiResultBinary(buffer:Byte; bufferlen:Cardinal; buffersize:Cardinal; result:PChar; rset:Word): Boolean; stdcall; external 'api32.dll';
  function __apiResultByte(buffer:Byte;result:PChar; rset:Word): Boolean; stdcall; external 'api32.dll';
  function __apiResultChar(buffer:PChar; result:PChar; rset:Word): Boolean; stdcall; external 'api32.dll';
  function __apiResultDWord(buffer:Cardinal; result:PChar; rset:Word): Boolean; stdcall; external 'api32.dll';
  function __apiResultFormat(para:TAPIRESULTFORMAT; result:PChar; rset:Word): Boolean; stdcall; external 'api32.dll';
  function __apiResultInt(buffer:SmallInt; result:PChar; rset:Word): Boolean; stdcall; external 'api32.dll';
  function __apiResultLong(buffer:LongInt; result:PChar; rset:Word): Boolean; stdcall; external 'api32.dll';
  function __apiResultName(buffer:PChar; index:Word; rset:Word): Boolean; stdcall; external 'api32.dll';
  function __apiResultNumber(buffer:Word; rset:Word): Boolean; stdcall; external 'api32.dll';
  function __apiResultReal(buffer:Double; result:PChar; rset:Word): Boolean; stdcall; external 'api32.dll';
  function __apiResultSets(rsets:Word): Boolean; stdcall external 'api32.dll';
  function __apiResultText(buffer:PChar; result:PChar; rset:Word; format:PChar): Boolean; stdcall; external 'api32.dll';
  function __apiResultVar(variable:PChar): Boolean; stdcall; external 'api32.dll';
  function __apiResultWord(buffer:Word; result:PChar; rset:Word): Boolean; stdcall; external 'api32.dll';
Nun hab ich das Problem wenn ich das Programm starte bleibt es sofort im CPU Fenster hängen und wenn ich weiter laufen lasse bekomme ich diese Fehlermeldung:
Code:
Problemsignatur:
  Problemereignisname:   BEX
  Anwendungsname:   Project1.exe
  Anwendungsversion:   0.0.0.0
  Anwendungszeitstempel:   4bf0663d
  Fehlermodulname:   ntdll.dll
  Fehlermodulversion:   6.0.6002.18005
  Fehlermodulzeitstempel:   49e03821
  Ausnahmeoffset:   00009a3a
  Ausnahmecode:   c0000409
  Ausnahmedaten:   00000000
  Betriebsystemversion:   6.0.6002.2.2.0.256.1
  Gebietsschema-ID:   1031
  Zusatzinformation 1:   c024
  Zusatzinformation 2:   be9414e1f9cf32517da0d4512e5d2663
  Zusatzinformation 3:   c024
  Zusatzinformation 4:   be9414e1f9cf32517da0d4512e5d2663
Aber ich hab keine Ahnung warum bzw wo der Fehler liegt
Markus
Hamburflys, Scrubble-Fubble-Puff-Shake, Muffin-Purper-Gurk?
  Mit Zitat antworten Zitat