用delphi写的动态库，在delphi中调用结果正常，但在word（vba）中调用结果不正确，请大家来看看，是哪里写得不对！(100分)

dirk · 2003-12-20

帮别人忙，随便写个合成图片的小程序（代码在后面）： function LoadBJ(PicName: PChar): boolean; stdcall; 导入背景图 function LoadQJ(PicName: PChar;X,Y:integer): boolean; stdcall; 导入前景图，指定其显示在背景的位置 function LoadText(Text,FontName: PChar;X,Y:integer;FontColor:integer=0;FontSize:integer=9;   FontBold:boolean=false;FontItalic:boolean=false;FontUnderline:boolean=false): boolean; stdcall; 在背景上输出文字，指定位置和字体 function SavePic(NewPicName: PChar): boolean; stdcall; 保存合成图片 然后输出这几个函数 exports     LoadBJ,     LoadQJ,     LoadText,     SavePic; 在delphi中图片、文字完全可以合成，产生新的图片文件，但是在word中调用，只能把背景图保存出来，但前景图、文字却不能画到背景图上去，以下是word中的代码： Option Explicit Private Declare Function LoadBJ Lib "e:/SMG.dll" (ByVal PicName As String) As Boolean Private Declare Function LoadQJ Lib "e:/SMG.dll" (ByVal PicName As String, X, Y As Integer) As Boolean Private Declare Function LoadText Lib "e:/SMG.dll" (ByRef Text As String, ByVal FontName As String, X, Y As Integer, Optional FontColor As Integer = 0, Optional FontSize As Integer = 9, Optional FontBold As Boolean = False,Optional FontItalic As Boolean = False, Optional FontUnderline As Boolean = False) As Boolean Private Declare Function SavePic Lib "e:/SMG.dll" (ByVal NewPicName As String) As Boolean Private Sub CommandButton1_Click()     Call LoadBJ("e:/5.bmp")     Call LoadQJ("E:/6.bmp", 100, 100)     Call LoadText("嘿嘿嘿！123", "", 200, 200, 125, 18, True)     Call SavePic("e:/dass.bmp") End Sub 在word中调用，.Canvas.Draw(X ,Y ,img_wz.Picture.Graphic );这句话根本就没有用，换成bitblt也不行，也不报错，但图像就是不输出到指定的场景上，我真是晕了，为什么会这样？后来我尝试了另一种方式，在dll中添加一个form，然后在form上放image，把form显示出来，一样的代码，在form上的一个button上执行，到是能把图像画到指定的场景上，这到底是为什么？ delphi做出来的标准动态库到底是不是真正的标准动态库？那为什么在其他的语言中调用会出现和delphi中调用运行的结果不同呢？ 以下是delphi代码： unit Lib; interface uses     SysUtils, Windows, Classes, ExtCtrls, Graphics, StdCtrls ; function LoadBJ(PicName: PChar): boolean; stdcall; function LoadQJ(PicName: PChar;X,Y:integer): boolean; stdcall; function LoadText(Text,FontName: PChar;X,Y:integer;FontColor:integer=0;FontSize:integer=9;   FontBold:boolean=false;FontItalic:boolean=false;FontUnderline:boolean=false): boolean; stdcall; function SavePic(NewPicName: PChar): boolean; stdcall; implementation var     img_bj: TImage;     img_wz: TImage;     img_qj: TImage;     Lbl: TLabel; function LoadBJ(PicName: PChar): boolean; stdcall; begin     img_bj.Free ;     img_bj:=TImage.Create(nil);     img_bj.AutoSize :=true;     img_bj.Picture.LoadFromFile(PicName);     Result :=true; end; function LoadQJ(PicName: PChar;X,Y:integer): boolean; stdcall; begin     img_qj.Free ;     img_qj:= TImage.Create(nil);     img_qj.AutoSize :=true;     img_qj.Picture.LoadFromFile(PicName);     img_bj.Canvas.Draw(X ,Y ,img_qj.Picture.Graphic );     Result :=true; end; function LoadText(Text,FontName: PChar;X,Y:integer;FontColor:integer=0;FontSize:integer=9;   FontBold:boolean=false;FontItalic:boolean=false;FontUnderline:boolean=false): boolean; stdcall; begin     Lbl.Font.Name :=FontName;     Lbl.Font.Size :=FontSize;     Lbl.Font.Color :=FontColor;     Lbl.Font.Style :=[];     if FontBold then Lbl.Font.Style :=Lbl.Font.Style +[fsBold];     if FontItalic then Lbl.Font.Style :=Lbl.Font.Style +[fsItalic];     if FontUnderline then Lbl.Font.Style :=Lbl.Font.Style +[fsUnderline];     Lbl.Caption :=Text;     img_wz.Width :=lbl.Width ;     img_wz.Height :=lbl.Height ;     img_wz.Canvas.Font.Name :=FontName;     img_wz.Canvas.Font.Size :=FontSize;     img_wz.Canvas.Font.Color :=FontColor;     img_wz.Canvas.Font.Style :=[];     if FontBold then img_wz.Canvas.Font.Style :=img_wz.Canvas.Font.Style +[fsBold];     if FontItalic then img_wz.Canvas.Font.Style :=img_wz.Canvas.Font.Style +[fsItalic];     if FontUnderline then img_wz.Canvas.Font.Style :=img_wz.Canvas.Font.Style +[fsUnderline];     img_wz.Canvas.TextOut(0,0,Text);     img_bj.Canvas.Draw(X ,Y ,img_wz.Picture.Graphic );     Result :=true; end; function SavePic(NewPicName: PChar): boolean; stdcall; begin     img_bj.Picture.SaveToFile(NewPicName);     Result :=true; end; initialization     img_bj:=TImage.Create(nil);     img_bj.AutoSize :=true;     img_qj:= TImage.Create(nil);     img_qj.AutoSize :=true;     img_wz:=TImage.Create(nil);     img_wz.AutoSize :=false;     img_wz.Transparent :=true;     Lbl:= TLabel.Create(nil);     Lbl.AutoSize :=true;     Lbl.Font.Name :='宋体';     Lbl.Font.Size :=9;     Lbl.Font.Color :=0;     Lbl.Font.Style :=[]; finalization     img_bj.Free ;     img_qj.Free ;     img_wz.Free ;     Lbl.Free ; end.

fu_qi_ming · 2003-12-21

顶先

快乐起点 · 2003-12-31

没遇见过！帮你顶下先！

Shenxinaz · 2003-12-31

我想，这些画图操作，必须有实际的Canvas才能生效，不然会有问题，也就是说，需要显式的执行。

xusong168 · 2004-02-05

Canvas实际上就是封装的windows系统的DC，所以要先正确地创建。

xusong168 · 2004-02-05

用TBitmap取代TImage即可！

dirk · 2004-02-05

Canvas是肯定创建了的，TBitmap也试过了，不行。 请看清楚我问题的关键：用delphi写的动态库，在delphi中调用结果正常，但在word（vba）中调用结果不正确，代码有哪里写得不正确？

boyface · 2004-02-05

也有点疑问. 学习一下!

xusong168 · 2004-02-06

最终源代码贴出来!

dirk · 2004-02-06

上面贴的就是啊，编译成一个dll，在delphi中调用，没问题，合成的图像可以生成，然后照上面的word中的代码写到word中，就不行。

xusong168 · 2004-02-06

用TBitmap取代TImage即可！  (你到底试过没有？)

xusong168 · 2004-02-06

为了避免参数传递的问题，请先试试没有参数的函数调用。就是在dll中导出 没有参数的函数，在VBA中调用看看。

hardware007 · 2004-02-06

也有点疑问. 学习一下!

dirk · 2004-02-06

xusong168，你试过TBitmap了吗？这里帖出来的代码是最后试验的代码，之前，TBitmap就试过了。

xusong168 · 2004-02-07

TBitmap必然可以，因为它是在内存中的Canvas上绘图 TImage不行，因为它需要一个Windows DC，也就是说，它必须放在一个Form上才有效， 在dll中的Form没正常显示出来的情况下，就不行了。

firstrose · 2004-02-09

你是用什么方式的？stdcall？ word里好象是ole啊。要用和word兼容的参数传递方式！

dirk · 2004-02-10

？？？上次的答复没了，dfw丢数据了。 >xusong168：TImage不行，因为它需要一个Windows DC，也就是说，它必须放在一个Form上才有效，在dll中的Form没正常显示出来的情况下，就不行了。 这个说法不对，我在delphi中调用上面的代码，绝对没有问题，但在Word中就不行，所以，再说一边，我的问题是： [red]用delphi写的动态库，在delphi中调用结果正常，但在word（vba）中调用结果不正确，代码有哪里写得不正确？ delphi做出来的标准动态库到底是不是真正的标准动态库？那为什么在其他的语言中调用会出现和delphi中调用运行的结果不同呢？[/red] 不是说不能在dll中的TImage中画图。 firstrose，是stdcall调用， >word里好象是ole啊。要用和word兼容的参数传递方式！ 我是在Word中的VBA代码中调用，和VB是一样的， Private Declare Function LoadText Lib "e:/SMG.dll" (ByRef Text As String, ByVal FontName As String, X, Y As Integer, Optional FontColor As Integer = 0, Optional FontSize As Integer = 9, Optional FontBold As Boolean = False,Optional FontItalic As Boolean = False, Optional FontUnderline As Boolean = False) As Boolean 是标准的VB申明动态库的语句，和VB中调用系统API的语句是一样的，为了和Windows标准兼容，字符串用的也是pchar。

cnzhw007 · 2004-02-10

向楼主学习！

xusong168 · 2004-02-10

为了避免参数传递的问题，请先试试没有参数的函数调用。就是在dll中导出 没有参数的函数，在VBA中调用看看。   TBitmap必然可以，因为它是在内存中的Canvas上绘图 TImage不行，因为它需要一个Windows DC，也就是说，它必须放在一个Form上才有效， 在dll中的Form没正常显示出来的情况下，就不行了。   你到底试过没有？

xusong168 · 2004-02-10

delphi做出来的标准动态库到底是不是真正的标准动态库？那为什么在其他的语言中调用会出现和delphi中调用运行的结果不同呢？ 是真正的标准动态库！不过要传递参数就有问题，对于pchar这种参数，必须要在 delphi dll project中加入shmem这个单元的引用！

用delphi写的动态库，在delphi中调用结果正常，但在word（vba）中调用结果不正确，请大家来看看，是哪里写得不对！(100分)

dirk

Unregistered / Unconfirmed

fu_qi_ming

Unregistered / Unconfirmed

快乐起点

Unregistered / Unconfirmed

Shenxinaz

Unregistered / Unconfirmed

xusong168

Unregistered / Unconfirmed

xusong168

Unregistered / Unconfirmed

dirk

Unregistered / Unconfirmed

boyface

Unregistered / Unconfirmed

xusong168

Unregistered / Unconfirmed

dirk

Unregistered / Unconfirmed

xusong168

Unregistered / Unconfirmed

xusong168

Unregistered / Unconfirmed

hardware007

Unregistered / Unconfirmed

dirk

Unregistered / Unconfirmed

xusong168

Unregistered / Unconfirmed

firstrose

Unregistered / Unconfirmed

dirk

Unregistered / Unconfirmed

cnzhw007

Unregistered / Unconfirmed

xusong168

Unregistered / Unconfirmed

xusong168

Unregistered / Unconfirmed

Similar threads