Hallo,
gibt es eine ausführliche Erklärung der Fehler Code 34?
Ich habe die Länge der String etwas erweitert, auch die Variablen habe ich angepasst, trotz dessen bekomme ich hier den Fehler
Die Variable Dim Sfc As String * 110 habe ich ebenfalls erhöht.
Alles anzeigen
davor sah es so aus (ohne Fehlermeldung)
Alles anzeigen
Wer kann mir helfen?
Danke im Voraus
Katip
gibt es eine ausführliche Erklärung der Fehler Code 34?
Ich habe die Länge der String etwas erweitert, auch die Variablen habe ich angepasst, trotz dessen bekomme ich hier den Fehler
Die Variable Dim Sfc As String * 110 habe ich ebenfalls erhöht.
BASCOM-Quellcode
- Dim Channel1 As String * 3
- Dim Channel2 As String * 3
- Dim Channel3 As String * 3
- Dim Channel4 As String * 3
- Dim Channel5 As String * 3
- Dim Channel6 As String * 3
- Dim Channel7 As String * 3
- Dim Channel8 As String * 3
- Sfc = "Verbunden with Laufschrif|" + Channel1 + "|" + Channel2 + "|" + Channel3 + "|" + Channel4 + "|" + Channel5 + "|" + Channel6 + "|" + _
- Channel7 + "|" + Channel8 + "|" + Isttimeraktiviert + "|" + Str(zt_reset) + "|" + Str(timeout_ausgeloest) + "|" + Str(eth_ip(1)) + "." + _
- Str(eth_ip(2)) + "." + Str(eth_ip(3)) + "." + Str(eth_ip(4)) + "|" + Str(eth_mask(1)) + "." + Str(eth_mask(2)) + "." + Str(eth_mask(3)) + "." + _
- Str(eth_mask(4)) + "|" + Str(eth_gateway(1)) + "." + Str(eth_gateway(2)) + "." + Str(eth_gateway(3)) + "." + Str(eth_gateway(4)) + "|" + _
- Eth_port + "|" + Programmablaufaktiv + "|" + Seriennummer + "|" + Devmacadresse + "|"
- '+ "|{013}{010}"
- If Flags.idx = 0 Then
- Flags.idx = 1
- Result1 = Tcpwritestr(idx , Sfc , 255 )
- End If
davor sah es so aus (ohne Fehlermeldung)
BASCOM-Quellcode
- Dim Channel1 As String * 3
- Dim Channel2 As String * 3
- Dim Channel3 As String * 3
- Dim Channel4 As String * 3
- Sfc = "Verbunden with Laufschrif|" + Channel1 + "|" + Channel2 + "|" + Channel3 + "|" + Channel4 + "|" + Isttimeraktiviert + "|" + Str(zt_reset) + "|" + Str(timeout_ausgeloest) + "|" + Str(eth_ip(1)) + "." + _
- Str(eth_ip(2)) + "." + Str(eth_ip(3)) + "." + Str(eth_ip(4)) + "|" + Str(eth_mask(1)) + "." + Str(eth_mask(2)) + "." + Str(eth_mask(3)) + "." + _
- Str(eth_mask(4)) + "|" + Str(eth_gateway(1)) + "." + Str(eth_gateway(2)) + "." + Str(eth_gateway(3)) + "." + Str(eth_gateway(4)) + "|" + _
- Eth_port + "|" + Programmablaufaktiv + "|" + Seriennummer + "|" + Devmacadresse + "|"
- '+ "|{013}{010}"
- If Flags.idx = 0 Then
- Flags.idx = 1
- Result1 = Tcpwritestr(idx , Sfc , 255 )
- End If
Danke im Voraus
Katip