Unsatisfied forward or external declaration: 'TForm1.GetTcpUdpInfo'
我在定义过程GetTcpUdpInfo的时候,编译时出现上面的错误,请问是怎么回事呢? public { Public declarations }
procedure GetTcpUdpInfo; //Get the tcp/udp info定义的过程如下,有省略
procedure TForm1.GetTcpUdpInfo(); //Get the tcp/udp info
var
TcpInfoTable, UdpInfoTable: TTcpInfo;
hTrapEvent: THandle;
hIdentifier, Oid: TAsnObjectIdentifier;
VarBindList: TSnmpVarBindList;
VarBind: TSnmpVarBind;
errorStatus, errorIndex: TAsnInteger32;
currentEntry, newEntry: PTcpInfo;
currentIndex: UINT;
localaddr, localport, remoteaddr,remoteport: string;
begin
Application.ProcessMessages;
if not SnmpExtensionInit(GetTickCount, @hTrapEvent, @hIdentifier) then Exit;
{ TCP connections }
FillChar(Oid, SizeOf(Oid), 0);
FillChar(VarBindList, SizeOf(VarBindList), 0);
FillChar(VarBind, SizeOf(VarBind), 0);
.......
我在定义过程GetTcpUdpInfo的时候,编译时出现上面的错误,请问是怎么回事呢? public { Public declarations }
procedure GetTcpUdpInfo; //Get the tcp/udp info定义的过程如下,有省略
procedure TForm1.GetTcpUdpInfo(); //Get the tcp/udp info
var
TcpInfoTable, UdpInfoTable: TTcpInfo;
hTrapEvent: THandle;
hIdentifier, Oid: TAsnObjectIdentifier;
VarBindList: TSnmpVarBindList;
VarBind: TSnmpVarBind;
errorStatus, errorIndex: TAsnInteger32;
currentEntry, newEntry: PTcpInfo;
currentIndex: UINT;
localaddr, localport, remoteaddr,remoteport: string;
begin
Application.ProcessMessages;
if not SnmpExtensionInit(GetTickCount, @hTrapEvent, @hIdentifier) then Exit;
{ TCP connections }
FillChar(Oid, SizeOf(Oid), 0);
FillChar(VarBindList, SizeOf(VarBindList), 0);
FillChar(VarBind, SizeOf(VarBind), 0);
.......
解决方案 »
- 循环显示"无响应"问题
- 高手请进:在DELPHI下如何实现将中文转换成拼音(如:张学友转换成ZXY)急。。。。。。
- IdTcpClient的一个问题,以前好好的,今天就出问题了,不知道为什么
- 判断是否按了TAB键的函数、方法或语句
- java byte 数组 如何转换成 delphi 的byte (在线等)
- 怎样把DBGrid中的单元格作为文本取出?
- 请问大家。。有谁知道在一个逻辑分区上能建多少个文件夹。。 知道的踊跃回答哦
- idhttp 居然获取不到HttpOnly的cookie?有没有大神知道获取HttpOnly的Cookie的方法
- 高分求助有关Dll文档
- 如何使用TClientDataset中的aggregate
- 急!哪位大哥帮我用MSComm组件编写一段项手机发送短信的代码 谢谢!
- 研究心得----个人最喜欢的Delphi2006的功能.记录类型操作符重载
这些是格式上问题,仔细找一下就出来了。