Wie Anwendung im LAN über Browser steuern?

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