Delphi 網路函數

bestlong

1. unit net;
   
2. 
   
3. interface
   
4. 
   
5. uses
   
6.   sysutils,windows,dialogs,winsock,classes,comobj,wininet;
   
7. 
   
8.   //得到本机的局域网ip地址
   
9.   function getlocalip(var localip:string): boolean;
   
10.   //通过ip返回机器名
    
11.   function getnamebyipaddr(ipaddr: string; var macname: string): boolean ;
    
12.   //获取网络中sqlserver列表
    
13.   function getsqlserverlist(var list: tstringlist): boolean;
    
14.   //获取网络中的所有网络类型
    
15.   function getnetlist(var list: tstringlist): boolean;
    
16.   //获取网络中的工作组
    
17.   function getgrouplist(var list: tstringlist): boolean;
    
18.   //获取工作组中所有计算机
    
19.   function getusers(groupname: string; var list: tstringlist): boolean;
    
20.   //获取网络中的资源
    
21.   function getuserresource(ipaddr: string; var list: tstringlist): boolean;
    
22.   //映射网络驱动器
    
23.   function netaddconnection(netpath: pchar; password: pchar;localpath: pchar): boolean;
    
24.   //检测网络状态
    
25.   function checknet(ipaddr:string): boolean;
    
26.   //检测机器是否登入网络
    
27.   function checkmacattachnet: boolean;
    
28. 
    
29.   //判断ip协议有没有安装 这个函数有问题
    
30.   function isipinstalled : boolean;
    
31.   //检测机器是否上网
    
32.   function internetconnected: boolean;
    
33.   
    
34. implementation
    
35. 
    
36. {=================================================================
    
37. 功 能: 检测机器是否登入网络
    
38. 参 数: 无
    
39. 返回值: 成功: true 失败: false
    
40. 备 注:
    
41. 版 本:
    
42. 1.0 2002/10/03 09:55:00
    
43. =================================================================}
    
44. function checkmacattachnet: boolean;
    
45. begin
    
46.   result := false;
    
47.   if getsystemmetrics(sm_network) <> 0 then
    
48.     result := true;
    
49. end;
    
50. 
    
51. {=================================================================
    
52. 功 能: 返回本机的局域网ip地址
    
53. 参 数: 无
    
54. 返回值: 成功: true, 并填充localip 失败: false
    
55. 备 注:
    
56. 版 本:
    
57. 1.0 2002/10/02 21:05:00
    
58. =================================================================}
    
59. function getlocalip(var localip: string): boolean;
    
60. var
    
61.   hostent: phostent;
    
62.   ip: string;
    
63.   addr: pchar;
    
64.   buffer: array [0..63] of char;
    
65.   ginitdata: twsadata;
    
66. begin
    
67.   result := false;
    
68.   try
    
69.     wsastartup(2, ginitdata);
    
70.     gethostname(buffer, sizeof(buffer));
    
71.     hostent := gethostbyname(buffer);
    
72.     if hostent = nil then exit;
    
73.     addr := hostent^.h_addr_list^;
    
74.     ip := format('%d.%d.%d.%d', [byte(addr [0]),
    
75.     byte (addr [1]), byte (addr [2]), byte (addr [3])]);
    
76.     localip := ip;
    
77.     result := true;
    
78.   finally
    
79.     wsacleanup;
    
80.   end;
    
81. end;
    
82. 
    
83. {=================================================================
    
84. 功 能: 通过ip返回机器名
    
85. 参 数:
    
86. ipaddr: 想要得到名字的ip
    
87. 返回值: 成功: 机器名 失败: ''
    
88. 备 注:
    
89. inet_addr function converts a string containing an internet
    
90. protocol dotted address into an in_addr.
    
91. 版 本:
    
92. 1.0 2002/10/02 22:09:00
    
93. =================================================================}
    
94. function getnamebyipaddr(ipaddr : string;var macname:string): boolean;
    
95. var
    
96.   sockaddrin: tsockaddrin;
    
97.   hostent: phostent;
    
98.   wsadata: twsadata;
    
99. begin
    
100.   result := false;
     
101.   if ipaddr = '' then exit;
     
102.   try
     
103.     wsastartup(2, wsadata);
     
104.     sockaddrin.sin_addr.s_addr := inet_addr(pchar(ipaddr));
     
105.     hostent := gethostbyaddr(@sockaddrin.sin_addr.s_addr, 4, af_inet);
     
106.     if hostent <> nil then
     
107.     macname := strpas(hostent^.h_name);
     
108.     result := true;
     
109.   finally
     
110.     wsacleanup;
     
111.   end;
     
112. end;
     
113. 
     
114. {=================================================================
     
115. 功 能: 返回网络中sqlserver列表
     
116. 参 数:
     
117. list: 需要填充的list
     
118. 返回值: 成功: true,并填充list 失败 false
     
119. 备 注:
     
120. 版 本:
     
121. 1.0 2002/10/02 22:44:00
     
122. =================================================================}
     
123. function getsqlserverlist(var list: tstringlist): boolean;
     
124. var
     
125.   i: integer;
     
126.   sretvalue: string;
     
127.   sqlserver: variant;
     
128.   serverlist: variant;
     
129. begin
     
130.   result := false;
     
131.   list.clear;
     
132.   try
     
133.     sqlserver := createoleobject('sqldmo.application');
     
134.     serverlist := sqlserver.listavailablesqlservers;
     
135.     for i := 1 to serverlist.count do
     
136.     list.add (serverlist.item(i));
     
137.     result := true;
     
138.   finally
     
139.     sqlserver := null;
     
140.     serverlist := null;
     
141.   end;
     
142. end;
     
143. 
     
144. {=================================================================
     
145. 功 能: 判断ip协议有没有安装
     
146. 参 数: 无
     
147. 返回值: 成功: true 失败: false;
     
148. 备 注: 该函数还有问题
     
149. 版 本:
     
150. 1.0 2002/10/02 21:05:00
     
151. =================================================================}
     
152. function isipinstalled : boolean;
     
153. var
     
154.   wsdata: twsadata;
     
155.   protoent: pprotoent;
     
156. begin
     
157.   result := true;
     
158.   try
     
159.     if wsastartup(2,wsdata) = 0 then
     
160.     begin
     
161.     protoent := getprotobyname('ip');
     
162.     if protoent = nil then
     
163.     result := false
     
164.     end;
     
165.   finally
     
166.     wsacleanup;
     
167.   end;
     
168. end;
     
169. 
     
170. {=================================================================
     
171. 功 能: 返回网络中的共享资源
     
172. 参 数:
     
173. ipaddr: 机器ip
     
174. list: 需要填充的list
     
175. 返回值: 成功: true,并填充list 失败: false;
     
176. 备 注:
     
177. wnetopenenum function starts an enumeration of network
     
178. resources or existing connections.
     
179. wnetenumresource function continues a network-resource
     
180. enumeration started by the wnetopenenum function.
     
181. 版 本:
     
182. 1.0 2002/10/03 07:30:00
     
183. =================================================================}
     
184. function getuserresource(ipaddr: string; var list: tstringlist): boolean;
     
185. type
     
186.   tnetresourcearray = ^tnetresource;//网络类型的数组
     
187. var
     
188.   i: integer;
     
189.   buf: pointer;
     
190.   temp: tnetresourcearray;
     
191.   lphenum: thandle;
     
192.   netresource: tnetresource;
     
193.   count,bufsize,res: dword;
     
194. begin
     
195.   result := false;
     
196.   list.clear;
     
197.   if copy(ipaddr,0,2) <> '\\' then
     
198.   ipaddr := '\\'+ipaddr; //填充ip地址信息
     
199.   fillchar(netresource, sizeof(netresource), 0);//初始化网络层次信息
     
200.   netresource.lpremotename := @ipaddr[1];//指定计算机名称
     
201.   //获取指定计算机的网络资源句柄
     
202.   res := wnetopenenum( resource_globalnet, resourcetype_any,
     
203.   resourceusage_connectable, @netresource,lphenum);
     
204.   if res <> no_error then exit;//执行失败
     
205.   while true do//列举指定工作组的网络资源
     
206.   begin
     
207.     count := $ffffffff;//不限资源数目
     
208.     bufsize := 8192;//缓冲区大小设置为8k
     
209.     getmem(buf, bufsize);//申请内存，用于获取工作组信息
     
210.     //获取指定计算机的网络资源名称
     
211.     res := wnetenumresource(lphenum, count, pointer(buf), bufsize);
     
212.     if res = error_no_more_items then break;//资源列举完毕
     
213.     if (res <> no_error) then exit;//执行失败
     
214.     temp := tnetresourcearray(buf);
     
215.     for i := 0 to count - 1 do
     
216.     begin
     
217.       //获取指定计算机中的共享资源名称，+2表示删除"\\"，
     
218.       //如\\192.168.0.1 => 192.168.0.1
     
219.       list.add(temp^.lpremotename + 2);
     
220.       inc(temp);
     
221.     end;
     
222.   end;
     
223.   res := wnetcloseenum(lphenum);//关闭一次列举
     
224.   if res <> no_error then
     
225.     exit;//执行失败
     
226.   result := true;
     
227.   freemem(buf);
     
228. end;
     
229. 
     
230. {=================================================================
     
231. 功 能: 返回网络中的工作组
     
232. 参 数:
     
233. list: 需要填充的list
     
234. 返回值: 成功: true,并填充list 失败: false;
     
235. 备 注:
     
236. 版 本:
     
237. 1.0 2002/10/03 08:00:00
     
238. =================================================================}
     
239. function getgrouplist( var list : tstringlist ) : boolean;
     
240. type
     
241.   tnetresourcearray = ^tnetresource;//网络类型的数组
     
242. var
     
243.   netresource: tnetresource;
     
244.   buf: pointer;
     
245.   count,bufsize,res: dword;
     
246.   lphenum: thandle;
     
247.   p: tnetresourcearray;
     
248.   i, j: smallint;
     
249.   networktypelist: tlist;
     
250. begin
     
251.   result := false;
     
252.   networktypelist := tlist.create;
     
253.   list.clear;
     
254.   //获取整个网络中的文件资源的句柄，lphenum为返回名柄
     
255.   res := wnetopenenum( resource_globalnet, resourcetype_disk,
     
256.   resourceusage_container, nil,lphenum);
     
257.   if res <> no_error then exit;//raise exception(res);//执行失败
     
258.   //获取整个网络中的网络类型信息
     
259.   count := $ffffffff;//不限资源数目
     
260.   bufsize := 8192;//缓冲区大小设置为8k
     
261.   getmem(buf, bufsize);//申请内存，用于获取工作组信息
     
262.   res := wnetenumresource(lphenum, count, pointer(buf), bufsize);
     
263.   //资源列举完毕 //执行失败
     
264.   if ( res = error_no_more_items ) or (res <> no_error ) then exit;
     
265.   p := tnetresourcearray(buf);
     
266.   for i := 0 to count - 1 do//记录各个网络类型的信息
     
267.   begin
     
268.     networktypelist.add(p);
     
269.     inc(p);
     
270.   end;
     
271.   res := wnetcloseenum(lphenum);//关闭一次列举
     
272.   if res <> no_error then exit;
     
273.   for j := 0 to networktypelist.count-1 do //列出各个网络类型中的所有工作组名称
     
274.   begin//列出一个网络类型中的所有工作组名称
     
275.     netresource := tnetresource(networktypelist.items[j]^);//网络类型信息
     
276.     //获取某个网络类型的文件资源的句柄，netresource为网络类型信息，lphenum为返回名柄
     
277.     res := wnetopenenum(resource_globalnet, resourcetype_disk,
     
278.     resourceusage_container, @netresource,lphenum);
     
279.     if res <> no_error then break;//执行失败
     
280.     while true do//列举一个网络类型的所有工作组的信息
     
281.     begin
     
282.       count := $ffffffff;//不限资源数目
     
283.       bufsize := 8192;//缓冲区大小设置为8k
     
284.       getmem(buf, bufsize);//申请内存，用于获取工作组信息
     
285.       //获取一个网络类型的文件资源信息，
     
286.       res := wnetenumresource(lphenum, count, pointer(buf), bufsize);
     
287.       //资源列举完毕 //执行失败
     
288.       if ( res = error_no_more_items ) or (res <> no_error) then break;
     
289.       p := tnetresourcearray(buf);
     
290.       for i := 0 to count - 1 do//列举各个工作组的信息
     
291.       begin
     
292.         list.add( strpas( p^.lpremotename ));//取得一个工作组的名称
     
293.         inc(p);
     
294.       end;
     
295.     end;
     
296.     res := wnetcloseenum(lphenum);//关闭一次列举
     
297.     if res <> no_error then break;//执行失败
     
298.   end;
     
299.   result := true;
     
300.   freemem(buf);
     
301.   networktypelist.destroy;
     
302. end;
     
303. 
     
304. {=================================================================
     
305. 功 能: 列举工作组中所有的计算机
     
306. 参 数:
     
307. list: 需要填充的list
     
308. 返回值: 成功: true,并填充list 失败: false;
     
309. 备 注:
     
310. 版 本:
     
311. 1.0 2002/10/03 08:00:00
     
312. =================================================================}
     
313. function getusers(groupname: string; var list: tstringlist): boolean;
     
314. type
     
315.   tnetresourcearray = ^tnetresource;//网络类型的数组
     
316. var
     
317.   i: integer;
     
318.   buf: pointer;
     
319.   temp: tnetresourcearray;
     
320.   lphenum: thandle;
     
321.   netresource: tnetresource;
     
322.   count,bufsize,res: dword;
     
323. begin
     
324.   result := false;
     
325.   list.clear;
     
326.   fillchar(netresource, sizeof(netresource), 0);//初始化网络层次信息
     
327.   netresource.lpremotename := @groupname[1];//指定工作组名称
     
328.   netresource.dwdisplaytype := resourcedisplaytype_server;//类型为服务器（工作组）
     
329.   netresource.dwusage := resourceusage_container;
     
330.   netresource.dwscope := resourcetype_disk;//列举文件资源信息
     
331.   //获取指定工作组的网络资源句柄
     
332.   res := wnetopenenum( resource_globalnet, resourcetype_disk,
     
333.   resourceusage_container, @netresource,lphenum);
     
334.   if res <> no_error then exit; //执行失败
     
335.   while true do//列举指定工作组的网络资源
     
336.   begin
     
337.     count := $ffffffff;//不限资源数目
     
338.     bufsize := 8192;//缓冲区大小设置为8k
     
339.     getmem(buf, bufsize);//申请内存，用于获取工作组信息
     
340.     //获取计算机名称
     
341.     res := wnetenumresource(lphenum, count, pointer(buf), bufsize);
     
342.     if res = error_no_more_items then break;//资源列举完毕
     
343.     if (res <> no_error) then exit;//执行失败
     
344.     temp := tnetresourcearray(buf);
     
345.     for i := 0 to count - 1 do//列举工作组的计算机名称
     
346.     begin
     
347.       //获取工作组的计算机名称，+2表示删除"\\"，如\\wangfajun=>wangfajun
     
348.       list.add(temp^.lpremotename + 2);
     
349.       inc(temp);
     
350.     end;
     
351.   end;
     
352.   res := wnetcloseenum(lphenum);//关闭一次列举
     
353.   if res <> no_error then exit;//执行失败
     
354.   result := true;
     
355.   freemem(buf);
     
356. end;
     
357. 
     
358. {=================================================================
     
359. 功 能: 列举所有网络类型
     
360. 参 数:
     
361. list: 需要填充的list
     
362. 返回值: 成功: true,并填充list 失败: false;
     
363. 备 注:
     
364. 版 本:
     
365. 1.0 2002/10/03 08:54:00
     
366. =================================================================}
     
367. function getnetlist(var list: tstringlist): boolean;
     
368. type
     
369.   tnetresourcearray = ^tnetresource;//网络类型的数组
     
370. var
     
371.   p: tnetresourcearray;
     
372.   buf: pointer;
     
373.   i: smallint;
     
374.   lphenum: thandle;
     
375.   netresource: tnetresource;
     
376.   count,bufsize,res: dword;
     
377. begin
     
378.   result := false;
     
379.   list.clear;
     
380.   res := wnetopenenum( resource_globalnet, resourcetype_disk,
     
381.   resourceusage_container, nil,lphenum);
     
382.   if res <> no_error then exit;//执行失败
     
383.   count := $ffffffff;//不限资源数目
     
384.   bufsize := 8192;//缓冲区大小设置为8k
     
385.   getmem(buf, bufsize);//申请内存，用于获取工作组信息
     
386.   res := wnetenumresource(lphenum, count, pointer(buf), bufsize);//获取网络类型信息
     
387.   //资源列举完毕 //执行失败
     
388.   if ( res = error_no_more_items ) or (res <> no_error ) then exit;
     
389.   p := tnetresourcearra
     
390. 
     
391.   {=================================================================
     
392.   功 能: 映射网络驱动器
     
393.   参 数:
     
394.   netpath: 想要映射的网络路径
     
395.   password: 访问密码
     
396.   localpath 本地路径
     
397.   返回值: 成功: true 失败: false;
     
398.   备 注:
     
399.   版 本:
     
400.   1.0 2002/10/03 09:24:00
     
401.   =================================================================}
     
402.   function netaddconnection(netpath: pchar; password: PChar; localpath: pchar): boolean;
     
403.   var
     
404.     res: dword;
     
405.   begin
     
406.     result := false;
     
407.     res := wnetaddconnection(netpath,password,localpath);
     
408.     if res <> no_error then exit;
     
409.     result := true;
     
410.   end;
     
411. 
     
412.   {=================================================================
     
413.   功 能: 检测网络状态
     
414.   参 数:
     
415.   ipaddr: 被测试网络上主机的ip地址或名称，建议使用ip
     
416.   返回值: 成功: true 失败: false;
     
417.   备 注:
     
418.   版 本:
     
419.   1.0 2002/10/03 09:40:00
     
420.   =================================================================}
     
421.   function checknet(ipaddr: string): boolean;
     
422.   type
     
423.   pipoptioninformation = ^tipoptioninformation;
     
424.   tipoptioninformation = packed record
     
425.     ttl: byte; // time to live (used for traceroute)
     
426.     tos: byte; // type of service (usually 0)
     
427.     flags: byte; // ip header flags (usually 0)
     
428.     optionssize: byte; // size of options data (usually 0, max 40)
     
429.     optionsdata: pchar; // options data buffer
     
430.   end;
     
431. 
     
432.   picmpechoreply = ^ticmpechoreply;
     
433.   ticmpechoreply = packed record
     
434.   address: dword; // replying address
     
435.   status: dword; // ip status value (see below)
     
436.   rtt: dword; // round trip time in milliseconds
     
437.   datasize: word; // reply data size
     
438.   reserved: word;
     
439.   data: pointer; // pointer to reply data buffer
     
440.   options: tipoptioninformation; // reply options
     
441. end;
     
442. 
     
443.   ticmpcreatefile = function: thandle; stdcall;
     
444.   ticmpclosehandle = function(icmphandle: thandle): boolean; stdcall;
     
445.   ticmpsendecho = function(
     
446.   icmphandle: thandle;
     
447.   destinationaddress: dword;
     
448.   requestdata: pointer;
     
449.   requestsize: word;
     
450.   requestoptions: pipoptioninformation;
     
451.   replybuffer: pointer;
     
452.   replysize: dword;
     
453.   timeout: dword
     
454. ): dword; stdcall;
     
455. 
     
456. const
     
457. size = 32;
     
458. timeout = 1000;
     
459. var
     
460.   wsadata: twsadata;
     
461.   address: dword; // address of host to contact
     
462.   hostname, hostip: string; // name and dotted ip of host to contact
     
463.   phe: phostent; // hostentry buffer for name lookup
     
464.   buffersize, npkts: integer;
     
465.   preqdata, pdata: pointer;
     
466.   pipe: picmpechoreply; // icmp echo reply buffer
     
467.   ipopt: tipoptioninformation; // ip options for packet to send
     
468. const
     
469.   icmpdll = 'icmp.dll';
     
470. var
     
471.   hicmplib: hmodule;
     
472.   icmpcreatefile : ticmpcreatefile;
     
473.   icmpclosehandle: ticmpclosehandle;
     
474.   icmpsendecho: ticmpsendecho;
     
475.   hicmp: thandle; // handle for the icmp calls
     
476. begin
     
477.   // initialise winsock
     
478.   result := true;
     
479.   if wsastartup(2,wsadata) <> 0 then
     
480.   begin
     
481.     result:=false;
     
482.     halt;
     
483.   end;
     
484.   // register the icmp.dll stuff
     
485.   hicmplib := loadlibrary(icmpdll);
     
486.   if hicmplib <> null then
     
487.   begin
     
488.     @icmpcreatefile  := getprocaddress(hicmplib, 'icmpcreatefile');
     
489.     @icmpclosehandle := getprocaddress(hicmplib, 'icmpclosehandle');
     
490.     @icmpsendecho    := getprocaddress(hicmplib, 'icmpsendecho');
     
491.     if (@icmpcreatefile = nil) or (@icmpclosehandle = nil) or (@icmpsendecho = nil) then
     
492.     begin
     
493.       result:=false;
     
494.       halt;
     
495.     end;
     
496.     hicmp := icmpcreatefile;
     
497.     if hicmp = invalid_handle_value then
     
498.     begin
     
499.       result:=false;
     
500.       halt;
     
501.     end;
     
502.   end else begin
     
503.     result := false;
     
504.     halt;
     
505.   end;
     
506.   // ------------------------------------------------------------
     
507.   address := inet_addr(pchar(ipaddr));
     
508.   if (address = inaddr_none) then
     
509.   begin
     
510.     phe := gethostbyname(pchar(ipaddr));
     
511.     if phe = nil then
     
512.       result := false
     
513.     else begin
     
514.       address := longint(plongint(phe^.h_addr_list^)^);
     
515.       hostname := phe^.h_name;
     
516.       hostip := strpas(inet_ntoa(tinaddr(address)));
     
517.     end;
     
518.   end
     
519.   else begin
     
520.     phe := gethostbyaddr(@address, 4, pf_inet);
     
521.     if phe = nil then result:=false;
     
522.   end;
     
523. 
     
524.   if address = inaddr_none then
     
525.   begin
     
526.     result:=false;
     
527.   end;
     
528.   // get some data buffer space and put something in the packet to send
     
529.   buffersize := sizeof(ticmpechoreply) + size;
     
530.   getmem(preqdata, size);
     
531.   getmem(pdata, size);
     
532.   getmem(pipe, buffersize);
     
533.   fillchar(preqdata^, size, $aa);
     
534.   pipe^.data := pdata;
     
535. 
     
536.   // finally send the packet
     
537.   fillchar(ipopt, sizeof(ipopt), 0);
     
538.   ipopt.ttl := 64;
     
539.   npkts := icmpsendecho(hicmp, address, preqdata, size, @ipopt, pipe, buffersize, timeout);
     
540.   if npkts = 0 then result:=false;
     
541. 
     
542.   // free those buffers
     
543.   freemem(pipe); freemem(pdata); freemem(preqdata);
     
544. 
     
545.   // --------------------------------------------------------------
     
546.   icmpclosehandle(hicmp);
     
547.   freelibrary(hicmplib);
     
548.   // free winsock
     
549.   if wsacleanup <> 0 then result:=false;
     
550. end;
     
551. 
     
552. {=================================================================
     
553. 功 能: 检测计算机是否上网
     
554. 参 数: 无
     
555. 返回值: 成功: true 失败: false;
     
556. 备 注: uses wininet
     
557. 版 本:
     
558. 1.0 2002/10/07 13:33:00
     
559. =================================================================}
     
560. function internetconnected: boolean;
     
561. const
     
562.   // local system uses a modem to connect to the internet.
     
563.   internet_connection_modem = 1;
     
564.   // local system uses a local area network to connect to the internet.
     
565.   internet_connection_lan = 2;
     
566.   // local system uses a proxy server to connect to the internet.
     
567.   internet_connection_proxy = 4;
     
568.   // local system's modem is busy with a non-internet connection.
     
569.   internet_connection_modem_busy = 8;
     
570. var
     
571.   dwconnectiontypes : dword;
     
572. begin
     
573.   dwconnectiontypes := internet_connection_modem+ internet_connection_lan + internet_connection_proxy;
     
574.   result := internetgetconnectedstate(@dwconnectiontypes, 0);
     
575. end;
     
576. end.

複製代碼

1. //错误信息常量
   
2. unit head;
   
3. 
   
4. interface
   
5. 
   
6. const
   
7.   c_err_getlocalip = '获取本地ip失败';
   
8.   c_err_getnamebyipaddr = '获取主机名失败';
   
9.   c_err_getsqlserverlist = '获取sqlserver服务器失败';
   
10.   c_err_getuserresource = '获取共享资失败';
    
11.   c_err_getgrouplist = '获取所有工作组失败';
    
12.   c_err_getgroupusers = '获取工作组中所有计算机失败';
    
13.   c_err_getnetlist = '获取所有网络类型失败';
    
14.   c_err_checknet = '网络不通';
    
15.   c_err_checkattachnet = '未登入网络';
    
16.   c_err_internetconnected ='没有上网';
    
17. 
    
18.   c_txt_checknetsuccess = '网络畅通';
    
19.   c_txt_checkattachnetsuccess = '已登入网络';
    
20.   c_txt_internetconnected ='上网了';
    
21. 
    
22. implementation
    
23. 
    
24. end.

複製代碼