ADO Запись массива в ячейку

[Vapaamies]

Сообщение от Аватар

Вопрос к ТС - а на фига вообще массив в одно поле записывать?

А теперь перечитай ответ #6. А то все тут умные собрались, аж зашибись, один я флудер.

[NEoMASTERR]

Сообщение от Аватар

Вопрос к ТС - а на фига вообще массив в одно поле записывать?

грубо говоря это идентификаторы размером 4 байта, порядковые номера, могут идти не по порядку, поэтому и надо их записывать, без переходов, пробелов, #13#10, и тд. разделяться они ничем не будут. Мне надо просто записать очень длинный набор байт в ячейку

[Stilet]

Мне надо просто записать очень длинный набор байт в ячейку

Смотри. Тебе предложили два варианта:

1) Записывать в BLOB потоком некий набор чисел (по факту байт), потом так же считывать придется. Как любой поток байт.

2) Создать некую таблицу у которой будет всего два поля: Поле, в котором есть код записи в главной таблице и поле с элементом массива.

Второе будет выглядеть примерно так:

Главная:
1 Вася
2 Мася

Массив:
1 1
1 2
1 3
2 56
2 78

Тогда получится что с Васей связан массив 1,2,3 а с Масей 56,78.
Это естесственная форма хранения данных для реляционных СУБД, и в общем то у нее есть свои преимущества перед BLOB хранением. Особенно если нужно выбирать не весь массив, а только его диапазон, скажем у Васи отобрать из массива целых те что более 2. С BLOB полями тебе бы пришлось считывать весь поток чисел, а уже потом на клиенте их рассматривать. Плюс сюда же меньший размер базы, по сравнению с BLOB.

Поэтому повторю вопрос Аватара:

а на фига вообще массив в одно поле записывать?

Т.е. какова задача? Почему это понадобилось?

[NEoMASTERR]

Сообщение от Stilet

Т.е. какова задача? Почему это понадобилось?

Считывание из нескольких ячеек думаю все же больше времени занимать будет, но я подумаю над решением, тут необходима скорость. Собственно это будет контакт лист пользователей, делаю что то типа мессенджера. Данные посылаться будут целиком, на клиенте разбираться по 4 байта, так что хранить можно целиком в ячейке, но при изменении уже либо дописывать, либо затирать лишние байты. Пока в файл записываю но будет ли такая возможность на *nix не знаю

Нужно как можно меньше использовать хдд, мало ли 100500 клиентов будет, и каждая 1,2,3 в базе уже будет иметь вес

[Stilet]

Считывание из нескольких ячеек думаю все же больше времени занимать будет

Нет если правильно проиндексировать.

Собственно это будет контакт лист пользователей,

В таком случае мой совет про BLOB неудачный.

но при изменении уже либо дописывать, либо затирать лишние байты

Нужно как можно меньше использовать хдд

Вот как раз изменение всего BLOB будет хард грузить больше чем изменение одной-двух записей, если хранить массив в таблице.

[Vapaamies]

NEoMASTERR
БД -- не массив. Не нужно рассматривать БД как массив. БД -- нечто большее чем массив. Изучайте матчасть.

Сообщение от Stilet

мой совет про BLOB неудачный.

Как обычно.

[NEoMASTERR]

Сообщение от Vapaamies

NEoMASTERR
БД -- не массив. Не нужно рассматривать БД как массив. БД -- нечто большее чем массив. Изучайте матчасть.


Как обычно.

Я разве говорил что БД - массив?

Сообщение от Stilet

Вот как раз изменение всего BLOB будет хард грузить больше чем изменение одной-двух записей, если хранить массив в таблице.

8кб всё же проще взять из ячейки чем пересчитать 2048 записей, все изменения будут через кеш, и не очень часто. И Мы ушли с темы) "как записать/считать набор байт в ячейку программно?"

[Vapaamies]

Сообщение от NEoMASTERR

8кб всё же проще взять из ячейки чем пересчитать 2048 записей, все изменения будут через кеш, и не очень часто.

В моих глазах выглядит как типичная ошибка планирования. Не нужно брать на себя функциональность СУБД, берясь за работу с СУБД. СУБД или используется целиком, или всё делается на файлах, как и раньше.

[Stilet]

как записать/считать набор байт в ячейку программно?

Сохраняем:

procedure TForm1.Button1Click(Sender: TObject); 
var 
  blob: TBlobStream; i:integer;
begin 
  blob := <Твой Датасет>.CreateBlobStream(<Твой Датасет>.FieldByName('YOUR_BLOB'), bmWrite); 
    blob.Seek(0, soFromBeginning);
    blob.write(Length(a),4); //Записываем кол-во элементов массива
    for i:=Low(a) to High(a) do 
     blob.write(a[i],sizeof(a[i])); //Записываем элементы массива
    blob.Free 
end;

Читаем:

procedure TForm1.Button1Click(Sender: TObject); 
var 
  blob: TBlobStream; i:integer;
begin 
  blob := <Твой Датасет>.CreateBlobStream(<Твой Датасет>.FieldByName('YOUR_BLOB'), bmRead); 
    blob.Seek(0, soFromBeginning);
    blob.read(i,4); //Читаем кол-во элементов массива
    SetLength(a,i);
    for i:=Low(a) to High(a) do 
     blob.read(a[i],sizeof(a[i])); //Записываем элементы массива
    blob.Free 
end;

Это с потолка, не проверял. За основу взял: [url]http://delphiworld.narod.ru/base/blob_fields_save_read_

[NEoMASTERR]

PHP код:

var
  i:integer;
  blob:TADOBlobStream;
begin
  users.Edit;
  blob:=TADOBlobStream.Create(TBlobField(users.fieldbyname('cl')),bmWrite);
  blob.Seek(0, soFromBeginning);
  i:=2000;
  blob.write(i,4);

  for i:=0 to 1999 do
  begin
    blob.write(i,sizeof(i));
  end;

  blob.Free;
  users.post; 


PHP код:

var
  blob:TADOBlobStream;
  buf:array of Char;
  i:integer;
begin
  blob:=TADOBlobStream.Create(TBlobField(users.fieldbyname('cl')),bmRead);
  blob.Seek(0, soFromBeginning);

  blob.Read(i,4);
  SetLength(buf,i);
  blob.Read(buf[0],i);

  blob.Free; 


Благодарю за помощь)