如何取得WEB上的路径(100分)

  • 主题发起人 八哥押路
  • 开始时间

八哥押路

Unregistered / Unconfirmed
GUEST, unregistred user!
小第有一事相求,烦请各位高人指点。
问题是这样的:我用DELPHI的INTRAWEB开发数据库应用,将编译后生成的.dll文件放在IIS下,我如何在dataModule的CREATE事件中取得这个路径呢(备注:我用的是ADO进行连接,数据库用的是ACCESS),谢谢
 
W

wind28

Unregistered / Unconfirmed
GUEST, unregistred user!
学习!!
 
F

fphuang

Unregistered / Unconfirmed
GUEST, unregistred user!
说详细些,
 
西

西方狂妄

Unregistered / Unconfirmed
GUEST, unregistred user!
Const
ADOSTR='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%S;Persist Security Info=False;Jet OLEDB:Database Password=????;';
procedure TWebMain.WebModuleCreate(Sender: TObject);
var
dbPath:String;
AppPath:String;
begin
dbPath:=ExtractFilePath(ParamStr(0))+'zlBase.mdb';
AppPath:=ExtractFilePath(ParamStr(0));
ADOBase.Connected:=False;
ADOBase.ConnectionString:=Format(ADOSTR,[dbPath]);
ADOBase.Connected:=True;
ppMain.HTMLFile:=AppPath+'Main.htm';
ppLogin.HTMLFile:=AppPath+'Login.html';
ppAddList.HTMLFile:=AppPath+'addlist.htm';
ppMore.HTMLFile:=AppPath+'List.htm';
ppDetail.HTMLFile:=AppPath+'Detail.htm';
ppEdit.HTMLFile:=AppPath+'editinfo.htm';
end;
动态链接库可以用
Procedure TWebMoudle1.webmoudlecreate(sender:TObject);
var
cbuffer:string[255];
begin
GetModuleFileName(hinstance,@cbuffer,sizeof(cbuffer));
Apppath:=cbuffer;
end;
调用的时候用
ppMain.HtmlFile:=ExctractfilePath(sstr)+'main.htm';
=====================
 
D

data118

Unregistered / Unconfirmed
GUEST, unregistred user!
顶部