delphi如何处理OLE？

Question

如题，现在用OLE保存WORD时，通过掠过前三个int可以正常读取WORD内容，但是图片不行，求教DELPHI如何处理OLE的，应该在源码中有一个通用的算法的吧，本人不是DELPHI程序员，在此求教啦

Answer 1

Word 操作图片procedure TForm1.Button1Click(Sender: TObject);
var
  WordApp,WordDoc:Variant;
begin
  WordApp := CreateOleObject('Word.application');
  WordDoc := WordApp.Documents.ADD;
  WordApp.visible := True;
  WordDoc.shapes.addpicture('c:\1.jpg');
end;别忘记 uses ComObj;

Answer 2

Word 操作图片procedure TForm1.Button1Click(Sender: TObject);
var
  WordApp,WordDoc:Variant;
begin
  WordApp := CreateOleObject('Word.application');
  WordDoc := WordApp.Documents.ADD;
  WordApp.visible := True;
  WordDoc.shapes.addpicture('c:\1.jpg');
end;别忘记 uses ComObj;

Answer 3

非常感谢~当这里DELPHI将这个OLE存到数据库以后，我需要通过一个算法将其还原成原来的图像，而不是通过DELPHI的函数，可能需要到源代码，不知道能否给出