Talk About Network

Google


Register and Login
Nick
Password
Register create new account Sign up is FREE and you can post replies, new topics, bookmark posts and more!
Recover lost password


Programming > Delphi > Comix FlexFile ...
Latest [ Topics | Posts ] Archive Post A New Topic Post a Reply
<< Topic < Post Post 1 of 2 Topic 1040 of 1135
Post > Topic >>

Comix FlexFile II

by "Roy R. Markussen" <roy@[EMAIL PROTECTED] > Jan 17, 2006 at 03:56 PM

Hi,

Do anyone know how FlexFile II (.dbv) is working? Found some info
searching
Google, but very little useful... I also try to figure out how the 6 byte
pointer in the DBF-field references the record in the FlexFile...

What i have found is that the count-pointer is supposted to be 4 bytes at
0x54 and the offset and length is 4 bytes each at 0x84+8*Index. Is this
really correct? Can't get it to work... Using this code I get crazy
offsets
and lengths of the records.

procedure ReadRecord(iIndex: Integer);
var F: TFileStream; P: PChar; iCount, iOffset, iLength: Integer;
begin
  F:=TFileStream.Create('mytab.dbv');
  F.Seek($54,soFromBeginning);
  F.Read(iCount,4); // Read the integer record count
  if iIndex <= iCount then
  begin
    F.Seek($84+8*iIndex); // Go to record of data
    F.Read(iOffset,4); // Read offset of  record
    F.Read(iLength,4); // Read length of record
    F.Seek(iOffset,soFromBeginning); // Seek data of first record
    GetMem(P,iLength+1);
    F.Read(P^,iLength); // Read into buffer
    ShowMessage(string(P));
    FreeMem(P);
  end else
  ShowMessage('Record not found');
  F.Free;
end;

Any help, please?

Best regards,

Roy
 




 2 Posts in Topic:
Comix FlexFile II
"Roy R. Markussen&qu  2006-01-17 15:56:20 
Re: Comix FlexFile II
Crazy <Crazy@[EMAIL PR  2006-01-18 10:09:40 

Post A Reply:
  Go here to Signup

AddThis Feed Button


About - Advertising - Contact - Frequently Asked Questions - Privacy Policy - Terms of Use - Signup

Contact
tan12V112 Wed Oct 15 12:41:57 CDT 2008.