保存图片到SQL SERVER2000中。

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  testStream:TMemoryStream;
begin
  //保存图片到SQL SERVER 2000 数据库中 格式为 .JPG
  if not Assigned(Image1.Picture.Graphic) then exit;
  try
    with ADOQuery1 do
    begin
      Close;
      SQL.Clear;
      SQL.Add('delete from test');
      ExecSQL;

      testStream := TMemoryStream.Create;
      Image1.Picture.Graphic.SaveToStream(testStream);

      Close;
      SQL.Clear;
      SQL.Add('Insert into test (photo) values (:photo)');
      Parameters.ParamByName('photo').LoadFromStream(testStream,ftBlob);
      ExecSQL;
    end;
  finally
    testStream.Free;
  END;
end;

procedure TForm1.Button5Click(Sender: TObject);
var
  mStream:TMemoryStream;
  JpgFile:TjpegImage;
begin
  //读取数据库中的.JPG图片显示在界面上
  with ADOQuery1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select * from test ');
    Open;
    if not FieldByName('photo').IsNull then begin ;
    mStream:=TMemoryStream.Create ;
    JpgFile:=TjpegImage.Create ;
    TBlobField(FieldByName('photo')).SaveToStream(mStream);
    mStream.Position :=0;
    jpgfile.LoadFromStream(MStream);
    image2.Picture.Assign(JpgFile);
    end
    else begin
      image2.Picture :=nil;
    end;
  end;
end;