[Delphi] OleVariants goed gebruikt of niet?

[Tomatoman]

Op mijn server wordt de volgende procedure aangeroepen door een client, waarbij UserIDs, Usernames en Descriptions worden doorgegeven aan de client. Vraag: wie is verantwoordelijk voor het vrijgeven de OleVariants, de client of de server. Of is dat helemaal niet nodig?

Delphi:

procedure TMijnAppServer.EnumUserInfo(out UserIDs, Usernames,
  Descriptions: OleVariant);
var
  { UserInfo is een dataset (TClientDataSet) }
  { UserInfoUserID, UserInfoUserName en UserInfoUserDescription zijn
    velden (TField descendants) in de dataset }
  i: Integer;
begin
  UserIDs := Null;
  Usernames := Null;
  Descriptions := Null;
  with UserInfo do
  begin
    UserIDs := VarArrayCreate([0, RecordCount -1], varInteger);
    Usernames := VarArrayCreate([0, RecordCount -1], varOleStr);
    Descriptions := VarArrayCreate([0, RecordCount -1], varOleStr);

    i := VarArrayLowBound(UserIDs, 1);
    First;
    while i <= VarArrayHighBound(UserIDs, 1) do
    begin
      if Eof then Abort; // er is iets verkeerd gegaan
      UserIDs[i] := UserInfoUserID.Value;
      Usernames[i] := UserInfoUserName.Value;
      Descriptions[i] := UserInfoUserDescription.Value;
      Inc(i);
      Next;
    end;
  end;
end;

[LordLarry]

Dat ligt er aan wat voor soort parameters het zijn ([in], [out] of [in, out]), maar als het goed is zorgt Delphi er voor dat je hier niet druk om hoeft te maken. Draai anders eens een programma zoals MemProof of AQTime of Memory Sleuth.

[Tomatoman]

In dit geval gaat het om [out] parameters in een functie die door een ander proces (de client) wordt aangesproken. Iemand die hier een definitieve uitspraak over durft te doen over het vrijgeven dan de OleVariants?

[LordLarry]

De client is in dat geval verplicht m vrij te geven, maar volgensmij gebeurt dat automatisch. Ik gebruik zelf dagelijks COM en ook OleVariants en geef ze nooit vrij

[Tomatoman]

OK, nooit meer vrijgeven dus. Voor de zekerheid zal ik de minimale systeemeisen voor mijn progsel opschroeven naar 1 GB RAM