用的是ado还是BDE啊
如果是ado应该不能用value对其取值。应该用GetChunk和appendchunk这两个方法来取值,赋值。。
BDE我就不知道。。我没用过。。应该差不大我的。。
如果是ado应该不能用value对其取值。应该用GetChunk和appendchunk这两个方法来取值,赋值。。
BDE我就不知道。。我没用过。。应该差不大我的。。
解决方案 »
- 调用其他窗体时怎么会出现错误?
- delphi 生成新窗口的问题
- 请教脱网时如何访问到本机127.0.0.1
- Interface RTTI 当参数含有 class of class 时编绎不过,怎么解决?
- sos 紧急求救!!!
- 磁卡读写器与数据库调用冲突
- 请大家帮忙看一下这段代码,是关于登录窗口的,为什么,我要按三次确定登录窗口才FREE 掉呢第一次是主窗口SHOW ,第二次没反应,为什么?
- delphi资料群:13767438把我这几年收集的delphi资料群视频教程和大家分享
- 一个送分的关于TStrings的问题
- 如何实现非活动窗口的HINT的显示?
- 三层结构:两表联合修改添加问题
- 那里有打印控件下载?
var
aa: TBlobField;
mm:TMemoryStream;
begin
mm:=TMemopry.Create;
aa:= TBlobField(A.fieldbyname('name'));
aa.SaveToStream(mm);
mm.Position:=0;
TBolbField(B.fieldbyname('name')).LoadFremStream(mm);
mm.Free;
end;以上代码即兴写出,没有编译,效果与你想的一样。没明白,再讨论。
procedure TForm1.ImageIntoDBBitBtnClick(Sender: TObject);
begin
try
with Query1 do
begin
close;
sql.clear;
sql.add('insert into img (imga) values(:imag)');
end;
try
if FileName<>'' then
ParamByName('Img').LoadfromFile(FileName,ftGraphic)
else
ParamByName('Img') .asBlob:='';
Query1.ExecSQL;
except
ShowMessage('图片保存出错!');
exit;
end;
except
end;
end;
//读取
procedure TForm1.ImageFromDBBitBtnClick(Sender: TObject);
var
m_jpegstream:tmemorystream;
begin
with Query1 do
begin
close;
sql.clear;
sql.Add('select imga from img');
try
Open;
except
exit;
end;
end;
if (Query1.FieldByName('imga') as tblobfield).asstring='' then
begin
exit;
end
else
begin
try
try
m_jpegStream:=TMemoryStream.Create;
(Query1.fieldbyname('imga') as TBlobField).SaveToStream(m_JpegStream);
m_JpegStream.Position:=0;
try
image2.Picture.Graphic:=nil;
image2.Picture.Graphic:=TJpegImage.Create;
image2.Picture.Graphic.LoadFromStream(m_JpegStream); //读Jpeg
except
Image2.Picture.Bitmap.LoadFromStream(m_JpegStream); //读Bmp
end;
except
end;
finally
m_JpegStream.Free;
Query1.Close;
Query1.UnPrepare;
end;
end;
end;
procdure Fform1.intoimagefield(var a:tblobfield,var b:tblobfield);
begin
a.savetofile('c:\windows\temp\temp.bmp');//根据你库中的图片格式
b.loadfromfile('c:\windows\temp\temp.bmp');
end;
//调用时可看如下。
如果是table1中的字段‘image'转入table2中的字段'image'中。
intoimagefield(tblobfield(table1.fieldbyname('image')),tblobfield(table2.fieldbyname('image')));
table2.post;
至此,功能实现,具体你可以多试一下。