读取MSSQL字段 DELPHI中怎么样读取数据表中的binary类型的字段付值到一个变量,经过处理后写到数据表中,应该怎么付值的? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 这是向数据库写入图象的,你试试改改如何向SQL Server中保存bmp图象以及读取 delphi 图象存取 插入修改 保存图象bmTemp:=TBitmap.Create;ms:=TMemoryStream.Create;try qryFace.Close; qryFace.SQL.Clear; qryFace.SQL.Add('update video_face_image set face_image2=:face_image2'); qryFace.SQL.Add(Format('where event_id=%d',[qryPrepare.FieldByName('event_id').AsInteger])); bmTemp.LoadFromFile('c:\face2.bmp'); bmTemp.SaveToStream(ms); qryFace.Parameters.ParamByName('face_image2').LoadFromStream(ms,ftBlob);finally ms.Free; bmTemp.Free;end;如何在Image组件中显示bmTemp:=TBitmap.Create;ms:=TMemoryStream.Create;try TBlobField(qryFace.FieldByName('face_image1')).SaveToStream(ms); ms.Position:=0; //最最重要的一点 bmTemp.LoadFromStream(ms); imgFace1.Picture.Bitmap:=bmTemp;finally ms.Free; bmTemp.Free;end; 多谢 henreash(虫子) 的意见!我的目的是一个字符串如'123456'经过处理后保存到binary类型的字段,或者再从binary类型的字段读出来阿!是不是我的问题好偏了???? 用TTable直接写就可以。table1.FieldByName('XX').asstring := Edit1.text 如果要用SQL写的话 , 如123insert into tablename (fieldname) values (0x0313233)转化成HEX就好了。 求:API HOOK的实现!!!!!!! 关于Web服务器项目的问题 如何使用TListView 的OnDrawItem event? 关于“好急呀!!这样的变态报表怎么搞定?(在线等待)Help!!”的补充! 报表问题 如何将后面加入的窗口第一个显示? 如何发送一个全局消息让所有的窗体都可以接收的到,怎么发送,怎么接收 语音应用系统 关于多线程程序在XP和2000上运行的结果,请高手指点! 如何从已建好的数据库文件中导出sql脚本(包括建立约束,表,索引…所有脚本)?也许我太懒……^_^ 如何在存储过程中建立临时表? spcomm不能发送汉字的问题?
delphi 图象存取
插入修改 保存图象
bmTemp:=TBitmap.Create;
ms:=TMemoryStream.Create;
try
qryFace.Close;
qryFace.SQL.Clear;
qryFace.SQL.Add('update video_face_image set face_image2=:face_image2');
qryFace.SQL.Add(Format('where event_id=%d',[qryPrepare.FieldByName('event_id').AsInteger]));
bmTemp.LoadFromFile('c:\face2.bmp');
bmTemp.SaveToStream(ms);
qryFace.Parameters.ParamByName('face_image2').LoadFromStream(ms,ftBlob);
finally
ms.Free;
bmTemp.Free;
end;如何在Image组件中显示
bmTemp:=TBitmap.Create;
ms:=TMemoryStream.Create;
try
TBlobField(qryFace.FieldByName('face_image1')).SaveToStream(ms);
ms.Position:=0; //最最重要的一点
bmTemp.LoadFromStream(ms);
imgFace1.Picture.Bitmap:=bmTemp;
finally
ms.Free;
bmTemp.Free;
end;
我的目的是一个字符串如'123456'经过处理后保存到binary类型的字段,
或者再从binary类型的字段读出来阿!
是不是我的问题好偏了????
table1.FieldByName('XX').asstring := Edit1.text
insert into tablename (fieldname) values (0x0313233)
转化成HEX就好了。