调用了一个api函数，说“形参与实参必须一致”，是不是类型不对？(50分)

L

lmsx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-05

• #1

我调用的函数：<br>BOOL GetNumberOfEventLogRecords(<br>&nbsp; &nbsp; HANDLE hEventLog, // handle to event log <br>&nbsp; &nbsp; PDWORD NumberOfRecords // buffer for number of records <br>&nbsp; &nbsp;<br>我的程序：<br>procedure TForm1.Button1Click(Sender: TObject);<br>var hEventlog:Thandle;<br>&nbsp; &nbsp; countdword;<br>begin<br>&nbsp; &nbsp;hEventlog:=openeventlog('kk','SYSTEM//CurrentControlSet//Services//EventLog//system//');<br>&nbsp; &nbsp;showmessage(inttostr(hEventlog));<br>if not GetNumberofEventLogRecords(hEventlog,count) then********<br>&nbsp; &nbsp; &nbsp;showmessage(inttostr(i));<br>end;<br>带*的那以行说<br>[Error] Unit1.pas(34): Types of actual and formal var parameters must be identical<br>程序该怎么写呢？

 

L

lmsx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-05

• #2

api中的pword类型到底和delphi中的什么类型一样？

 

Y

YB_unique

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-05

• #3

该函数来自advapi32.dll，可以获取事件记录中的记录数。<br>countdword指向记录的指针 <br>你用dword(count^)试试！<br>

 

O

only you

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-05

• #4

THE ERORR IS RIGHT！

 

L

lmsx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-05

• #5

YB_unique:<br>可以详细一点么？

 

Y

YB_unique

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-05

• #6

呵呵！楼上的也言之有理！

 

P

Pan Ying

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-05

• #7

我认为将Count设为integer更为合理。<br><br>因为Pdword是指向Dword指针，而Dword在Delphi中是用Integer表示。<br>在Delphi中一般这种函数会被翻为var count:integer。<br><br>不知道说的对不对，看看Delphi对这个函数的申明就可以了么。<br><br>

 

L

lmsx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-05

• #8

改为integer类型以后还是同样的错误

 

B

bluerain

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-06

• #9

既然是out类型,直接用dword好了.<br>procedure TForm1.Button1Click(Sender: TObject);<br>var<br>&nbsp; hEventlog:THandle;<br>&nbsp; count:dword;<br>begin<br>&nbsp; hEventlog:=openeventlog('kk','SYSTEM//CurrentControlSet//Services//EventLog//system//');<br>&nbsp; GetNumberOfEventLogRecords(hEventLog,count);<br>&nbsp; showmessage(inttostr(count));<br>end

 

L

lmsx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-06

• #10

我把类型改为cardinal就对了！<br>呵呵<br>还是一样谢谢大家！

 

L

lmsx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-06

• #11

多人接受答案了。

 

Q

qdlover

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-08

• #12

为什么我用<br>LogHandle:=OpenEventLog(nil,'HKEY_LOCAL_MACHINE/SYSTEM/CurrentControlSet/Services/EventLog/System/');<br>GetNumberOfEventLogRecords(LogHandle,count);<br>showmessage(inttostr(count));<br><br>打出来总是应用程序日志的数量？？？？<br>