剪贴板的问题

Question

我如何将剪切板中的图像(比如ALT+PRINT获得的界面)存入到SQL 2000 中的image类型的字段中

Answer 1

var
  bp: tbitmap;
  fs: tmemorystream;
  s: string;
begin
  bp := tbitmap.create;
  fs := tmemorystream.create;
  bp.Assign(clipboard);  //剪贴版中没有内容会报错
  bp.SaveToStream(fs);
  setlength(s, fs.size);
  fs.position:=0;
  fs.readbuffer(pointer(s)^, fs.size);
  tblobfield(你的字段).loadfromstream(fs);
end;