Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Netzwerke (https://www.delphipraxis.net/14-netzwerke/)
-   -   Delphi clientsocket soll im netzwerk nach einem serversocket suchen (https://www.delphipraxis.net/131722-clientsocket-soll-im-netzwerk-nach-einem-serversocket-suchen.html)

B1nch3N 29. Mär 2009 19:22


clientsocket soll im netzwerk nach einem serversocket suchen
 
hallo,

möchte nach dem server im lan suchen lassen.

tüfftel schon den ganzen tag und komme doch nicht weiter..

mein erster ansatz sah wie folgt aus:
Delphi-Quellcode:
procedure TForm1.ipstesten(anfang:string);
var i:integer;
      ip:string;
begin
        for i:=1 to 254 do
                begin
                  if clientsocket1.active = false then
                   begin
                        ip:=anfang+inttostr(i);
                        ClientSocket1.Host := ip;
                        clientsocket1.Active:=True;
                   end;
                end;
end;
er soll jede ip die im lan bestehen kann überprüfen.. doch er meldet immer errors etc.

gibt es vll noch andere möglichkeiten?

grüße b1nch3n

Valle 29. Mär 2009 20:54

Re: clientsocket soll im netzwerk nach einem serversocket su
 
Du suchst nach einem Broadcast.

Du brauchst einen UDP-Server zusätzlich zu deinem normalen TCP ServerSocket. Dieser UDP-Server muss auf Broadcasts reagieren können. Der Client muss dann einen UDP-Broadcast senden. Wenn der UDP-Server dann den Broadcast empfängt antwortet er dem Clienten und der Client weiß anhand der Absenderadresse, so sich das ServerSocket befindet. Schau dir mal dir Indys an und den Artikel über Broadcast auf Wikipedia. ;-)

Mit freundlichen Grüßen,

Valle

Bernhard Geyer 29. Mär 2009 21:02

Re: clientsocket soll im netzwerk nach einem serversocket su
 
Es wäre gut wenn du dem Server auch zeit für eine Antwort gibst. Viele Socket-Komponenten laufen asynchron. Der Funktionaufruf ".Active" kommt schon zurück befor überhaupt versucht wurde den Socket zu öffnen. Du mußt hier auf die entsprechenden OnError/OnConnect/... Events warten befor du versuchst die nächste IP-Adresse zu überprüfen.

Valle 29. Mär 2009 21:26

Re: clientsocket soll im netzwerk nach einem serversocket su
 
Zitat:

Zitat von Bernhard Geyer
Es wäre gut wenn du dem Server auch zeit für eine Antwort gibst. Viele Socket-Komponenten laufen asynchron. Der Funktionaufruf ".Active" kommt schon zurück befor überhaupt versucht wurde den Socket zu öffnen. Du mußt hier auf die entsprechenden OnError/OnConnect/... Events warten befor du versuchst die nächste IP-Adresse zu überprüfen.

Ich würde diesen Ansatz besser komplett wegschmeißen, tut mir Leid. Du scannst damit ja komplette IP-Bereiche. Das wäre nicht sonderlich schnell und ab einer Netzgröße von 255.255.0.0 auch nicht mehr vertretbar. Ein Broadcast hingegen ist kaum zu überbieten. Ich habe auch gerade mal Indy installiert, so aus reiner Langeweile und werde wahrscheinlich auch bald ein Beispiel liefern. *g*

Mit freundlichen Grüßen,

Valle

Bernhard Geyer 29. Mär 2009 21:28

Re: clientsocket soll im netzwerk nach einem serversocket su
 
Zitat:

Zitat von Valle
Ein Broadcast hingegen ist kaum zu überbieten.

Die Frage ist nur ob der Server in eigener Kontrolle geändert werden kann oder ein fertiger Server "angepingt" werden soll.

Valle 29. Mär 2009 22:14

Re: clientsocket soll im netzwerk nach einem serversocket su
 
Liste der Anhänge anzeigen (Anzahl: 1)
Zitat:

Zitat von Bernhard Geyer
Zitat:

Zitat von Valle
Ein Broadcast hingegen ist kaum zu überbieten.

Die Frage ist nur ob der Server in eigener Kontrolle geändert werden kann oder ein fertiger Server "angepingt" werden soll.

Achso, ja, darauf bin ich jetzt garnicht gekommen. :?

Ich hoffe jetzt mal, dass der Server von dir selbst entwickelt wurde. Ich habe eine Demo-Anwendung mit Source angehangen, ich hoffe ich kann dir damit helfen.

Achja, mir ist gerade noch ein Beispiel eingefallen, mit dem ein Broadcast gerne verglichen wird. Stell dir vor, du (der Client) rufst in einem Raum voller Leute "Port 1234". Alle Leute hören es, aber nur die, die einen Server auf Port 1234 laufen haben (die Server eben), rufen dir zurück "Ich bin hier!". So kannst du alle Server im Netz ausfindig machen. ;-)

Mit freundlichen Grüßen,

Valle


Alle Zeitangaben in WEZ +1. Es ist jetzt 08:19 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