Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
General fileds
Message
De
29/05/2002 10:39:25
Cetin Basoz
Engineerica Inc.
Izmir, Turquie
 
 
À
29/05/2002 10:31:05
Cetin Basoz
Engineerica Inc.
Izmir, Turquie
Information générale
Forum:
Visual FoxPro
Catégorie:
Base de données, Tables, Vues, Index et syntaxe SQL
Titre:
Divers
Thread ID:
00662410
Message ID:
00662479
Vues:
23
>>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
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform