Patrick Kamin
Erfahrenes Mitglied
-
Und warum hast du dann nicht in die Hilfe von Delphi geschaut?
Und warum hast du dann nicht in die Hilfe von Delphi geschaut?
unit Server;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPServer;
type
THautfenster = class(TForm)
port: TEdit;
IdTCPServer1: TIdTCPServer;
Memo1: TMemo;
procedure FormCreate(Sender: TObject);
procedure IdTCPServer1Execute(AThread: TIdPeerThread);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Hautfenster: THautfenster;
implementation
{$R *.dfm}
procedure THautfenster.FormCreate(Sender: TObject);
begin
IdTCPServer1.DefaultPort :=23;
end;
procedure THautfenster.IdTCPServer1Execute(AThread: TIdPeerThread);
begin
with AThread.Connection do
memo1.Lines.Add(ReadLn);
end;
end.
unit Client;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
StdCtrls;
type
Thauptfenster = class(TForm)
IdTCPClient1: TIdTCPClient;
ip: TEdit;
Button1: TButton;
Button2: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
hauptfenster: Thauptfenster;
implementation
{$R *.dfm}
procedure Thauptfenster.FormCreate(Sender: TObject);
begin
IdTCPClient1.Host := ip.Text;
IdTCPClient1.Port := 23;
end;
procedure Thauptfenster.Button1Click(Sender: TObject);
begin
idtcpclient1.connect;
end;
procedure Thauptfenster.Button2Click(Sender: TObject);
begin
idtcpclient1.Writeln('lol');
end;
end.
Original geschrieben von Lirion
PS: Bitte bitte bitte, gewöhnt Euch an, Code-Ausschnitte mit dem entsprechenden Tag zu versehen. Das macht das ganze übersichtlicher...![]()