[Delphie]TcpServer / Client Problem

Nawi0

Mitglied
Guten tag ich bin dabei einen kleinen Chat zu schreiben welcher einen client und einen server beinhalten soll
das problem dabei is das mein code richtig is aber t.dem keine verbindung zustande kommt ....

also

s steht für den Tcpserver
c steht für den tcpclient

Einstellungen:
Code:
s.Active:=false;
s.LocalPort:=ini.ReadString('User','Port','');
s.Active:=true;
c.RemotePort:=ini.ReadString('server','Port','');
c.RemoteHost:=ini.ReadString('server','ip','');

senden von text:
Code:
try
if c.Connect then
 c.Sendln(nf.Caption);
  for i:= 0 to send.Lines.Count -1 do
    begin
    c.sendln(send.Lines[i]);
    end;
 finally
 send.Text:='';
end;

empfangen von text:
eingetragen in "TcpServer.Accept"
Code:
var x:string;
begin
 x := ClientSocket.Receiveln;
  while x <> '' do
  begin
    tmp.Lines.Add(x);
    x := ClientSocket.Receiveln;
  end;
end;

allerdings kommt nix an
hab auch schon versucht das s durch was anderes auszutauschen geht aber auch nich


ich weis nicht ob es ein problem ist aber ich benutze wlan und lan gleichzeitig
-> Wlan = internet
-> lan = testpc

der "Testpc" hatt im prog als clientport den Serverport des anderen pcs und andersrum
die ips stimmen auch....
ich weis einfach nichmehr weiter..
genaugenommen programier ich den mist schon zum 2.mal (also das prog an sich)
hab einfach neu angefangen weil ich letztesmal genau das selbe prob hatte....


wäre für hilfen dankbar

mfg nawi
 
Zuletzt bearbeitet:

Nawi0

Mitglied
auch das hatt sich mal wieder von selbst erledigt da ich wohl irgendwie die ports von server/client verwechselt habe ... -.-