Changeset 241 for oup/current/Helper


Ignore:
Timestamp:
Jul 18, 2007, 12:27:16 AM (17 years ago)
Author:
alloc
Message:
 
File:
1 edited

Legend:

Unmodified
Added
Removed
  • oup/current/Helper/LevelDB.pas

    r173 r241  
    594594  Query.ExecSQL;
    595595  Query.SQL.Text :=
    596     'CREATE TABLE rawmap  ( id AUTOINC PRIMARY KEY, src_id INTEGER, ' +
    597     'src_link_offset INTEGER, sep BOOLEAN, size INTEGER, ' +
     596    'CREATE TABLE rawmap  ( id AUTOINC PRIMARY KEY, name STRING(32), src_id INTEGER, ' +
     597    'src_link_offset INTEGER, sep BOOLEAN, type STRING(8), size INTEGER, ' +
    598598    'data BLOB BlobCompressionMode 9 BlobBlockSize 1024 BlobCompressionAlgorithm ZLib);';
    599599  //    Query.SQL.Text:='CREATE TABLE rawmap  ( id AUTOINC PRIMARY KEY, src_id INTEGER, src_link_offset INTEGER, size INTEGER, data BLOB BlobCompressionAlgorithm None );';
    600600  Query.ExecSQL;
    601601  Query.SQL.Text := 'CREATE INDEX idsrcid ON rawmap (src_id);';
     602  Query.ExecSQL;
     603  Query.SQL.Text := 'CREATE INDEX idtype ON rawmap (type);';
    602604  Query.ExecSQL;
    603605  Query.SQL.Text :=
     
    667669            mimecoder      := TStringFormat_MIME64.Create;
    668670            Query.SQL.Text :=
    669               'INSERT INTO rawmap (src_id,src_link_offset,sep,size,data) VALUES (' +
     671              'INSERT INTO rawmap (name,src_id,src_link_offset,sep,type,size,data) VALUES (' +
     672              '"' + RawLinks[i].Name + '", ' +
    670673              IntToStr(FileID) + ', ' + IntToStr(RawLinks[i].SrcOffset) + ',' +
    671674              BoolToStr(RawLinks[i].LocSep) + ', ' +
     675              '"' + RawLinks[i].RawType + '", ' +
    672676              IntToStr(RawLinks[i].RawSize) + ', ' +
    673677              'MimeToBin("' + MimeCoder.StrTo(@tempdata[0], RawLinks[i].RawSize) + '") );';
     
    678682          begin
    679683            Query.SQL.Text :=
    680               'INSERT INTO rawmap (src_id,src_link_offset,sep,size) VALUES (' +
     684              'INSERT INTO rawmap (name,src_id,src_link_offset,sep,type,size) VALUES (' +
     685              '"' + RawLinks[i].Name + '", ' +
    681686              IntToStr(FileID) + ', ' + IntToStr(RawLinks[i].SrcOffset) + ', ' +
    682               BoolToStr(RawLinks[i].LocSep) + ', 0);';
     687              BoolToStr(RawLinks[i].LocSep) + ', ' +
     688              '"' + RawLinks[i].RawType + '", ' +
     689              '0);';
    683690            Query.ExecSQL;
    684691          end;
Note: See TracChangeset for help on using the changeset viewer.