j'essaye dans ce code d'insérer une image JPEG dans un champ blob Mysql, mais j'y arrive pas :
Éclairez moi
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 var imgJpeg:TJPEGImage; imgBmp:TBitmap; begin imgJpeg:=TJPEGImage.Create; if Odp.Execute then imgJpeg.LoadFromFile(odp.FileName); imgBmp:=TBitmap.Create; with imgBmp do begin Width:=imgJpeg.Width; Height:=imgBmp.Height; Canvas.Draw(0,0,imgJpeg); end; try dsSociete.DataSet.Edit; (dsSociete.DataSet.FieldByName('logo') as TBlobField).Assign(imgBmp); finally imgJpeg.free; imgBmp.Free; end;
Partager