code:
1
2
3
4
5
6
7
8
| Module Module1
Declare Sub DlPortWritePortUchar Lib "dlportio.dll" _
(ByVal Port As Long, ByVal Value As Byte)
Sub Main()
DlPortWritePortUchar(1020, 1)
End Sub
End Module |
Waarom doet dit het niet? Ik heb al 100 keer gegoogled en alle dlportio bestanden bekeken en nog doet dit het niet.
Onder Delphi werkt zoiets wel (met ander poort driver) en ook port 1020 value 1 zijn goed (de DTR output van de COM1 seriele poort).
Andere voorbeeld code kan ik niet compileren, waarschijnlijk omdat VB7 geen oudere versies kan openen (toch?). Het voorbeeld executable bij dlportio werkt wel goed.
Andere DLL's kan ik wel gebruiken in VB7 en als ik de naam van de dlportio functie verander komt er een error. Dus de sub DlPortWritePortUchar wordt zeker wel gevonden. Ook de Sub Main() wordt gewoon ge-executed en dus: waarom werkt het dan nog niet