Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
General fileds
Message
 
To
29/05/2002 10:31:05
Cetin Basoz
Engineerica Inc.
Izmir, Turkey
General information
Forum:
Visual FoxPro
Category:
Databases,Tables, Views, Indexing and SQL syntax
Title:
Miscellaneous
Thread ID:
00662410
Message ID:
00662473
Views:
27
>>Can you send me a sample ??
>>
>>Silvio
>
>This is my modified version not using 579 but 0x204 querying file size from there :
>
>lcTemp = sys(2015)
>lcOutFileName = 'blahblah.ext'
>copy fields myGeneral to (lcTemp) next 1
>
>Hin = fopen(lcTemp+".fpt")
>hout=fcreate(lcOutFileName)
>lnSize=fseek(hin,0,2)
>fseek(hin,0x204,0) && Move file pointer to offset 0x204 where file size is stored
>lnSize = 0
>for ix=4 to 1 step -1
>	lnSize=lnSize+asc(fread(hin,1))*256^(ix-1)
>endfor
>fwrite(hout,fread(hin,lnSize),lnSize)
>=fclose(hin) and fclose(hout)
>erase (lcTemp+'.*')
>
Cetin,

I think it's worth noting here that this works only with files embedded in the General field. With linked fields, there's a reference to simply the filename.
George

Ubi caritas et amor, deus ibi est
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform