救救我，十万火急，（一个关于oralce7.3.4中longrow类型字段的存取问题

Question

有没有错误提示？—————————————————————————————————
MaximStr := '宠辱不惊，看庭前花开花落，去留无意；
             毁誉由人，望天上云卷云舒，聚散任风。';
if Not Assigned(I) then
  I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”、“3D”等字样，改为“=”或者去掉';
I.Desire := '加不加分随你';
—————————————————————————————————
    

Answer 1

你定义表的时候用的是什么类型？是 BLOB 还是 Long raw ?
我在 PowerBuilder 中保存照片和文件（Excel、Word 文件）时定义的是 Long raw ,定义 blob 不出现错误，但无法保存。Delphi 中没有试过，我现在的 ODBC 有问题，无法连接 Server 的 Oracle 

Answer 2

function WriteBlobToOra(BlobFieldName,FileName:PChar):WordBool;stdcall;
  var
      FileNameStr:string;
      BlobField:TBlobField;
  begin
    Result:=True;
    try
     if fileExists(FileName)then
      FileNameStr:=FileName
     else
      exit;
      oraTable.Last ;
      oraTable.Edit;
      BlobField:= TBlobField(OraTable.FieldByName(StrPas(BlobFieldName)));
      BlobField.LoadFromfile(filenameStr);
      OraTable.post ;
      DeleteFile(filenameStr);
    except
    Result:=False;
    end;
  end;

Answer 3

function WriteBlobToOra(BlobFieldName,FileName:PChar):WordBool;stdcall;
var
   FileNameStr:string;
begin
    Result := True;
    FileNameStr := StrPas(FileName);
    if fileExists(FileNameStr)then
     try
      oraTable.Last ;
      oraTable.Insert;
      TBlobField(OraTable.FindField(BlobFieldName)).LoadFromFile(FileNameStr);
      OraTable.post ;
      Sleep(100);   // 延时一会儿
      DeleteFile(FileNameStr);
    except
      Result := False;
    end;
  end;

Answer 4

写错了，应该是 oraTable.Edit; 意思是在最后一条记录加入文件内容。