Wie Anwendung im LAN über Browser steuern?

[BUG]

Ich würde so etwas zweiteilig angehen: Einmal eine REST-API, die du auch z.B. mit einer App ansteuern könntest; und einen einfachen Server der statische Websites aus dem Programmverzeichnis ausliefert. Die statische Website benutzt dann über JavaScript/AJAX die REST-API.
Das erlaubt dir schnell Änderungen an der Website vorzunehmen und trennt den Webkram vom Rest deiner Anwendung.

[Faxe]

Oder einfach VNC dort als Server laufen lassen wo die Anwendung läuft und sie im Browser im LAN benutzen.

[Captnemo]

Eine ganz simple Lösung, allerdings auch nicht sicher und nur dann zu Verwenden, wenn Sicherheit keine Rolle spielt:

Mit einem TTCPServer:

Delphi-Quellcode:

procedure TTCPSrv.tcpsrvr1Accept(Sender: TObject;
  ClientSocket: TCustomIpClient);
var
  line: string;
  httppos: Integer;
  path: string;
  Meldung: TStringList;
begin
  line:=' ';
  path:='';
  while ClientSocket.Connected and (line<>'') do
  begin
    line:=ClientSocket.Receiveln;
    if Copy(Line, 1, 3) = 'GET' then
    begin
      httppos:=Pos('HTTP', line);
      Path := Copy(line, 5, httppos-6);
    end;
  end;
  if path='/' then path:='/doirgendwas.html';
  if path='/doirgendwas.html' then
  begin
    ClientSocket.Sendln('HTTP/1.0 200 OK');
    ClientSocket.Sendln('');
    Meldung:=TStringList.Create;

    //Hier ggf. was zur Programmsteuerung einsetzen

    BuildWebStatus(Meldung);  //Hier halt eine Webseite zusammenbasteln, in der Daten stehen 
                              //oder weitere Steuerungsmöglichkeiten
    ClientSocket.Sendln(Meldung.Text);
    Meldung.Free;
    ClientSocket.Close;
    Exit;
  end;
  ClientSocket.Sendln('HTTP/1.0 404 Not Found');
  ClientSocket.Sendln('');
  ClientSocket.Sendln('<h1>Page not found</h1>');
  ClientSocket.Close;
end;

Im TCPServer dann Port 80, oder wenn bereits irgendein Webserver vorhanden ist halt einen anderen Port. Schon kann man sich was schreiben.

Ist aber im Grund nur für den Eigenbedarf, weil definitiv unsicher.