AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Multimedia Delphi [Projekt] CoverFlow mit Gr32
Thema durchsuchen
Ansicht
Themen-Optionen

[Projekt] CoverFlow mit Gr32

Ein Thema von alleinherrscher · begonnen am 22. Jun 2008 · letzter Beitrag vom 10. Jul 2008
Antwort Antwort
Seite 2 von 3     12 3      
Benutzerbild von alleinherrscher
alleinherrscher

Registriert seit: 8. Jul 2004
Ort: Aachen
797 Beiträge
 
Delphi XE2 Professional
 
#11

Re: [Projekt] CoverFlow mit Gr32

  Alt 30. Jun 2008, 21:34
Sieht sehr sehr geil aus,dominikkv!


Ich hab ja vor, dass man da eine kleine Komponente draus macht, das man sowas hat wie

Coverflow.AddCover(TBitmap, Index);
Coverflow.ScrollNext;
Coverflow.ScrollPrev;
Coverflow.Goto(Index);

usw...


Kannst du den Source mitposten, das wäre echt super

Viele Grüße,
Michael

PS: Die Cover, die ihren Winkel nicht ändern, während sie sich bewegen, zeichnest du die auch mit der PaintCover Procedure? Wenn ja, könnte man da die Geschwindigkeit verbessern, falls man diese Cover nur einmal mit PaintCover erstellt und dann zwischenspeichert, damit nicht jedesmal so viele Pixel einzeln berechnet werden, das bremst ungemein...
„Software wird schneller langsamer als Hardware schneller wird. “ (Niklaus Wirth, 1995)

Mein Netzwerktool: Lan.FS
  Mit Zitat antworten Zitat
dominikkv

Registriert seit: 30. Sep 2006
Ort: Gundelfingen
1.109 Beiträge
 
Delphi 2007 Professional
 
#12

Re: [Projekt] CoverFlow mit Gr32

  Alt 30. Jun 2008, 21:57
Zitat von alleinherrscher:
Sieht sehr sehr geil aus,dominikkv!
thx
aber das meiste hast ja du gemacht

Zitat von alleinherrscher:
Ich hab ja vor, dass man da eine kleine Komponente draus macht, das man sowas hat wie

Coverflow.AddCover(TBitmap, Index);
Coverflow.ScrollNext;
Coverflow.ScrollPrev;
Coverflow.Goto(Index);

usw...
hab ich schon mal angefangen, kannst gerne weitermachen

Zitat von alleinherrscher:
Kannst du den Source mitposten, das wäre echt super
ok, ist eigentlich nur ne Unit. Benutzen kannst du die Klasse so:
Delphi-Quellcode:
  
var
  CoverFlow: TCoverflow;

// ----

  Coverflow := TCoverflow.Create(MyImage32);
  Coverflow.AddCover('6m.bmp');
  Coverflow.AddCover('3m.bmp');
  // usw
  Coverflow.Init;

// ----

  Coverflow.Next;

// ----

  Coverflow.Previous;
AddCover ist überladen und erwartet entweder ein Bitmap32 oder ein Pfad zum nen .bmp oder .jpg
Angehängte Dateien
Dateityp: pas ucoverflow_128.pas (9,7 KB, 101x aufgerufen)
Dominik
Wer anderen eine Grube gräbt, hat ein Gruben-Grab-Gerät!
  Mit Zitat antworten Zitat
Benutzerbild von alleinherrscher
alleinherrscher

Registriert seit: 8. Jul 2004
Ort: Aachen
797 Beiträge
 
Delphi XE2 Professional
 
#13

Re: [Projekt] CoverFlow mit Gr32

  Alt 30. Jun 2008, 21:59
Super!!! Danke dir!!!

Ich werde es mir am Wochenende mal genau ansehen und evtl etwas weiterschreiben, wäre doch gelacht wenn wir Apple keine Konkurrenz machen könnten

//edit ich konne es nicht lassen und habs mir direkt angesehen Richtig professionell und nicht so rumgedoktort wie meins! Großes Lob!
„Software wird schneller langsamer als Hardware schneller wird. “ (Niklaus Wirth, 1995)

Mein Netzwerktool: Lan.FS
  Mit Zitat antworten Zitat
Florian H

Registriert seit: 30. Mär 2003
Ort: Mühlacker
1.043 Beiträge
 
Delphi 6 Professional
 
#14

Re: [Projekt] CoverFlow mit Gr32

  Alt 30. Jun 2008, 23:32
Was jetzt eigentlich nur noch fehlt ist eine schnell-Blätter-Funktion, wie sie Apple auch hat: wenn ich ganz schnell durchblättere, soll er nicht mehr jedes Cover anzeigen sondern direkt nur noch durch den Stappel scollen ...
Florian Heft
  Mit Zitat antworten Zitat
Benutzerbild von FBrust
FBrust

Registriert seit: 4. Okt 2002
Ort: Saarbrücken
654 Beiträge
 
Delphi 10.4 Sydney
 
#15

Re: [Projekt] CoverFlow mit Gr32

  Alt 1. Jul 2008, 11:55
Hallo,

sieht wirklich sehr gut aus, eine Frage habe ich: Muss man alle Cover vor dem Init laden oder geht das dynamisch, d. h. dass Cover, die nicht angezeigt werden, wieder entladen werden können?


Gruß
Frank
"Ich habe Dinge gesehen, die ihr Menschen niemals glauben würdet. Gigantische Schiffe, die brannten, draußen vor der Schulter des Orion" - Roy Batty
  Mit Zitat antworten Zitat
Benutzerbild von alleinherrscher
alleinherrscher

Registriert seit: 8. Jul 2004
Ort: Aachen
797 Beiträge
 
Delphi XE2 Professional
 
#16

Re: [Projekt] CoverFlow mit Gr32

  Alt 1. Jul 2008, 12:09
Zitat von FBrust:
Hallo,

sieht wirklich sehr gut aus, eine Frage habe ich: Muss man alle Cover vor dem Init laden oder geht das dynamisch, d. h. dass Cover, die nicht angezeigt werden, wieder entladen werden können?


Gruß
Frank

Momentan müssen alle Cover zunächst geladen werden. Dies stellt ein Problem dar, wenn man beispielsweise Cover für 4000 Songs läd. Hier muss noch ein bisschen optimiert werden. Die Frage ist, wie man das am besten anstellt, da die Cover ja später einmal aus den mp3 Dateien gelanden werden sollen. D.h. man müsste evtl die Mp3 files in AddCover übergeben, oder hat jemand ne bessere Idee?


Zitat von Florian H:
Was jetzt eigentlich nur noch fehlt ist eine schnell-Blätter-Funktion, wie sie Apple auch hat: wenn ich ganz schnell durchblättere, soll er nicht mehr jedes Cover anzeigen sondern direkt nur noch durch den Stappel scollen ...
Jo, stimmt. Zunächst müssen wir aber die Geschwindigkeit etwas optimieren. Zur Zeit werden alle sichtbaren Cover pixelweise in jedem animationsschritt neu erzeugt. Cover, die ihren Winkel zum betrachter nicht ändern, sollten aber am besten nur einmal berechnet und dann zwischengespeichert werden, um Rechenzeit zu sparen. Anschließend würde auch die schnell-Blätter funktion besser aussehen (aufgrund von höherer Geschwindigkeit)!

(Allein die Zeit fehlt momentan)

Grüße, Michael

//edit: Schon bemerkt? Wir bekommen Konkurrenz hier im Forum : http://www.delphipraxis.net/internal...t.php?t=137742
„Software wird schneller langsamer als Hardware schneller wird. “ (Niklaus Wirth, 1995)

Mein Netzwerktool: Lan.FS
  Mit Zitat antworten Zitat
Benutzerbild von FBrust
FBrust

Registriert seit: 4. Okt 2002
Ort: Saarbrücken
654 Beiträge
 
Delphi 10.4 Sydney
 
#17

Re: [Projekt] CoverFlow mit Gr32

  Alt 1. Jul 2008, 12:19
Hi,

also bisher finde ich die Lösung, dass die Cover aus den entsprechenden Bild-Dateien geladen werden, nicht schlecht.

Nur mal ins Blaue hineingedacht: Könnte man eine Eigenschaft "MaxCovers" hinterlegen, die angibt, wieviele Cover im Speicher gehalten werden sollen?

Weiter: Könnte man die Coverpfade in eine Art Liste laden, die bei Next und Previous verwaltet wird, d. h. bei Next wird ein Cover ans Ende der Liste nachgeladen, während das erste Cover in der Liste aus dem speicher entfernt wird und das zweite Cover an dessen Stelle rückt, bei Previous wäre es dann genau umgekehrt.


Hoffe, ich hab nicht allzu wirr dahergeredet


Gruß
Frank
"Ich habe Dinge gesehen, die ihr Menschen niemals glauben würdet. Gigantische Schiffe, die brannten, draußen vor der Schulter des Orion" - Roy Batty
  Mit Zitat antworten Zitat
axellang

Registriert seit: 3. Mai 2003
Ort: München
138 Beiträge
 
Delphi XE2 Enterprise
 
#18

Re: [Projekt] CoverFlow mit Gr32

  Alt 1. Jul 2008, 12:22
Hallo,

nachdem ich mir die beide CoverFlow's angesehen habe, ergo die hier und auch die TPatternMotion, möchte ich euch eine andere Variante vorstellen und zwar "FlyingCow". Geschrieben wurde es von Matías Andrés Moreno und wurde von mir für D2007 angepasst. Diese CoverFlow Implementierung, erlaubt das anzeigen von Bildern, Ordnern, abspielen von Videos, PDF's und vieles mehr. Dass viele mehr, muss selbst implementiert werden. Lädt sehr schnell und ist extrem gut erweiterbar.

Einen weitere CoverFlow App. auf der Basis von FlyingCow gibt es hier: coverflow-example-using-delphi.


Die PDF Binaries habe ich aus dem Paket (RAR) entfernt, können aber von der Projektseite, siehe readme.txt, heruntergeladen werden.

Im Anhang ist der Source + Binaries, ein MusicPlayer und ein universal Viewer mit CoverFlow. Also viel Spaß beim testen.

Grüsse

Axel Lang
Angehängte Dateien
Dateityp: rar flyingcow-sources-2007_117.rar (809,0 KB, 158x aufgerufen)
Alexander Lang
  Mit Zitat antworten Zitat
Benutzerbild von alleinherrscher
alleinherrscher

Registriert seit: 8. Jul 2004
Ort: Aachen
797 Beiträge
 
Delphi XE2 Professional
 
#19

Re: [Projekt] CoverFlow mit Gr32

  Alt 1. Jul 2008, 12:24
Zitat von FBrust:
Hi,

also bisher finde ich die Lösung, dass die Cover aus den entsprechenden Bild-Dateien geladen werden, nicht schlecht.

Nur mal ins Blaue hineingedacht: Könnte man eine Eigenschaft "MaxCovers" hinterlegen, die angibt, wieviele Cover im Speicher gehalten werden sollen?

Weiter: Könnte man die Coverpfade in eine Art Liste laden, die bei Next und Previous verwaltet wird, d. h. bei Next wird ein Cover ans Ende der Liste nachgeladen, während das erste Cover in der Liste aus dem speicher entfernt wird und das zweite Cover an dessen Stelle rückt, bei Previous wäre es dann genau umgekehrt.


Hoffe, ich hab nicht allzu wirr dahergeredet


Gruß
Frank
Jup, das is schon genau richtig, nur was ich oben meinte ist: wir müssen bedenken, dass die Cover ja nicht als Bilddatei auf der Festplatte vorliegen, sondern in den mp3's gespeichert sind. Aber gut, dann macht man halt ne variante dass die mp3 anstatt die bmp oder jpg Dateien mit Pfad übergeben werden. Sollte nicht das Problem sein. Habe irgendwo noch nen Codeschnipsel rumliegen, wie man die Cover aus einem mp3 laden kann...
„Software wird schneller langsamer als Hardware schneller wird. “ (Niklaus Wirth, 1995)

Mein Netzwerktool: Lan.FS
  Mit Zitat antworten Zitat
Larsi

Registriert seit: 10. Feb 2007
2.262 Beiträge
 
Delphi 2007 Professional
 
#20

Re: [Projekt] CoverFlow mit Gr32

  Alt 8. Jul 2008, 12:49
Also ganz großes Lob erstmal. Darf ich das auch in meinem eigenen Programm (natrülich mit Verweis auf euch/dich) verwenden?
Ein Tag ohne Delphi ist ein verlorener Tag!

Homepage zu meinem neuen Programm: StreamZ
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 2 von 3     12 3      


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 08:19 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz