topic Re: Using function from windows dll in abap program in Application Development and Automation Discussions

Using function from windows dll in abap program

Former Member — Tue, 05 Apr 2011 13:12:34 GMT

How can i use a function from a standard DLL that in c:\winnt\system32.?.

Ami

Re: Using function from windows dll in abap program

Former Member — Tue, 05 Apr 2011 13:21:49 GMT

The name of the DLL is ADVAPI32.DLL and the function i want to use is LogonUser, i want to use it in an ABAP program

thanx Ami

Re: Using function from windows dll in abap program

roberto_vacca2 — Tue, 05 Apr 2011 13:27:46 GMT

Hi...

Use this example

INCLUDE OLE2INCL.

"-Constants----

DATA IDYes TYPE i VALUE 6.

DATA IDNo TYPE i VALUE 7.

"-Variables----

DATA Win32 TYPE OLE2_OBJECT.

DATA ret TYPE i.

CREATE OBJECT Win32 'DynamicWrapperX'.

CALL METHOD OF Win32 'Register' (REGISTER IS A DLL)

EXPORTING

#1 = 'user32.dll' #2 = 'MessageBoxW'

#3 = 'i=hwwu' #4 = 'r=l'.

CALL METHOD OF Win32 'MessageBoxW' = ret (MESSAGEBOXW IS YOUR FUNCTION )

EXPORTING

#1 = 0 #2 = 'Hello World'

#3 = 'Test' #4 = 4.

IF ret = IDYes.

WRITE 'Ja'.

ELSEIF ret = IDNo.

WRITE 'Nein'.

ELSE.

WRITE '?'.

ENDIF.

FREE OBJECT Win32.

That should solve your question...

Hope to help, bye...

Re: Using function from windows dll in abap program

roberto_vacca2 — Tue, 05 Apr 2011 13:29:02 GMT

Sorry I mean

#1 parameter is you DLL

CALL METHOD OF Win32 'Register'

EXPORTING

#1 = 'user32.dll' #2 = 'MessageBoxW'

#3 = 'i=hwwu' #4 = 'r=l'.

Re: Using function from windows dll in abap program

roberto_vacca2 — Tue, 05 Apr 2011 13:40:12 GMT

you need also to register on your client this dll to make the example code working

http://www.script-coding.com/dynwrapx_eng.html#download

Put the dynwrapx.dll into win..system32 folder

and register after with command from RUN windows menù -> regsvr32.exe dynwrapx.dll

Re: Using function from windows dll in abap program

Former Member — Tue, 05 Apr 2011 14:06:06 GMT

sorry but it didnt work

Re: Using function from windows dll in abap program

roberto_vacca2 — Tue, 05 Apr 2011 14:08:31 GMT

Hi..

have you done a debug session? What goes wrong?...

I tried and it worked with me....

Re: Using function from windows dll in abap program

Former Member — Tue, 05 Apr 2011 14:12:48 GMT

thanks but i dont have a way to upload the reg. file to all the users computers,

second i didnt know where to put the name of the dll and the function name ,

Re: Using function from windows dll in abap program

roberto_vacca2 — Tue, 05 Apr 2011 14:45:02 GMT

Hi...

try to

CALL METHOD OF Win32 'Register'

EXPORTING

#1 = 'advapi32.dll' #2 = 'LogonUser'

#3 = 'i=hwwu' #4 = 'r=l'.

CALL METHOD OF Win32 'LogonUser' = ret

EXPORTING

*#1 = 0 #2 = 'Hello World'

*#3 = 'Test' #4 = 4.

Here you'll have to use parameters of your function as indicated on msdn documentation

__in LPTSTR lpszUsername,

__in_opt LPTSTR lpszDomain,

__in LPTSTR lpszPassword,

__in DWORD dwLogonType,

__in DWORD dwLogonProvider,

__out PHANDLE phToken

More info I founded on http://msdn.microsoft.com/en-us/library/aa378184(v=vs.85).aspx

Naturally you must adeguate the code ... That's how it works.

Re: Using function from windows dll in abap program

Former Member — Tue, 05 Apr 2011 15:10:16 GMT

do i need to upload the dll to the server?

Re: Using function from windows dll in abap program

roberto_vacca2 — Tue, 05 Apr 2011 15:33:59 GMT

HI...

no your Dll should be a standard dll....always present...

Re: Using function from windows dll in abap program

Former Member — Wed, 06 Jul 2011 22:46:53 GMT

Hello Roberto.

I'm trying to call the example function 'MessageBoxW' from USER32.dll but when executes the function:

CALL METHOD OF win32 'MessageBoxW' = ret

EXPORTING

#1 = 0

#2 = 'Hello World'

#3 = 'Test'

#4 = 4.

The "RET" variable, always was 2.

And the program not make anything.

Please your help.

Regards.

Re: Using function from windows dll in abap program

Stefan-Schnell — Mon, 05 Sep 2011 15:48:27 GMT

Hello ami,

here is the solution to your question - I know, a little bit late, but I hope not to late.

Cheers

Stefan



"-Begin-----------------------------------------------------------------
  Report  ZLOGON.

  "-Variables-----------------------------------------------------------
    Data Win32 Type OLE2_OBJECT.
    Data Token Type String Value '0000'.
    Data hToken Type Integer.
    Data phToken Type Integer.
    Data ret Type Integer.

  "-Main----------------------------------------------------------------
    Create Object Win32 'DynamicWrapperX'.

    If Win32-Handle > 0.

      "-Define external functions---------------------------------------
        Call Method Of Win32 'Register' Exporting
          #1 = 'advapi32.dll' #2 = 'LogonUserA'
          #3 = 'i=sssuup' #4 = 'r=l'.

        Call Method Of Win32 'Register' Exporting
          #1 = 'kernel32.dll' #2 = 'CloseHandle'
          #3 = 'i=h' #4 = 'r=l'.

        Call Method Of Win32 'Register' Exporting
          #1 = 'kernel32.dll' #2 = 'GetLastError'
          #3 = 'r=u'.

      Call Method Of Win32 'StrPtr' = phToken Exporting
        #1 = Token #2 = 's'.

      Call Method Of Win32 'LogonUserA' = ret Exporting
        #1 = 'bambi' #2 = '.' #3 = 'hugo' #4 = 2 #5 = 0 #6 = phToken.

      If ret <> 0.
        
        "-Logon successful----------------------------------------------
          Write: 'Logon as bambi user'.

        Call Method Of Win32 'NumGet' = hToken Exporting
          #1 = phToken.

        Call Method Of Win32 'CloseHandle' = ret Exporting
          #1 = hToken.

        If ret = 0.
          Call Method Of Win32 'GetLastError' = ret.
          Write: / ret.
        EndIf.

      Else.
        Call Method Of Win32 'GetLastError' = ret.
        Write: / ret.
      EndIf.

      Free Object Win32.

    EndIf.

"-End-------------------------------------------------------------------

Edited by: Stefan Schnell on Sep 6, 2011 7:07 AM