AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Netzwerke Delphi clientsocket soll im netzwerk nach einem serversocket suchen
Thema durchsuchen
Ansicht
Themen-Optionen

clientsocket soll im netzwerk nach einem serversocket suchen

Ein Thema von B1nch3N · begonnen am 29. Mär 2009 · letzter Beitrag vom 29. Mär 2009
Antwort Antwort
B1nch3N

Registriert seit: 1. Jun 2008
Ort: Herford
6 Beiträge
 
#1

clientsocket soll im netzwerk nach einem serversocket suchen

  Alt 29. Mär 2009, 19:22
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
  Mit Zitat antworten Zitat
Benutzerbild von Valle
Valle

Registriert seit: 26. Dez 2005
Ort: Karlsruhe
1.223 Beiträge
 
#2

Re: clientsocket soll im netzwerk nach einem serversocket su

  Alt 29. Mär 2009, 20:54
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
Valentin Voigt
BOFH excuse #423: „It's not RFC-822 compliant.“
Mein total langweiliger Blog
  Mit Zitat antworten Zitat
Benutzerbild von Bernhard Geyer
Bernhard Geyer

Registriert seit: 13. Aug 2002
17.171 Beiträge
 
Delphi 10.4 Sydney
 
#3

Re: clientsocket soll im netzwerk nach einem serversocket su

  Alt 29. Mär 2009, 21:02
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.
Windows Vista - Eine neue Erfahrung in Fehlern.
  Mit Zitat antworten Zitat
Benutzerbild von Valle
Valle

Registriert seit: 26. Dez 2005
Ort: Karlsruhe
1.223 Beiträge
 
#4

Re: clientsocket soll im netzwerk nach einem serversocket su

  Alt 29. Mär 2009, 21:26
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
Valentin Voigt
BOFH excuse #423: „It's not RFC-822 compliant.“
Mein total langweiliger Blog
  Mit Zitat antworten Zitat
Benutzerbild von Bernhard Geyer
Bernhard Geyer

Registriert seit: 13. Aug 2002
17.171 Beiträge
 
Delphi 10.4 Sydney
 
#5

Re: clientsocket soll im netzwerk nach einem serversocket su

  Alt 29. Mär 2009, 21:28
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.
Windows Vista - Eine neue Erfahrung in Fehlern.
  Mit Zitat antworten Zitat
Benutzerbild von Valle
Valle

Registriert seit: 26. Dez 2005
Ort: Karlsruhe
1.223 Beiträge
 
#6

Re: clientsocket soll im netzwerk nach einem serversocket su

  Alt 29. Mär 2009, 22:14
Zitat von Bernhard Geyer:
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
Angehängte Dateien
Dateityp: zip broadcast_109.zip (261,6 KB, 39x aufgerufen)
Valentin Voigt
BOFH excuse #423: „It's not RFC-822 compliant.“
Mein total langweiliger Blog
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 09:19 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz