Getting around the 2 gig limit

[Dave]

Hi,

It's ok now, I just wrote some external commands that use the 64 Bit  
Interface to do it. I reckon it would have been quicker to just  
change the code to use 64 bits in the Read/Write etc. routines then  
come up with the solution below!

All the Best
Dave

On 30 May 2007, at 05:22, J. Landman Gay wrote:

> I actually got the following in my mailbox last week but was out of  
> town for the weekend and I'm just catching up now. This is from  
> Mark Waddingham:
>
>> I haven't had a chance to check this but something like the
> > following might work (as a workaround):
>> on readFrom64 tFile, tFilePosition, tCount, @rData
>>     local tResult
>>     if tFilePosition <= 2147483647 then
>>         read from file tFile at tFilePosition for tCount
>>         put the result into tResult
>>         put it into rData
>>     else
>>         seek to 2147483647 in file tFile
>>         seek rel tFilePosition - 2147483647 in file tFile
>>         read from file tFile for tCount
>>         put the result into tResult
>>         put it into rData
>>     end if
>>     return tResult
>> end readFrom64
>> (mutatis mutandem for writeTo64)