我头大啊,一个关于文件复制的问题!!!! ( 积分: 46 )

L

lbt

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-23

• #1

我用OpenPictureDialog1打开图像文件,将其复制到我的软件目录下面,我是这样实现的
var
ypath,mbpath:string;

ypath:=OpenPictureDialog1.FileName;
mbpath:=extractfilepath(application.ExeName);
copyfile(ypath,mbpath,true);
编译时他提示:
incompatible type:'String' and 'Pansichar'
我又将ypath,mbpath定义成Pansichar类型的函数,可是他们又不能获取源路径和目标
路径;

请问各位高手我要怎么办啊;

 

L

lbt

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-23

• #2

我用OpenPictureDialog1打开图像文件,将其复制到我的软件目录下面,我是这样实现的
var
ypath,mbpath:string;

ypath:=OpenPictureDialog1.FileName;
mbpath:=extractfilepath(application.ExeName);
copyfile(ypath,mbpath,true);
编译时他提示:
incompatible type:'String' and 'Pansichar'
我又将ypath,mbpath定义成Pansichar类型的函数,可是他们又不能获取源路径和目标
路径;

请问各位高手我要怎么办啊;

 

来

来如风

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-23

• #3

Pansichar(ypath)就直接转成pansichar型的了

 

Z

ZBJ2001_KF

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-23

• #4

IF SELF.OpenPictureDialog1.Execute THEN
BEGIN
ypath:=OpenPictureDialog1.FileName;
mbpath:=extractfilepath(application.ExeName);
copyfile(PCHAR(ypath),PCHAR(mbpath),true);
END;

 

L

lbt

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-23

• #5

TO:ZBJ2001_KF
怎么复制不过来啊!!!

 

Z

ZBJ2001_KF

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-23

• #6

var
ypath,mbpath:string;
begin
IF SELF.OpenPictureDialog1.Execute THEN
BEGIN
ypath:=OpenPictureDialog1.FileName;


mbpath:=extractfilepath(application.ExeName);
MBPATH:=MBPATH+EXTRACTFILENAME(YPATH);

copyfile(PCHAR(ypath),PCHAR(mbpath),TRUE);
END;
end;
试了半天

 

L

lbt

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-23

• #7

TO:ZBJ2001_KF,
谢谢了,可以了

 

L

lbt

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-23

• #8

接受答案了.

 

L

lbt

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-23

• #9

问你一下,怎么deletefle删不了图片文件啊