SQL Server 2005里的Image字段装的就是文本类型数据;
delphi上传图片--个人照片
1. 使用到的控件:
(1) Image 控件(TImage类的);
(2) OpenPictureDialog控件(打开图片的控件);
2. 使用到一个类:TMemoryStream
3. 数据库的字段:Blob字段;存放图像的二进制;
功能一: 清除照片
步骤:
Image1.Picture.Graphic := nil ;
Image1.Tag := 1 ;
使用如下语句即可;
功能二: 添加照片
步骤:
1. 打开硬盘,选择照片时,用以下过程:
procedure TRYGLEditForm.image1DblClick(Sender: TObject);
var
filestream:TFileStream;
begin
inherited;
if not (dsMaster.State in [dsEdit , dsInsert]) then
exit ;
if dlgOpenPic1.Execute then
begin
try
filestream := TFileSt