TBlobField(FieldByName(字段名)).loadfromfile(图片)
解决方案 »
- invalid use of keyword
- 同志们有谁知道“山东中创软件公司”怎么样啊?知道的进来说说,不知道的up一下,狂给分~
- 用了线程,PageControl1上的 Memo1就显示不了了。
- 在旧数据库上扩充新的表和表结构,,如何制作数据库升级程序呢....300分求救///
- 有关屏幕刷新率的问题?
- 简单问题~~~~,送分了~~~~~
- 配新电脑,散分 请您推荐一款液晶显示器,什么牌子的比较好?价格大概几何?
- Midas事务的问题
- 一个数学计算问题
- 怎样删除MDAC2.7(in win2000)?大家都不懂,还是不想回答,特急!!!!!!
- 谁给我讲讲DELPHI的项目组织!
- 55+55+55,开奖时再加两个55,共55*5分重谢
用dbimage.loadfromfile
dbimage.savetofile
var
Mytable:Tadotable;
//FileHandle: Integer;
BlobStream: TFileStream;
begin
Result := True;
Mytable:=Tadotable.Create(Nil);
Try
Mytable.connection := SysDataModule.ADOCtnMain;
Mytable.TableName := 'ModeTable';
Mytable.Open;
Mytable.filter := 'NodeId='''+ ANodeId+'''';
Mytable.Filtered:=true;
If MyTable.FieldByName('ReportMode').IsNull Then
Result := False
Else
Begin
If Not FileExists(AFileName) Then
Begin
{Try
FileHandle := FileCreate(AFileName);
Finally
FileClose(FileHandle);
End;}
BlobStream := TFileStream.Create(AFileName, fmCreate);
End
Else
BlobStream := TFileStream.Create(AFileName, fmOpenReadWrite);
//Tblobfield(mytable.fieldbyname('ReportMode')).SaveToFile(Afilename);
Try
Tblobfield(mytable.fieldbyname('ReportMode')).SaveToStream(BlobStream);
Finally
BlobStream.Free;
End;
End;
Finally
Mytable.close;
Mytable.free;
End;
end;