请问在DELPHI里能直接给asp里的session赋值吗？(100分)

小

小天

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-19

• #21

当然不能，你应该这样：
procedure Tdelpasp.getsession;
begin
session.Value['key1']:=Form2.edit1.text;
end;

ASP里直接
<% Set DelphiASPObj = Server.CreateObject("Project1.delpasp")
DelphiASPObj.getsession
%>

 

D

davidlon

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-19

• #22

小天:
procedure Tdelpasp.getsession;
begin
session.Value['key1']:=Form2.edit1.text;
end;

Form2是另一个工程的表单，在asp组件里不能调用啊

 

小

小天

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-19

• #23

为什么是另外一个工程？放一个工程里去丫

 

D

davidlon

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-19

• #24

小天：
我是这样的，一个主应用程序，前面先是一个登陆界面，然后登陆成功后就调用一个
主菜单，下面是个浏览器，这是一个exe文件，难道在这里New-ActiveX-Active Server object
我一加ActiveX，原先的exe文件就跑掉了，如果只加Active Server object，这依然是
exe文件，没法注册，Asp文件也没法调用里面的getsession。
只好另外建一个New-ActiveX-Active Server object，可是这里的getsession能
调用原先主应用程序的Form2.edit1.text吗？两个不是同一个应用程序丫。

 

阿

阿朱

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-19

• #25

我对ASP网页之类毫无经验，帮不了你的忙。

 

H

hryyx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-20

• #26

EXE文件照样用，Active Server Object则只要注册一下就行了

 

B

bnulaw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-20

• #27

这是我的vb程序，你把它改为delphi吧，既然用的是相同的activex，应该是一样的。
如果确定头痛VB，再告诉我帮你改一下

dim WithEvents ie As SHDocVw.InternetExplorer
Dim ho As MSHTML.HTMLDocument

Private Sub Command1_Click()
Set ie = New SHDocVw.InternetExplorer
ie.Visible = True
tempstr = App.Path & "/login3.htm"
ie.navigate (tempstr)
End Sub

在ie的documentcomplete事件里编程（即login3.htm打开后）：
Set ho = ie.document
o_username = ho.getElementsByName("username")
o_username.Value = Text1.Text
o_username = ho.getElementsByName("password")
o_username.Value = Text2.Text
Call ho.fm.submit

 

D

davidlon

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-20

• #28

bnulaw:
谢谢了，倒是看懂了，可是WebBrowser1.Document没有getElementsByName这个方法啊，
是用什么调用("username")呢？

 

M

maming

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-20

• #29

学点.

 

D

davidlon

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-20

• #30

哈哈，我终于搞定了，太开心了，
分分了，谢谢小天，bnulaw，zhongs和各位

 

P

p2p

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-18

• #31

davidlon能不能把例子发给我看一下，我也是要做这样的功能，非常急！