Inoffizielles deutsches Xbase-Forum

aus allgemeine Fragen hat geschrieben: TSE-Kasse Pointer in C-Funktionen Swissbit
#1 Beitrag von miwe-pos » Do, 05. Mär 2020 23:53

In den Funktionen von Swissbit-TSE in der wormApi.dll werden an mancher Stelle Pointer verlangt. Beisp.:
worm_info_tseSerialNumber ( const WormInfo * info, const unsigned char ** serialNumber, worm_uint * ;
serialNumberLength )
Das Problem ist der char** -Pointer für die Seriennummer. Ich habe schon vieles versucht. Ich rufe die Funktion über EXTERN auf
EXTERN CDECL worm_info_tseSerialNumber(info AS INTEGER64, @serialNumber AS INTEGER64 , serialNumberLength as integer );
in WormAPI.dll // habe es auch mit @serialNumber AS String versucht.
Hier der eigentliche Funktionsaufruf:
local serialnumber:=space(32) //sie ist 32 Byte lang
local nsernumberlng, npointer, sernrLng
npointer:=_pgrab(serialnumber, @sernrLng) //CHARPointer aus ot4xb
//npointer ist eine Zah und sernrLng ist 32+1
xvar:= worm_info_tseSerialNumber(info, @npointer, nsernumberlng ) //info ist vorher durch info_new() und info_read()
//initialisiert und funktioniert bei anderen Info-Funktionen
ERgebnis Programmabsturz mit folgenden Fehlern:Internal data structures corrupted, :gencode 41:subcode5
VALTYPE: C VALUE: _DLL
-> VALTYPE: N VALUE: 6426768 //der Wert von info
//wird der Pointer mit Referenz als Integer64 oder String übergeben dann
->Valtype: N 32
//-> VALTYPE: N VALUE: 1934375456 //Pointerwert bei Übergabe ohne Referenz
-> VALTYPE: N VALUE: 32 //Seriennummernlänge
Ich weiß nicht mehr weiter! Hat jemand eine Idee? An diesem Problem könnte mein TSE-Einbindung scheitern!
Nach oben

miwe-pos hat geschrieben: ↑Do, 05. Mär 2020 18:01 In den Funktionen von Swissbit-TSE in der wormApi.dll werden an mancher Stelle Pointer verlangt. Beisp.:
worm_info_tseSerialNumber ( const WormInfo * info, const unsigned char ** serialNumber, worm_uint * ;
serialNumberLength )

Hier der eigentliche Funktionsaufruf:
local serialnumber:=space(32) //sie ist 32 Byte lang
local nsernumberlng, npointer, sernrLng

npointer:=_pgrab(serialnumber, @sernrLng) //CHARPointer aus ot4xb
//npointer ist eine Zah und sernrLng ist 32+1
xvar:= worm_info_tseSerialNumber(info, @npointer, nsernumberlng ) //info ist vorher durch info_new() und

@ DLL-Name:Function()

@user32:DestroyIcon( ::Handle )

BEGIN STRUCTURE WormInfo
   MEMBER LPSTR serialNumber
   MEMBER DWORD cbSize
END STRUCTURE

#include "OT4XB.CH "

LOCAL oWI := WormInfo():New()
LOCAL cSN := SPACE(32)+CHR(0)

   @wormApi:worm_info_tseSerialNumber(oWI, @cSN, 32)

miwe-pos hat geschrieben: ↑Sa, 07. Mär 2020 19:09 Deine Frage hab ich fast vergessen.
Anscheinend Ja, da die Pointer-Frage noch nicht geklärt ist.

miwe-pos hat geschrieben: ↑Sa, 07. Mär 2020 19:06 Zuerst einmal lieber Brandelh, gehe bitte davon aus, dass ich die Anleitungen zu Extern gelesen habe; ob ich sie verstanden habe, ist eine andere Frage.

miwe-pos hat geschrieben: ↑Sa, 07. Mär 2020 19:06 Fazit: Mit Werteübergabe per Referenz habe ich nicht den char**-Pointer der benötigt wird. Und Jan es geht mir sehr wohl um Wissensbasis.
Das ist ein Problem der Einbindung der Swissbit-TSE. ...
Es geht um das Problem TSE in Kasse unter XBASE++ einzubinden!!! Offensichtlich ist damit noch keiner im Forum fertig!!
Vielleicht finden wir gemeinsam eine Lösung??

Xbase 2.0 Anleitung hat geschrieben:DllCall()
Calls a DLL function dynamically at runtime.

The function is deprecated. Use the EXTERN command instead.

EXTERN STDCALL worm_tse_runSelfTest(WormContext AS INTEGER64, clientid AS STRING) in WormAPI.dll
EXTERN CDECL worm_info_tseSerialNumber(info AS INTEGER64, @serialNumber AS INTEGER64 , serialNumberLength as integer ) in WormAPI.dll // habe es auch mit @serialNumber AS String versucht.
Ich habe die API aus dem Verzeichnis \swissbit\sdk\c\windows32-stdcall\bin *** wenn die DLL auch daraus ist, muss es STDCALL sein !

nErr := FindExecutableA( cFile, cPath, @cExe )
if nErr > 32 // MSDN: Returns a value greater than 32 if successful, or a value less than or equal to 32 representing an error.
...
DLLFUNCTION FindExecutableA(cFile, cPath, @cEXE ) USING STDCALL FROM SHELL32.DLL
*** API Beschreibung für C++
HINSTANCE FindExecutableA(
  LPCSTR lpFile,
  LPCSTR lpDirectory,
  LPSTR  lpResult
);

worm_info_tseSerialNumber ( const WormInfo * info, const unsigned char ** serialNumber, worm_uint * serialNumberLength )

Wickipedia zu C-Datentypen hat geschrieben:Ein Character repräsentiert die kleinste adressierbare Einheit in C, in der Regel acht Bit.
... Je nach Compiler kann char entweder gleichbedeutend sein mit signed char (-128 bis 127, fast immer der Fall) oder mit unsigned char (0 bis 255).

LibXL Doku C-Beschreibung hat geschrieben: bool saveRaw(const char** data, unsigned* size)
Saves a file to internal memory buffer. Parameters:
data - pointer to buffer;
size - pointer to saved size.
Returns false if error occurs. Get error info with Book::errorMessage().

*--------------------------------------------------------------------------------
METHOD xlBook:BookSaveRaw(bData, nSize) // call BookSaveRaw( @cData, @nSize) 
   local uRet := nil, p := 0     
   nSize := 0                    
   uRet := FpQCall( {'LibXL','xlBookSaveRawA'},'__bo__sl_@sl_@ul',::hHandle,@p,@nSize ) 
   if uRet  .and. ! empty(p)     
      bData := PeekStr(p,,nSize) 
      nSize := len(bData)        
   endif                         
RETURN uRet                      

brandelh hat geschrieben: ↑Mo, 09. Mär 2020 7:03 Zunächst muss bei Xbase++ immer geklärt werden, ob es eine DLL mit STDCALL (wohl alle API Funktionen) oder CDECL (wohl viele C-DLLs ...) ist !

// Konstanten der Aufrufkonventionen
#define  DLL_SYSTEM               4
#define  DLL_CDECL                8
#define  DLL_STDCALL             32
#define  DLL_XPPCALL            128
#ifdef   __OS2__
  #define DLL_OSAPI             DLL_SYSTEM
#else
  #define DLL_OSAPI             DLL_STDCALL
#endif

brandelh hat geschrieben: Bei deiner DLL vermute ich aber eher, dass das Ergebnis in einer Struktur gefordert und geliefert wird, das macht die Sache komplexer.

WormInfo * info