ole相对路径问题(50分)

J

js916

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-02-06

• #1

我用一个按钮使ole可以显示ppt文件
但是源码移动后，路径就不对了，不知道怎么办，请大家帮忙。

procedure TForm1.Button2Click(Sender: TObject);
begin
OleContainer1.CreateLinkToFile('F:/1/d2z.ppt',False);
end;

 

L

listhano

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-02-06

• #2

使用相对路径！

 

F

formality

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-02-06

• #3

你可以用把d2z.ppt这个PowerPoint演示文稿移动到你程序目录下（如一个空文件夹名字叫1）
然后用path:=ExtractFilePath(Application.ExeName)+'/1/d2z.ppt'。这就是一个相对路
径。
现在无论你怎么移动你的源码路径都不会出现问题了。

 

J

js916

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-02-06

• #4

我是这么写的，可还是出错，本人比较笨，还请大侠看看
procedure TForm1.Button2Click(Sender: TObject);
var path: String;
begin
path:='ExtractFilePath(Application.ExeName)+/1/d2z.ppt'
OleContainer1.CreateLinkToFile(path,False);
end;

 

F

formality

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-02-06

• #5

来自：js916, 时间：2006-2-6 16:36:21, ID：3345546
我是这么写的，可还是出错，本人比较笨，还请大侠看看
procedure TForm1.Button2Click(Sender: TObject);
var path: String;
begin
path:='ExtractFilePath(Application.ExeName)+/1/d2z.ppt' //此处ExtractFilePath(Application.ExeName)是一个代表路径的表达式，你再加上引号就变成字符串了。。。你看我上面的例子看清楚点啊。照抄也会做....真不知道改说什么了。
OleContainer1.CreateLinkToFile(path,False);
end;

注意还要把演示文稿移动到你程序目录下
比如你的程序的目录为：F:/My_Program/
那么你在此路径下新建一个文件夹（比如叫：1），把演示文稿放到1中去。
这样说明白不？
如果还有问题请加QQ78069704，解决了问题拿分来吧！

 

J

js916

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-02-06

• #6

呵呵，我这个人笨吗，谁不会范错呢，嘿嘿
问题解决我分都给你,我不会食言的
可是现在还是不对啊
procedure TForm1.Button2Click(Sender: TObject);
var path: String;
begin
path:=ExtractFilePath(Application.ExeName)+'/dzja/d2z.ppt'
OleContainer1.CreateLinkToFile('path',False);
end;

运行到OleContainer1.CreateLinkToFile('path',False);
报错missing operator or semecolon
怎么回事？
急啊！！！

 

F

formality

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-02-06

• #7

来自：js916, 时间：2006-2-6 17:05:01, ID：3345585
呵呵，我这个人笨吗，谁不会范错呢，嘿嘿
问题解决我分都给你,我不会食言的
可是现在还是不对啊
procedure TForm1.Button2Click(Sender: TObject);
var path: String;
begin
path:=ExtractFilePath(Application.ExeName)+'/dzja/d2z.ppt'//这里没有‘;’你...我不说了。
OleContainer1.CreateLinkToFile('path',False);
end;

运行到OleContainer1.CreateLinkToFile('path',False);
报错missing operator or semecolon
怎么回事？
急啊！！！

 

J

js916

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-02-07

• #8

呵呵，大侠批评的对啊，本人才学delphi不几天，语法还不太熟悉，见笑乐，问题已经解决，多谢乐，加分

 

J

js916

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-02-07

• #9

接受答案了.