我想请教：怎样在delphi把数据库的多张图片插入word文档中

Question

for i := 0 to  DBM.ADOQueryImages.RecordCount-1 do
           begin
             DBImageStomach.Picture.LoadFromFile(strImagePath);             DBImageStomach.CopyToClipboard;
             MyWordDoc.Sentences.Last.Paste;
             MyWordDoc.Range.InsertAfter(strTemp +  #13);
             DBM.ADOQueryImages.Next;
           end;  我以上的部分程序段不能将 strImagePath路径下的多张图片插入文档中，只显示一张图片，请问错在哪?

Answer 1

for i := 0 to  DBM.ADOQueryImages.RecordCount-1 do
           begin
             //strImagePath应重新定位为新的文件吧???             DBImageStomach.Picture.LoadFromFile(strImagePath);             DBImageStomach.CopyToClipboard;
             MyWordDoc.Sentences.Last.Paste;
             MyWordDoc.Range.InsertAfter(strTemp +  #13);
             DBM.ADOQueryImages.Next;           end;

Answer 2

对不起，其中  strImagePath := g_ApplicationPath + 'Images\' + DBM.ADOQueryImages.fieldbyname('I_IMAGE').AsString + '.JPG'
代表数据库中图片的存储路径，是多张图片的存储记录，不要重新定位，
请还帮我找找，多谢了!!!

Answer 3

var
    V:variant;
.........
    V:=createoleobject('word.application');    //创建WORD工程
    v.documents.add;                           //加载文档
    v.Selection.TypeParagraph;                 //加入回车
    v.Selection.TypeParagraph;
   
    V.SELECTION.InlineShapes.AddPicture('文件名');//图片插入完成