Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
How to read an image from a GENERAL field
Message
From
11/12/2006 10:33:27
 
 
To
11/12/2006 09:47:13
Cetin Basoz
Engineerica Inc.
Izmir, Turkey
General information
Forum:
Visual FoxPro
Category:
Forms & Form designer
Environment versions
Visual FoxPro:
VFP 8 SP1
OS:
Windows XP SP2
Network:
SAMBA Server
Database:
Visual FoxPro
Miscellaneous
Thread ID:
01176470
Message ID:
01176551
Views:
15
Sorry, I forgot a few additional commands.

I use something like the following to extract RTF content
The start seems to be consistent for RTF file types.


lcFPTFile = Forceext(lcfname, '.fpt')
str1 = Filetostr(lcFPTFile )
liStart = 521 && start for RTF files, may be different for other file types
lcContent = Substr(str1, liStart)



>Ken,
>G is internally M but what would this help for? How would this strip out OLE header?
>Cetin
>
>>You can manually set the field type character in the DBF to be a Memo field
>>For this to work, make sure the first field is the General field
>>
>>Not sure where I found this code, I believe it was here.
>>
>>There may be more intelligent code out there that parses the whole DBF structure for General fields. Anyway, this worked for me.
>>
>>select em_photo from mydb where condition into dbf c:\temp.dbf
>>
>>lnHandle = Fopen(lcfname,12) && open lowlevel to change
>>
>>Fseek(lnHandle,43,0)
>>
>>lctype = FREAD(lnhandle, 1)
>>IF lctype = 'G'
>> Fseek(lnHandle,43,0)
>> Fwrite(lnHandle,'M',1) && Changing General to Memo
>>ELSE
>> ? lctype
>> WAIT 'not gen '
>> endif
>>Fclose(lnHandle)
>>
>>
>>
>>>Hey,
>>>I want to store the snaps(in JPEG Format) of employee to the database.
>>>I use a picture control to show this image on the form.
>>>While saving the snaps I can directly save it to the database using...
>>>
>>>APPEND GENERAL em_photo FROM z:\data\images\ku0001.jpg
>>>
>>>But while retriving the same, I am not able to do the same.
>>>Please suggest me a way out.
>>>Thanks in advance.
Previous
Reply
Map
View

Click here to load this message in the networking platform