REXX-Dlls erstellen

ARoederer
  • Registered: Dec 03, 2006
  • Last visit: Oct 29, 2010
  • Posts: 12
Link to this post Posted: Mar 24, 2007 - 11:12 AM
Hallo Wolfgang

Was ich gelegentlich vermisse, ist eine einfache Möglichkeit um DLLs für REXX zu generieren. ich weiß nicht, ob und wie man das in WDSibyl integrieren könnte, aber vielleicht findest Du da eine Möglichkeit.

Andreas
wdsibyl
  • Registered: Dec 04, 2006
  • Last visit: Dec 29, 2011
  • Posts: 89
Link to this post Posted: Mar 25, 2007 - 08:59 PM
Hallo!

Also ich habe es schon mal zusammen gebracht eine einfache REXX-DLL zu erstellen. Du brauchst dazu die Unit RexxSAA..

Ein Beispiel wäre: (Ich hoffe, dass dies noch funktioniert)

Code

Library QryRxUsr;



Uses RexxSAA;



Function QryUserID(Name:PChar; argc : LongInt;

VAR rxArgs: RxArguments;

VAR qName : cString;

VAR retstr: RXSTRING) : LongWord; ApiEntry;



Begin

Result:=0;

if argc=0

then

Begin

MakeRXStringPas(Retstr, 'RV=QryUserID');

Result:=0;

End

else

result:=40;

End;



exports

QryUserID index 1;



{ ---------------------------------------------------- }



Begin

End.


Als CMD-Datei verwendet man folgenden Aufruf:

Code

/* Text QryRxUser */



call RxFuncAdd 'QryUserID', 'QryRXUsr', 'QryUserID'



Say QryUserID()



Say "Okay"



exit


bye,
Wolfgang