Frage zu einem kleinen Projekt

Deutsch / German Scripts
21

:see_no_evil: Aber klar, ich könnte natürlich auch das ’ ’ + komplett weglassen. :smiley: Da war der Wald wieder dichter.

Kümmere mich jetzt erstmal um den Error im Script, auch mit deinem zweiten Script bleibt der Error. Aber ich bin voller Tatendrang und geb nicht auf.

22

Ja, da habe ich ein try zuviel weggelöscht.

23

Sorry wenn ich noch mal nerve und fragen muss. Hänge jetzt gut 2 Stunden nur an diesem Problem und komme nicht weiter. Ich möchte noch einen Playerzustand abarbeiten. Nämlich “Pause”. Hatte diesbezüglich auch hier was im Forum gefunden, es entsprechend eingepflegt aber er schreibt nur den “else Zustand” nicht aber den “if Zustand”. Hast du ne Idee wo ich hier einen Fehler habe? Hier mal das was ich dazu benutze. In der *.txt steht also nur 0, nie aber 1 obwohl der OldState stimmt, darum auch extra zur Kontrolle unten der Systemlog.

function StateToString(iState: TPlayerState): string;
begin
  case iState of
//psEmpty: Result := 'Empty';
//psLoading: Result := 'Loading';
psLoaded: Result := 'Loaded';
psPlaying: Result := 'Playing';
//psFading: Result := 'Fading';
//psEOF: Result := 'EOF';
//psError: Result := 'Error';
psPaused: Result := 'Paused';
//psStopped: Result := 'Stopped';
  else
Result := IntToStr(ord(iState));
  end;
end;

procedure OnPlayerStateChange(PlaylistIndex: integer; PlayerIndex: integer; OldState: TPlayerState; NewState: TPlayerState; Item: IPlaylistItem);
begin

  if (StateToString(OldState) = 'Loaded') then
  begin
  Breaks := '1';
  end
  else 
  Begin
  Breaks := '0';
  SystemLog('Player ' + IntToStr(PlayerIndex) + ' old: ' + StateToString(OldState) + ', new: ' + StateToString(NewState));
  end;
end;
24

Warum so kompliziert?

procedure OnPlayerStateChange(PlaylistIndex: integer; PlayerIndex: integer; 
  OldState: TPlayerState; NewState: TPlayerState; Item: IPlaylistItem);
begin
  if NewState = psPaused then
    Breaks := '1'
  else
    Breaks := '0';
  SetRuntimeData('Paused', Breaks);
  // SystemLog('Player ' + IntToStr(PlayerIndex) + ' old: ' + StateToString(OldState) + ', new: ' + StateToString(NewState));
  end;
end;

Oder sehe ich was nicht?

Blinde (?) Grüße

TSD

25

Ich hatte das hier nach gemacht, darum sicher auch so umfangreich

Mensch, wie kann ich das nur je wieder gut machen? Ich danke dir, werde das gleich testen.