Discussion :

[MIWAN]

bonjour
je suis sous delphi 2010 plaform 64

sur ce code suivant je reçois le message d'erreur : transtypage de class incorrect

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
procedure TFMain.btnPlayClick(Sender: TObject);
var
  B: TBlobStream;
  M: TMemoryStream;
begin
  B := TBlobStream.Create(cds.FieldByName('doc')As TBlobField, bmRead); {create blob stream}
  Screen.Cursor := crHourGlass; {wait hourglass}
  try
    M := TMemoryStream.Create; {create memory stream}
    try
      M.CopyFrom(B, B.Size); {copy from blob to memory stream}
      {Attempt to play sound.  Raise exception if something goes wrong}
      Win32Check(PlaySound(M.Memory, 0, SND_SYNC or SND_MEMORY));
    finally
      M.Free;
    end;
  finally
    Screen.Cursor := crDefault;
    B.Free;
  end;
end;

une idée ou une autre solution pour lire des fichiers son (sound) directement dans un enregistrement TBlobField
Merci pour votre aide

[Bernard B]

Bonjour,

Pourquoi créer un TBlobStream pour le transtyper en TBlobField qui se rapporte plutôt à une base de donnée (il me semble) pour aller remplir un TMemoryStream qui sait très bien faire un M.LoadFromFile(...).
Il me semble qu'après le LoadFromFile, il faut ramener le pointeur du Stream au début en faisant M.Position:=0;

[ShaiLeTroll]

ShowMessage(cds.FieldByName('doc').ClassName) affiche quoi String ? Blob ?

[fred1599]

Hello,

+1 pour la question posée @ShaiLeTroll

Autre question,

Quelle bibliothèque de composants utilisez-vous pour vous connecter à la base de données ?

Quels sont les formats de son que vous stockez dans la base de données ?

• Uniquement des fichiers .WAV ?
• Ou également d'autres formats comme .MP3, .OGG, etc. ?

[XeGregory]

bonjour
je syis sous delphi 2010 plaform 64

sur ce code suivant je reçois le message d'erreur : transtypage de class incorrect

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
procedure TFMain.btnPlayClick(Sender: TObject);
var
  B: TBlobStream;
  M: TMemoryStream;
begin
  B := TBlobStream.Create(cds.FieldByName('doc')As TBlobField, bmRead); {create blob stream}
  Screen.Cursor := crHourGlass; {wait hourglass}
  try
    M := TMemoryStream.Create; {create memory stream}
    try
      M.CopyFrom(B, B.Size); {copy from blob to memory stream}
      {Attempt to play sound.  Raise exception if something goes wrong}
      Win32Check(PlaySound(M.Memory, 0, SND_SYNC or SND_MEMORY));
    finally
      M.Free;
    end;
  finally
    Screen.Cursor := crDefault;
    B.Free;
  end;
end;

une idée ou une autre solution pour lire des fichiers son (sound) directement dans un enregistrement TBlobField
Merci pour votre aide

L’erreur "transtypage de class incorrect", Cela signifie que le champ 'doc' n’est pas reconnu comme un TBlobField

Vérifier le type du champ :

Code :

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

1
2
3
4
if cds.FieldByName('doc') is TBlobField then
  B := TBlobStream.Create(TBlobField(cds.FieldByName('doc')), bmRead)
else
  ShowMessage('Le champ "doc" n''est pas un TBlobField');

Alternative avec CreateBlobStream

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
var
  B: TStream;
  M: TMemoryStream;
begin
  Screen.Cursor := crHourGlass;
  try
    B := cds.CreateBlobStream(cds.FieldByName('doc'), bmRead);
    try
      M := TMemoryStream.Create;
      try
        M.CopyFrom(B, B.Size);
        Win32Check(PlaySound(M.Memory, 0, SND_SYNC or SND_MEMORY));
      finally
        M.Free;
      end;
    finally
      B.Free;
    end;
  finally
    Screen.Cursor := crDefault;
  end;
end;

[MIWAN]

bonjour et grand merci a votre interpelation

Code :

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

1
2
3
4
 
Bernard B 
ShaiLeTroll 
 fred1599

*******************
XeGregory votre code a réussi je doit vous remercie

Code :

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

1
2
  
B := TBlobStream.Create(cds.FieldByName('doc')As TBlobField, bmRead);

j'ai une demande si vous avez le temps : comment lire un fichier .mp3 ?

je dois faire Résoudre

[XeGregory]

Comment lire un fichier .mp3 ?

Utiliser le composant TMediaPlayer

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.ButtonPlayClick(Sender: TObject);
begin
  MediaPlayer1.FileName := 'C:\chemin\fichier.mp3';
  MediaPlayer1.Open;
  MediaPlayer1.Play;
end;
 
procedure TForm1.ButtonStopClick(Sender: TObject);
begin
  MediaPlayer1.Stop;
end;

Alternative si ton MP3 est dans un TBlobStream : Sauvegarder temporairement le MP3
La solution consiste à écrire le contenu du TBlobStream dans un fichier temporaire, puis le lire avec TMediaPlayer :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
var
  TempFile: string;
  FileStream: TFileStream;
begin
  TempFile := GetTempFileName + '.mp3';
  FileStream := TFileStream.Create(TempFile, fmCreate);
  FileStream.CopyFrom(BlobStream, BlobStream.Size);
  FileStream.Free;
 
  MediaPlayer1.FileName := TempFile;
  MediaPlayer1.Open;
  MediaPlayer1.Play;
end;

[MIWAN]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
var
  TempFile: string;
  FileStream: TFileStream;
begin
  TempFile := GetTempFileName + '.mp3';
  FileStream := TFileStream.Create(TempFile, fmCreate);
  FileStream.CopyFrom(BlobStream, BlobStream.Size);
  FileStream.Free;
 
  MediaPlayer1.FileName := TempFile;
  MediaPlayer1.Open;
  MediaPlayer1.Play;
end;

Merci et excuse de votre Temps