inserir imagem bmp e jpg
var BMP: TBitMap;
jpg:tjpegimage;
begin
BMP := TBitMap.Create;
if OpenPictureDialog1.Execute then
begin
dm.tbfunc.edit;
BMP.LoadFromFile(OpenPictureDialog1.FileName);
dm.Tbfuncfoto.Assign(BMP);
estou fazendo assim para inserir bmp e gostaria de inserir assim, se fosse bmp ou jpg com fazer isto e não somente bmp
jpg:tjpegimage;
begin
BMP := TBitMap.Create;
if OpenPictureDialog1.Execute then
begin
dm.tbfunc.edit;
BMP.LoadFromFile(OpenPictureDialog1.FileName);
dm.Tbfuncfoto.Assign(BMP);
estou fazendo assim para inserir bmp e gostaria de inserir assim, se fosse bmp ou jpg com fazer isto e não somente bmp
Fama
Curtidas 0
Respostas
Gandalf.nho
09/02/2004
Que banco de dados é? O paradox eu sei que não aceita JPG.
GOSTEI 0