ServerSocket/TcpServer als Webserver -> Schwierigkeiten

**jokerfacehro**

Delphi-Quellcode:

			procedure TForm1.ServerSocket1ClientRead(Sender: TObject;

  Socket: TCustomWinSocket);

var i:Integer;

begin

    s:=Socket.ReceiveText;

    Memo1.Lines.Add(s);

    For i:=0 to ServerSocket1.Socket.ActiveConnections -1 do begin

        ServerSocket1.Socket.Connections[i].SendText('<html><head><meta http-equiv="refresh" content="1; URL=/"></head><body>It Works? Or? '

        +IntToStr(Random(10000)) +'</body></html>');

        //ServerSocket1.Active:=False;

        //ServerSocket1.Active:=True;

    end;

end;

guckst du ^^

du sendest den quelltext einfach an alle clients der verbindung, nicht nur an den der angefordert hat.

die aktuelle verbindung, die beim server anfragt steht im TCustomWinSocket.
du solltest die sachen also direkt an den TCustomwinsocket sendne, dann bekommt auch nur der richtige client die daten.
außerdem kannst du explizit diesen socket schließen, falls du es doch noch brrauchst.

und nicht gleich den ganzen server.

ein header ist auf jedenfall zu empfehlen

ServerSocket/TcpServer als Webserver -> Schwierigkeiten

Re: ServerSocket/TcpServer als Webserver -> Schwierigkeit

Forumregeln