Einem Array of WChar einen String zuweisen

[Robert Marquardt]

So ich habe mir mal die Datei aus dem Win XP DDK zur Brust genommen.
Ich hab jetzt keine Lust dem ganzen API nachzurennen. XcvData ist z. B. nicht darin deklariert.
Die obigen Konversionen sind soweit richtig bis auf die erwaehnten Fehler.
Extra Typen mit Delphi-like Namen hab ich auch nicht gemacht.

Delphi-Quellcode:

{*++

Copyright (c) 1997 - 1999  Hewlett-Packard Company.
Copyright (c) 1997 - 1999  Microsoft Corporation
All rights reserved

Module Name:

   tcpxcv.h

--*}

unit tcpxcv;

interface

uses
  Windows;

const
  RAWTCP               = 1;
  PROTOCOL_RAWTCP_TYPE = RAWTCP;

  LPR                  = 2;
  PROTOCOL_LPR_TYPE    = LPR;

  MAX_PORTNAME_LEN                = 63 +1;       // port name length
  MAX_NETWORKNAME_LEN             = 48 +1;       // host name length
  MAX_SNMP_COMMUNITY_STR_LEN      = 32 +1;       // SNMP Community String Name
  MAX_QUEUENAME_LEN               = 32 +1;       // lpr print que name
  MAX_IPADDR_STR_LEN              = 15 +1;       // ip address; string version
  MAX_ADDRESS_STR_LEN             = 12 +1;       // hw address length
  MAX_DEVICEDESCRIPTION_STR_LEN   = 256+1;

type
  PPORT_DATA_1 = ^PORT_DATA_1;
  PORT_DATA_1 = packed record
    sztPortName: array [0..MAX_PORTNAME_LEN-1] of WideChar;
    dwVersion: DWORD;
    dwProtocol: DWORD;
    cbSize: DWORD;
    dwReserved: DWORD;
    sztHostAddress: array [0..MAX_NETWORKNAME_LEN-1] of WideChar;
    sztSNMPCommunity: array [0..MAX_SNMP_COMMUNITY_STR_LEN-1] of WideChar;
    dwDoubleSpool: DWORD;
    sztQueue: array [MAX_QUEUENAME_LEN-1] of WideChar;
    sztIPAddress: array [MAX_IPADDR_STR_LEN-1] of WideChar;
    Reserved: array [0..539] of Byte;
    dwPortNumber: DWORD;
    dwSNMPEnabled: DWORD;
    dwSNMPDevIndex: DWORD;
  end;

  PDELETE_PORT_DATA_1 = ^DELETE_PORT_DATA_1;
  DELETE_PORT_DATA_1 = packed record
    psztPortName: array [0..MAX_PORTNAME_LEN-1] of WideChar;
    Reserved: array [0..97] of Byte;
    dwVersion: DWORD;
    dwReserved: DWORD;
  end;

  PCONFIG_INFO_DATA_1 = ^CONFIG_INFO_DATA_1;
  CONFIG_INFO_DATA_1 = packed record
    Reserved[0..127] of Byte;
    dwVersion: DWORD;
  end;

implementation

end.

[s14]

Vielen Dank an alle :dp:

Es funktioniert (fast) alles

@Robert Marquardt
In _PORT_DATA_1 muss die Länge mit

Delphi-Quellcode:

Reserved : Array[0..541] of Byte;

angegeben werden, frag mich nicht warum, ist so :roll:
Vielleicht ein Fehler in der Dokumentation?

Ach ja zur Info der Aufruf der Funktion muss so aussehen:

Delphi-Quellcode:

XcvData(hXcv, // Handle des Monitors
        'AddPort', // Befehl an DLL, DeletePort auch möglich
        @PortData1, // PORT_DATA_1 Struktur
        SizeOf(PortData1)+2,  // Größe des Puffers
        nil,
        0, // not used
        @OutputNeeded,
        @pdwStatus)

Also AddPort, nicht wie in der Doku L"AddPort".

Mein Problem ist jetz nur noch der Remote-Aufruf der Funktion OpenPrinter.
Das sollte laut MSDN so aussehen:

Delphi-Quellcode:

// Handle to a remote machine
if (OpenPrinter("<ServerName>\\,XcvMonitor <MonitorName>", &hXcv, &Defaults ) {
// hXcv contains an Xcv data handle to the monitor
// <MonitorName> on the server <ServerName>
}

Funktioniert aber nicht, vielleicht weiß da ja noch jemand was :drunken:

Viele Grüße
s14

[Robert Marquardt]

541 statt 539 ist wirklich ungewoehnlich.
Da hat sich seit dem Win 98 DDK nichts geaendert (wohl dem der sowas noch hat).
L"AddPort" ist ein Unicode-String-Literal (ein "Long"-Prefix). Die Umwandlung macht Delphi aber automatisch wenn der Parameter auf PWideChar lautet.

[himitsu]

Ein Hallöle von http://www.FrankNStein.de/Smiley-Wolke2.gif,

also dan so:

Code:

  XcvData(
[color=gray]*[/color]   HANDLE  hXcv,
[color=gray]*[/color]   LPCWSTR pszDataName,
[color=gray]*[/color]   PBYTE   pInputData,
    DWORD   cbInputData,
[color=gray]*[/color]   PBYTE   pOutputData,
    DWORD   cbOutputData,
[color=gray]*[/color]   PDWORD  pcbOutputNeeded,
[color=gray]*[/color]   PDWORD  pdwStatus)

  XcvData(
[color=gray]*[/color]   hXcv,
[color=gray]*[/color]   @DataName,
[color=gray]*[/color]   @InputData,
    SizeOf(InputData),
[color=gray]*[/color]   @OutputData,
    SizeOf(OutputData),
[color=gray]*[/color]   @OutputNeeded,
[color=gray]*[/color]   @dwStatus)

[color=gray]*[/color] = Zeiger

z.B.:

Delphi-Quellcode:

Const MAX_DATANAME = XXX; {weiß nicht wie lang es sein muß}

Var DataName: Array[0..MAX_DATANAME - 1] of WideChar;

StringToWideChar('AddPort', @DataName, Min(Length('AddPort') + 1, MAX_DATANAME));

XcvData(
  hXcv,
  @DataName,
  @PortData1,
  SizeOf(PortData1),
  nil, 0, nil,
  @pdwStatus)

http://www.delphipraxis.net/images/common/divider.jpg
http://www.FrankNStein.de/Smiley-Kuss.gif http://www.FrankNStein.de/Smiley-Spinne.gif http://www.FrankNStein.de/Smiley-Winken.gif

[RoyalString]

Hi,

leider habe ich bisher keinen Erfolg gehabt beim Erzeugen eines TCP Ports. Die Ausführung von XcvData scheint zunächst zu funktionieren, jedoch erhalte ich einen anschließend ein "Zugriff verweigert" und der Port wurde doch nicht angelegt. DIe Rechte die ich dem Defaults vergeben hatte waren SERVER_ACCESS_ADMINISTER. Also eigentlich sollte es doch genug sein. Das ganze passiert unter Win XP pro mit Admin Rechten. :pale:

Irgendeine Idee wo ich den Fehler machen?