Hallo Leute,
ich habe es doch noch geschafft mir einen kleine chat zu schreiben ..
ich würd aber damit auch gerne übers inet chatten können mit anderen leuten die das prog benutzen.
Wenn ich den Server geöffnet habe und nochmal die exe öffne und auf client gehe und die
ip (vom inet die ich auf
www.meine-ip.de.vu auslese) eintippe verbindet er nicht .. weiß einer wieso?
Hier einmal der code:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
// Server
form1.Caption := 'Server';
ServerSocket1.Open;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
// client
form1.Caption := 'Client';
ClientSocket1.Host := edit2.Text;
ClientSocket1.open;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
if form1.caption='Server' then
begin
Memo1.lines.add(edit1.text);
serversocket1.Socket.Connections[0].SendText(edit1.text);
edit1.text := '';
end;
if form1.caption='Client' then
begin
Memo1.lines.add(edit1.text);
clientsocket1.Socket.SendText(edit1.text);
edit1.text := '';
end;
end;
procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
begin
memo1.Lines.Add('Client:' + socket.receivetext);
end;
procedure TForm1.ClientSocket1Read(Sender: TObject;
Socket: TCustomWinSocket);
begin
memo1.Lines.Add('Server:' + socket.receivetext);
end;
end.
Vielen Dank schonmal im vorraus
mfg alanblack