*iBan* ( Mediaplayer )

[Garfield]

Das Aussehen hat aber mit der erwarteten Funktion nichts zu tun.

[mr_emre_d]

Neue Version ist jetzt verfügbar

Kann mir bitte einer helfen:
Ich bekomme es einfach nicht hin, wenn eine Datei mit iBan geöffnet wird, Vol zu setten !?! :gruebel:
Habs schon vieles probiert... !

MfG Mr_Emre_D

[mr_emre_d]

kann mir keiner helfen ?

[Garfield]

Delphi-Quellcode:

  if Style = 'XP' then
    od.InitialDir:= 'C:\Dokumente und Einstellungen\' + UN + '\Eigene Dateien\EigeneMusik\'
  else if Style = 'Vista' then
    od.InitialDir:= 'C:\Users\' + UN + '\Music\';

Das ist nicht so gut. Da solltest Du Dir mal dies ansehen.

Delphi-Quellcode:

  if fileexists( 'form.ini' ) then
  begin
    Ini:= TInifile.Create( extractfilepath( paramstr( 0 ) ) + '\form.ini' );
    Style:= ini.ReadString( 'Style', 'Form', '' );
    if ini.ReadString( 'Volume', 'Vol', '' ) <> '' then
      Vol:= strtoint( ini.readstring( 'Volume', 'Vol', '' ) )
    else
      Vol:= 50;
    Ini.Free;
  end;

besser

Delphi-Quellcode:

  Ini:= TInifile.Create( extractfilepath( paramstr( 0 ) ) + '\form.ini' );
  Style:= ini.ReadString( 'Style', 'Form', '' );
  Vol := ini.ReadInteger( 'Volume', 'Vol', 50);
  Ini.Free;

[mr_emre_d]

Danke für die Tipps;

Kannst du mir auch sagen, wie ich die Lautstärke am Anfang anpasse ?

[Garfield]

Delphi-Quellcode:

Vol := ini.ReadInteger( 'Volume', 'Vol', 50);

bedeutet, dass Vol = 50 ist, wenn kein Wert aus der INI gelesen werden kann. Zum Beispiel weil es noch keine INI gibt.

[mr_emre_d]

ja danke,
wusste ich eigentlich schon ( automode wird auch so geladen ), weiß grad nicht warum ich es nicht so gemacht hab :?:

Aber das mit der Lautstärke krieg ich einfach nicht hin ... :wall:

:gruebel:

Ich hab grad ne Idee wie es klappen könnte... schau ma mal

EDIT:
Das Problem lag im Timer bei der if Abfrage von ( trackbar2.position <> tb2pos )
Ich hab einfach n Flag gesetzt :
PSetted //trackbar.Position setted

bei Form.Create hab ich nach Trackbar2.positon = Vol * 10 ( hab ich gerade umgeändert, da OVol nicht notwenidg ist )
PSetted umgeboolt
Anschließend hab ich einfach vor der Abfrage im timer noch ne abfrage über den flag gemacht !

Das Problem ist:
Bei Paramstr( 1 ) <> 0 wirds der Vol-Wert im .Ini nicht der Variable Vol zugewiesen ...


MfG

[Garfield]

Zitat:

Zitat von mr_emre_d

Aber das mit der Lautstärke krieg ich einfach nicht hin ... :wall:

Ich versteh nicht, was Du meinst. Allerdings würde ich nicht andauernd im Timer prüfen, ob die Position der Trackbar2 geändert wurde, sondern stattdessen das OnChange der Trackbar2 nutzen.

[mr_emre_d]

ich weiß

Da gibts irgendeinen Grund dafür, nur fällt der mir gerade nicht ein :gruebel:
Denke ich zumindest

EDit:
Ok es gibt doch keinen Grund

[Larsi]

Also erstmal was positives: Bis darauf dass wenn man mit der Maus über die Buttons geht dass es dann blöd aussieht ist der Player übersichtlich gestaltet.

Verbesserungsvorschläge:
- Visualiesierung
- Ordner hinzufügen