我这么写有问题请问如何用OpenPictureDialog1将图片显示在image1中?
然后再如何将其写入数据库中???
procedure Tstudangai.SpeedButton5Click(Sender: TObject);
var ss:string;
begin
OpenPictureDialog1.Execute;
ss:=OpenPictureDialog1.GetNamePath;
image1.Picture:=ss;
end;
然后再如何将其写入数据库中???
procedure Tstudangai.SpeedButton5Click(Sender: TObject);
var ss:string;
begin
OpenPictureDialog1.Execute;
ss:=OpenPictureDialog1.GetNamePath;
image1.Picture:=ss;
end;
解决方案 »
- 用IdTCPServer1和IdTCPClient1怎样实现自动传输文件,server端不用做响应,客户端可自动下载和上传?
- 多表删除问题
- 修改datamodule的程序后,软件在别的机器上便连接不了服务器 why?
- 请问delphi中有类似cookie的实现方式吗?
- 我这样做,还是不能打印空行
- 发票连续打印问题 急呀!在线等分不够再加
- 如何查找指定文件?
- DBGrid ???
- Dll数据库问题(在线等待,立即给分)
- 很急的问题,我的2000任何驱动都安装不上,安装到最后,都说缺少需要的文件,怎么办
- 请来看看李维先生的最新力作《Inside VCL(深入核心——VCL架构剖析)》。(转自深度论坛 )
- 我画了一条线,鼠标是一个垂直X轴的直线,当坐标线与这条线(我画的那条)有交点时,如何取得此时这条线与垂直X轴的直线的交点的x,y值
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;
var ss:string;
begin
if OpenPictureDialog1.Execute then
begin
ss:=OpenPictureDialog1.FIlename;
if ss<>'' then image1.Picture:=ss;
end;
end;
MyJPEG : TJPEGImage;
MS: TMemoryStream;
begin
openpicturedialog1.Execute;
if openpicturedialog1.FileName<>'' then
begin
image.Picture.LoadFromFile(openpicturedialog1.FileName);
openpicturedialog1.FileName:='';
MyJPEG := TJPEGImage.Create;
try
with MyJPEG do
begin
Assign(Image.Picture.Graphic);
MS:=TMemoryStream.create;
SaveToStream(MS);
MS.Position:=0;
adotable1.Append;
TBlobField(adotable1.FieldbyName('photo')).LoadFromStream(MS);
adotable1.Post;
messagebox(getactivewindow(),'图像保存完毕!','保存',mb_ok);
image.Picture.CleanupInstance;
end;
finally
MyJPEG.Free;
end;
end;
显示图片
var
tempstream:TStringStream;
tempjpeg:TJPEGImage;
begin
try
tempstream:=TStringStream.Create(' ');
TBlobField(adodataset1.FieldByName('photo')).SaveToStream(tempstream);
tempstream.Position:=0;
tempjpeg:=TJPEGImage.Create;
tempjpeg.LoadFromStream(tempstream);
DBImage1.Picture.Bitmap.Assign(tempjpeg);
finally
tempstream.Free;
tempjpeg.Free;
end;
end;
image.Picture.LoadFromFile(openpicturedialog1.FileName);