Ich möchte in ein Blobfeld ein Array of Doubles speichern und auch wieder als solches Auslesen. Das geht aber irgendwie nicht.
Was mache ich falsch???
type
Tj = array[0…300] of Double;
procedure TForm1.Schreiben(Sender: TObject);
var
AnikaTanck : TBlobStream;
j : Tj;
i : integer;
begin
for i := 0 to 300 do begin
j[i] := 1000;
end;
Table1.Open;
Table1.Insert;
Randomize;
Table1.Fields[0].AsString := si(IntZufall(0,4000));
Memo1.Lines.Insert(0,Table1.Fields[0].AsString);
AnikaTanck := TBlobStream.Create(Table1.Fields[5] as TBlobField,bmWrite);
AnikaTanck.Seek(0,0);
AnikaTanck.Write(j,SizeOf(j));
AnikaTanck.Free;
Table1.Post;
end;
procedure TForm1.Lesen(Sender: TObject);
var
AnikaTanck : TBlobStream;
j : Tj;
begin
Table1.Open;
Table1.EditKey;
Table1.Fields[0].AsString := Edit1.Text;
Table1.GotoNearest;
AnikaTanck := TBlobStream.Create(Table1.Fields[5] as TBlobField,bmRead);
AnikaTanck.ReadComponentRes(AComponent);
AnikaTanck.Seek(0,0);
AnikaTanck.Read(j,SizeOf(j));
AnikaTanck.Free;
end;
Es werden 2408 Bytes geschrieben und gelesen. Wenn ich das gleiche mit einer Datei mache, dann gehts, aber eben nicht mit eine ParadoxDatenbank. Also er liest dann auch 2408 Bytes, aber nur Schrott.