Discussion :

[jihed]

Salut
Comment faire une base de donnée contenant des images et des sons et non pas leurs chemins.


Merci d'avance...

[cmen76]

Utiliser des champs BLOB (stockage de données binaires de taille variable)
Y accéder par LoadFromStream

[Grandad95]

Bonjour,
Pourriez vous m'expliquer comment lire puis executer les sons à partir d'un champ BLOB Paradox.
Merci par avance

[cmen76]

comment lire

Code :

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

TBlobField.SaveToFile(atempFile);

executer

Code :

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

1
2
aMediaPlayer.filename := atempfile;
aMediaPlayer.Play

Ce n'est qu'une solution parmi d'autres.

[Grandad95]

Bonjour,
J'ai essayé de charger le champ Blob (Binaire) avec:
TBlobField.LoadFromFile(aFileName);
Il semble que les données ne soient pas correctes dans le champs car lors de la récupération par:
TBlobField.SaveToFile(atempFile);
Le fichier .Wav obtenu est illisible alors que l'original est tout à fait correct.
Merci de votre aide.

[cmen76]

y a-t-il une différence de taille ?
Parce qu'un paramètre du BDE limite la taille des blobs
Voir dans Administrtateur BDE du Panneau de configuration, sur l'alias le paramètre "BLOB SIZE"

[Grandad95]

Bonjour,
merci de votre réponse, mais je n'ai trouvé aucun paramètre "Blob Size" dans l'alias de ma base de donnée.
Merci de votre aide

[cmen76]

Autant pour moi, ce paramètre n'existe pas pour Paradox.
La limite officielle est de 2 Go.

J'ai fait un test pour vérifier ; je n'ai rencontré aucun problème (D5 entreprise).

Pouvez-vous faire une comparaison du fichier source et du fichier récupéré après avoir transité dans la base ? :

[Grandad95]

Bonjour
Merci de votre réponse.
Les fichiers
.Wav que je tente de placer dans ma base font de 170 à 230 Ko chacun.
A la récupération, j'ai bien un fichier .Wav, mais de 0 octet.
C'est donc au chargement que se situe le problème.
En effet lorsque jj'utilise le même code pour lire un Wave directement, cela fonctionne parfaitement.
Merci d'avance de votre aide.

[cmen76]

Upload :

Code :

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

1
2
3
4
 
  table1.append;
  table1son.loadfromfile('BANG.WAV');
  table1.post;

Download (vérifier que l'enregistrement courant contient bien le son)

Code :

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

1
2
 
  table1son.savetofile('BANG2.WAV');

le 0 octet peut provenir d'un BLOB vide...
Le source permettrait peut-être de trouver l'erreur.

[Grandad95]

Merci
pour ces explications.
Voic le code que j'utilise:

Upload:

Code :

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

1
2
3
4
Chemin:= ExtractFilePath(Application.ExeName);
Table1.Edit;
Chemin:= Chemin+ 'Sons\Sound '+ Edit3.Text+ '.wav';
Table1Son.LoadFromFile(Chemin );

Download (dans une autre application):

Code :

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

1
2
3
4
Chemin:= ExtractFilePath(Application.ExeName);
Table1Son.SaveToFile(Chemin+ 'Son.wav');
Son:= IntTostr(Query1.RecNo);
PlaySound(Pchar(Chemin+ 'Son.wav'),0,SND_FILENAME);

Le fichier .Wav est bien créé, mais il pèse 0 octet.
Je pense que le problème provient de l'upload.
Le champ utilisé pour stocker le son est un BLOB Binaire dans une base Paradox 7 créée à partir du module de Base de données de Delphi7.

Voici les éléments utilisés dans la structure du champ:

Code :

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

1
2
 
3 Son  B  240

[Grandad95]

J'ai résolu le problème en étudiant de près le code.
La lecture du champs se fait sur Une Table, alors que l'affichage des données se fait sur un Query.
Quel ?*!? je peu faire.

Un autre problème se pose.
Il n'existe pas de SaveToFile sur un Query.
Comment contourner le problème simplement?
Merci

[cmen76]

La lecture du champs se fait sur Une Table, alors que l'affichage des données se fait sur un Query.
Quel ?*!? je peu faire.

Un autre problème se pose.
Il n'existe pas de SaveToFile sur un Query.
Comment contourner le problème simplement?

Je pense qu'il y a confusion :
SaveToFile est une méthode de l'objet TBlobField, qui peut être aussi bien retourné par une Table qu'un Query.
Le choix du dataset est donc indifférent pour un download.[/list]

[Grandad95]

Après de multiples essais, je confirme bien que mon Query ne possède pas de méthode SaveToFile.
merci quand même pour votre aide.

[cmen76]

En double-cliquant sur le TQuery, puis Ctrl-F
la liste des champs disponibles retournés par la requête s'affiche
En sélectionnant un champ, il apparaît dans l'explorateur d'objet, avec sa classe
Si un BLOB est retourné par le query, il doit y avoir dans la liste des champs un TBLOBField
C'est cet objet qui disposera de la méthode SaveToFile