請問DELPHI連接數據庫時如何加載及顯示JPG圖像?
解决方案 »
- 请问各位大虾一个小型项目完成后,想连同数据库、表一起打包给用户,怎么打呢?在此谢谢啦
- 急等:如果生成这样的排列?
- 我从数据库中提取出两个数,如何将两个字符型的变为数字型的然后相加得出个结果,30分
- 用findfirst查找文件怎样才能让它得到的结果 按文件名排列的呢??
- 关于数据备份
- 如何将一组tedit.text控件的循环赋值给一个数组
- 向各位请教一个打包的问题:打包时出现找不到*.dcu文件,请问如何解决?
- 请问何处有关于音频压缩格式的文档?
- table(用paradox 7建的)的记录个数是否可以扩充?
- 如何让edit只能输入数字??????
- delphi俱乐部OICQ群招新
- 小问题,请指点!!
pjpg:tjpegimage;
pic:TMemoryStream;
begin
pjpg:=tjpegimage.Create;
pjpg.LoadFromFile(F:\JPG.jpg);
pic:=TMemoryStream.Create;
pjpg.SaveToStream(pic);
pic.Position:=0;
TBlobField(dataset.FieldByName('Img')).LoadFromStream(pic);
dataset.post;
pic.Free;
pjpg.free;
end;
pjpg:tjpegimage;
pic:TMemoryStream;
begin
pjpg:=tjpegimage.Create;
TBlobField(dataset.FieldByName('Img')).savetoStream(pic);end;
pjpg:tjpegimage;
pic:TMemoryStream;
begin
pjpg:=tjpegimage.Create;
pic:=TMemoryStream.Create;
TBlobField(dataset.FieldByName('Img')).savetoStream(pic);
pic.positon:=0;
pjpeg.LoadFromStream(pic);
image.graphi.bmp.assign(pjpeg);
end;end;
var
pjpg:tjpegimage;
pic:TMemoryStream;
begin
pjpg:=tjpegimage.Create;
pjpg.LoadFromFile(F:\JPG.jpg);
pic:=TMemoryStream.Create;
pjpg.SaveToStream(pic);
pic.Position:=0;
TBlobField(dataset.FieldByName('Img')).LoadFromStream(pic);
dataset.post;
pic.Free;
pjpg.free;
end;
从数据库取出
var
pjpg:tjpegimage;
pic:TMemoryStream;
begin
pjpg:=tjpegimage.Create;
pic:=TMemoryStream.Create;
TBlobField(dataset.FieldByName('Img')).savetoStream(pic);
pic.positon:=0;
pjpeg.LoadFromStream(pic);
image.graphi.bmp.assign(pjpeg);
end;end;你要自己动动脑子,多试试!