Télécharger le zip
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=21324Cela 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.zipJe ne commente donc pas plus cette source et ne donne pas de note !@+
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.@+
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
salut,en plus des remarques ci dessus:composants non renommés et pas de commentaires ce qui le code illisible@+jlen
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-dessusA+
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 intransigeantsA+
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 ?@+
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:46autrement 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
AlsoKnowAs tu m'as coupé l'herbe sous le pieds!!
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 codeurA+
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
Bonjour , tres bon prog bravo , vraiment complet !!!
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 beginif radiobutton2.Checked then for y := 0 to listbox1.Count-1 do listbox1.Checked[y] := true;{{if minute<10 then beginif seconde<10 thenlabel3.Caption := signe+'0'+inttostr(Minute)+' : 0'+inttostr(Seconde)elselabel3.Caption := signe+'0'+inttostr(Minute)+' : '+inttostr(Seconde)end else beginif seconde<10 thenlabel3.Caption := signe+inttostr(Minute)+' : 0'+inttostr(Seconde)elselabel3.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 beginet 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.
Et allez, un de plus...
Infonctionnable !!!Michèle.
-->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
"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.
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 !
Il manque un fichiermais c bon comme effort
Se souvenir du profil
Mot de passe oublié ? / Activation de compteCréer un compte