高手请进!在OLEcontainter 控件中所画的图形如何保存到数据库中! 在OLEcontainter 控件中所画的图形如何保存到数据库中!谢谢! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 怎么还没人回答,我现在很急,现在想把它保存到SQL-SERVER 中,希望高手来帮我解决! 保存:---var MS:TMemoryStream; sSQL,sSpecialityID:String;begin MS:=TMemoryStream.Create; TJPEGImage(Image.Picture.Graphic).SaveToStream(MS);//将图像数据写入内存流 MS.Position:=0; ADOQuery.Open; ADOQuery.Append; TBlobField(ADOQuery.FieldbyName('Photo')).LoadFromStream(MS); ADOQuery.Post; MS.Free; except Application.MessageBox('保存信息失败,请重试!', '系统提示', MB_OK + mb_IconExclamation); end;end;--------读取:---var MyJPEG:TJPEGImage; MS:TMemoryStream; bs:TBlobStream;begin {**取出相片**} MyJPEG:=TJPEGImage.Create; MS:=TMemoryStream.Create; try TBlobField(ADOQuery.FieldByName('Photo')).SaveToStream(MS); MS.position :=0; MyJPEG.LoadFromStream(MS); //DBImage.picture.assign(MyJPEG);该控件的使用 Image.picture.assign(MyJPEG); finally MyJPEg.free; MS.free; end; end; delphi webbrowser1 如何设置访问网页代理 DBGridEh中增加checkbox列 这样的界面怎么做呀? ibx如何连接interbase delphi如何循环读取主从表并批量打印 哪里可以找到介绍sql93版世界标准的资料? 初学者的问题。 如何用D6自带的VCL打印dbgrid中的内容?? 在VC里有CJLibrary这样的类库可以做winxp的效果,delphi有类似的控件吗? 小弟求救,比较简单的问题,答对必谢!!! 如果在canvas上画条线后再删除该线但不会影响到canvas上原有的内容? 紧急救助!查询海量记录的问题!请大家帮帮忙!
---
var
MS:TMemoryStream;
sSQL,sSpecialityID:String;
begin
MS:=TMemoryStream.Create;
TJPEGImage(Image.Picture.Graphic).SaveToStream(MS);//将图像数据写入内存流
MS.Position:=0; ADOQuery.Open;
ADOQuery.Append;
TBlobField(ADOQuery.FieldbyName('Photo')).LoadFromStream(MS);
ADOQuery.Post;
MS.Free;
except
Application.MessageBox('保存信息失败,请重试!', '系统提示', MB_OK +
mb_IconExclamation);
end;end;--------读取:
---
var
MyJPEG:TJPEGImage;
MS:TMemoryStream;
bs:TBlobStream;
begin
{**取出相片**}
MyJPEG:=TJPEGImage.Create;
MS:=TMemoryStream.Create;
try
TBlobField(ADOQuery.FieldByName('Photo')).SaveToStream(MS);
MS.position :=0;
MyJPEG.LoadFromStream(MS);
//DBImage.picture.assign(MyJPEG);该控件的使用
Image.picture.assign(MyJPEG);
finally
MyJPEg.free;
MS.free;
end;
end;