如何使数据库中的字段保存的只是图片名（如：001.jpg)而不包含有路径（D：/images/001.jpg)(50分)

S

sinahappy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-28

• #1

建有form6 form3
form6是选择图象
procedure TForm6.Button4Click(Sender: TObject);
begin
form3.edit5.text:=filelistbox1.FileName;
form6.Close;
end;
form3是把选取到的图象的图片名保存到picname的字段中:
procedure TForm3.savetodbClick(Sender: TObject);
begin
adotable1.Edit ;
adotable1.FieldByName('picname').asstring:=edit5.text;
adotable1.post ;
end;
请各位高手指教，谢谢！

 

S

suocy5

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-28

• #2

edit5.text:=ExtractFileName(filelistbox1.FileName);

 

S

sinahappy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-28

• #3

谢谢suocy5
按你的语句是把前面的路径去掉了，但当关闭form3窗口后再打开，按"查看图片"boutton3后 image2不能显示出对应的图片，请帮助！
procedure TForm3.Button3Click(Sender: TObject);
begin
image2.Picture.LoadFromFile(dbedit1.text);
end;
其中dbedit1对应的datafield是picname

 

S

sinahappy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-28

• #4

也就是说如何把图片的路径和图片名分成两部分来处理，在查看图片时点boutton3能把图片的路径加载到图片名的前面，用程序语句如何来实现？请各位大侠指教！

 

S

Siva

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-28

• #5

filepathstr := extractfilepath(paramstr(0));
image2.Picture.LoadFromFile(filepathstr + dbedit1.text);

 

S

slack

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-28

• #6

可以如下解决：
imgFilePath := ExtractFilePath(Application.ExeName)+imgFilePath+'/';
image2.picture.LoadFromFile(imgFilePath+dbedit1.text);

 

C

ChineseBoy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-29

• #7

用ExtractFileName(OpenPictureDialog1.FileName);

 

S

sinahappy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-29

• #8

多人接受答案了。