New account

REXX-Dlls erstellen  Bottom

  • 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

Users on-line

  • 0 users

This list is based on users active over the last 30 minutes.