delphi三层中怎么保存图片到sqlserver数据库

 

procedure   TForm1.BitBtn2Click(Sender:   TObject);     //保存图片
var
    ms     :TMemoryStream;
    ext   :string;
begin
    if   edtDrNameSp.Text=   ' '   then   exit;
    if   edtDrNameTy.Text=   ' '   then   exit;
    if   edtDrNameE.Text=   ' '   then   exit;
    if   not   ImageEn1.IsEmpty   then
        begin
            ext:=   Extractfileext(OpenPictureDialog1.FileName);
            ms   :=   TMemoryStream.Create;
            try
            try
                    if   Uppercase(ext)=   '.BMP '   then
                        begin
                            ImageEn1.SaveToStreamBMP(ms);
                        end
                    else   if     (Uppercase(ext)=   '.JPG ')   or   (Uppercase(ext)=   '.JPEG ')   then
                        begin
                            ImageEn1.SaveToStreamJpeg(ms);
                        end;
                adoQryTmp.Active:=   false;
                adoQryTmp.SQL.Clear;
                adoQryTmp.SQL.Add( 'select   *   from   drimages ');
                adoQryTmp.Active:=   true;
                ms.Position:=   0;
                adoQryTmp.Append;
                adoQryTmp.FieldByName( 'drNameSp ').Value:=   Trim(edtDrNameSp.Text);
                adoQryTmp.FieldByName( 'drNameSpPy ').Value:=   Trim(edtDrNameSpPy.Text);
                adoQryTmp.FieldByName( 'drNameTy ').Value:=   Trim(edtDrNameTy.Text);
                adoQryTmp.FieldByName( 'drNameTyPy ').Value:=   Trim(edtDrNameTyPy.Text);
                adoQryTmp.FieldByName( 'drNameE ').Value:=   Trim(edtDrNameE.Text);
                TBlobField(adoQryTmp.FieldByName( 'drimage ')).LoadFromStream(ms);
                adoQryTmp.FieldByName( 'indate ').Value:=now;
                adoQryTmp.FieldByName( 'memo ').Value:=   RedtMemo.Text;
                    if   Uppercase(ext)=   '.BMP '   then
                        begin
                            adoQryTmp.FieldByName( 'isbmp ').Value:=   1;
                        end
                    else   if     (Uppercase(ext)=   '.JPG ')   or   (Uppercase(ext)=   '.JPEG ')   then
                        begin
                            adoQryTmp.FieldByName( 'isbmp ').Value:=   0;
                        end;
                adoQryTmp.Post;
                Clearedt;
            finally
                ms.Free;
            end;
            application.MessageBox( '图片保存成功！ ', '提示 ',mb_OK);
            adoQry.Active:=   false;
            adoQry.Active:=   true;
            except
            on   e:exception   do
                begin
                    application.MessageBox( '图片保存失败！ ', '警告！ ',mb_OK);
                end;
            end;
        end;
end;

procedure   TForm1.DBGrid1CellClick(Column:   TColumn);       //调出图片
var
    ms   :TMemoryStream;
begin
    ImageEn1.SetFocus;
    if   adoQry.Active   =   false   then   exit;
    if   AdoQry.RecordCount   <1   then   exit;
    idd:=   adoQry.fieldbyname( 'id ').AsInteger;
    RedtMemo.Text:=   adoQry.fieldbyname( 'memo ').Value;
    ms   :=   TadoBlobStream.Create(TBlobField(adoQry.FieldByName( 'drimage ')),bmread);
    try
        ms.Position:=   0;
        ImageEn1.Clear;
        if   adoQry.FieldByName( 'isbmp ').AsInteger   =   1   then
            begin
                ImageEn1.LoadFromStreamBMP(ms);
            end
        else
            begin
                ImageEn1.LoadFromStreamJpeg(ms);
            end;
    finally
        ms.Free;
    end;
end;

 

另一个例子

procedure   PutImageintoDB(car_id:string;tempQuery:TQuery);    
  var                                   //图片保存到数据库           注意这里是JPG格式的图片  
        buf2,buf:pchar;  
        f1:file;  
        filelen:integer;  
  begin  
            try  
                    buf2:=pchar(car_id);;  
                    assignfile(f1,car_id+'.jpg');  
                    reset(f1,1);  
                    filelen:=filesize(f1);  
                    buf:=allocmem(filelen);  
                    blockread(f1,buf^,filelen);  
                    closefile(f1);  
                    with   tempQuery   do   begin  
                              close;  
                              with   SQL   do   begin  
                                        Add('insert   into   carinimage   values(:cim_id,:cim_image)');  
                              end;  
                    end;  
                    try  
                          tempQuery.ParamByName('cim_id').DataType:=ftString;  
                          tempQuery.ParamByName('cim_id').SetData(buf2);  
                          tempQuery.ParamByName('cim_image').SetBlobData(buf,filelen);  
                          tempQuery.ExecSQL;  
                    except  
                    end;  
                    buf2:=nil;  
                    freemem(buf);  
            except  
            end;  
  end;  
   
   
  procedure   GetImagefromDB(car_id:string;tempQuery:TQuery);  
  begin                                         //从数据库中取出图片  
            with   tempQuery   do   begin  
                      close;  
                      with   SQL   do   begin  
                                clear;  
                                Add('select   cim_image   from   carinimage   where   cim_id='''+car_id+'''');  
                      end;  
                      Open;  
            end;  
            (tempQuery.FieldByName('Cim_image')   as   tblobfield).savetofile(car_id+'.jpg');  
  end;

empQuery.FieldByName('Cim_image')   as   tblobfield

end;