Multiple image import

[Kevin G. Timberlake]

Is there a way to will import 100's or even 1000's of images into an image field easily without having to import each one individually?

[Stan Mathews]

Re: Multiple image import

Not understood. One each of thousands of images into thousands of records? Jpeg field or image file reference field? How would you know which image went with which record?

[Kevin G. Timberlake]

Re: Multiple image import

The images are jpeg, the form has 2 fields
1) Image
2) ID Number (auto increment)
I want to take a folder with tons of jpeg's in it and import them all into an image database. Each record is an image holder.

[NoeticCC]

Re: Multiple image import

You can only have one image per record but this post by Richard explains it well: http://msgboard.alphasoftware.com/al...ghlight=images

[Stan Mathews]

Re: Multiple image import

The message below deals with placing a button on a form which would get a named jpeg and store it in a jpeg field shown on the form. It shouldn't be too hard to adapt to process a whole table.

Msg ID: 14790
Subject: RE: Adding Jpeg to DB via button
Author: Selwyn Rabins
Date: 12-17-2002 9:55 PM
File:


Don't know exactly what you want to do, or how comfortable you are with Xbasic, but I will show you here what code gets executed when you right click on a Bitmap or Jpeg field and select the command to import an image into the field. Seeing this code will allow you to write any kind of customized routine you want to import images into Bitmap or Jpeg fields.

You might also want to consider using Image File Reference fields. These fields only store the image filename (not the image itself). The benefit of this is that the database remains small. It is very easy using Xbasic to set the image file reference field to the filename of the image field.



This is the code to insert a jpeg image. You pass in a pointer to the image field on the form. For example, if you have a jpeg field on the form and the Object name of the field on the form (see Name property in the field properties dialog) is jpeg1 then you would call this function with this command:

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

[Kevin G. Timberlake]

Re: Multiple image import

What I am doing is making a database to "store" the images. I realize the database will end up being very large with time, but it allows the exchange of images. This is so I and the developer I am working with can easily share our images rather than a zip which would mean we would have to explore each image. This database would allow the searching of an image much easier. So Image Reference would not work.

Thanks Stan, I will mess with this code and see what I can make. I am not real good with xbasic, but am learning....slowly..LOL

[Stan Mathews]

Re: Multiple image import

dim img as C
dim tbl as P
list = filefind.get("[COLOR="red"]c:\temp\covers\[/COLOR]*.jpg",FILE_FIND_NORMAL,"PN")'use your jpeg directory
tbl = table.open("[COLOR="red"]test[/COLOR]")'use your table name
for i = 1 to w_count(list,crlf())
	tbl.enter_begin(.t.)
	tbl.[COLOR="Red"]Pic[/COLOR].memo_read_from_file(word(list,i,crlf()), MEMO_APPEND)'use your jpeg field name
	tbl.enter_end(.t.)
next

tbl.close()

[Kevin G. Timberlake]

Re: Multiple image import

Thanks Stan. I did this:

dim img as C
dim tbl as P
list = filefind.get("[COLOR="Red"]I:\IconPack\ScrapIcons\PNG\*.png[/COLOR]",FILE_FIND_NORMAL,"PN")'use your jpeg directory
tbl = table.open("[COLOR="Red"]images[/COLOR]")'use your table name
for i = 1 to w_count(list,crlf())
	tbl.enter_begin(.t.)
	tbl.[COLOR="Red"]Name[/COLOR].memo_read_from_file(word(list,i,crlf()), MEMO_APPEND)'use your jpeg field name
	tbl.enter_end(.t.)
next

tbl.close()

And although it creates the records, it does not "insert the images" into the jpeg1 field or the image file name into the Name field. What am I missing?

[Kevin G. Timberlake]

Re: Multiple image import

Duh, "Name" should be jpeg1...

[Stan Mathews]

Re: Multiple image import

1) Image
2) ID Number (auto increment)

I don't see a name field. If you want to store the name as well in a field named Name......

dim img as C
dim tbl as P
list = filefind.get("I:\IconPack\ScrapIcons\PNG\*.png",FILE_FIND_NORMAL,"PN")
names = filefind.get("I:\IconPack\ScrapIcons\PNG\*.png",FILE_FIND_NORMAL,"N")
tbl = table.open("images")
for i = 1 to w_count(list,crlf())
	tbl.enter_begin(.t.)
        tbl.Name = word(names,i,crlf())
	tbl.Jpeg1.memo_read_from_file(word(list,i,crlf()), MEMO_APPEND)
	tbl.enter_end(.t.)
next

tbl.close()

[bmerrison]

Re: Multiple image import

Hi there everybody
I am new to alpha 5 V9 [and V10] and am struggling with the x basic ideas in this post, so can anyone help to explain in a very simple way please?

I have a number of related tables with an Image File Reference field inserted in my V9 application. I have a total of some 15,000 individual images to import the IFR for so I can construct reports based on those tables which will show the correct image for each entry. The images are all named "Image_Partnumber" where "Partnumber" is the relevant image for each part in the table i.e V1000 has the image named "Image_V1000", V1001 has "Image_V1001" etc. I have tried to adapt the x basic as per the link to the post by Selwyn Rabins further down in this thread but keep getting an error message for line 46 column 1 which is
"imageName = Images + chr(92) +\". Please can somebody explain where I am going wrong and / or a simple way to import these image links. I am also developing a web application that requires these images to show on a web grid, would the same or similar coding apply or do I need pointing elsewhere in the forum please.

[Stan Mathews]

Re: Multiple image import

I can't find the code from Selwyn that you reference. Can you post the whole code for your script?

[NoeticCC]

Re: Multiple image import

I can't find the code from Selwyn that you reference. Can you post the whole code for your script?

Is this the one? http://msgboard.alphasoftware.com/al...ghlight=images

It was Richard who posted it in another thread

[Stan Mathews]

Re: Multiple image import

The backslash at the end of that line is a continuation character. the whole line is

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

The backslash was likely used to make the code visible in a normal editing window. Copying and pasting from this message board seems to add a blank line. You can use what I posted above or just remove the blank line.

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

[bmerrison]

Re: Multiple image import

So sorry [and extremely stupid!!!] of me to ask for help and then not even get the reference right!!!. It is of course RICHARD RABINS not Selwyn who's script I was struggling with, which is correctly identified by NoeticCC. Thanks ever so much for the amazingly prompt reply chaps, I will try that code line and let you know how I fare.

Bryan