剪贴版中的图像怎样保存到数据库中(包括access,sql,oracle)请个各位高手多多指教呀

解决方案 »

  1.   

    procedure TForm1.BitBtn1Click(Sender: TObject);
    var
      mypicture:tpicture;begin
      mypicture:=tpicture.Create;
      try
        mypicture.LoadFromClipboardFormat(cf_BitMap,ClipBoard.GetAsHandle(cf_Bitmap),0);
      //mypicture存入数据库
      finally
        mypicture.Free;
      end;
    end;
      

  2.   

    //存入数据库
        adoquery1.Append;
        adoquery1.FieldByName('a').AsString:='a';
        adoquery1.FieldByName('b').Assign(mypicture);
        showmessage('ok!')