请问Delphi怎样写代码把图片文件保存到SQL Server2000内呀

Question

字段类型 image sql 7
var
  s : TMemoryStream;
begin
  s := TMemoryStream.Create;
  s.LoadFromFile('C:\temp.dwg');
  s.Position := 0;
  with ADOQuery1 do begin
    Close;
    SQL.Clear;
    SQL.Add('insert into drawdwg (tabno,filedwg) values (:no,:dwg)');
    Parameters.ParamByName('no').Value := Edit1.Text;
    Parameters.ParamByName('dwg').LoadFromStream(s,ftBlob);
    Execsql;
  end;
  s.Free;
  showmessage('save ok!');
end;
和这个类似，为什么不找找以前的帖子？

Answer 1

procedure TCSYInfoForm.Button3Click(Sender: TObject);
var str:Tmemorystream;
i:integer;
begin
if  opendialog1.execute then
   begin
    DSQUERY2.OPEN;
    str:=Tmemorystream.Create;
    str.LoadFromFile(opendialog1.filename);
    //str.LoadFromFile('C:\C.BMP');
    str.Position:=0;
    DSquery2.Append;
    //DSquery2.FieldByName('ZD1').asstring:=inttostr(i);
    Tblobfield(DSquery2.FieldByName('ZD2')).loadfromstream(str);     try
     DSquery2.Post;
     SHOWMESSAGE('SUCCESS!!!!');
     finally
     str.Free;
     end;
   end;
end;