Zeoslib Portal

Code: Select all

procedure ImportToChromeZ(const ASourceDatabase, ATargetDatabase: String);
var
  zconn_source, zconn_target: TZConnection;
  zquery_read, zquery_write : TZQuery;
  creation_utc,
  expires_utc,
  last_access_utc           : Int64;
  host_key,
  name,
  value,
  path                      : String;
  secure,
  httponly,
  has_expires,
  persistent,
  priority                  : Integer;
begin
  zconn_source := TZConnection.Create(nil);
  try
    zconn_source.Protocol := 'sqlite-3';
    zconn_source.Database := ASourceDatabase;
    zconn_source.Connect;
    if zconn_source.Connected then
    try
      zconn_target := TZConnection.Create(nil);
      try
        zconn_target.Protocol := 'sqlite-3';
        zconn_target.Database := ATargetDatabase;
        zconn_target.Connect;
        if zconn_target.Connected then
        try
          zquery_read := TZQuery.Create(nil);
          try
            zquery_read.Connection := zconn_source;
            zquery_read.SQL.Text := 'SELECT * FROM cookies';
            zquery_read.Active := TRUE;

            zquery_write := TZQuery.Create(nil);
            try
              zquery_write.Connection := zconn_target;
              zquery_write.SQL.Text := 'INSERT INTO ' +
              'cookies(creation_utc, host_key, name, value, path, expires_utc, secure, httponly, last_access_utc, has_expires, persistent, priority) ' +
              'VALUES(:PCreationUTC, :PHostKey, :PName, :PValue, :PPath, :PExpiresUTC, :PSecure, :PHTTPOnly, :PLastAccessUTC, :PHasExpires, :PPersistent, :PPriority)';

              zconn_target.StartTransaction;
              try
                while not zquery_read.Eof do
                begin
                  creation_utc := zquery_read.FieldByName('creation_utc').AsLargeInt;
                  expires_utc := zquery_read.FieldByName('expires_utc').AsLargeInt;
                  last_access_utc := zquery_read.FieldByName('last_access_utc').AsLargeInt;
                  host_key := zquery_read.FieldByName('host_key').AsString;
                  name := zquery_read.FieldByName('name').AsString;
                  value := zquery_read.FieldByName('value').AsString;
                  path := zquery_read.FieldByName('path').AsString;
                  secure := zquery_read.FieldByName('secure').AsInteger;
                  httponly := zquery_read.FieldByName('httponly').AsInteger;
                  has_expires := zquery_read.FieldByName('has_expires').AsInteger;
                  persistent := zquery_read.FieldByName('persistent').AsInteger;
                  priority := zquery_read.FieldByName('priority').AsInteger;

                  zquery_write.ParamByName('PCreationUTC').Value := creation_utc;
                  zquery_write.ParamByName('PHostKey').Value := host_key;
                  zquery_write.ParamByName('PName').Value := name;
                  zquery_write.ParamByName('PValue').Value := value;
                  zquery_write.ParamByName('PPath').Value := path;
                  zquery_write.ParamByName('PExpiresUTC').Value := expires_utc;
                  zquery_write.ParamByName('PSecure').Value := secure;
                  zquery_write.ParamByName('PHTTPOnly').Value := httponly;
                  zquery_write.ParamByName('PLastAccessUTC').Value := last_access_utc;
                  zquery_write.ParamByName('PHasExpires').Value := has_expires;
                  zquery_write.ParamByName('PPersistent').Value := persistent;
                  zquery_write.ParamByName('PPriority').Value := priority;

                  zquery_write.ExecSQL;
                  zquery_read.Next;
                end;
              finally
                zconn_target.Commit;
              end;
            finally
              zquery_write.Free;
            end;
          finally
            zquery_read.Free;
          end;
        finally
          zconn_target.Disconnect;
        end;
      finally
        zconn_target.Free;
      end;
    finally
      zconn_source.Disconnect;
    end;
  finally
    zconn_source.Free;
  end;
end;