hallo leute
habe jetzt erstmal probiert die Visualisierung auf meinem Programmier Rechner laufen zu lassen also und windowx xp. Habe mir dazu das 2 Beispiel aus der TwinCat Infosys bei tcadsdll angeschaut und etwas bearbeitet. Aber es klappt irgendwie nicht....
das beispiel 4 arbeitet mit dem adsocx und da klappt es das ich die variablen auslesen kann.
hier mal mein quellcode:
[FONT="]Option[/FONT][FONT="]
Strict Off[/FONT]
[FONT="]Option[/FONT][FONT="]
Explicit On[/FONT]
[FONT="]Friend[/FONT][FONT="]
Class frmTest[/FONT]
[FONT="]
Inherits System.Windows.Forms.Form[/FONT]
[FONT="]
Dim WithEvents ads
As TcAdsDll.TcAdsSync[/FONT]
[FONT="]'UPGRADE_ISSUE: Das Deklarieren eines Parameters als ''As Any'' wird nicht unterstützt. Klicken Sie hier für weitere Informationen: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="FAE78A8D-8978-4FD4-8208-5B7324A8F795"'[/FONT]
[FONT="]
'UPGRADE_ISSUE: Das Deklarieren eines Parameters als ''As Any'' wird nicht unterstützt. Klicken Sie hier für weitere Informationen: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="FAE78A8D-8978-4FD4-8208-5B7324A8F795"'[/FONT]
[FONT="]Private[/FONT][FONT="]
Declare Sub CopyMemory
Lib "kernel32" Alias "RtlMoveMemory" (
ByRef lpDest
As Object,
ByRef lpSrc
As Object,
ByVal Length
As Integer)[/FONT]
[FONT="]
Private Sub frmTest_Load(
ByVal eventSender
As System.Object,
ByVal eventArgs
As System.EventArgs)
Handles MyBase.Load[/FONT]
[FONT="]
On Error GoTo errFunc[/FONT]
[FONT="]
Dim client
As TcAdsDll.TcClient[/FONT]
[FONT="]'UPGRADE_WARNING: Arrays in Struktur netId müssen möglicherweise initialisiert werden, bevor sie verwendet werden können. Klicken Sie hier für weitere Informationen: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="814DF224-76BD-4BB4-BFFB-EA359CB9FC48"'[/FONT]
[FONT="]Dim[/FONT][FONT="] netId
As TcAdsDll.AmsNetId[/FONT]
[FONT="] netId.b =
New Byte(6) {}[/FONT]
[FONT="] client = CreateObject(
"TcAdsDll.TcClient")[/FONT]
[FONT="] netId.b(0) = 5[/FONT]
[FONT="] netId.b(1) = 7[/FONT]
[FONT="] netId.b(2) = 45[/FONT]
[FONT="] netId.b(3) = 94[/FONT]
[FONT="] netId.b(4) = 1[/FONT]
[FONT="] netId.b(5) = 1[/FONT]
[FONT="] ads = client.Connect(netId, 801)[/FONT]
[FONT="]
Exit Sub[/FONT]
[FONT="]errFunc: [/FONT]
[FONT="] MsgBox(
"Error: (0x" & VB6.Format(Hex(Err.Number),
"00000000") &
"), " & Err.Description)[/FONT]
[FONT="]
End Sub[/FONT]
[FONT="]
Private Sub cmdRead_Click(
ByVal eventSender
As System.Object,
ByVal eventArgs
As System.EventArgs)
Handles cmdRead.Click[/FONT]
[FONT="]
On Error Resume Next[/FONT]
[FONT="] TextBeleuchtung1.Text =
CStr(ReadInteger(&H4040, 3781 ))[/FONT]
[FONT="]TextBeleuchtung2.Text =
CStr(ReadInteger(&H4040, 9868 ))[/FONT]
[FONT="]End[/FONT][FONT="]
Sub[/FONT]
[FONT="]
Private Function ReadInteger(
ByRef indexGroup
As Integer,
ByRef indexOffset
As Integer)
As Short[/FONT]
[FONT="]
On Error GoTo errFunc[/FONT]
[FONT="]
Dim arrRead(1)
As Byte[/FONT]
[FONT="]
Dim cbRead
As Integer[/FONT]
[FONT="]
Dim cbLen
As Integer[/FONT]
[FONT="]'UPGRADE_NOTE: val wurde aktualisiert auf val_Renamed. Klicken Sie hier für weitere Informationen: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="A9E4979A-37FA-4718-9994-97DD76ED70A7"'[/FONT]
[FONT="]Dim[/FONT][FONT="] val_Renamed
As Short[/FONT]
[FONT="] cbLen = 2[/FONT]
[FONT="]
Call ads.Read(indexGroup, indexOffset, cbLen, cbRead, arrRead(0))[/FONT]
[FONT="]
Call CopyMemory(val_Renamed, arrRead(0), cbLen)[/FONT]
[FONT="] ReadInteger = val_Renamed[/FONT]
[FONT="]
Exit Function[/FONT]
[FONT="]errFunc:[/FONT]
[FONT="] MsgBox(
"Error: (0x" & VB6.Format(Hex(Err.Number),
"00000000") &
"), " & Err.Description)[/FONT]
[FONT="]
End Function[/FONT]
[FONT="]
Private Sub btnclose_Click(
ByVal sender
As System.Object,
ByVal e
As System.EventArgs)
Handles btnclose.Click[/FONT]
[FONT="]Close()[/FONT]
[FONT="]
End Sub[/FONT]
[FONT="]End[/FONT][FONT="]
Class[/FONT]
[FONT="]
ich sehe den fehler nicht, und wenn ich das programm laufen lasse, dann gibt er mir 0 aus 
hat jemmand eine idee?
[/FONT]
