如何向SQL Server中添加图片字段！

Question

TBLOBSTREAM是什么哟？是哪个地方的控件？？？该如何结合结合image来处理?请给点示例代码，谢谢！！！

Answer 1

用image字段啊
然后用流储存
Load

Answer 2

Image + ADO 没有问题，用BDE有问题不能存大一的图不知道为什么Pardox + BDE 一点问题也没有，不过只能在单机上用……

Answer 3

还没解决呢？procedure TForm1.Button1Click(Sender: TObject);//存图片
var
  ms:tmemorystream;
begin
  ms:=tmemorystream.Create;
  try
    Image1.Picture.Bitmap.SaveToStream(ms);
    with ADOQuery1 do
    begin
      Open;
      ms.Position:=0;
      Insert;
      TBlobField(FieldByName('i')).LoadFromStream(ms);
      Post;
      Close;
    end;
  finally
    ms.Free;
    Image1.Picture.Graphic:=nil;
  end;
end;procedure TForm1.Button2Click(Sender: TObject);//读取图片
var
  ms:tmemorystream;
begin
  ms:=tmemorystream.Create;
  try
    with ADOQuery1 do
    begin
      Open;
      First;
      MoveBy(StrToInt(Edit1.Text));
      TBlobField(FieldByName('i')).SaveToStream(ms);
      Close;
    end;
    ms.Position:=0;
    Image1.Picture.Bitmap.LoadFromStream(ms);
  finally
    ms.Free;
  end;
end;

Answer 4

读存取不同格式和不同大小的图片好像有问题哈。如JPG文件如何处理呢？再给代码好吗？谢谢！

Answer 5

自己变通一下吧
挺简单的Uses JPEG;procedure convert_image(btoj:boolean;filesource:string;fileobject:string);
var
  abmp:TBitmap;
  jp:TJPEGimage;
begin
  abmp:=TBitmap.Create;
  jp:=TJPEGimage.Create;  try
    if btoj then  //Bmp to JPEG
    begin
        abmp.LoadFromFile(filesource);
        jp.Assign(abmp);
        jp.SaveToFile(fileobject);
     end else
     begin   //JPEG to BMP
        jp.LoadFromFile(filesource);
        abmp.Assign(jp);
        abmp.SaveToFile(fileobject);
    end;
   finaly
     abmp.FreeImage;
     jp.Free;
   end;
end;

Answer 6

好的！我试试，谢谢！但由原来的原理BMP存储是没问题，但其它压缩格式的JPG，pcx格式则有问题，需要对其它进行文件头的处理，这里需要吗？请问各位？

Answer 7

我用Ado和Bde都试过了，可以存取，但是大小必须小于1M.
我想这应该是SQL Server2000的错，
因为SQL Sever2000中的image自动置为16，更改不了。
各为，有没有其他办法寸取更大的图片？

Answer 8

1M对我来说是够用了，网络传输的话也应限制在1M以下。
但BMP是标准位图，而对压缩或者非标准压缩格式的图片是如何处理的呢？各位，请踢教？