Vielen Dank an alle
Es funktioniert (fast) alles
@Robert Marquardt
In _PORT_DATA_1 muss die Länge mit
Reserved : Array[0..541] of Byte;
angegeben werden, frag mich nicht warum, ist so
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
Viele Grüße
s14