Ergebnis der Suchanfrage

• Forum: Netzwerke

  Re: TCP-Server nach 1235 OnExecute kommt nix mehr

    Delphi
    by Hedge, 19. Okt 2009
  Konnte das Problem jetzt scheinbar lösen.
  
  Es lag an den folgenden Zeilen:
  AContext.Connection.IOHandler.WriteLn('HTTP/1.0 200 OK');
  AContext.Connection.IOHandler.WriteLn('');
  
  Statt bei jedem OnExecute zu senden, habe ich diese Zeilen in das OnConnect-Ereignis kopiert und voilá es funzt.
• Forum: Netzwerke

  Re: TCP-Server nach 1235 OnExecute kommt nix mehr

    Delphi
    by Hedge, 18. Okt 2009
  procedure TForm1.ServerExecute(AContext: TIdContext);
  var
  streamString:String;
  positionArtist,positionTitle,positionVorbis:integer;
  begin
  
  AContext.Connection.IOHandler.WriteLn('HTTP/1.0 200 OK');
  AContext.Connection.IOHandler.WriteLn('');
  
  streamString:=AContext.Connection.IOHandler.ReadString(2048);
• Forum: Netzwerke

  TCP-Server nach 1235 OnExecute kommt nix mehr

    Delphi
    by Hedge, 18. Okt 2009
  Ich emuliere einen Streaming-Server (Icecast).
  Ein Client verbindet sich der ständig Streaming-Daten an den Server schickt.
  
  In der Funktion OnExecute des Servers habe ich einen Counter eingebaut der bei jeder Ausführung inkrementiert wird.
  
  Nach exakt 1235 Ausführungen ist jedes Mal Schluß.
  
  Das Programm das die Daten an den Server sendet zeigt weiterhin an verbunden zu sein und es tritt...