Discussion :

[samidz2014]

Salut...
Je veux enregistrer des images jpg dans ma BDD TurboDB, j'ai cherché sur internet et j'ai trouvé ce code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
var 
J: TJpegImage; 
B: TBitmap; 
 
Begin 
J := TJpegImage.Create; 
J.LoadFromFile('C:\PH2.jpg'); {emplacement de l'image} 
B:= TBitmap.Create; 
B.Assign(J); 
DBImage1.Picture.Bitmap:=B; 
B.Free; 
J.Free; 
end;

Mais au lieu de spécifier une image précise comme dans la ligne n°7, je veux charger mes images de n'importe quel emplacement.
commenr faire?

[tourlourou]

Code :

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

1
2
3
4
5
6
7
8
var
  CheminImage: string;
begin
  CheminImage := {emplacement de l'image déterminé par ce que tu voudras}
  // ou choix par une boîte de dialogue
  if OpenPictureDialog1.Execute and FileExists(OpenPictureDialog1.FileName) then
    CheminImage := OpenPictureDialog1.FileName;
  J.LoadFromFile(CheminImage); {chargement de l'image}

[samidz2014]

Salut;
Voici mon code qui marche trés bien pour les BMP seulement !.

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
 
var
  FileStream: TFileStream;
  BlobStream: TStream;
begin
 if (OpenPictureDialog1.Execute) then
   begin
   Principale.Temploye.Edit;
     try
       BlobStream := Principale.Temploye.CreateBlobStream(Principale.Temploye.FieldByName('PHOTO'),bmWrite);
       FileStream := TFileStream.Create(OpenPictureDialog1.FileName,fmOpenRead or fmShareDenyNone);
       BlobStream.CopyFrom(FileStream,FileStream.Size);
       FileStream.Free;
       BlobStream.Free;
     except
       Principale.Temploye.Cancel;
     end;
   end;
 if Principale.Temploye.State = dsedit then Principale.Temploye.Post;
end;

Je veux le modifier afin q'il me permet de charger les autres type d'images tel que les JPG ?

[tourlourou]

essaye qqch comme ça :

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
var
  BlobStream: TStream;
  MyPic: TPicture;
  MyBmp: TBitmap;
begin
 if (OpenPictureDialog1.Execute) then
   begin
   Principale.Temploye.Edit;
     try
       BlobStream := Principale.Temploye.CreateBlobStream(Principale.Temploye.FieldByName('PHOTO'),bmWrite);
       MyPic := TPicture.Create(nil);
       MyBmp := TBitmap.Create(nil);
       MyPic.LoadFromFile(OpenPictureDialog1.FileName); // le Graphic ouvre les différents formats de fichiers graphiques
       MyBmp.Assign(MyPic); // on en "récupère" le bmp
       MyPic.Free;
       MyBmp.SaveToStream(BlobStream); // qu'on blobe
       MyBmp.Free;
       BlobStream.Free;
     except
       Principale.Temploye.Cancel;
     end;
   end;
 if Principale.Temploye.State = dsedit then Principale.Temploye.Post;
end;

[samidz2014]

J'ai essayé ton code 'tourlourou' mais une erreur me dit :
Too many actual parameters

[tourlourou]

Peut-être les Create n'ont-ils pas besoin de paramètre... dans ce cas, enlève les (nil)
Par ailleurs, le message était clair : trop de paramètres, passés à une procédure, fonction ou méthode d'objet. La notion de la ligne incriminée, précédant le message d'erreur, aurait pu te permettre de le trouver, si c'est bien ça.

[samidz2014]

Peut-être les Create n'ont-ils pas besoin de paramètre... dans ce cas, enlève les (nil)
Par ailleurs, le message était clair : trop de paramètres, passés à une procédure, fonction ou méthode d'objet. La notion de la ligne incriminée, précédant le message d'erreur, aurait pu te permettre de le trouver, si c'est bien ça.

D’accord, j'ai enlevé les (nil) et ça compile sans problème, mais quand quand j'essaie de charger une image JPG un message d'erreur se déclenche:
‘Cannot assign a TPicure to a TBitmap’

[SergioMaster]

Bonjour,

je m'en doutais ! il ne s'agit pas de mettre une image dans un blob qui pose problème mais récupérer ce Blob pour le mettre dans un Bitmap.

Quand vous écrivez post #3 que le code fonctionne très bien pour un bitmap, ce même code fonctionne aussi bien pour un JPEG puisque vous utilisez un FileStream. Par contre que vous ne sachiez pas comment mettre ce stream récupéré dans un TImage (qui ne connait que les bitmaps car je présume que la version de Delphi, non précisé, est la version 7) est un autre sujet !

je n'ai pas le code sous la main (sur un autre poste) donc je n'indique que la démarche possible à suivre : analyser les premiers octets du blob pour savoir de quel format il s'agit (JPEG, BMP, PNG etc...) et agir en conséquence (création d'un TJpeg, TPngImage pour ensuite faire un assign au bitmap)
un peu ce que fait le code du post #1 mais dans le sens inverse (du blob vers l'objet)