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

Commenter

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

S'inscrire maintenant

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.