在Delphi怎么将图片存入SQL Server 2000中

Question

在Delphi怎么将图片存入SQL Server 2000中

Answer 1

最好用流来操作或  看看这个
procedure TForm1.Button2Click(Sender: TObject);
begin
    if OpenPictureDialog1.execute then
        image1.picture.loadfromfile(OpenPictureDialog1.filename);
end;procedure TForm1.Button1Click(Sender: TObject);
var
    bmp: TBitmap;
begin
    bmp:=TBitmap.Create;
    bmp.Assign(Image1.Picture.Bitmap);
    table1.Append;
    table1.fieldbyname('name').asstring:=edit1.text;
    table1.fieldbyname('telephone').asstring:=edit2.text;
    table1.fieldbyname('address').asstring:=(edit3.text);
    table1.fieldbyname('zip').asstring:=(edit4.text);
    table1.fields[4].assign(bmp);
    table1.post;
    bmp.free;
end;

Answer 2

另varMS: TMemoryStream;beginMS:=TMemoryStream.create;Image1.Picture.Bitmap.SaveToStream(MS);MS.Position:=0;Table1.Append;//在数据库中添加一条记录TBlobField(Table1.FieldbyName('image')).LoadFromStream(MS);Table1.Post;//将所作的更新写入数据库end;

Answer 3

var 
  MyJPEG : TJPEGImage;
  MS: TMemoryStream;
begin
  openpicturedialog1.Execute;
  if openpicturedialog1.FileName<>'' then
  begin
    image.Picture.LoadFromFile(openpicturedialog1.FileName);
    openpicturedialog1.FileName:='';
    MyJPEG := TJPEGImage.Create;
    try
      with MyJPEG do
      begin
        Assign(Image.Picture.Graphic);
        MS:=TMemoryStream.create;
        SaveToStream(MS);
        MS.Position:=0;
        adotable1.Append;
        TBlobField(adotable1.FieldbyName('photo')).LoadFromStream(MS);
        adotable1.Post;
        messagebox(getactivewindow(),'图像保存完毕！','保存',mb_ok);
        image.Picture.CleanupInstance;
      end;
    finally
      MyJPEG.Free;
    end;
  end;

Answer 4

要是要使SQL里面能有图片又有文字，就像有些试题系统一样一点试题编号就出再题目内容，内容中既有图片又有文字
那在D7怎么插入呢？