Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Базы данных и репортинг > Запись Массива в Поле Мемо БД

Автор: Chepa 21.12.2006, 23:54

Люди!!! Помогите ,пожалуйста, Горю....
Задача:
есть одномерный массив данных составленный из пар точек X и Y, требуется записать его в поле Мемо в БД, и когда надо вытащить его и построить график из точек которые в этом Массиве. Помогите плиз...сдавать скоро

Автор: Akella 22.12.2006, 01:23

тебе весь код нужен? и построения графика? наврядле тебе всё это напишут, хотя может найдется энтузазист...

Автор: Chepa 22.12.2006, 07:05

Да мне пока бы разобраться как массив записать в БД, а график потом...

Автор: Rodman 22.12.2006, 09:41

Код


Обязательно указание:

1. Базы данных (Paradox, Oracle и т.п.)

2. Способа доступа (ADO, BDE и т.д.)

чем подключаешься???

Автор: Mephisto 22.12.2006, 10:02

Код


procedure TForm1.SaveArray(ID : integer);
var
  AStream : TMemoryStream;
  myArray : array [1..10] of byte;
begin
  AStream := TMemoryStream.Create;
  try
    AStream.Write(myArray, Length(myArray));
    Query1.Close;
    Query1.SQL.Text := 'insert into table1 (ID, BLOB) values (:id, :pct)';

    Query1.Parameters.ParamByName('ID').Value := ID;
    AStream.Seek(0, soFromBeginning);
    Query1.Parameters.ParamByName('pct').LoadFromStream(AStream, ftBlob);

    Query1.ExecSQL;
  finally
    FreeAndNil(AStream);
  end;
end;

Добавлено @ 10:02
Это ADO smile

Автор: Chepa 22.12.2006, 23:38

Базы данных Paradox
Способ доступа BDE
Очень надеюсь на вашу помощь...

Автор: Mephisto 25.12.2006, 11:44

Код

procedure TForm1.SaveArray(ID : integer);
var
  AStream : TMemoryStream;
  myArray : array [1..10] of byte;
begin
  AStream := TMemoryStream.Create;
  try
    AStream.Write(myArray, Length(myArray));
    Query1.Close;
    Query1.SQL.Text := 'insert into table1 (ID, BLOB) values (:id, :pct)';

    Query1.ParamByName('ID').AsInteger := ID;
    AStream.Seek(0, soFromBeginning);
    Query1.ParamByName('pct').LoadFromStream(AStream, ftBlob);

    Query1.ExecSQL;
  finally
    FreeAndNil(AStream);
  end;
end;

Тогда так! smile

Автор: Chepa 25.12.2006, 22:36

спс буду пробовать smile