Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Запись массива в бинари в blob поле в БД в MSACCESS

Yozh_Programmer © (2004-03-29 23:39:00)
Вот есть код
записи данных в БД с blob'ом

procedure TForm1.Button1Click(Sender: TObject);
var arI : array[ 1..3 ] of Integer;
ms : TMemoryStream;
begin
a_q.SQL.Text := 'insert into bin_table values( :_bin_field )';
a_q.Parameters.ParamByName( '_bin_field' ).DataType := ftBLOB;
a_q.Parameters.ParamByName( '_bin_field' ).Size := SizeOf( Integer ) * 3;
ArI[ 1 ] := StrToInt( Edit2.Text );
ArI[ 2 ] := StrToInt( Edit3.Text );
ArI[ 3 ] := StrToInt( Edit4.Text );
ms := TMemoryStream.Create();
ms.Write( ArI, Sizeof( Integer ) * 3 );
a_q.Parameters.ParamByName( '_bin_field' ).LoadFromStream( ms, ftBLOB );
a_q.ExecSQL();
ms.Destroy();
end;

теперь считывание

procedure TForm1.Button2Click(Sender: TObject);
var i, Count : Integer;
ms : TMemoryStream;
ArI : array[ 1..3 ] of Integer;
_s : String;
begin
ms := TMemoryStream.Create();
lv.Clear(); // TListView
a_q.SQL.Text := 'select * from bin_table order by id';
a_q.Open();
Count := a_q.RecordCount;
for i := 1 to Count do
begin
( a_q.FieldByName( 'bin_field' ) as TBlobField ).SaveToStream( ms );
ms.Read( ArI, ms.Size );
_s := IntToStr( ArI[ 1 ] ) + '; ' + IntToStr( ArI[ 2 ] ) + '; ' + IntToStr( ArI[ 3 ] );
lv.Items.Add().Caption := _s;
a_q.Next();
end;
a_q.Close();
ms.Destroy();
end;

короче, что не добавляю показывает одни и теже значения, что я делаю не верно???

sniknik (2004-03-30 08:41:00) [1]
попробуй позицию задавать перед обрашением
...
ms.Write( ArI, Sizeof( Integer ) * 3 );
ms.Position:= 0;
...

ms.Position:= 0;
ms.Read( ArI, ms.Size );

и пользуйся ReadBuffer (хоть ошибку покажет если несработает)
и поменяй ms.Destroy(); на ms.free;

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »