delphi上传图片--个人照片

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