Текущий архив: 2009.08.16;
Скачать: CL | DM;

Вниз

array[0..383] of Byte & blob   Найти похожие ветки 

← →
belmol   (2009-06-18 11:59) [0]

есть переменная templ типа
type
Ttempl = array[0..383] of Byte;
есть
база с блоб полем. не могу сообразить как залить
значение переменной в базу

fingerset.Update;  (insert) - не важно.
fingersetTEMLATE.LoadFromStream ????? как вот тут не пойму((
как массив превратить в stream ???
или я вообще что то не так делаю??

---

← →
Медвежонок Пятачок ©   (2009-06-18 12:07) [1]

создай мемористрим и запиши в него свой массив.

---

← →
belmol   (2009-06-18 12:25) [2]

я и говорю об этом.. как данный масив превратить в стрим...

---

← →
Медвежонок Пятачок ©   (2009-06-18 12:26) [3]

про "как превратить" - это не сюда. это к волшебникам.
а здесь программисты

---

← →
Palladin ©   (2009-06-18 12:33) [4]

> belmol   (18.06.09 12:25) [2]

TMemoryStream + F1

---

← →
Медвежонок Пятачок ©   (2009-06-18 12:33) [5]

либо проще и прямее.
БлобСтрим + РайтБуфф

---

← →
belmol   (2009-06-18 12:36) [6]

смех смехом. а все же как? рыл, но  что-то ничего подходящего не увидел((

---

← →
belmol   (2009-06-18 12:36) [7]

спс

---

← →
Медвежонок Пятачок ©   (2009-06-18 12:36) [8]

а ты читай, а не рой

---

← →
belmol   (2009-06-18 12:42) [9]

to Медвежонок Пятачок ©
знаю что вопросы глупые, но
>либо проще и прямее.
>БлобСтрим + РайтБуфф

это как?

---

← →
Сергей М. ©   (2009-06-18 13:50) [10]

var
 BlobStream: TIBBlobStream;
..
MyFBUpdatableDataSet.Insert; // или Edit;
MyBlobStream := MyFBUpdatableDataSet.CreateBlobStream(MyFBUpdatableDataSet.FieldByName("MyBlobFi eldName"), bmReadWrite);
MyBlobStream.WriteBuffer(MyTtemplVariable, SizeOf(Ttempl));
MyFBUpdatableDataSet.Post;


---

← →
belmol   (2009-06-18 15:19) [11]

спось))

---

← →
belmol   (2009-06-18 16:16) [12]

fingerset.Insert;
fingersetLD.AsInteger:=form1.finddataset1ld.AsInteger;
fingersetNUM.AsInteger:=RadioGroup1.ItemIndex;
BlobStream:=fingerset.CreateBlobStream(form1.fingerset.FieldByName("TEMPLATE") ,bmReadWrite);

вот на это ругается
bmReadWrite

использую FIBPlus

---

← →
Сергей М. ©   (2009-06-18 16:36) [13]

uses DB

---

← →
belmol   (2009-06-18 21:52) [14]

Сергей М., я очень тебе признателен а можешь пояснить что такое MyTtemplVariable в данном случае???

---

← →
korneley ©   (2009-06-18 23:24) [15]

> belmol   (18.06.09 16:16) [12]
> вот на это ругается bmReadWrite

TBlobStreamMode = (bmRead, bmWrite, bmReadWrite)
из DB.pas.


> использую FIBPlus


procedure FileToBlob(BlobField: TField; FileName: string);
 var S: TStream; FileS: TFileStream;
begin
 BlobField.DataSet.Edit;
 S := BlobField.DataSet.CreateBlobStream(BlobField, bmReadWrite);
 try
   FileS := TFileStream.Create(FileName, fmOpenRead);
   S.CopyFrom(FileS, FileS.Size);
 finally
   FileS.Free;
   S.Free;
   BlobField.DataSet.Post;
 end;
end;
Пример из "FIBPlus 6.4 Руководство разработчика". Ну так вместо файлстрима запихнуть свой массив, как в [10], тем же S.WriteBuffer() и делов. Не понял проблем...

---

← →
belmol   (2009-06-19 06:43) [16]

все спасибо.. я тупил..

---

Страницы: 1 вся ветка

Текущий архив: 2009.08.16;
Скачать: CL | DM;

Наверх

Память: 0.49 MB
Время: 0.017 c