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.