begin process at 2008 07 25 21:10:16
1 216 496 membres
448 nouveaux aujourd'hui
14 182 membres club

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum.
Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

MEDIA PLAYER COMPLET


Information sur la source

Catégorie :Multimedia Classé sous : mediaplayer Niveau : Débutant Date de création : 23/06/2006 Date de mise à jour : 23/06/2006 18:04:51 Vu / téléchargé: 6 416 / 2 450

Note :
2 / 10 - par 1 personne
2,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10

Commentaire sur cette source (19)
Ajouter un commentaire et/ou une note

Description

petit mediaplayer avec playlist ,bibiliotheque,lecture aleatoire etc..
Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !
  •   mediaplayer2
    • ajoutermusique.dcuTélécharger ce fichier [Réservé aux membres club]3 376 octets
    • ajoutermusique.dfmTélécharger ce fichier [Réservé aux membres club]700 octets
    • ajoutermusique.pasTélécharger ce fichier [Réservé aux membres club]Voir ce fichier406 octets
    • biblio.dcuTélécharger ce fichier [Réservé aux membres club]3 418 octets
    • biblio.dfmTélécharger ce fichier [Réservé aux membres club]471 octets
    • biblio.pasTélécharger ce fichier [Réservé aux membres club]Voir ce fichier403 octets
    • choixbiblio.dcuTélécharger ce fichier [Réservé aux membres club]9 372 octets
    • choixbiblio.dfmTélécharger ce fichier [Réservé aux membres club]1 978 octets
    • choixbiblio.pasTélécharger ce fichier [Réservé aux membres club]Voir ce fichier4 673 octets
    • mediaplayer1.dcuTélécharger ce fichier [Réservé aux membres club]27 102 octets
    • mediaplayer1.dfmTélécharger ce fichier [Réservé aux membres club]250 728 octets
    • mediaplayer1.pasTélécharger ce fichier [Réservé aux membres club]Voir ce fichier22 711 octets
    • modiflist.dcuTélécharger ce fichier [Réservé aux membres club]20 620 octets
    • modiflist.dfmTélécharger ce fichier [Réservé aux membres club]4 447 octets
    • modiflist.pasTélécharger ce fichier [Réservé aux membres club]Voir ce fichier14 724 octets
    • optionplaylist.dcuTélécharger ce fichier [Réservé aux membres club]3 749 octets
    • optionplaylist.dfmTélécharger ce fichier [Réservé aux membres club]1 144 octets
    • optionplaylist.pasTélécharger ce fichier [Réservé aux membres club]Voir ce fichier546 octets
    • playlist.dcuTélécharger ce fichier [Réservé aux membres club]6 338 octets
    • playlist.dfmTélécharger ce fichier [Réservé aux membres club]1 296 octets
    • playlist.pasTélécharger ce fichier [Réservé aux membres club]Voir ce fichier2 136 octets
    • progresse.dcuTélécharger ce fichier [Réservé aux membres club]10 123 octets
    • progresse.dfmTélécharger ce fichier [Réservé aux membres club]1 558 octets
    • progresse.pasTélécharger ce fichier [Réservé aux membres club]Voir ce fichier5 134 octets
    • Project1.~dprTélécharger ce fichier [Réservé aux membres club]749 octets
    • Project1.cfgTélécharger ce fichier [Réservé aux membres club]Voir ce fichier434 octets
    • Project1.dofTélécharger ce fichier [Réservé aux membres club]Voir ce fichier2 030 octets
    • Project1.dprTélécharger ce fichier [Réservé aux membres club]Voir ce fichier793 octets
    • Project1.resTélécharger ce fichier [Réservé aux membres club]876 octets
    • Unit1.dcuTélécharger ce fichier [Réservé aux membres club]19 265 octets
    • Unit1.dfmTélécharger ce fichier [Réservé aux membres club]5 526 octets
    • Unit1.pasTélécharger ce fichier [Réservé aux membres club]Voir ce fichier14 416 octets
  • scrutedossier.zipTélécharger ce fichier [Réservé aux membres club]3 112 octets

Télécharger le zip

23 juin 2006 18:04:51 :
desoler j'aivais oublier de mettre le scrute avec le zip encore desoler
  • signaler à un administrateur
    Commentaire de Also know as le 23/06/2006 17:37:43

    Salut,

    On ne peu malheureusement rien testé sous ton lecteur car il manque un fichier :

      [Erreur fatale] Unit1.pas(7): Fichier non trouvé : 'Scrute.dcu'

    Se serait bien de préciser ou est-ce que l'on peu le télécharger.

    J'ai pris le scrupte de cette page :
    http://www.delphifr.com/code.aspx?ID=21324

    Cela fonctionne mais maleureusement je pense qu'il n'est pas du tout adapté à ton lecteur.

    Vous pouvez donc en attendant qu'il les rajoute télécahrger ces fichier à cette adresse :
    http://m.strasser.free.fr/delphifr/MEDIA-PLAYER-COMPLET_38268/scrute.zip

    Je ne commente donc pas plus cette source et ne donne pas de note !

    @+

  • signaler à un administrateur
    Commentaire de Also know as le 23/06/2006 19:24:20

    Salut,
    Voici donc mes remarques par rapport à ton logiciel :
    > Tout d'abord la bibliothèque :
    - Faudrait revoir ta phrase si le fichier ini n'existe pas, d'une elle n'est pas bien écrite, et de deux on ne comprend pas trop cette phrase la première fois que l'on utilise ce logiciel
    - Une fois qu’on à choisi un dossier avec des musiques, celui-ci ne peu pas se finir, pour ma part j'ai une erreur du style : "Violation d'accès à l'adresse XXXXXXXX dans le module "Project1.exe". Lecture de l'adresse XXXXXXXX.
    - Si je clique du coup sur annuler, pareil il ne peut pas terminer l'opération car un problème intervient et un message du même style apparait
    - Il devient donc impossible de quitter la fenêtre
    - On ne peu sélectionner qu'une musique par une musique, il faudrait revoir globalement l'histoire de la bibliothèque
    + Le concept d'ajout de cette manière est bien faite et bien pensée
    + Si on ne tiens pas compte des erreurs ci-dessus, tout fonctionne correctement

    > Point de vue de la PlayList
    > J'ai eu des problèmes mais alors de tous les côtés
    - Si je fais clic-droit ==> Nouveau ==> Nom de la playlist "Test" ou encore "ma playlist", le programme plante et s'arrête à cette ligne : "fichier.WriteString('playlist','nom',test);"
    - Clic droit ==> Voir ==> Le programme plante à nouveau, normal vu qu'il n'existe pas de playlist (indice hors limite). Voici son message : "frame61.ComboBox1.Text:=listbox1.Items.Strings[listbox1.itemindex];"

    > Sur le lecteur même
    - On ne sait pas quelle chanson passe, je pense qu'il faudrait avoir la liste des chansons sélectionnées, à part ou dans la même fenêtre, mais visible dés le départ
    - On voit que les boutons (Pause, lecture, etc) scintillent légèrement, j'ai testé avec le "DoubleBuffered" sur la form mais cela n'y change strictement rien.

    J'aurais plein d'autre remarques à faire sur le lecteur, mais je n'ai aps envie que tu le prennes mal, car ce n'est pas mon but, bien au contraire.
    Ensuite c'est dommage que tu ne commente pas de temps à autre ton code source, cela pourrait en valoir la peine pour les débutants comme moi.
    Ce qui est bizarre c'est que tu utilises des Form, des Frames, de tous les côtés, mais alors ca par partout ! :D, on sait plus ou on est à la fin ^_^.

    Donc voilà

    Au final je ne pense pas que je vais la noter car je ne suis pas assez bon dans ce domaine pour donner mon point de vue.

    @+

  • signaler à un administrateur
    Commentaire de cirec le 23/06/2006 19:53:18 administrateur CS

    Salut,

    Il y a des fichiers qui ne devraient pas se trouver dans ton Zip :
    *.DCU et *.~*

    et si tu veux tu peux même télécharger la source de F0xi qui fera le "ménage" à ta place :-)

    Ici : http://www.delphifr.com/codes/DELPHI-PROJECT-CLEANNER-DEPOC-OUTILS-POUR-NETTOYER-VOS_38066.aspx

    @+
    Cirec

  • signaler à un administrateur
    Commentaire de jlen100 le 23/06/2006 20:06:12

    salut,
    en plus des remarques ci dessus:
    composants non renommés et pas de commentaires ce qui le code illisible

    @+
    jlen

  • signaler à un administrateur
    Commentaire de Francky23012301 le 23/06/2006 20:13:40

    Salut,

    Je te remercie : voila une application novatrice.Evidemment c'est quelque chose qui manquait cruellement sur CS. Ca doit juste faire le 300 ieme mediaplayer sur CS : Mdrrrrrrrrr.

    Revois tout ca et la prochaine fois publie quelque chose qui interesse la communauté si tu veux pas te faire allumer comme ci-dessus

    A+

  • signaler à un administrateur
    Commentaire de Francky23012301 le 23/06/2006 20:20:27

    Second post, je viens de voir ton source : le source est mal structuré. Tu as mal répartie les fonctions et procedures.

    Je rejoins JLen : c'est mal codé et pas commenté. En plus d'erreurs flagrantes, tu aurais pu simplifier le source.

    Désolé si on est durs mais quand on fait du réchauffer, en général les gens sont intransigeants

    A+

  • signaler à un administrateur
    Commentaire de Also know as le 23/06/2006 20:20:32

    Je pense que tu es un peut vache tout de même "Francky23012301", c'est son premier message ici donc sa proemière source, qui plus est il est inscrit depuis le 23/06/2006 16:46:56, autrement dit aujourd'hui.

    Donc certe c'est pas parfait mais bon autant l'encourager dans ce qu'il souhaite faire non ?

    @+

  • signaler à un administrateur
    Commentaire de jlen100 le 23/06/2006 20:22:14

    faut dire à sa décharge :
    Arrivée sur CodeS-SourceS le : 23/06/2006 16:46:56
    Date création : 23/06/2006 16:51:46
    autrement dit il 'a surement pas eu le temps de prendre connaissance des us et coutumes du site!!! ni même de lire ce qui existait déjà.


    Bien venue quand même et corriges les imperfections

    @+
    jlen

  • signaler à un administrateur
    Commentaire de jlen100 le 23/06/2006 20:23:52

    AlsoKnowAs tu m'as coupé l'herbe sous le pieds!!

  • signaler à un administrateur
    Commentaire de Francky23012301 le 23/06/2006 21:03:44

    Re,

    Alors c'est pas bien de pointer du doigt les copains quand on ouvre "les hostilités" : ;).
    En plus vu le nombres on aurait dit un listing : Mdrrrrr.

    Sérieusement en ce qui concerne le MediaPlayer, il y a en a deja tellement sur CS que il me semblait important de le souligner. En plus je l'ai fais avec humour.

    Pour le code : bon il y a un point positif : il y a eu du travail c'est flagrant vu la taille du code (en partant du principe que c'est un débutant). Donc oui continue  bien évidemment ... La prochaine fois que tu postes demandes aux membres avancés ce qu'ils en pensent et demande eventuellement une correction.

    Pour conclure, continue à coder : tu me sembles bien partis pour etre un bon codeur

    A+

  • signaler à un administrateur
    Commentaire de Francky23012301 le 23/06/2006 21:05:07

    Par contre je le félicite : pas de messages => Donc il s'est débrouillé tout seul.

    Alors là j'applaudie plof plof plof (ca fait pas ca comme bruit mais bon ^^).

    Bon coding

  • signaler à un administrateur
    Commentaire de delphinait le 24/06/2006 02:01:46

    Bonjour , tres bon prog  bravo  , vraiment complet !!!

  • signaler à un administrateur
    Commentaire de f0xi le 24/06/2006 04:09:34 administrateur CS


    Quelques petites erreur et methodes lourdes :



    function RechercheMot(const Phrase,Mot:String; const SensitiveCase : boolean = false):Boolean;
    var i : integer;
    begin
      if SensitiveCase then
         Result := Pos(Mots,Phrase) <> 0
      else
         Result := Pos(lowercase(Mots),lowercase(Phrase)) <> 0;
    end;


    if RechercheMot(name ,edit1.Text) and (edit1.Text <> '') then begin


    if radiobutton2.Checked then
       for y := 0 to listbox1.Count-1 do
           listbox1.Checked[y] := true;


    {{
    if minute<10 then begin
    if seconde<10 then
    label3.Caption := signe+'0'+inttostr(Minute)+' : 0'+inttostr(Seconde)
    else
    label3.Caption := signe+'0'+inttostr(Minute)+' : '+inttostr(Seconde)
    end else begin
    if seconde<10 then
    label3.Caption := signe+inttostr(Minute)+' : 0'+inttostr(Seconde)
    else
    label3.Caption := signe+inttostr(Minute)+' : '+inttostr(Seconde)
    end;
    }}
    a remplacer par :

    Label3.Caption := format(Signe+'%.2d : %.2d',[Minute,Seconde]);


    pour tester une extention valide :

    function ValidExt(const FileName : string) : boolean;
    const
        CExts: string = '|.mp3|.wav|.avi|';
    begin
      result := pos('|'+LowerCase(ExtractFileExt(FileName))+'|', CExts) <> 0;
    end;


    ce qui permet de virer cela :

    if (extractfileext(NomDuFichierstr)='.wma') xor
    (extractfileext(NomDuFichierstr)='.avi') xor
    (extractfileext(NomDuFichierstr)='.wav') xor
    (extractfileext(NomDuFichierstr)='.mp3')
    then begin

    et de remplacer par :

    if ValidExt(NomDuFichier) then begin ...

    en plus je ne vois pas pourquoi tu fait un XOR la dessus. OR suffit.



    sinon j'ai pas plus regarder que ça ... mais ça a l'air bien, le mieux serait egalement de mettre un petit screenshoot sur ta source ... et de nettoyer l'archive des fichiers inutiles.

  • signaler à un administrateur
    Commentaire de Matt 261 le 24/06/2006 14:43:16

    Et allez, un de plus...

  • signaler à un administrateur
    Commentaire de Michele58 le 27/06/2006 18:10:19

    Infonctionnable !!!

    Michèle.

  • signaler à un administrateur
    Commentaire de jlen100 le 27/06/2006 18:25:52

    -->Michele58 tu pourrais traduire ton charrabia?
    infonctionnable ça veut dire quoi?
    Inutile d'écorcher la langue de Molière.
    ce genre de remarques ne font pas avancer les choses si tu n'expliques pas ce qui ne te convient pas.
    "Ce qui ce conçoit aisément s'exprime clairement"

    @+
    jlen

  • signaler à un administrateur
    Commentaire de Michele58 le 28/06/2006 16:36:59

    "Infonctionnable = ne fonctionne pas !" Voilà j'ai corrigé pour les âmes sensibles ! Celui qui commet aucune erreur, c'est bien celui qui ne fou rien !

    Michèle.

  • signaler à un administrateur
    Commentaire de N_M_B le 05/07/2006 19:21:44

    Bonjour ! bein moi je voulais juste te dire que ton lecteur me sera bien utile pour entendre de la zik quand mon pc commence a ralentire il est asser leger ! je te parle pas du code puisque je ne me suis pas encore lancé dans le multimedia mais tout ce que je peut te dire c'est continue !

  • signaler à un administrateur
    Commentaire de kamalz le 18/07/2006 01:45:38

    Il manque un fichiermais c bon comme effort

Ajouter un commentaire

Pub



Appels d'offres

Animation Flash alimen...
Budget : 6 000€
Intranet client pour t...
Budget : 5 000€
Creation portail video
Budget : 3 000€

Snippets en rapport

CalendriCode

Juillet 2008
LMMJVSD
 123456
78910111213
14151617181920
21222324252627
28293031   

Boutique

Boutique de goodies CodeS-SourceS