Форум: "Основная";
Текущий архив: 2003.02.24;
Скачать: [xml.tar.bz2];
ВнизГлюк или руки? Найти похожие ветки
← →
AVL1 (2003-02-13 02:17) [0]Исходные данные:
Таблица Dbase III
ID Numeric 10 0
STR1 Character 60
APX Memo 10 0
Пишу:
procedure SaveArrayToStream(a: array of double; F:TBlobField);
var
Stream: TStream;
begin
Stream := TMemoryStream.Create;
try
Stream.Write(a[0],Length(a)*SizeOf(Double));
Stream.Seek(0,0);
F.LoadFromStream(Stream);
finally
Stream.Free;
end;
end;
function ReadArrayFromStream(F:TBlobField; L: integer): variant;
var
Stream: TStream;
a: array of double;
begin
try
Stream := TMemoryStream.Create;
SetLength(a, L);
F.SaveToStream(Stream);
Stream.Seek(0,0);
Stream.Read(a[0],Length(a)*SizeOf(Double));
result:=a;
finally
Stream.Free;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
t: array of double;
begin
SetLength(t, 2);
t[0] := 59913.9481 ;
t[1] := 59913.9487 ;
table1.Edit;
Table1.FieldByName("ID").AsInteger:=1;
Table1.FieldByName("STR1").AsString:="Тест для 59913.9487";
SaveArrayToStream(t, table1.FieldByName("APX") as TMemoField);
.........
end;
Затем, читаю то что запихал в блоб-поле:
procedure TForm1.Button2Click(Sender: TObject);
var
t1: array of double;
begin
SetLength(t1, 2);
t1:= ReadArrayFromStream(table1.FieldByName("APX") as TMemoField, 2);
memo1.Lines.Add(floattostr(t1[0]));
memo1.Lines.Add(floattostr(t1[1]));
...
end;
Получаю результат:
59913,9481
2,71736105212686E-322
Изменяю 59913.9487 ну к примеру на 59913.94871 все Ok .
Меняю DBase III на DBase IV
с 59913.9487 все нормально, глюки выползают из других щелей...
Похоже что данные корежит именно при записи потока в поле BLOB т.е. во время отработки процедуры SaveArrayToStream.
Пожалуйста, подскажите где грабли? Спасибо.
← →
AVL1 (2003-02-13 04:28) [1]Не окунайте в тишину ... please.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.02.24;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.013 c