TCP-Server nach 1235 OnExecute kommt nix mehr

[Hedge]

Delphi-Quellcode:

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);
  positionArtist:=Pos('ARTIST=',streamString);

  if positionArtist<>0 then
  begin
    positionTitle:=Pos('TITLE=',streamString);
    Memo1.Lines.Add('Künstler: ' + Copy(streamString,positionArtist+7,positionTitle-positionArtist-11));

  end;
end;