unit main;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, IdTCPConnection, IdTCPClient, IdBaseComponent, IdComponent,
IdTCPServer, StdCtrls,IdContext;
type
TForm1 =
class(TForm)
Button1: TButton;
Button2: TButton;
Memo1: TMemo;
Edit1: TEdit;
Button3: TButton;
Server: TIdTCPServer;
Client: TIdTCPClient;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure ServerExecute(AThread: TIdContext);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
{ Das Prinzip ist ganz einfach. Der IndyServer wird beim Starten
aktiviert und beim Beenden wieder deaktiviert. Der Client verbindet
wenn man auf den Button klickt und fragt dann durch eine Inputbox
(kann natürlich auch ein edit o.ä. sein) dir Ziel-ip ab.
Da es ein sehr einfacher Chat ist ;-) muss der Chatpartner, nachdem
du dich mit ihm verbunden hast, auch noch dich anwählen.
( Es wär aber leicht möglich, dass der andere Server mit z.B. !<IP> von
alleine auch dich dann wieder anwählt)
Dann wird über die Funktion IndyClient.WriteLn ein String geschickt.
Der Server reagiert auf neue Meldungen mit dem Event OnExecute.
Dann muss man nur noch die MEldung der Verbindung abrufen und anzeigen
So jetzt gehts los ;-).....
}
procedure TForm1.FormCreate(Sender: TObject);
begin
// Beim start des PRogramms muss der Server gestartet werden.
// Ausserdem ist es schöner mit einem Leeren Memo anzufangen ;-)
// Ich habe den IdTcpServer auf grund der Länge in Server umbenannt
Server.Active:=true;
// Server auf an stellen.
Memo1.Clear;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
// Jetzt verbinden wir. Wie du bestimmt weist, braucht der Client
// 2 Angeben: Ip und Port. Ich setze den Port auf eine Standard
// Zahl, z.B. auf 5256 oder so...
// Das hab ich schon in den Properties gemacht, also brauchen wir
// nur noch die Ip, also den Host
if Client.Connected=true
then Client.Disconnect;
// Wenn Client.verbunden dann Client.Trennen ;-)
Client.Host:=InputBox('
IP erfassen','
Bitte geben Sie die Ziel-Ip an','
');
//Mit einer Inputbox die Ip an den Clienten geben.... Damit
//Nicht verbunden wird, wenn nichts drin steht schreiben wir noch
if Client.Host='
'
then exit;
// jetzt verbinden wir.Das keine Systemfehler auftreten mit try except
try
Client.Connect;
// Versuche Verbinden....
except
memo1.Lines.Add('
Es hat einen Fehler bei der Verbindung gegeben');
// Bei Fehler: Fehlermeldung ausgeben.
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
//Verbindung trennen geht schnell:
Client.Disconnect;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
// Eine Nachricht senden geht auch schnell. Wir müssen nur
// die Nachricht einlesen und dem Client zum schreiben übergeben
try
//Meldung zu memo hinzufügen
memo1.Lines.Add('
>>'+edit1.Text);
Client.WriteLn(edit1.Text);
// es ist wicht writeLN zu verwenden <--------- Hier die Fehlermeldung
except
memo1.Lines.Add('
Verbindung unterbrochen')
end;
// jetzt noch das Edit1 löschen
edit1.Clear;
end;
procedure TForm1.ServerExecute(AThread: TIdContext);
var ms:
string;
begin
// Und zu guter letzt noch Eine Nachricht entgegennehmen
ms:=athread.Connection.ReadLn('
',100);
// So die Nachricht steht jetzt in ms. Jetzt kannst du damti
// anfangen was du wills.
// Z.B.:
memo1.Lines.Add(ms);
end;
end.