file names

[[email protected]]

Hi All,

Could you have a look at the code below. I want to get the File name & path and save them in Image_name & full_address

The code works fine for bmp and jpg but I cannot get it to work for tiff extension

any ideas

Andy

DIM tbl AS P
DIM vImageFilename AS C
DIM vOld_Path AS C
DIM vPath AS C
DIM vFiles AS P
Dim Shared vExt as C
Dim prod as c

tbl = table.open("webproducts2")

vOld_Path = dir_get()
vPath = UI_GET_PATH ("Enter Path","c: ", "c:\\")


If vPath = ""
	End
End if

DIR_put(vPath)

vFiles = filefind.first(vExt)


while .not. vFiles.eof()
    vImageFilename =vFiles.name()
	tbl.enter_begin()
	myimage = rtrim(vImageFilename,".tiff")
		tbl.image_name = myimage
		tbl.Full_address = vpath+vImageFilename
		'tbl.Picture = image_filename_encode(vpath+vImageFilename)
	tbl.enter_end(.t.)
	
	xbasic_wait_for_idle()	 

	StatusBar.robot()	
vFiles.next()
end while

DIR_put(vOld_Path)

tbl.close()

Browse1.fetch_first()
Browse1.refresh()
end

[Stan Mathews]

Re: file names

The code works fine for bmp and jpg but I cannot get it to work for tiff extension

any ideas

Andy

Tiff isn't a supported file type if you are putting this in an image file reference field.

Image File Reference
No
V5
A field that links to and displays an image (.jpg or .bmp) without storing it in the table.

[[email protected]]

Re: file names

Hi Stan,

I am just trying to write it to a Char field.

I then want to use sys_open to open the file in a tiff viewer

Andy

[Stan Mathews]

Re: file names

myimage = rtrim(vImageFilename,".tiff")

Change this line to

myimage = file.filename_parse(vImageFilename,"N")

[[email protected]]

Re: file names

Hi Stan,

I have tried that still works with jpg but not with tiff

Andy

[Tom Cone Jr]

Re: file names

Andy, suggest you dump the entire list of filenames to the trace window to see how the TIFF files are being listed. The filename extensions may be .TIF not .TIFF

[Stan Mathews]

Re: file names

As Tom suggests, something else is wrong. Suggestion works fine in the interactive.

test1 = "some image name.jpg"
? file.filename_parse(test1,"N")
= "some image name"


test2 = "some other name.tif"
? file.filename_parse(test2,"N")
= "some other name"

test3 = "last image name.tiff"
? file.filename_parse(test3,"N")
= "last image name"

[Tom Cone Jr]

Re: file names

What value does var->vext have when filefind.first() is called?

[[email protected]]

Re: file names

Hi All,

Found one problem windows was telling me "tiff image" so i put *.tiff when it should have been *.tif

anyway problem now is it will write first record then fail, still ok with jpg,

Tom, var->vext is the type of file i am looking for

I have attached a copy could all have a look

I have included some images both tif and jpgs

Andy

[Tom Cone Jr]

Re: file names

Andy, nothing in the "Run" script sets the value of vExt. What am I missing?

Ok. I see it now. You're running the script in the current session and vExt is getting its value from the radio button.

[[email protected]]

Re: file names

Hi Tom,

Its getting the value from the radio button try inserting tifs when jpgs is selected.

check var on the form

Andy

[Tom Cone Jr]

Re: file names

Andy, was this a trick question or are you just testing us?

The images in your TIFFS folder are read only. They're being ignored by Filefind.first() because you're using the default option, telling Alpha Five to retrieve only normal files. Read only files are not normal.

[[email protected]]

Re: file names

Hi Tom,

Sorry I did not see that they were read only, thanks for spotting it its now work great

Again thanks

Andy

[Tom Cone Jr]

Re: file names

The problem became evident when I modified your script to write each filename to the trace window. None were written. This meant the problem was with the path or with how Filefind.first() was being used. Comparing the properties of the image files in the TIFFS folder with those in the JPEG folder led to the solution. I'm glad you got it going.