Visual Basic Forum

Boiler · Newbie Anmeldedatum: 14.06.2011 Beiträge: 3

hallo zusammen,
mein problem ist folgendes:
ich habe ein programm unter VB6 welches mit einem Labview programm daten austauschen soll. nun habe ich zwischen den beiden programmen eine kommunikation aufbauen wollen und die tcp/ip variante über winsock gewählt. leider habe ich dabei nicht bedacht, dass der server unter vb immer den kontakt zum client unter labview halten muss, weil er sonst die requestid die zugeteilt wurde "vergisst" und wieder neu connecten müsste. aber um mein programm durchlaufen zu lassen muss ja die whileschleife des servers verlassen werden und das trennt ja die verbindung.
ich dachte nun an die möglichkeit das VB vielleicht doch 2 sachen gleichzeitig machen kann aber ich weiss nicht recht wie!
wäre sehr nett wenn ihr mir ein paar tipps geben könntet Smile

danke im vorraus,
Siggi

christopher.g · Überflieger Anmeldedatum: 03.05.2008 Beiträge: 565

versteh ich nicht ganz...
wenn du eine verbindung herstellst
bleibt die von vb6 aus schon erhalten...

zeig mal eine stück code aus diesem bereich
vl ist das problem dann leichter ersichtlich

Boiler · Newbie Anmeldedatum: 14.06.2011 Beiträge: 3

Hi Christopher,
also den Code habe ich im Internet gefunden und an meine Bedürfnisse angepasst, aber wenn der Server nicht in seiner whileschleife bleibt wo er ständig "hören" kann dann verliert er doch die RequestID oder muss das dann ein anderes Problem sein wenn es nicht läuft?

Option Explicit

Private Sub Form_Load()
' Command1 deaktivieren
Command1.Enabled = False

' Port 12345 soll abgehört werden
Winsock1.LocalPort = 12345

' Abhör-Vorgang starten
Winsock1.Listen
End Sub

' Wenn ein Computer versucht eine Verbindung mit dem
' Server aufzubauen
Private Sub Winsock1_ConnectionRequest( _
ByVal requestID As Long)

' Das Abhören wird beendet
Winsock1.Close

' Die Verbindung wird akzeptiert
Winsock1.Accept requestID

' Command1 anschalten damit man die Nachricht
' senden kann
Command1.Enabled = True
End Sub

' Wenn Daten ankommen
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim sData As String

' Die ankommenden Daten werden in einer Variable
' (strDaten) gespeichert
Winsock1.GetData sData
End Sub

Private Sub Command1_Click()
' Nachricht wird zum Client gesendet
Winsock1.SendData "current"
End Sub

' Wenn die Verbindundung getrennt wird
Private Sub Winsock1_Close()
' Command1 ausschalten
Command1.Enabled = False
End Sub

MfG Siggi

christopher.g · Überflieger Anmeldedatum: 03.05.2008 Beiträge: 565

hi
nein du brauchst keine schleife um die verbindung aufrecht zu erhalten
was aber wichtig ist
bei deinem server
wenn die verbindung unterbrochen wird... dass du wieder auf listen schaltest
sonst kannst du keine erneute verbindung aufbauen

ich hab auf vb-future.net ein paar tutorials über winsock online gestellt
Tut über winsock

also genau genommen 3 tutorials über einen winsock chat
was aber genau gleich funktioniert
du sendest halt keinen text an den server sondern befehle die er dann abarbeitet

wenn du noch fragen hast melde dich
lg deepack

Boiler · Newbie Anmeldedatum: 14.06.2011 Beiträge: 3

hi, danke schonmal für die schnelle antwort Smile

leider ist der download furchtbar langsam.. mir wird eine vorraussichtliche downloadzeit von 5 tagen angezeigt. gibt es das noch woanders zum runterladen?
lg

christopher.g · Überflieger Anmeldedatum: 03.05.2008 Beiträge: 565

aja ungewöhnlich

die vidos liegen auf meinem ftp server
komisch habs auch grad getestt 4,5kb/sec
wie ich sie hochgeladen habe und zum test den download gestartet waren es etwa 600kb

vl haben wir grad zufällig eine blöde zeit erwischt

ansonsten
such mal auf youtube...
da gibts bekanntlich alles
lg