MEDIA PLAYER COMPLET
Also know as
Messages postés
259
Date d'inscription
samedi 13 décembre 2003
Statut
Membre
Dernière intervention
22 novembre 2010
-
23 juin 2006 à 17:37
cs_kamalz Messages postés 26 Date d'inscription samedi 15 octobre 2005 Statut Membre Dernière intervention 27 juillet 2006 - 18 juil. 2006 à 01:45
cs_kamalz Messages postés 26 Date d'inscription samedi 15 octobre 2005 Statut Membre Dernière intervention 27 juillet 2006 - 18 juil. 2006 à 01:45
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/38268-media-player-complet
https://codes-sources.commentcamarche.net/source/38268-media-player-complet
18 juil. 2006 à 01:45
5 juil. 2006 à 19:21
28 juin 2006 à 16:36
Michèle.
27 juin 2006 à 18:25
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
27 juin 2006 à 18:10
Michèle.
24 juin 2006 à 14:43
24 juin 2006 à 04:09
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.
24 juin 2006 à 02:01
23 juin 2006 à 21:05
Alors là j'applaudie plof plof plof (ca fait pas ca comme bruit mais bon ^^).
Bon coding
23 juin 2006 à 21:03
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+
23 juin 2006 à 20:23
23 juin 2006 à 20:22
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
23 juin 2006 à 20:20
Donc certe c'est pas parfait mais bon autant l'encourager dans ce qu'il souhaite faire non ?
@+
23 juin 2006 à 20:20
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+
23 juin 2006 à 20:13
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+
23 juin 2006 à 20:06
en plus des remarques ci dessus:
composants non renommés et pas de commentaires ce qui le code illisible
@+
jlen
23 juin 2006 à 19:24
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.
@+