🚀 go-pugleaf

"Pieter Philippaerts" <Pieter@nospam.mentalis.org> wrote...
> "SLE" <info@NOSPAMproit.be> wrote in message
> > Ik probeer Q202480 te vertalen
> > naar VB.NET maar geraak in de knoei, onder meer wanneer het op
marshalling
> > etc. aankomt.
>
> Kan je je declaraties eens posten?
>

Ik heb intussen van Microsoft PSS een "officieuze" vertaling van Q202480
naar VB.NET ontvangen. Let wel, copy/paste van de volledige code in een
nieuw VB.NET project werkt niet, had ik ook niet onmiddellijk verwacht.
Volledige code posten is net iets t�, dus hier volgen de declaraties (indien
ik er niet uit geraak zal ik een url posten naar het volledige projectje):

Public Class WINAPI
 Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory"
(<MarshalAsAttribute(UnmanagedType.AsAny)> ByVal o1 As Object,
<MarshalAsAttribute(UnmanagedType.AsAny)> ByVal o2 As Object, ByVal Length
As Integer)

 Declare Auto Function GetPrinter Lib "winspool.drv" (ByVal hPrinter As
IntPtr, ByVal Level As Integer, ByRef pPrinter As Byte, ByVal cbBuf As
Integer, ByRef pcbNeeded As Integer) As Boolean

 <DllImport("winspool.drv", EntryPoint:="EnumPrintersA", SetLastError:=True,
CharSet:=CharSet.Unicode, ExactSpelling:=True,
CallingConvention:=CallingConvention.StdCall)> Public Shared Function
EnumPrinters(ByVal flags As Long, ByVal name As String, ByVal Level As Long,
ByVal pPrinterEnum As Byte, ByVal cdBuf As Long, ByVal pcbNeeded As Long,
ByVal pcReturned As Long) As Long
  End Function

 <DllImport("kernel32", EntryPoint:="lstrcpyA", SetLastError:=True,
CharSet:=CharSet.Unicode, ExactSpelling:=True,
CallingConvention:=CallingConvention.StdCall)> Public Shared Function
lstrcpy(ByVal lpString1 As String, ByVal lpString2 As String) As Long
  End Function

 <DllImport("winspool.drv", EntryPoint:="ClosePrinter", SetLastError:=True,
CharSet:=CharSet.Unicode, ExactSpelling:=True,
CallingConvention:=CallingConvention.StdCall)> Public Shared Function
ClosePrinter(ByVal hPrinter As IntPtr) As Long
  End Function

 <DllImport("winspool.drv", EntryPoint:="EnumJobsA", SetLastError:=True,
CharSet:=CharSet.Unicode, ExactSpelling:=True,
CallingConvention:=CallingConvention.StdCall)> Public Shared Function
EnumJobs(ByVal hPrinter As IntPtr, ByRef FirstJob As Long, ByVal NoJobs As
Long, ByVal Level As Long, ByRef pJob As Byte, ByRef cdBuf As Long, ByVal
pcbNeeded As Long, ByVal pcReturned As Long) As Long
  End Function

 Declare Function OpenPrinter Lib "winspool.drv" Alias "OpenPrinterA" (ByVal
pPrinterName As String, ByRef phPrinter As IntPtr,
<MarshalAsAttribute(UnmanagedType.AsAny)> ByVal o1 As Object) As Long

End Class

Wat me al onmiddellijk opvalt, is dat er nog "Long" declaraties zijn ... ik
dacht dat dit in .NET sowieso "Integer" aka "Int32" moest zijn?

O ja, ter info: de aanleiding van dit probleem is een ander probleem (zie
andere thread), nl. het feit dat de win32_printer noch win32_printjob WMI
classes niet cluster-aware (MSCS) zijn :-(


Thanks,

--
SLE