CbRegisterService()
CbRegisterService() – Registriere Service-Methode
Registriert die übergebene Service-Methode zur Laufzeit zur Ausführung im beas.
Liefert als Ergebnis den Wert True, falls erfolgreich.
Parameter | Beschreibung |
|---|---|
aServiceRegInfo:O | Objekt der Klasse TBeasCbServiceRegInfo mit der Beschreibung der zu registrierenden Service-Methode. |
Rückgabewert
Keiner
Beispiel
CODE
//******************************************************************************
// Registriert und deregistriert die Servive-Methode
// "cb_RegisteredDynamicCbService".
//******************************************************************************
|oServiceRegInfo|
oServiceRegInfo := CreateObject("TBeasCbServiceRegInfo"),
Startseq,
oServiceRegInfo.CbMethodName := "cb_RegisteredDynamicCbService",
oServiceRegInfo.CbMethodDescription := "Methode cb_RegisteredDynamicCbService",
oServiceRegInfo.CbServiceTypes := _OR(beasServiceTypeStandard, beasServiceTypeHttp),
oServiceRegInfo.CbContextClass := beasContext,
oServiceRegInfo.CbVisibility := beasDocumented,
oServiceRegInfo.CbProgramName := "beas\dynamic_services\TestServices\Database",
oServiceRegInfo.CbAddParameterInfo("Param0", "Dies ist Parameter 0", "Integer", beasResult, beasRequired ),
oServiceRegInfo.CbAddParameterInfo("Param1", "Dies ist Parameter 1", "TCb_MyIntegerArray", beasIn, beasRequired ),
oServiceRegInfo.CbAddParameterInfo("Param2", "Dies ist Parameter 2", "TCb_CompositeField", beasIn, beasOptional ),
CbRegisterService(oServiceRegInfo),
Always,
DestroyObject(oServiceRegInfo),
StopSeq,
CbUnregisterService("RegisteredDynamicCbService"),