[TP] Peut-on ouvrir un fichier mp3 ?

**amine6441** · 27/02/2007, 14h12

Salut les amis
J'aurais voulu savoir si on peut appeler un fichier mp3, par exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

assign(f,'c:\.......\... .mp3')

et merci

**M.Dlb** · 27/02/2007, 14h48

Oui un peu sans problème

Il faut déclarer f comme file, ou file of byte ou file of char.

**amine6441** · 27/02/2007, 14h56

merci mon frere

et une image on peut l'afficher dans un program?

**M.Dlb** · 27/02/2007, 15h28

Oui aussi

**amine6441** · 03/03/2007, 18h31

salut j'ai essaye de lire une image mais ca pas marcher

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
var g:file of byte;
 
assign(g,'d:\photos\voiture\001e.jpg');
append(f);
repeat
readln(g,s);
writeln(s);
until EOf (g)

ca pas marcher MR le moderateur

et merci

**M.Dlb** · 03/03/2007, 18h47

C'est normal que ca ne marche pas. Il faut utiliser read, et non pas readln déjà, je te l'ai déjà dit. Et en supposant que s est une string, comment veux-tu lire des strings dans un file of byte ?

**amine6441** · 03/03/2007, 19h08

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure afficher;
var g:file of byte;
s:string;

begin
assign(g,'d:\photo\voiture\001e.jpg');
append(g);//Invalid file type
reapeat
read(g,s);
writeln(s);
until eof(f);

end;

ca marche pas

**Ultima** · 03/03/2007, 20h59

Comme te l’a dit wormful_sickfoot, tu ne peux pas lire des STRING dans un file of BYTE,
tu ne peux y lire que des bytes ;
Voici un exemple de code valide ;

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
program fileimage;
var
  F: FILE of BYTE;  // F est constitué de BYTE, ou de CHAR (caractères).
  s : BYTE;
begin
  Assign(F, 'd:\photo\voiture\001e.jpg');
  Reset(F);   // Reset et non append
  while (not eof(F)) do begin
    read(F, s);
    write(CHAR(s));
  end;
  close(F);
  readln;
end.

ou encore:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
program fileOFpic;
var
  F: FILE of CHAR;  // F est constitué de BYTE, ou de CHAR (caractères).
  s : CHAR;
begin
  assign(F, 'd:\photo\voiture\001e.jpg');
  reset(F);
  while (not eof(F)) do begin
    read(F, s);
    write(s);
  end;
  close(F);
  readln;
end.

**amine6441** · 04/03/2007, 02h06

merci MR Ultima et merci MR le moderateur le programe que vous venez de me donnez marche bien mais j'ai un petit probleme que ca n'affiche aucune photo ca affiche quedes codes je sais pas si c'est un probleme de mon compilateur
et merci une fois de plus

**Ultima** · 04/03/2007, 10h11

Je crois que tu n’as pas encore compris ce que veux dire "ouvrir un fichier" ; en programmation, ouvrir un fichier veux dire lire les octets (BYTE) qui composent le fichier.
Si tu veux voir une photo, il faudra que tu comprennes le codage pour un fichier .jpeg ou .bmp (plus simple) ; ensuite il te faudra créer un programme qui te permette d’afficher ton image ;
Sincèrement je crois ce n’est pas de ton niveau.
Sinon tu peux apprendre à utiliser l’unité GRAPH, ce sera plus simple ensuite de visionner une image.
Courage.
PS : Il n’y a aucun problème avec ton compilateur.

**vladimire** · 06/03/2007, 17h27

vous avez basculer vers les images...je préfère reparler du sujet d'origine :
si j'ai bien compris, l'ouverture d'un fichier .mp3 "comme vous l'avez signaler en haut" ne veut pas dire écouter le son, mais seulement ouvrir son code...
sera-t-il vraiment compliquer si j'essaie d'écouter le contenu d'un fichier .wav ou .mp3 ?! de quoi ai-je besoin ?!
merci d'avance

**M.Dlb** · 06/03/2007, 17h43

D'une carte son, d'enceintes, et de bonnes doc sur les cartes son, et de bons algos

Tu peux trouver des informations dans le SWAG : http://www.gdsoft.com/swag/

**Ultima** · 06/03/2007, 21h53

Bonjour,
est-ce que ceci est normal :

C:> Fatal Error

C:FERROR> Fatal Error 2006

C:FERROR> Owned bY: Dominic - dominic_ferror@hotmail.com

C:FERROR> Owned bY: Dominic - dominic_ferror@hotmail.com

C:FERROR> Somos: Dominic * Elemento_pcx * the_danz * Slackirc * s4r4d0 * FreakSpeeDx * Zakix

C:FERROR> Enquanto existir desigualdade,
C:FERROR> existira...
C:FERROR> Fatal Error

C:FERROR> Fatal Error - contact: irc.gigachat.net #ferror
C:FERROR> Fatal Error - contact: irc.gigachat.net #ferror
C:FERROR> Fatal Error - contact: irc.gigachat.net #ferror

C:FERROR> Gretz:
C:FERROR> #commandt - #h4ck3rsbr - #outlaw - #Owned - #priv8crew - #xRoot
C:FERROR> Fatal Error - #ferror

C:FERROR> bY: Dominic
C:>exit