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.
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:
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