D
djjsl
Unregistered / Unconfirmed
GUEST, unregistred user!
各位兄台：下面这段程序为什么不对，
procedure TEventIntf.sendtext(const text: WideString);
var enum:ienumconnections;
connectdata:tconnectdata;
fetched:cardinal;
begin
enum:=getenumerator;
if enum<>nil then begin
while enum.next(1,connectdata,@fetched)=S_OK do //就是这
if connectdata.pUnk<>nil then
(connectdata.pUnk as iEventIntfEvents).ontext(text);
end;
end;
error:Undeclared identifier: 'S_OK'
希望各位指正。
procedure TEventIntf.sendtext(const text: WideString);
var enum:ienumconnections;
connectdata:tconnectdata;
fetched:cardinal;
begin
enum:=getenumerator;
if enum<>nil then begin
while enum.next(1,connectdata,@fetched)=S_OK do //就是这
if connectdata.pUnk<>nil then
(connectdata.pUnk as iEventIntfEvents).ontext(text);
end;
end;
error:Undeclared identifier: 'S_OK'
希望各位指正。