hallo an allen delphianer.
ich bin ziemlich neu im delphi und sher neu in indy10.
wollte einen einfachen chat aufbauen und habe mir die
indy demos unter die lupe gennomen.
mit dem clienten hate ich kein problem aber der server will nicht funktionieren.
hier ist der cod fur den client:
Delphi-Quellcode:
unit chat_1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, IdTCPServer, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient;
type
TForm1 =
class(TForm)
Memo1: TMemo;
Button1: TButton;
Button2: TButton;
Edit1: TEdit;
Button3: TButton;
Edit2: TEdit;
Edit3: TEdit;
Label1: TLabel;
Label2: TLabel;
client: TIdTCPClient;
server: TIdTCPServer;
Button4: TButton;
procedure Button4Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
linie:
string;
begin
form1.Caption:='
Client';
button2.Visible:=false;
button3.Visible:=false;
if client.Connected
then client.Disconnect
else
begin
client.Port:=strtoint(edit2.Text);
client.Host:=edit3.Text;
client.Connect;
memo1.Lines.Clear;
try
linie:=client.IOHandler.ReadLn;
memo1.Lines.Add(linie);
except
showmessage('
keine verbindung');
end;
end;
end;
procedure TForm1.Button4Click(Sender: TObject);
var
linie:
string;
begin
client.IOHandler.WriteLn(edit1.text);
memo1.Lines.Add('
Client:'+edit1.text);
edit1.Text:='
';
linie:=client.IOHandler.ReadLn;
memo1.Lines.Add('
Server:'+linie);
end;
end.
kann mir jhemand ein bischen helfen um denn server zu bauen?
zum beispiel wiess ich nicht who die
IP adresse eigetragen verden muss.und wie finde ich die
IP adresse aus?
vieleicht kont ihr mir ein guten tutorial mit
indy componenten forschlagen.
[edit=Christian Seehase]Delphi-Tags korrigiert. Mfg, Christian Seehase[/edit]