图片保存(50分)

A

aspxsky

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-30

• #1

Image1.Picture.SaveToFile('c:/'+dm.CDS_GB_01.fieldbyname('lsdq').AsString +'/'+dm.CDS_GB_01.fieldbyname('gbkh').asstring+'.jpg');
dm.CDS_GB_01.FieldValues['photo']:=('c:/'+dm.CDS_GB_01.fieldbyname('lsdq').AsString +'/'+dm.CDS_GB_01.fieldbyname('gbkh').AsString+'.jpg');

提示错误
cannot create file c:/ 下面的目录 不能新建
用什么方法可以自已建目录名？？

 

K

kenny.hu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-30

• #2

use filectrl;

if not directoryexists(edit5.Text) then
if not CreateDir(edit5.Text) then showmessage(' 无法创建文件夹 !');

 

A

aspxsky

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-30

• #3

这样可以吗？

 

A

aspxsky

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-30

• #4

帮帮忙

 

A

aspxsky

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-30

• #5

大家帮帮忙

 

Y

yue_shan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-30

• #6

看看文件名是不是完整的，若目录不存在用kenny.hu方法应该行

 

A

aspxsky

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-30

• #7

是目录不存在

但我目录要跟字段名同步 这个怎么做？

 

A

aspxsky

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-31

• #8

这个怎么写 谢谢

 

Y

yue_shan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-31

• #9

var
Dir: string;
begin
Dir := 'c:/'+dm.CDS_GB_01.fieldbyname('lsdq').AsString;
if not directoryexists(dir) then
createdir(dir);
end;

 

G

goeasy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-31

• #10

路径应该用两个“/”来转义

Image1.Picture.SaveToFile('c://'+dm.CDS_GB_01.fieldbyname('lsdq').AsString +'//'+dm.CDS_GB_01.fieldbyname('gbkh').asstring+'.jpg');
dm.CDS_GB_01.FieldValues['photo']:=('c://'+dm.CDS_GB_01.fieldbyname('lsdq').AsString +'/'+dm.CDS_GB_01.fieldbyname('gbkh').AsString+'.jpg');

 

A

aspxsky

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-31

• #11

用两个“/”来转义

还是不能自动创建目录

 

A

aspxsky

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-31

• #12

用两个“/”来转义

还是不能自动创建目录

 

A

aspxsky

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-31

• #13

帮帮帮帮

 

A

aspxsky

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-01

• #14

用两个“/”来转义

还是不能自动创建目录

 

A

aspxsky

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-04

• #15

用两个“/”来转义

还是不能自动创建目录