trouver un serveur sur un réseau & fonctionnement socket

Voila, j'eus fait un jeux en réseau sous delphi 5. quasi fini j'ai maintenant delphi 7!!!
Bref voila mes questions.

il serai pas mal de changer de composants(delphi 7 ne prend pas en compte les vieux socket de D5) mais je ne sais pas quels composants utiliser sous delphi 7 pour le réseau (un serveur et un client)
et autant passer à une version surement plus fiable comme style de socket (perte de connexion quelques rares fois avec le vieux soket de D5)

ensuite j'aimerai trouver le moyen de "scanner le réseau" à la recherche d'un serveur. un peu comme les jeux du genre W3 qui dès qu'on crée un serveur en lan les clients le trouvent automatiquement et peuvent se connecter, peut être que la réponse viendra avec le socket mais si vous avez une idée volontiers parce que je n'en ai pas!

merci pour votre aide

Salut,

Delphi 7 peut prendre en charge les sokets mais que si tu lui demande d'installer le package qui contient les deux sockets (Bin\dclsockets70.bpl).

Pour scanner un réseau, je vais me renseigner pour voir si on peut faire ça facilement avec la suite INDY.

@+
 Matt

---

La paresse est la mère du génie...
http://www.delphilab.com

Merci.
Mais si je change ça rajoute un peu de piquant  et surtout ça me facilitera pour les prochains codes, c'est surement pas pour rien qu'ils ont changé.

et... tu me conseille d'utiliser la suite indy? si ta des info à ce sujet volontier  surtout si tu à une idée pour scanner un réseau afin de trouver un ou plusieurs serveurs

Fidji, Changer de composant induit de refaire tout le code de ton application : c'est pas un petit truc. Je te rappelle que scanner un serveur est interdit : c'est considéré comme un délit.

Tient j'ai essayé de te la simplifier au max, et c'est pas du 100 % fiable, mais l'API windows  permet de faire çà.

Voila une fonction qui permet de te scanner les machines sur un reseau local :

procedure ScanReseau;
var
  hEnum, dwResult, cEntries, cbBuffer : DWORD;
  I    : Integer;
  lpnr : PNetResource; // stockage des résultats
begin
  cEntries := $FFFFFFFF;
  cbBuffer := 16384;

  lpnr := PNETRESOURCE( GlobalAlloc(GPTR, cbBuffer) );

  if ( WNetOpenEnum( RESOURCE_CONTEXT, RESOURCETYPE_ANY, 0, lpnr, hEnum ) <> NO_ERROR ) then Exit;
  if ( WNetEnumResource( hEnum, cEntries, lpnr, cbBuffer ) <> NO_ERROR) then Exit;
  Inc( lpnr ); // J'incrémente ici car le premier poste trouvé est erroné !

  for I := 0 to ( cEntries - 1 ) do  // on balaye les resultats
  begin
    // Action à effectuer
    // ***********************
    if ( Nom <> '' ) then
    begin
     /// ici tu recupère le nom de la machine et tu traite !
     // -> Nom du poste =  lpnr^.lpRemoteName
    end;
    // ***********************
    Inc( lpnr );
  end;
  WNetCloseEnum( hEnum );
end;

ah oui puis :

var Nom : string

et dans ta boucle :

Nom = lpnr^.lpRemoteName

Aller bon code !!