Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
General fileds
Message
 
À
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:
00662473
Vues:
26
>>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
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform