Normale TCP connection mit Indy10

**Jamah**

Tag leute.
Ich werde hier mal wieder nicht schlauer....
Ich möchte eine Verbindung (TCP) zwischen einem Client und einem Server herstellen (geht), über diese Verbindung Strings hin schieben (quasi befehlsanweisungen) und dann einen String vom Server zurückkommen lassen. Der muss ja rückmeldung erstatten.
Das geht nicht...

Ich hab mit einen IDTCPServer und einen IdTCPClient gemacht.
Dann einfach Host und Port gesetzt.

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TForm1.SendClick(Sender: TObject); 

 var 

  sendStr: String; 

begin 

 SendStr:= (Edit1.Text+'|'+Edit2.Text+'|'+Edit3.Text); 

 if not IdTCPClient1.Connected then 

  begin 

   IdTCPClient1.Connect; 

  end; 

 Label2.Caption:= BooltoStr(IdTCPClient1.Connected); 

 IdTCPClient1.IOHandler.WriteLn(SendStr); 

end;

Geht auch.

Dann am Server:

markieren

Delphi-Quellcode:

			procedure TForm1.IdTCPServer1Execute(AContext: TIdContext);

 begin 

  IdTCPServer1.Active:= True; 

  ListBox1.Items.Add(split(AContext.Connection.IOHandler.ReadLn(),'|',1)); 

 end;

Würde das theoretisch auch weiter ausgebaut funktionieren? (Es soll irgendwann ein Chat werden (nur eine Verbindung) quer durchs Netz. Also nicht in einem internen Netzwerk oder so.

Und wie bekomme ich den Server jetzt dazu, zu antworten?

Danke

Normale TCP connection mit Indy10

Normale TCP connection mit Indy10

Forumregeln