Question

Need to set the port on XPS printer. I found some example on Stackoverflow but it doesnt work.
Here is a code(Lots of trash):

    LPTSTR pDeviceName = _T("Microsoft XPS Document Writer");
    HANDLE phPrinter(nullptr);
    PRINTER_DEFAULTS defaults;
    defaults.DesiredAccess = PRINTER_ACCESS_USE;
    defaults.pDatatype = 0;

    PORT_INFO_3 pInfo3;;

    DWORD needed;
    DWORD XcvResult;

    DWORD err = OpenPrinter(pDeviceName,&phPrinter,NULL);
    //const BYTE* portValue = reinterpret_cast<const BYTE*>("TestPort");
    PBYTE port = (PBYTE)_T("Test1");

    if(err) {
        int res =    XcvData(phPrinter,_T("AddPort"),port,sizeof(port),NULL,0,&needed,&XcvResult);
                }
    else {
        AfxMessageBox(_T("ERROR."),MB_OK);
    }
    ClosePrinter(phPrinter);

the funniest thing that this code worked just once(the first starting of XcvData func)!

Another example the same behaviour:

 BOOL AddPortX(void)
    {
        DWORD cbneed,cbstate;
        PBYTE pOutputData;
        HANDLE hXcv = INVALID_HANDLE_VALUE;
        PRINTER_DEFAULTS Defaults = { NULL,NULL,SERVER_ACCESS_ADMINISTER };     

        WCHAR pszPortName[]=L"UTReportPDFPort:"; 
        pOutputData=(PBYTE)malloc(MAX_PATH);

        if(!OpenPrinter(_T("Microsoft XPS Document Writer"),&hXcv,NULL ))
        {
            LPVOID lpMsgBuf; 
            GetLastError();
            FormatMessage(FORMAT_MESSAGE_ALLOCATE_BUFFER | FORMAT_MESSAGE_FROM_SYSTEM | FORMAT_MESSAGE_IGNORE_INSERTS,
                NULL, GetLastError(), NULL,(LPTSTR) &lpMsgBuf, 0, NULL );
            ::MessageBox(NULL,(LPCTSTR)lpMsgBuf,_T("ERROR"),MB_OK|MB_ICONINFORMATION);
            free(pOutputData);
            LocalFree( lpMsgBuf );
            return FALSE;

        }
// False
        if(!XcvData(hXcv,L"AddPort",(PBYTE)pszPortName,sizeof(pszPortName),(PBYTE)pOutputData,MAX_PATH,&cbneed,&cbstate))
        {
            LPVOID lpMsgBuf; 
            SetLastError(cbstate);
            FormatMessage(FORMAT_MESSAGE_ALLOCATE_BUFFER | FORMAT_MESSAGE_FROM_SYSTEM | FORMAT_MESSAGE_IGNORE_INSERTS,
                NULL, GetLastError(), NULL,(LPTSTR) &lpMsgBuf, 0, NULL ); 
            ::MessageBox(NULL,(LPCTSTR)lpMsgBuf,_T("ERROR"),MB_OK|MB_ICONINFORMATION);       
            LocalFree( lpMsgBuf ); 
            free(pOutputData);
        }

        free(pOutputData);
        ClosePrinter(hXcv);

        return TRUE;

    }

So, how to set add printer port right, and automatically select it after adding?
Maybe, somebody knows why it works just once? I mean – the XcvData function. All next times it returns the error code 6.
The .NET solution would be good too.

Answer 1

  public static class Winspool
{
    [StructLayout(LayoutKind.Sequential)]
    private class PRINTER_DEFAULTS
    {
        public string pDatatype;
        public IntPtr pDevMode;
        public int DesiredAccess;
    }

    [DllImport("winspool.drv", EntryPoint = "XcvDataW", SetLastError = true)]
    private static extern bool XcvData(
        IntPtr hXcv,
        [MarshalAs(UnmanagedType.LPWStr)] string pszDataName,
        IntPtr pInputData,
        uint cbInputData,
        IntPtr pOutputData,
        uint cbOutputData,
        out uint pcbOutputNeeded,
        out uint pwdStatus);

    [DllImport("winspool.drv", EntryPoint = "OpenPrinterA", SetLastError = true)]
    private static extern int OpenPrinter(
        string pPrinterName,
        ref IntPtr phPrinter,
        PRINTER_DEFAULTS pDefault);

    [DllImport("winspool.drv", EntryPoint = "ClosePrinter")]
    private static extern int ClosePrinter(IntPtr hPrinter);

    public static int AddLocalPort(string portName)
    {
        PRINTER_DEFAULTS def = new PRINTER_DEFAULTS();

        def.pDatatype = null;
        def.pDevMode = IntPtr.Zero;
        def.DesiredAccess = 1; //Server Access Administer

        IntPtr hPrinter = IntPtr.Zero;

        int n = OpenPrinter(",XcvMonitor Local Port", ref hPrinter, def);
        if (n == 0)
            return Marshal.GetLastWin32Error();

        if (!portName.EndsWith("\0"))
            portName += "\0"; // Must be a null terminated string

        // Must get the size in bytes. Rememeber .NET strings are formed by 2-byte characters
        uint size = (uint)(portName.Length * 2);

        // Alloc memory in HGlobal to set the portName
        IntPtr portPtr = Marshal.AllocHGlobal((int)size);
        Marshal.Copy(portName.ToCharArray(), 0, portPtr, portName.Length);

        uint needed; // Not that needed in fact...
        uint xcvResult; // Will receive de result here

        XcvData(hPrinter, "AddPort", portPtr, size, IntPtr.Zero, 0, out needed, out xcvResult);

        ClosePrinter(hPrinter);
        Marshal.FreeHGlobal(portPtr);

        return (int)xcvResult;
    }
}

Resource is from CodeProject

The first parameter in OpenPrinter() have to be – XcvMonitor Local Port.
Than we can use .NET management objects to select port is default.