Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
General fileds
Message
From
29/05/2002 10:39:25
Cetin Basoz
Engineerica Inc.
Izmir, Turkey
 
 
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:
00662479
Views:
24
>>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

Also note that this might need to be rectified to use 579 instead to strip the OLE part. You should try, it has been long I didn't use/test this.
Cetin
Çetin Basöz

The way to Go
Flutter - For mobile, web and desktop.
World's most advanced open source relational database.
.Net for foxheads - Blog (main)
FoxSharp - Blog (mirror)
Welcome to FoxyClasses

LinqPad - C#,VB,F#,SQL,eSQL ... scratchpad
Previous
Reply
Map
View

Click here to load this message in the networking platform