German TCP/IP Verbindung kann nicht aufgebaut werden

[GMan]

SO kann mann Outsourcing auch handhaben

 

[Sinan Tuzcu]

Ich habe keine Dokumente.
Was ich habe ist nur VB.NET Beispiel Projekt

 

[GMan]

DonManfred told you (several times)
Ach so - in Deutsch : DonManfred hatte Dich schon (mehrmals) darauf hingewiesen

↑
Frag mich was du wissen möchtest.
Uploade bitte die Entwicklerdokumentation von dem Gerät.
Uploade bitte ein funktionierendes Beispiel (in welcher sprache auch immer) (Quelltext!).

 

[DonManfred]

mehrmals

Nur einmal. Aber es wurde auch von jemand anderen schon angefordert bzw. auf die 404 Probleme auf der Seite hingewiesen.
Wird aber alles zu 100% ignoriert wie mir scheint.

Mir aber im grunde auch egal; ich muss das ja nicht ans laufen bekommen.

Ich muss aber auch zugeben, dass ich mir die 60+ Posts in diesem Thread nicht alle angesehen habe. Ist mir zu müssig bei Sinan. Ich versuche seine Posts erfolgreich zu ignorieren. Gelingt mir aber nicht immer.

 

[thetahsk]

Nur einmal. Aber es wurde auch von jemand anderen schon angefordert bzw. auf die 404 Probleme auf der Seite hingewiesen.
Wird aber alles zu 100% ignoriert wie mir scheint.
..

Geht mir genauso. Aber Menschen mit Helfer Syndrom haben es schon immer im Leben schwerer gehabt.

 

[GMan]

Zeit für 'ne Ignore-List ?

 

[DonManfred]

Zeit für 'ne Ignore-List ?

Wenns mir zu viel wird kommt er drauf. Ist er ja auch schon mehrfach.
Aber ich habe die angewohnheit jemanden nach ein paar Tagen auch wieder von der Liste zu nehmen (Man(fred) möchte dann ja doch wissen, was er geschrieben hat)...

Ich bereue es aber immer wieder aufs neue ;-)

 

[thetahsk]

Wenns mir zu viel wird kommt er drauf. Ist er ja auch schon mehrfach.
Aber ich habe die angewohnheit jemanden nach ein paar Tagen auch wieder von der Liste zu nehmen (Man(fred) möchte dann ja doch wissen, was er geschrieben hat)...

Ich bereue es aber immer wieder aufs neue ;-)

Nur noch 33 Postings und wir sind im drei stelligen Breich.

 

[DonManfred]

im drei stelligen Breich

... ohne Lösung....

 

[thetahsk]

... ohne Lösung....

Wir schmeissen alle zusammen und kaufen Ihm eine
https://de.aliexpress.com/item/Indu...rnet-Web-Relay-Remote-Switch/32533900671.html
zu Ostern.

 

[Sinan Tuzcu]

So, wer alles hat mich ignoriert und wer ist noch dabei?

 

[MarkusR]

Man kann sich ja mit VB Verbinden und seine Karte antwortet ja, Problem liegt eher bei dieser Fritznet Adresse oder in seinem B4A Quelltext.
Nützlich wäre ein kleines Text Projekt in B4A. #56 #53 sind noch offen.

 

[OliverA]

#52

 

[Sinan Tuzcu]

die Zeile "Dim client As Socket" ist falsch, du hast das Objekt doch oben (bei
Process_Globals
) schon definiert
und Du möchtest doch auch Ereignisse bekommen außerhalb deiner Funktion.
Nutze Initialize nur einmal, du mußt nicht jedesmal ein neues Objekt erstellen.
Initialize ist wie "New" bei C#

Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'These variables can be accessed from all modules.
    Dim Socket1 As Socket
    Public server As ServerSocket
    Dim AStreams As AsyncStreams
    Public connected As Boolean
End Sub

public Sub ConnectToServer
   
    If AStreams.IsInitialized Then AStreams.Close
    If Socket1.IsInitialized Then Socket1.Close
   
    Socket1.Initialize("Socket1")
    Socket1.Connect(Variablen.IPaddress, Variablen.Port, Variablen.ConnectionTimeout)
   
    Wait For Socket1_Connected (Successful As Boolean)
   
    If Successful Then
        AStreams.InitializePrefix(Socket1.InputStream,False,Socket1.OutputStream,"Astreams")    
    Else
        If AStreams.IsInitialized Then AStreams.Close
        If Socket1.IsInitialized Then Socket1.Close
        CallSub(Input_Output, "SetState")
    End If
End Sub

Bricht ebenfalls in null komma nichts ab.

 

[Sinan Tuzcu]

Wird überhaupt der Prefix Mode von der Ethernet Box unterstützt ?

nein

 

[OliverA]

nein

Warum das dann?

AStreams.InitializePrefix(Socket1.InputStream,False,Socket1.OutputStream,"Astreams")

 

[OliverA]

Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'These variables can be accessed from all modules.
    Dim Socket1 As Socket
    Public server As ServerSocket
    Dim AStreams As AsyncStreams
    Public connected As Boolean
End Sub

public Sub ConnectToServer
   
    If AStreams.IsInitialized Then AStreams.Close
    If Socket1.IsInitialized Then Socket1.Close

    Dim sock As Socket
    Socket1 = sock
    Socket1.Initialize("Socket1")
'    Socket1.Connect(Variablen.IPaddress, Variablen.Port, Variablen.ConnectionTimeout)
    'Am Anfang, kein Timeout - Falls ein Fehler auftritt, wollen wir Java uns sagen lassen was los ist
    Socket1.Connect(Variablen.IPaddress, Variablen.Port, 0)
   
    Wait For Socket1_Connected (Successful As Boolean)
   
    If Successful Then
'        AStreams.InitializePrefix(Socket1.InputStream,False,Socket1.OutputStream,"Astreams")    
         Dim aStream as AsyncStreams
         AStreams = aStream
         AStreams.Initialize(Socket1.InputStream,Socket1.OutputStream,"Astreams")
    Else
        If AStreams.IsInitialized Then AStreams.Close
        If Socket1.IsInitialized Then Socket1.Close
        CallSub(Input_Output, "SetState")
    End If
End Sub

 

[MarkusR]

Bricht ebenfalls in null komma nichts ab.

Mach das doch bitte mal als Test Projekt (Menu als Zip exportieren aus IDE) + den Input den Du bei .Connect benutzt und häng das hier an.

 

[thetahsk]

Mach das doch bitte mal als Test Projekt (Menu als Zip exportieren aus IDE) + den Input den Du bei .Connect benutzt und häng das hier an.

Da sind wir ja mal gespannt wie'n Flizzebogen.

 

[Sinan Tuzcu]

Sub Process_Globals
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.
Dim Socket1 As Socket
Public server As ServerSocket
Dim AStreams As AsyncStreams
Public connected As Boolean
End Sub

public Sub ConnectToServer

If AStreams.IsInitialized Then AStreams.Close
If Socket1.IsInitialized Then Socket1.Close

Dim sock As Socket
Socket1 = sock
Socket1.Initialize("Socket1")
' Socket1.Connect(Variablen.IPaddress, Variablen.Port, Variablen.ConnectionTimeout)
'Am Anfang, kein Timeout - Falls ein Fehler auftritt, wollen wir Java uns sagen lassen was los ist
Socket1.Connect(Variablen.IPaddress, Variablen.Port, 0)

Wait For Socket1_Connected (Successful As Boolean)

If Successful Then
' AStreams.InitializePrefix(Socket1.InputStream,False,Socket1.OutputStream,"Astreams")
Dim aStream as AsyncStreams
AStreams = aStream
AStreams.Initialize(Socket1.InputStream,Socket1.OutputStream,"Astreams")
Else
If AStreams.IsInitialized Then AStreams.Close
If Socket1.IsInitialized Then Socket1.Close
CallSub(Input_Output, "SetState")
End If
End Sub

so verbindet es sich schnell und ohne Abbruch.
Über das Vodafone Netz

Aber, wenn ich die HW vom Netz trenne, dann ist die Timeout Zeit wieder unter 1 sekunde