dnutils.pas

来自「一个国外比较早的IOCP控件」· PAS 代码 · 共 28 行

// The contents of this file are used with permission, subject to
// the Mozilla Public License Version 1.1 (the "License"); you may
// not use this file except in compliance with the License. You may
// obtain a copy of the License at
// http://www.mozilla.org/MPL/MPL-1.1.html
//
// Software distributed under the License is distributed on an
// "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or
// implied. See the License for the specific language governing
// rights and limitations under the License.
unit DnUtils;

interface

procedure FreeInterface(Intf: IUnknown);

implementation

procedure FreeInterface(Intf: IUnknown);
begin
  if Intf <> Nil then
    while Intf._Release <> 0 do
      ;
end;


end.