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.
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.