阿
阿蛮
Unregistered / Unconfirmed
GUEST, unregistred user!
在用IntraWeb中,我使用的相对路径,本来还一直是用得很好,相对路径下的图片都能打开
(是点击执行文件运行的),后来在是这样加为一个服务的:
C:/MyNet/MyWeb -install
加为服务后,相对路径却变了,以后在IE中打开http://127.0.0.1:2458后,却是
My HomePage Error
Cannot open file images/s/1.jpg
它现在的相对路径变成什么了?
还有,怎样卸掉这个服务?我在进程管理中想中止这个服务,却被告知不能中止,
这样,我无法修改程序了。以下是我加载图片的代码:
procedure TformMain.IWAppFormCreate(Sender: TObject);
var
i: integer;
begin
L:=5;
T:=5;
for i:=1 to 60 do
begin
With TIWImage.Create(self) do
begin
hint:='images/b/'+IntToStr(i)+'.jpg';
pic:='images/s/'+IntToStr(i)+'.jpg';
Picture.LoadFromFile(pic);
Left:=L;
Top:=T;
OnClick:=Myclick;
L:=L+135;
if Left>550 then
begin
L:=5;
T:=t+104;
end;
end;
end;
end;
(是点击执行文件运行的),后来在是这样加为一个服务的:
C:/MyNet/MyWeb -install
加为服务后,相对路径却变了,以后在IE中打开http://127.0.0.1:2458后,却是
My HomePage Error
Cannot open file images/s/1.jpg
它现在的相对路径变成什么了?
还有,怎样卸掉这个服务?我在进程管理中想中止这个服务,却被告知不能中止,
这样,我无法修改程序了。以下是我加载图片的代码:
procedure TformMain.IWAppFormCreate(Sender: TObject);
var
i: integer;
begin
L:=5;
T:=5;
for i:=1 to 60 do
begin
With TIWImage.Create(self) do
begin
hint:='images/b/'+IntToStr(i)+'.jpg';
pic:='images/s/'+IntToStr(i)+'.jpg';
Picture.LoadFromFile(pic);
Left:=L;
Top:=T;
OnClick:=Myclick;
L:=L+135;
if Left>550 then
begin
L:=5;
T:=t+104;
end;
end;
end;
end;