Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Netzwerke (https://www.delphipraxis.net/14-netzwerke/)
-   -   Delphi Winsock Receive Event (https://www.delphipraxis.net/114787-winsock-receive-event.html)

sk0r 31. Mai 2008 10:00


Winsock Receive Event
 
Hi,

ich würde gerne ein OnReceive Event machen,
wie bei der TClientSocket Delphi Komponente.

Dort kann man ja OnReceive Event ausführen,
das heisst, immer wenn Daten ankommen, wird
die Prozedur ausgeführt. Wie kann ich das
per Winsock selbst lösen? Bis jetzt habe ich
einen Thread der dauerhaft läuft, aber ist
das eine schöne Lösung?

Danke für Hilfe im Vorraus.

MfG: sk0r

Apollonius 31. Mai 2008 17:42

Re: Winsock Receive Event
 
Was macht denn dein Thread? Man kann das ganze auch ohne extra-Thread machen (bei den ScktComp-Komponenten kann man das einstellen), dann lässt man sich einfach mit WSAAsyncSelect eine Nachricht schicken.

sirius 1. Jun 2008 10:00

Re: Winsock Receive Event
 
Das recv in einen Thread zu legen, ist schon recht praktisch. Da kann man auch gleich ein paar Vorarbeiten (z.B. warten bis das Paket vollständig ist) leisten, bevor man das Ergebnis an einen anderen gibt. (Ich habe zuletzt mit WSAAsyncSelect ein paar Probleme gehabt, konnte sie aber noch nicht lokalisieren. Auf jeden Fall fehlten manchmal ein paar Bytes.)

Im Prinzip brauchst du in deinem SocketThread ein entsprechendes Feld (Bsp.: FonRecieve) und ein Property zum Speichern der onRecieve-Methode.

Der Aufruf kann jetzt direkt erfolgen, dann muss die ereignisbehandlung aber threadsafe sein.
Du kannst über synchronize in den MaintThread wechseln und dann onRecieve aurufen. Der SocketThread schläft in der Zeit.
Umd den Socketthread nicht schlafen zu legen kannst du mit Postmessage eine Message senden. Dazu musst du allerdings deiner SocketThreadkomponente im Mainthread (also im Konstruktor) ein Windowhandle geben. Und du musst die übergabe der Parameter sicher gestalten (über eigenen Speicherbereich oder WM_copyData).


Alle Zeitangaben in WEZ +1. Es ist jetzt 16:04 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz