请高手过来看看。(100分)

kenmen · 2001-01-15

1)我对api不大清楚，其实它是怎么回事？delphi里的api与vc++里的有啥不同？ 2）这是最主要的，我想写个网络计费软件，请高手们给个建议。。。    应调用那个api呢？还是有其他方法？请高手说详细点。。。

5415 · 2001-01-15

现在还写网络计费软件？我CAO！

kenmen · 2001-01-15

我只是用来学习用的。。。。

郭玉梁 · 2001-01-15

delphi的api和vc的没啥不同，都是调用系统函数。delphi中的函数声明在windows.pas 你一用到api或相关资源，就用windows.pas 我见过别人写的记费软件，不正常退出还记费，太差了。

笑傲江湖 · 2001-01-15

你一用到api或相关资源，就用windows.pas ----WIN SHELL API 也是吗?

Chenlili · 2001-01-15

1、api就是application Programming Interface 应用编程接口，就是M$对操作系统的操作 全部提供了接口函数给你，这样你就不用去管硬件底层是什么样了，为编程带来了方便 不过也很惨，程序员除了背的这些函数以外其他什么也不知道。 2、网络记费嘛，是看你基于时间还是基于流量；

教父 · 2001-01-15

其实对你来说，API和DELPHI的内部函数没有什么不同，你就直接用就行了，别管它是什么东西 了，等以后慢慢就懂了。 网络计费我没有研究

kenmen · 2001-01-15

1)那在vc++里用的api也可在delphi里用了吗？ 2）我听说可调用一个api来测出机是否联网了。。。请高手指点。。。

教父 · 2001-01-15

API不是VC或是DELPHI的API，而是Windows的API，不管在哪里都可以用的。 书上说注册表的HKEY_LOCAL_MACHINE/System/CurrentControSet/Services/RemoteAcces分支 下，当计算机示连接时，RemoteConnection的值为00 00 00 00，否则为01 00 00 00

教父 · 2001-01-15

API不是VC或是DELPHI的API，而是Windows的API，不管在哪里都可以用的。 书上说注册表的HKEY_LOCAL_MACHINE/System/CurrentControSet/Services/RemoteAcces分支 下，当计算机示连接时，RemoteConnection的值为00 00 00 00，否则为01 00 00 00

kenmen · 2001-01-16

to 教父:   这个办法我试过。。。在win9x下可以， 但在win2k下不可。。。 我是想用api实现的。。。有方法吗？

pqx · 2001-01-17

1。在vc++里用的api也可在delphi里用,当编译不行时把相应的声明单元uses一下就行了。 比如你要调用SHELLEXECUTE函数，delphi默认的uses如下： uses   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs; 没有包含shellapi声明单元,所以你要加入才能使用： uses   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, shellapi;   当你无法确认某函数是在哪个单元里面声明的话，可到delphi的Source目录下查找包含 函数名的pas单元，其名字的前部就是。同时并不是所有的api函数delphi都有声明， 所以有些还得自己做，可参看帮助及delphi自带的声明。     2。可用icmp.dll中的IcmpSendEcho测试(ping)来测出机是否联网. icmp.dll的函数要自己声明。delphi没提供

kenmen · 2001-01-19

有其他的函数吗？

kenmen · 2001-01-19

多谢pqx的指教。。。 但我对icmp.dll的使用不熟。。。 能再说说吗？

pqx · 2001-01-19

unit ping; interface uses   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,   StdCtrls, winsock; type   TForm1 = class(TForm)     Button1: TButton;     ip: TEdit;     procedure Button1Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end;   ip_option_information = record     ttl: char;     tos: char;     flags: char;     optionssize: char;     optionsdata: DWORD;   end;   icmp_echo_reply = record     address: u_long;     status: u_long;     roundtriphome: u_long;     datasize: integer;     reserved: integer;     datapointer: u_long;     options: ip_option_information;     data: array[0..250] of char;   end; function IcmpCreateFile()

WORD; stdcall; external 'icmp.dll'; function IcmpCloseHandle(IcmpHandle

WORD)

WORD; stdcall; external 'icmp.dll'; function IcmpSendEcho(IcmpHandle, DestinationAddress: DWORD; requestData:         string; requestSize: integer; requestOption: DWORD; var replyBuffer:         icmp_echo_reply; replySize, timeout: DWORD)

WORD; stdcall; external 'icmp.dll'; var   Form1: TForm1; implementation {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject); var   NetAddress: u_long;   hFile,ret: dword;   msg: string;   preturn: icmp_echo_reply; begin   NetAddress := inet_addr(pchar(ip.text));   hFile:=IcmpCreateFile() ;   IF hFile = 0 THEN  exit;   msg := 'fdsfkj';   ret:=IcmpSendEcho(hFile,NetAddress,msg,Length(msg),0,preturn,282,200);   IcmpCloseHandle(hfile);   if ret > 0 then     showmessage('ok')   else     showmessage('fail'); end; end.

kenmen · 2001-01-20

等我试试.......

kenmen · 2001-01-30

不好意思来晚了。上段时间我不能上网，耽搁了。。。 to

qx  我试过你的方法，但到   ‘var     Form1 : TForm1;‘  这一步时，他说出错了。  ‘Identifier redeclared:'Form1'‘  请问为啥？我刚学不久，不明，请多多指教。 还有，我想问问为啥要用到'winsock'？  hook是啥，有啥用？

房客 · 2001-01-31

to kenmen: Form1 : TForm

kenmen · 2001-01-31

不是TForm1吗？

笑傲江湖 · 2001-02-02

1.你把人家的代码考到FORM2(当然喽,你的可能不叫这个名字)里去了吧. 检查一下其它单元有没有var  Form1: TForm1;这个全局变量.

请高手过来看看。(100分)

kenmen

Unregistered / Unconfirmed

5415

Unregistered / Unconfirmed

kenmen

Unregistered / Unconfirmed

郭玉梁

Unregistered / Unconfirmed

笑傲江湖

Unregistered / Unconfirmed

Chenlili

Unregistered / Unconfirmed

教父

Unregistered / Unconfirmed

kenmen

Unregistered / Unconfirmed

教父

Unregistered / Unconfirmed

教父

Unregistered / Unconfirmed

kenmen

Unregistered / Unconfirmed

pqx

Unregistered / Unconfirmed

kenmen

Unregistered / Unconfirmed

kenmen

Unregistered / Unconfirmed

pqx

Unregistered / Unconfirmed

kenmen

Unregistered / Unconfirmed

kenmen

Unregistered / Unconfirmed

房客

Unregistered / Unconfirmed

kenmen

Unregistered / Unconfirmed

笑傲江湖

Unregistered / Unconfirmed

Similar threads