Einzelnen Beitrag anzeigen

Thoma50s

Registriert seit: 17. Nov 2021
2 Beiträge
 
#16

TIdTCPServer

  Alt 18. Nov 2021, 07:27
Hallo,
ich habe folgendes Problem. ich bin gerade in der Ausbildung und soll einen Server erstellen, der mit dem Localhost verbunden ist, und Datenströme von verschiedenen entgegennehmen soll. Für den Server habe ich mir folgenden Quelltext heruntergeladen:

procedure TForm1.IdTCPServer1Connect(AContext: TIdContext);
var cmd: String;
begin
try
cmd := Trim(AContext.Connection.IOHandler.ReadLn);
Label1.Caption := cmd;
AContext.Connection.IOHandler.WriteLn('Bye!');
finally
AContext.Connection.Disconnect;
end;
end;

der Server sendet auch BYE an den localhost und im Label wird auch Localhost angezeigt wenn ich das im Browser eingebe. Jetzt soll ich über den Server im Browser in die Befehlszeile Variablen übergeben und ich weiss einfach nicht, wie ich das anstellen soll. Ich sollte mich dazu mit Webprogrammierung befassen aber ich komme da einfach nicht weiter; vielleicht hat ja jemand eine Idee, wie das funktioniert.
  Mit Zitat antworten Zitat