var
pjpg:tjpegimage; //1
pic:TMemoryStream; //2
begin
pjpg:=tjpegimage.Create; //3
pjpg.LoadFromFile(F:\JPG.jpg);
pic:=TMemoryStream.Create; //4
pjpg.SaveToStream(pic);
pic.Position:=0; //5
TBlobField(dataset.FieldByName('Img')).LoadFromStream(pic);//6
dataset.post;
pic.Free;
pjpg.free;
end;
/////////////////////////
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if Column.FieldName = 'Res' then
begin
DBGrid1.Canvas.TextRect(Rect, Rect.Left, Rect.Top, Column.Field.AsString); //7 canvas,textrect 各是什么?
end;
end;
//////////////////////////
从前辈的来的代码,请各位解释一下,谢谢
pjpg:tjpegimage; //1
pic:TMemoryStream; //2
begin
pjpg:=tjpegimage.Create; //3
pjpg.LoadFromFile(F:\JPG.jpg);
pic:=TMemoryStream.Create; //4
pjpg.SaveToStream(pic);
pic.Position:=0; //5
TBlobField(dataset.FieldByName('Img')).LoadFromStream(pic);//6
dataset.post;
pic.Free;
pjpg.free;
end;
/////////////////////////
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if Column.FieldName = 'Res' then
begin
DBGrid1.Canvas.TextRect(Rect, Rect.Left, Rect.Top, Column.Field.AsString); //7 canvas,textrect 各是什么?
end;
end;
//////////////////////////
从前辈的来的代码,请各位解释一下,谢谢
解决方案 »
- delphi关于hint、messagedlg等几个问题求助,在线等。。
- select * from 结果到excel表中,但是select 列却不行
- rzgroupbar中如何判断用户选择的是哪个group?
- 这个过程怎么调用?
- 有这样一个问题:怎样在后台保存一个以时间为文件名的文件?不需要打开SaveDilog对话框.
- 急----在线等待!!!!!!!!!!!
- Frame的的问题!
- 关于RadionButton,Edit,和Filtered联系在一起出现的错误,请高手们帮忙看看
- 金山毒霸的屏幕保护程序存在着bug!!!!!!
- DriveCombobox的问题
- 前辈的两组代码,请较详细的解释每句的意思(除了var,begin,end等句)
- 介绍一个挺好的调试工具debugview
TBlobField(dataset.FieldByName('Img')).LoadFromStream(pic);//6 将内存流中所存的内容存储到数据库的img字段中Column.Field.AsString); //7 canvas,textrect 各是什么?
Canvas 在这里是一个TCanvas对象的实例,称为画布,是一个可以用来做图的
对象,而TextRect则是这个对象的一个方法,用于在指定的Rect(即:四方框)中输出文字