xsharp.eu

Code: Select all

class RKSV
	protect _oRKSVCom 		as RKSVCOM

method ConvertJWSCompactToText(cJws as string) as logic
	local cResult as string
	local cAnswer as string
	local lRet as logic

	cResult := ""
	cAnswer := ""
	lRet := _oRKSVCom:ConvertJWSCompactToText(cJws, cResult, cAnswer )

	return lRet

end class

Code: Select all

method ConvertJWSCompactToText(cJws as string) as logic
local cResult as string
local cAnswer as string
local lRet as logic

cResult := ""
cAnswer := ""
#ifdef __XSHARP__      
lRet := _oRKSVCom:ConvertJWSCompactToText(cJws, cResult, cAnswer )
#else
lRet := _oRKSVCom:ConvertJWSCompactToText(cJws, @cResult, @cAnswer )
#endif

return lRet

Code: Select all

// Meine Klasse, die ich aus meinen Programmen anspreche
// Davon mal abgesehen, dass RKSV nicht vom Compiler akzeptiert wird
// Die App heißt _RKSV 1.76 und nicht RKSV, sollte also nicht das Namensproblem verursachen
// Methoden decken sich großteils mit gleichnamigen aus RKSVInt aber nicht mit allen
CLASS RKSV
	PROTECT _oRKSVINT AS RKSVINT   // Interfaceklasse für RKSVCom aus RKSVComComplete von ITG

METHOD ConvertJWSCompactToText(cJws AS STRING) AS STRING PASCAL
	// Wandelt einen JWS-String in normalen Text um
	// -> Input: JWS-String
	// -> Return: Umgewandelter JWS-String oder NULL_STRING
	LOCAL cResult AS STRING		// Rückgabe aus RKSVCom: Umgewandelter JWS-String
	LOCAL cAnswer AS STRING		// Rückgabe aus RKSVCom: Fehlertext
	LOCAL lRet AS logic

	// Die beiden REF Parameter müßten doch mit @ angegeben werden, zumindest in VO wars so?
	lRet := _oRKSVINT:ConvertJWSCompactToText(cJws, @cResult, @cAnswer)   // [1]
	// Anhand der Rückgabe aus RKSVCom werden Rückgabewert oder Fehlermeldung erstellt
	DO CASE
	CASE Empty(cResult)
		_cMsgLast := "Kein gültiger JWS-String"
		_cMsgFirst:= IIF(Empty(_cMsgFirst), _cMsgLast, _cMsgFirst)
	CASE !lRet
		_cMsgLast := StrTran(_RKSV_ConvertJWSCompactToText, "%ERROR%", cAnswer)
		_cMsgFirst:= IIF(Empty(_cMsgFirst), _cMsgLast, _cMsgFirst)
		cResult := NULL_STRING
	ENDCASE		
	RETURN cResult

// Interfaceklasse für RKSVComComplete von ITG
// Wird nicht direkt aus meinen Programmen angesprochen
// Entsprach in VO den generierten Prototypen
USING RKSVComComplete
CLASS RKSVINT
	PROTECT _oRKSVCom AS RKSVCom	// Klasse aus RKSVComComplete von ITG

METHOD ConvertJWSCompactToText(;
		jwsCompact AS STRING,;		// AS STRING
		text AS STRING,;		// REF STRING
		errorMessage AS STRING;		// REF STRING
		)  AS LOGIC

	LOCAL lRetValue	AS logic

	// Wenn X# den @ nicht braucht, dann lassen wir ihn mal weg
	lRetValue := _oRKSVCom:ConvertJWSCompactToText(jwsCompact, text, errorMessage)   // [2]
	RETURN (lRetValue)

Code: Select all

error XS1503: Argument 2: cannot convert from 'System.IntPtr*' to 'string" bei [1]

Code: Select all

warning XS9071: Parameter 2 needs a(n) 'Ref' modifier. This modifier was automatically added bei [2]

Code: Select all

METHOD ConvertJWSCompactToText(;
		jwsCompact AS STRING,;		// AS STRING
		text AS STRING,;		// REF STRING
		errorMessage AS STRING;		// REF STRING
		)  AS LOGIC

Code: Select all

METHOD ConvertJWSCompactToText(;
		jwsCompact AS STRING,;		// AS STRING
		text REF STRING,;		// REF STRING
		errorMessage REF STRING;		// REF STRING
		)  AS LOGIC

Code: Select all

error XS0246: The type or namespace name 'RKSV' could not be found (are you missing a using directive or an assembly reference?)

Code: Select all

text as ref string

Code: Select all

text as string

Code: Select all

text ref string