Récupération ip + nom de machine sous linux

Soyez le premier à donner votre avis sur cette source.

Snippet vu 14 539 fois - Téléchargée 39 fois

Contenu du snippet

Bah c'est mon premier code en Kylix, bon c'est poa violent mais je me suis dis que ca peut toujours servir.
Dans une Form, insérer deux boutons et 2 Tedit ainsi qu'un composant IdTCPServer et un composant TcpServer.
Copiez le code et normalement ca marche ...
Bon ne me demandez poa comment on fait pour créer un exécutable je ne sais poa encore comment faire mais dès que je vous fais signe...

Source / Exemple :


unit ip;

interface

uses
  SysUtils, Types, Classes, Variants, QGraphics, QControls, QForms, QDialogs,
  IdBaseComponent, IdComponent, IdIPWatch, QStdCtrls, SOAPHTTPTrans,
  IdTCPServer, Sockets;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Button2: TButton;
    IdTCP: TIdTCPServer;
    Edit2: TEdit;
    Tcp: TTcpServer;
    Label1: TLabel;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  Form1: TForm1;

implementation

{$R *.xfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
application.Terminate;

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
edit1.Text := idTCPserver.localname;
edit2.Text := Tcpserver.LocalHostAddr();

end;

end.

A voir également

Ajouter un commentaire

Commentaires

Messages postés
24
Date d'inscription
jeudi 21 février 2002
Statut
Membre
Dernière intervention
24 juillet 2005

tu peux connaitre l'adresse ip via la commande.
(via interface ppp0)

/sbin/ip addr show ppp0 | grep 'inet ' | cut -d t -f2 | cut -b 2- | cut -b -15
Messages postés
89
Date d'inscription
jeudi 11 avril 2002
Statut
Membre
Dernière intervention
3 juillet 2003

Tu peux aussi extraire les infos qui sont dans le dossier proc, y plein de trucs...
Messages postés
1
Date d'inscription
mardi 29 octobre 2002
Statut
Membre
Dernière intervention
2 novembre 2002

Bah ouais je veux bien mais bon les composants sous Kylix n'ont pas du tout le meme aspect que sous Delphi 6 voir 7 que je ne connais pas d'ailleur...
Si quelqu'un peut me proposer mieux que d'utiliser un composant serveur que d'ailleur je ne met pas en écoute, donc pas de risque quelconque, je suis preneur...
@+ François
Messages postés
47
Date d'inscription
jeudi 17 octobre 2002
Statut
Membre
Dernière intervention
24 mars 2007

idipwatch sous indy ...
Personnelement, j'utilise idipwatch ( l'euil dans une rubrique delphi6 (win) ou l'icone "IP" sous delphi7. )
je ne comprends pas l'utilisation du server ... mais bon, ça a l'air de marcher donc, c'est bon :-P

@++ Mathieu

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.