Hallo Walter,
was die Konstante angeht kann man einfach schreiben:
Const dwAccess As Integer = &HC0000000
Console.WriteLine("dwAccess {0} / {0:x4}", dwAccess)
denn Visual Basic konvertiert den Wert entsprechend - was auch an einem "alten Leiden" von Visual Basic (bis 2005) liegt, da es früher nicht mit vorzeichenlosen Integerwerten umgehen konnte und solche Werte "hinbiegt".
Faktisch verwendet
CreateFile einen DWORD (einen vorzeichenlosen Integer = UInteger). Es interessiert sich aber nur für die gesetzten Bits (es wird also nicht gerechnet), somit geht auch Integer.
Was den Fehler angeht:
Der weist darauf hin, dass Datenbereiche überschrieben wurden, weil ein Puffer zu klein war. Dazu müsste man aber genauer die Fehlerstelle eingrenzen. Nach welchen Aufrufen tritt Meldung auf?
Eine Schwäche im Original ist es, dass es keine Initialisierung bei
DCB vornimmt, wo DCBLength die Länge der Struktur enthalten sollte. Ein möglicher Fix:
Private Sub InitializeDcb()
Dim dcbState As Dcb
dcbState.DCBlength = CUInt(Marshal.SizeOf(GetType(Dcb))) ' DBCState ohne ReadOnly
GetCommStateNative(dcbState)
dcbState.Flags = dcbState.Flags And Not (1UI << DcbFlagAbortOnError)
SetCommStateNative(dcbState)
End Sub
Wobei Du aber erst prüfen solltest, ob das Problem an der Stelle auftritt. Dazu gucken, ob der Wert von DCBLength nach einem nicht initialisierten Aufruf einen anderen Wert enthält als 28 (kommt hier raus).
Gruß Elmar
