Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.12.09;
Скачать: CL | DM;

Вниз

IB/FB D5 Blob поля. Как ?   Найти похожие ветки 

 
Glivinsky   (2002-11-20 14:32) [0]

Как пипель сохраняет/читает БЛОБ-поля ?
Коротеньким примерчиком, если можно.... Спасибо.


 
OlegE ©   (2002-11-20 14:48) [1]

procedure TfrmMain.Button1Click(Sender: TObject);
var
a: array[1..64] of byte;
b: TStream;
i: Integer;
s: String;
begin
b := pFIBDataSet1.Createblobstream(pFIBDataSet1FD, bmRead);
b.Read( a, b.Size);
s:="";
for i := 1 to b.Size do s := s + IntToStr(a[i]);
ShowMessage(s);
b.Free;
pFIBDataSet1.Transaction.CommitRetaining;
end;

procedure TfrmMain.Button2Click(Sender: TObject);
var
a: array[1..64] of byte;
b: TStream;
begin
pFIBDataSet1.Edit;
b := pFIBDataSet1.Createblobstream(pFIBDataSet1FD, bmWrite);
a[1] := 0;
a[2] := 1;
a[3] := 2;
a[4] := 0;
a[5] := 4;
a[6] := 5;
a[7] := 0;
b.Write( a, 7);
pFIBDataSet1.Post;
pFIBDataSet1.Transaction.CommitRetaining;
b.Free;
end;


 
Glivinsky   (2002-11-20 15:32) [2]

2OlegE Годится. Спасибо. Сейчас высеку навечно в скрижалях....



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

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

Наверх




Память: 0.46 MB
Время: 0.021 c
3-27853
AndrewVolkov
2002-11-20 23:36
2002.12.09
TDbLookupComboBox - обнуление строки???


3-27848
Dimedrol
2002-11-20 15:47
2002.12.09
FormatDateTime в DBGrid-е ?


4-28351
Stenkz
2002-10-22 06:47
2002.12.09
Вопрос - Kак преобразовать String в Pchar и обратно???


1-28104
Damage
2002-11-26 22:35
2002.12.09
fsStayOnTop не работает?


6-28174
Геннадий
2002-10-11 20:35
2002.12.09
Как узнать размер странички html (файла на веб-узле)?