Adding picture or images jpg

[CarverRon]

I am trying to add many pictures.
The process takes a long time adding one at a time.
I need to select a picture, but 1 out of a bunch of them.
Now It requires to many clicks to reach the folder and change from bmp to jpg.

Db name is Boxes.dbf
The location is c:\box
Pictures are in c:\box\images

I saw this thread http://msgboard.alphasoftware.com/al...dding+pictures

I tried both of scripts but I got errors:
=================================
This Script 1 : give expected value error

tbl=table.open(A_DB_CURRENT_PATH+"Box.DBF")
path1 = ui_get_path ("Enter Path","", "c:")
list = filefind.get(path1+chr(92)+"*.jpg",35,"N|c|L")
format = "name|creation|size"
dim pp[2000] as p
count = w_count(list,crlf())
' lines=count
trace.writeln(str(count))
pp.initialize_properties(format,list)
dim indx as n
indx = 1
dim a_files[count] as p
for i = 1 to count

f=file.open(path1+pp[i].name,file_ro_shared)
temp = ui_bitmap_load("temp",f.readb(val(pp[i].size)))
f.close()

results = ui_dlg_box(pp[i].name,
%dlg%)
ui_bitmap_drop("temp")
if results = "Next" then
goto nexti
else if results = "Cancel" then
tbl.close()
end
else if results = "Add" then
end if

if count = 0 then
goto allend
else
trace.writeln(path1+pp[i].name+" "+pp[i].creation+" " +pp[i].size)
tbl=table.current(2)
if tbl.mode_get()
========================================================

Script 2 gives : extra character at end of expression error
and refers to line 4

a5_get_jpeg(jpeg1.this)
function a5_get_jpeg as v(obj as p)
result = ui_get_image_filename("")
if result "" "" then
dim data as b
f = file.open(result,FILE_RO_SHARED)
data = f.readb(f.bytes_get())
f.close()
if right(result,4) = ".BMP" then
data = bitmap_to_jpeg(data)
end if
fld = obj.field_get()
tbl = fld.table_get()
if tbl.mode_get() = 0 then

tbl.change_begin()

fld.value_put(data)

tbl.change_end(.t.)

obj.parent.Resynch()
else

fld.value_put(data)

obj.parent.commit()

obj.parent.Resynch()
end if
end if
end function
Similarly, here is the code to insert a Bitmap image.
function a5_get_bitmap as
v(obj as p)
result = ui_get_image_filename("")
if result "" "" then
dim
data as b
f = file.open(result,FILE_RO_SHARED)
data = f.readb(f.bytes_get())
f.close()
if right(result,4) "" ".BMP" then
data = jpeg_to_bitmap(data)
end if
fld = obj.field_get()
tbl = fld.table_get()
if tbl.mode_get() = 0 then
tbl.change_begin()
fld.value_put(data)
tbl.change_end(.t.)
obj.parent.Resynch()
else
fld.value_put(data)
obj.parent.commit()
obj.parent.Resynch()
end if
end if
end function
==================================================

[Stan Mathews]

Re: Adding picture or images jpg

if result "" then

Sometimes the formatting when copying from the board to a script introduces script errors caused by special characters.

Doug's script doesn't seem to be complete.

[CarverRon]

Re: Adding picture or images jpg

Thanks for reseponding.
I did tried to remove the xtra "", but I still get the same error.

[Stan Mathews]

Re: Adding picture or images jpg

Typo in the original, should be

if result = ""

[CarverRon]

Re: Adding picture or images jpg

The Codes above did not work properly and the results was not going to be what I want.

I fount this Thread
http://msgboard.alphasoftware.com/al...ghlight=images

I have followed the instructions and I have a
table called Product
A field called "Picture" an image reference type
A field called "FullpictureFile" Character that has like PICT2237.jpg for data in other words the file name of every picture
Images that are stored in c:\Box\images

Here is the code I am using and I get error Expected Value in line 18

the line 18 is:
imageName = imageFolderName + chr(92) +\evaluate_string(image_filename_template)

The full code is here:

dim t as p
t = table.open("product")
dim fn as c
dim pathName as c
dim image_filename_template as c
dim imageFolderName as c
imageFolderName = "Images"
image_filename_template = "fullpicturefile"
pathName = file.filename_parse(t.filename_get(),"dp")
dim imageName as c
t.fetch_first()
dim totalcount as n
totalcount = t.records_get()
dim count as n = 0
while .not. t.fetch_eof()
count = count +1
statusbar.Set_Text("Updating " + count + " of " + totalcount)
imageName = imageFolderName + chr(92) +\evaluate_string(image_filename_template)
if file.exists(pathName + imageName) then
t.change_begin()
t.Picture = imageName
t.change_end(.t.)
end if
t.fetch_next()
end while
t.close()
ui_msg_box("Done","Updated " + count + " records.")

[Stan Mathews]

Re: Adding picture or images jpg

Remove the backslash.

imageName = imageFolderName + chr(92) +[COLOR="Red"][SIZE="5"]\[/SIZE][/COLOR]evaluate_string(image_filename_template)

It was probably intended as a continuation character in the original script. This is legal...

imageName = imageFolderName + chr(92) +\
evaluate_string(image_filename_template)

[CarverRon]

Re: Adding picture or images jpg

Thanks, removing the slash removed the error.
The script runs and it says that updated 6, but the images are not added.
I must be missing some syntax.
I am attaching the DB

[Stan Mathews]

Re: Adding picture or images jpg

Try it this way.

dim t as p
t = table.open("product")
dim fn as c
dim pathName as c
dim image_filename_template as c
dim imageFolderName as c
imageFolderName = "Images"
image_filename_template = "fullpicturefile"
pathName = file.filename_parse(t.filename_get(),"dp")
dim imageName as c
t.fetch_first()
dim totalcount as n
totalcount = t.records_get()
dim count as n = 0
WHILE .not. t.fetch_eof()
	imageName = imageFolderName + chr(92) + eval("t."+image_filename_template) 
	IF file.exists(pathName + imageName) THEN
		count = count +1
		statusbar.Set_Text("Updating " + count + " of " + totalcount)
		t.change_begin()
		t.Picture = image_filename_encode(imageName)
		t.change_end(.t.)
	END IF
	t.fetch_next()
END WHILE
t.close()
ui_msg_box("Done","Updated " + count + " records.")

[CarverRon]

Re: Adding picture or images jpg

PERFECT !!!!!!
I did correct the spacing in
END WHILE t.close()
I hope others will will be able to use this code.
Thanks

[CarverRon]

Re: Adding picture or images jpg

All pictures are in the product table and they seem to work.
I just try to create a web site using that DB and all inventory is there. The pictures are not displayed.
It shows the proper subdirectory and the picture no.
If I got back and add manually the same picture, Only those will appear in the web site.
In other words only manual update is recognized.

Is there a way to globally refresh, update or reindex the pictures ?

I should bring this to the Server section.