(D7) Memp Mediaplayer anpassen (Vorspulen)

[JanWe]

Hi,

ich möchte einen kleinen Player erstellen - aber nicht einen von Grundauf, denn so gut kann ich Delphi dann leider doch nicht.
Hab mir auch das Tutorial von Gausi angeschaut, aber das ist mir doch noch zu hoch.

Der Player MEMP von Gausi kann ja schon viel (Nemp ist auch Open Source, aber mir zu kompliziert )

Nunja, mein Player sollte

1) per Button eine gewisse Zeitspanne vorspulen/springen (3 Sekunden) können. Per Buttonklick.

2) beim Klick auf eine Stelle der Scrollbar dorthin springen.


KodeZwerg hatte ich angeschrieben, weil er sich mit der BassDLL auch gut auskennt.
Aber er hat keine alte Delphi Version. Und somit waren seine Codevorschläge leider nicht bei mir einsetzbar. Danke auch an ihn.

Ich wäre natürlich sehr glücklich, wenn mir jemand der Dephi 7 hat, helfen könnte und ich nicht erst die 20 GB große Delphi 10 Berlin Free instlalieren müßte.

Mein Problem ist nämlich, daß ich die Titel/Stücklänge in dem Code von MEMP nicht sehe/finde. Und auch nicht, in welcher Unit die steht. (Player_Klasse oder unit1)

Denn die bräuchte ich ja, um überhaupt Entfernungen auf der Scrollbar

Memp gibt es hier
https://www.entwickler-ecke.de/viewtopic.php?t=80555

EditH:
Wo wir gerade dabei sind: .... Die Scrollbar/Volumeregler mit dem Mausrad steuern, unter D7 sicher ziemlich kompliziert, oder?

Habe mal meine lauffähige Version angehängt
MEMP_mit_D7.7z (863,5 KB)

[KodeZwerg]

Mit dem Vor- Zurückspulen sollte kein Problem darstellen, das schau ich mir gleich nochmal an, aber diese TScrollBar für Positionierung ist doof, die hat keine Eigenschaften, mit einer TProgressBar ist das in Null Komma Nichts erledigt, die hat Eigenschaften mit denen ich bei OnChange was Anfangen kann, darf man die tauschen?

[JanWe]

Grüß Dich KodeZwerg,

mhh, Tauschen ... zusätzlich wäre besser, oder?

[KodeZwerg]

Im Anhang ist ProgressBar zusätzlich enthalten, entpacke das in Dein Memp, kompiliere, teste.
Klappt es mit Delphi 7? Sind die Sekunden Spuler Knöpfe nun noch Notwendig?

Bin schon müde, +3 / -3 Sekunden Knöpfe kommen Morgen ran.

Ps: Erstelle vorher Backup von Dein Memp, man weiß ja nie...

Pps:
Der Code dazu sieht so aus:

Delphi-Quellcode:

procedure TForm1.pb1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
 var
  i : integer;
begin
 Form1.Caption := IntToStr(round(X / (pb1.Width / pb1.Max)));
 i := round(X / (pb1.Width / pb1.Max));
// if ((i < pb1.Max)and(i > 0)) then
 pb1.Position := i;
 MeMPPlaylist.Progress := pb1.Position / 100;
end;

Wenn ich die Sekunden Knöpfe mache schaut Code danach so aus, kannst Du jetzt schon machen wenn Du Lust hast.

Delphi-Quellcode:

procedure TForm1.pb1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 pb1.Position := round(X / (pb1.Width / pb1.Max));
 MeMPPlaylist.Progress := pb1.Position / 100;
end;

[Luckie]

Autsch:

Delphi-Quellcode:

procedure TForm1.pb1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
 var
  i : integer;
begin
 Form1.Caption := IntToStr(round(X / (pb1.Width / pb1.Max)));

Nimm das Form1 aus dem Code raus. pb1MouseDown ist doch schon eine Methode von TForm1. Man sollte es im Code nicht noch mal referenzieren. Und wenn es doch sein muss, nimm Self .

[KodeZwerg]

Schade das Du mitten drinn anscheinend aufgehört hast zu Lesen, sonst hättest Du ein wenig weiter unten auch den Fix entdeckt.
Da hab ich zu schnell hochgeladen gehabt mit noch Testkrams drinnen.