SetCookies

Записывает массив кук в хранилище, в соответствии с указанными параметрами. Все куки, соответствующие указанным параметрам при этом предварительно удаляются из хранилища.

Синтаксис

PASCAL

procedure TStorage.SetCookies(aCookies: array of TCookie; aProfileName: String; aSurferID: Integer; aUserID: Integer; aUAID: Integer);

ECMA

TStorage.setCookies(aCookies, aProfileName, aSurferID, aUserID, aUAID);

Параметры

Параметр Тип (PASCAL) Тип (ECMA) По умолчанию Описание
aCookies Array of TCookie Массив TCookie - Массив кук, которые необходимо записать в хранилище
aProfileName String String - Имя профиля
aSurferID Integer Number - ID серфера
aUserID Integer Number - ID вебмастера
aUAID Integer Number - ID User-agent'а

Возвращаемое значение

Тип (PASCAL) Тип (ECMA) Описание

Примеры

PASCAL

  1. //{$MODE PASCAL}
    var store1 := TStorage.Create('http://localhost/wastorage/wastorage.php', 'pass');
    var cookies := store1.GetCookies('testprofile', 1, 1, 1);
    var store2 := TStorage.Create('http://localhost/wastorage/wastorage.php', 'pass');
    var cookies2: array of TCookie;
    cookies2.add(cookies[cookies.Count - 1]);
    store2.SetCookies(cookies2, 'secondprofile', 1, 2, 3);
  1. //{$MODE PASCAL}
    TABS[0].Load('ya.ru');
    var store := TStorage.Create('http://localhost/wastorage/wastorage.php', 'pass');
    var cookies := SESSION.GetCookies();
    store.SetCookies(cookies, 'testprofile', 1, 2, 3);

ECMA

  1. //{$MODE ECMA}
    var store1 = new TStorage('http://localhost/wastorage/wastorage.php', 'pass');
    var store2 = new TStorage('http://localhost/wastorage/wastorage.php', 'pass');
    var cookies2 = [];
    var cookies = store1.getCookies('testprofile', 1, 2, 3);
    store2.setCookies(cookies, 'secondprofile', 1, 10, 100);
  1. //{$MODE ECMA}
    TABS[0].load('ya.ru');
    var store = new TStorage('http://localhost/wastorage/wastorage.php', 'pass');
    var cookies = SESSION.getCookies();
    store.setCookies(cookies, 'testprofile', 1, 2, 3);