Integer nach IntPtr - Konvertierung nicht möglich...!?

31.03.2005, 16:59

Ali Ramezani

Hallo NG,

Was mach ich hier falsch?

Vielen Dank

Grüße

Private Function pGetProzesse() As ArrayList

Dim MyProcesses As New ArrayList

Dim hServer As IntPtr = IntPtr.Zero

Dim pInfo As IntPtr = IntPtr.Zero

Dim pInfoSave As IntPtr = IntPtr.Zero

Dim ProzInfo As WTSProcessInfo

Dim pCount As Integer

Dim version As Integer = 1

Dim iPtr As Int32

hServer = WTSOpenServer("S-TS1")

If WTSEnumerateProcesses(hServer, 0, version, pInfo, pCount) Then

pInfoSave = pInfo

For ii As Integer = 1 To pCount

ProzInfo = Marshal.PtrToStructure(pInfo, GetType(WTSProcessInfo))

ProzInfo = CType(Marshal.PtrToStructure(pInfo, GetType(WTSProcessInfo)),
WTSProcessInfo)

iPtr = pInfo.ToInt32 + Marshal.SizeOf(ProzInfo)

pInfo = CType(CObj(iPtr), IntPtr) </////////////////////---- Diese
Umwandlung ist nicht korrekt..../////////////////////

Next

End If

WTSCloseServer(hServer)

End Function

31.03.2005, 17:13

Herfried K. Wagner [MVP]

Hallo Ali!

"Ali Ramezani" <aliram_nospam_> schrieb:
> pInfo = CType(CObj(iPtr), IntPtr) </////////////////////---- Diese
> Umwandlung ist nicht korrekt..../////////////////////

\\\
pInfo = New IntPtr(iPtr)
///

01.04.2005, 07:11

Ali Ramezani

Danke. Es funktioniert.
:-)

"Herfried K. Wagner [MVP]" <hirf-spam-me-here> schrieb im Newsbeitrag
news:3356
[..]

Ähnliche Themen
Problem mit Konvertierung zu integer Hallo, wie kann man z.B. einen Wert '16,' in 16 konvertieren? cast(spalte as integer) arbeitet hier leider nicht. Die Spalte in der DB ist vom Typ varchar, es stehen aber...
Suche konvertierung Integer / Long in 2Byte / 4Byte String Hallo eine Byte Variable kann ich mit chr$(x) in einen String konvertieren und mit ASC daraus wieder einen Integer machen nur wie geht das elegant mit Integer in Word (2...
Konvertierung einer boolschen Bedingung in einen Integer-Ausdruck Hallo, ich habe in SQL häufiger folgendes Problem: ich muss das Ergebnis einer Bedingung innerhalb eines Ausdrucks verwenden. Also vom Prinzip her: DECLARE @flag AS BIT SET...
Konvertierung in Integer Hallo NG, ich habe gleich noch eine Frage. Sie betrifft die zahlreichen Konvertierungsmöglichkeiten. Welche sollte man wann anwenden? Werden die VB-spezifischen Funktionen...
Findet nach Konvertierung von 97 nach 2000 vba332.dll nicht mehr Hi, habe meine Adressdatenbank von 97 mach 2000 umgestellt. Ich habe aus Knowhow den Wordaufruf eingebaut. Lief auch unter A97 einwandfrei. Wenn ich die Befehlsschaltfläche...