|
| |
Visual-Basic Einsteiger| Wann sendet Winsock Daten? bzw. Problem mit Pause durch WaitForSingleObject | |  | | Autor: leonturbo | | Datum: 14.11.09 12:09 |
| Hallo,
folgendes Verhalten hätte ich gerne:
Ich drücke eine Schaltfläche, dadurch soll eine Unter-Prozedur (Call) aufgerufen werden, die über Winsock Daten sendet. Danach soll nur die Cmd-Prozedur für ein paar Sekunden pausieren (WaitForSingleObject), zum Schluss dann eine 2. Unter-Prozedur aufgerufen werden.
Das Programm macht aber folgendes: Die Prozedur SetPort wird zwar ausgeführt (ich erhalte die msgbox "gesendet"), die Daten werden aber trotzdem über Winsock nicht herausgeschickt. Danach erfolgt die eingestellte Pause von 10s. Wenn diese abgelaufen ist, erfolgt das Senden (bzw. Ich sehe dann, dass die Daten angekommen sind) und die 2. Prozedur (HD_anmelden) wird ausgeführt.
Ich vermute, dass die Funktion WaitForSingleObject Winsock irgendwie blockiert, da auch mein Timer, der jede halbe Sekunde Statusinformationen über Winsock abfragt während den 10s nicht funktioniert.
Lösung: Ich benötige eine "Pause-Funktion", die wirklich nur die aktuelle Prozedur anhält und keine andere im Hintergrund. Ich kenne da nur Sleep, aber die blockiert das ganze Programm. Gibt es da noch andere?
Danke schon mal für antworten.
Falls ich etwas unverständlich geschrieben habe, bitte melden.
PS: Wenn ich WaitForSingleObject weglasse funktioniert mein Code einwandfrei, ich brauche aber die Pause.
Code: Ich habe hier einige Variablendefinitionen weggelassen wg. der Übersichtlichkeit, sind natürlich im Original vorhanden.
Private Sub Cmd_An_Click(index As Integer)
Call SetPort(index, AnAus)
WaitForSingleObject -1, 10000 'Verzögerung bis
' Festplatten gestartet sind
Call HD_anmelden(HD)
End sub
Public Sub SetPort(DOut As Integer, AnAus As Integer)
Befehl = "setport" & " " & CStr(DOut + 1) & "." & CStr(AnAus)
Befehl = Befehl & vbCrLf
MsgBox ("setport")
Winsock.SendData Befehl
MsgBox ("gesendet")
end sub
Public Sub HD_anmelden
abcd
end sub | |
 | Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.
 Einloggen | Neu registrieren |
 |
|
Neu! sevEingabe 3.0 
Einfach stark!
Ein einziges Eingabe-Control für alle benötigten Eingabetypen und -formate, inkl. Kalender-, Taschenrechner und Floskelfunktion, mehrspaltige ComboBox mit DB-Anbindung, ImageComboBox u.v.m. Weitere InfosTipp des Monats Access-Tools Vol.1 
Über 400 MByte Inhalt
Mehr als 250 Access-Beispiele, 25 Add-Ins und ActiveX-Komponenten, 16 VB-Projekt inkl. Source, mehr als 320 Tipps & Tricks für Access und VB
Nur 24,95 EURWeitere Infos
|
| |
|
Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.
Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel
|
|
Sie sind aktuell nicht angemeldet.
