Delphi中庸ODAC的query给所有记录的blob字段赋值为什么会出错

Question

procedure TForm1.Button1Click(Sender: TObject);
begin
  OraSession1.Server := '192.168.48.115:1521:ORAGS6';
  OraSession1.LoginPrompt := true;
  OraSession1.Username := 'system';
  OraSession1.Password := 'orags6';
  OraSession1.Options.Direct := True;
  OraSession1.Options.Net := true;
  OraSession1.ConnectPrompt := false;
  OraSession1.Connect;  OraQuery1.Session := OraSession1;
  OraQuery1.SQL.Add('select * from alex') ;  OraQuery1.Open;
  OraDataSource1.DataSet := OraQuery1;
  while not OraDataSource1.DataSet.Eof do
  begin
    OraDataSource1.DataSet.Edit;
    TBlobField(OraDataSource1.DataSet.Fields[2]).LoadFromFile('temp.zipx');
    OraDataSource1.DataSet.Post;
    OraDataSource1.DataSet.Next;
  end;
end;end.

Answer 1

Blob字段中存储文件，不是个好办法，最好是存储文件的路径。