先建个ActiveForm,然后在创建一个Property接口就自动生成一个输入和一个输出接口.做个插件?? ( 积分: 50 )

M

myveremy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-23

• #1

先建个ActiveForm,然后在创建一个Property接口就自动生成一个输入和一个输出接口.
做个插件，然后用javascript来掉用.
这个插件要怎么写啊！谁有例子啊！

 

M

myveremy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-23

• #2

先建个ActiveForm,然后在创建一个Property接口就自动生成一个输入和一个输出接口.
做个插件，然后用javascript来掉用.
这个插件要怎么写啊！谁有例子啊！

 

M

myveremy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-23

• #3

或Delphi怎样一个ActiveX(取得硬盘序列号，用户填写的个别信息)，
然后用asp来掉用它,并显示出来。

 

M

myveremy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-23

• #4

是不是今天大家都放假了！！！！！！！！！！！！！！！

 

F

fei_1

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-23

• #5

可以用ActiveX做得到，不過我不知道怎樣取得硬盤信息，所以只有幫你頂一下。[!]
用戶填寫的信息可以通過腳本傳遞給ActiveX的，也可以將ActiveX取得的信息傳遞給網頁的（也是通過腳本）。

 

M

myveremy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-23

• #6

to fei_1:ActiveX取得的信息傳遞給網頁的（也是通過腳本）。

但这个ActiveX要怎么写啊！至于取硬盘序列号，大富翁上有很多。

 

F

fei_1

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-23

• #7

在ActiveX里面加入屬性，在網頁中用腳本傳遞給ActiveX就可以了。

 

M

myveremy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-23

• #8

to fei_1:
具体要怎么做啊！没做过。你是否可以根据这个函数做个ActiveX,然后根据脚本在网页中显示呢（关键是把硬盘序列号传给网页）？谢谢！
下面是大富翁上的帖子，我试过可通过（不过要在网上下个DiskID32）。
function TForm1.GetSerialNumber:string

type mychar = array[0..31] of char;
type TDiskID32 = Function(var DiskModel,DiskID:mychar):BOOL;stdcall;
var
Handle : THandle;
DiskID32 : TFarproc;
model,id : mychar;
yn:boolean;
begin
yn := false;
Handle := LoadLibrary('DiskID32.dll');
if Handle <> 0 then
try
DiskID32 := GetProcAddress(Handle,'DiskID32');
if DiskID32 <> nil then yn := TDiskID32(DiskID32)(model,id);
finally
FreeLibrary(Handle);
end;
result:=model+' '+id;
end;

 

F

fei_1

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-23

• #9

新建好了ActiveX后，View/Type library,
選中第一項再加入新方法取名GetSerialNumber再在右邊的第二項里選返回值為widestring類型，刷新后在你的PAS中就會出現定義好的GetSerialNumber方法，你再將上面的代碼加入進這個方法里面。現發布出來，這樣你的ActiveX就完成了。

在網頁上的腳本中先定義嚮指定的ActiveX。然后調用此ActiveX的GetSerialNumber方法，它的返回值就可以傳遞到網里面了。這樣不就OK？

 

M

myveremy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-23

• #10

to fei_1:
可能是我太笨了，它老是提示：
[Error] RLINK32: Error opening file &quot;C:/Program Files/Borland/Delphi6/Projects/ActiveFormProj1.TLB&quot;
你能否说再详细一点，谢谢。

 

1

13708782004

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-23

• #11

兄弟你可以和我联系！我做了一个非常复杂的！

jsp+active .ocx --->winsock <-------------------> winsoskc server<--->oracle

双向通讯！asp 和 ocx 是双向通信！
但估计我们是要收费：500 rmb

 

M

myveremy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-25

• #12

接受答案了.