Re: VARPG Window API call - PrintDlgEx -- WDSCI-L

Hi Kurt,

      *  Display the Print Dialog Window
     D PrintDlgEx      PR            10u 0 ExtProc('PrintDlgEx')
     D                                     dll('comdlg32.dll')
     D                                     LinkAge(*StdCall)
     D  pPrintDS                       *   Value

Hmmm.. I haven't written anything in VARPG, but I've used this functionfrom a C program, and I'm pretty familiar with ILE RPG, so I'll take astab at it...

In Windows, there are two versions of most functions in the WIN32 API.There's a normal ASCII version, and there's a "wide character" (Unicode)version of each API. In the C include files, you'd see something like this:


#if (WINVER >= 0x0500)
HRESULT WINAPI PrintDlgExA(LPPRINTDLGEXA);
HRESULT WINAPI PrintDlgExW(LPPRINTDLGEXW);
#ifdef UNICODE
typedef PRINTDLGEXW PRINTDLGEX, *LPPRINTDLGEX;
#define PrintDlgEx PrintDlgExW
#else
typedef PRINTDLGEXA PRINTDLGEX, *LPPRINTDLGEX;
#define PrintDlgEx PrintDlgExA
#endif
#endif

Not sure if you understand C or not, but this basically maps any call toPrintDlgEx so that it calls PrintDlgExW or PrintDlgExA, depending onwhether UNICODE is defined. It also maps the data type of theparameter, accordingly.

To do the same thing in RPG (Assuming that VARPG syntax is the same asILE), you'd want to code something like this:



       *  Display the Print Dialog Window
       /if defined(UNICODE)
      D PrintDlgEx      PR            10i 0 ExtProc('PrintDlgExW')
      D                                     dll('comdlg32.dll')
      D                                     LinkAge(*StdCall)
      D  pPrintDS                           likeds(PRINTDLGEXW)
       /else
      D PrintDlgEx      PR            10i 0 ExtProc('PrintDlgExA')
      D                                     dll('comdlg32.dll')
      D                                     LinkAge(*StdCall)
      D  pPrintDS                           likeds(PRINTDLGEXA)
       /endif

Naturally, you'd have to define the PRINTDLGEXW and PRINTDLGEXA datastructures as well.

Also note that I changed the return values from your definition of "10u0" to "10i 0". I did this because HRESULT is supposed to be a signedinteger, at least, in C, I have this definition:


#ifndef _HRESULT_DEFINED
typedef long HRESULT;
#define _HRESULT_DEFINED
#endif

As you can see, HRESULT is defined as long, which is a 32-bit signedinteger (same as 10i 0 in RPG!)


Hope that helps...