Thema: Delphi ADS - Fullname

Einzelnen Beitrag anzeigen

MarLe

Registriert seit: 13. Jan 2005
83 Beiträge
 
Delphi XE2 Professional
 
#3

Re: ADS - Fullname

  Alt 26. Jan 2007, 12:08
Danke für den Tipp.

IADsUser ist ein Interface

Delphi-Quellcode:
// *********************************************************************//
// Interface: IADsUser
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {3E37E320-17E2-11CF-ABC4-02608C9E7553}
// *********************************************************************//
  IADsUser = interface(IADs)
    ['{3E37E320-17E2-11CF-ABC4-02608C9E7553}']
    function Get_FullName: WideString; safecall;
    procedure Set_FullName(const retval: WideString); safecall;
    property FullName: WideString read Get_FullName write Set_FullName;
    ...
Ein usr := nil; hat nix gebracht.

Du hast schon recht wenn ich ein Objekt instantiere (geschieht hier anscheinend über die Hilfsmethode ADsGetObject)
muss ich auch dann den reservierten Speicher wieder freigegeben.
Hab da noch folgendes entdeckt
function FreeADsMem(aPtr: Pointer): BOOL; forward; Diese Funktion wird in dem besagten Downloadbeispiel aber nirgends benutzt?!?
  Mit Zitat antworten Zitat