0

フォームのボタンに次のコードがありますが、後で直接ロードできるように、保存されたオブジェクトの OID または ID 値を取得したいと考えています。

procedure TFormMain.ButtonNewClick(Sender: TObject);
var
  Employee: Variant;
  OId: Variant;
begin
  Employee := Factory.New('Sample.Employee', True);
  if VarIsNull(Employee) or VarIsClear(Employee) then
  begin
    ShowMessage('Could not create Employee!');
    Exit;
  end;

  Employee.Name := 'Foo Bar';
  Employee.SSN := '616-27-7814';

  Employee.Sys_Save;

  OId := Employee.Sys_getOID; <- This doesn't exist

  Employee.Sys_Close;
  Employee := NULL;
end;

ドキュメントには GetId のような関数が示されていますが、OID を渡す必要がありますが、そのための関数が表示されず、.OID などだけでは機能しません。すべてのチュートリアルで読み込みの例が示されているので、私は感じていますOIDまたはIDによって、かなり基本的なものが欠けていることがわかりました。

どんな指針も非常に役に立ちます。

ありがとう、ブルース

4

2 に答える 2

1

または試しましたEmployee.OidかEmployee.Sys_Oid？

于 2010-10-28T15:40:20.267 に答える
0

InterSystem Cache のActiveX オブジェクトのドキュメントを読んでも、オブジェクトから OID を取得する方法がわかりませんSample.Employee。

于 2010-10-27T18:33:12.333 に答える