Delphi中stdcall类型的函数能否成为一个类的Published member？(100分)

Z

zw84611

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-25

• #1

好久不用delphi了，今天师兄要我用Delphi给他写个小程序。我自找麻烦，为此写了一个
控件，遇到一个问题
Delphi中stdcall类型的函数能否成为一个类的Published member？
该函数实际上是一个dll的回调函数，必须用stdcall声明，我想把它作为控件的一个事件，
可以吗？

 

P

powerlee

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-25

• #2

可以

 

Y

yoking

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-28

• #3

不可以
Published member 必须采用register即缺省得那种
建议你写一个函数将其重新封装一下

 

B

beta

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-19

• #4

自己写一个新的 Published member，在里面调用那个 stdcall 的函数：）

 

张

张无忌

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-19

• #5

你看看DELPHI的ACTIVEX控件，里面是如何处理那些STDCALL函数就知道如何处理了

 

老

老人家

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-19

• #6

我也认为不可以

 

Y

yeath

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-29

• #7

好像可以的吧！
type
TEasyDcomServer = class(TRemoteDataModule, IEasyDcomServer)
DSP_A: TDataSetProvider;
private
CallBackTemp:OleVariant;
{ Private declarations }
protected
class procedure UpdateRegistry(Register: Boolean
const ClassID, ProgID: string)
override;
procedure Connect(vClient: OleVariant)
safecall;
published
procedure SendMessage(const sMsg: WideString)
safecall;
{ Public declarations }
end;
我这样编译通过的，测试了一下，运行也没问题。

 

Y

yeath

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-29

• #8

错了，代码是这样的。
type
TEasyDcomServer = class(TRemoteDataModule, IEasyDcomServer)
DSP_A: TDataSetProvider;
private
CallBackTemp:OleVariant;
{ Private declarations }
protected
class procedure UpdateRegistry(Register: Boolean
const ClassID, ProgID: string)
override;
procedure Connect(vClient: OleVariant)
safecall;
published
procedure SendMessage(const sMsg: WideString)
stdcall;
{ Public declarations }
end;

 

X

xeen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-29

• #9

不行的.Published成员方法必须为Register调用方式。

 

Z

zw84611

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-04

• #10

多人接受答案了。