Extract images from dbf memo field

Question

 

I need to extract images from dbf memo field.  I have 3 files (*.dbf; *.cdx and *.fpt) in the *.dbf file I have a memo field where are images (in the associated file *.fpt) and I need to extract these images to a physical file.

Thanks

Answer 1

Hi,

You can do this with

 

STRTOFILE(YourMemoFieldName,"JPGFileName.JPG")

Answer 2

 

select yourTable

scan

lcFileName = forcext( "Image"  + transform(recno()), "bmp")

=strtoFile(yourTable.memoField, lcFileName)

 

endscan

 

Answer 3

You already received info on extrating from Memo fields. I assume you are not using General fields. You should not use them. The best place to store is probably in a BLOB field.

Example:

Create Table images (nID i,bImage blob)
local liBlob

* select a JPG:
liBlob = FileToStr(GetPict())

* we can save it in a table (even SQL Server supports it)
Insert into images (nID,bImage) values (1,liBlob)

...

* later, we retrieve the BLOB and save it back to a JPG:
StrToFile(liBlob, "c:\temp\myImage.jpg")

Answer 4

Could you make a more detailed snippet, because I have same difficult with FoxPro.

My dbf have de following structure :

field1 – type (string);   length (1)

field2 – type (string); length (16)

field3 – type (string);  length(2)

field4 – type (memo); length (10)  

I want to extract the images stored in memo field to physical file with following format : field2.jpg

Thanks