dll Problem

**novelly**

hi dp´ler,

habe jetzt mal meine ersten erfahrungen mit dll´s machen dürfen

den folgenden code (nein! nicht mein eigener) wollte ich aus einer .exe in eine .dll kopieren.
in einer .exe funktioniert er einwandfrei . in der .dll bekomme ich beim aufruf immer die meldung:
"EOleSysError: ungültige Syntax"

die prozedur adduser habe ich exportiert !

hat da jemand vielleicht eine idee ? (ist meine erste .dll

)

THX

markieren

Code:

			unit main;

interface

  function  GetObject(name:string): IDispatch;

  procedure adduser; stdcall;

implementation

uses

  ActiveX,

  ActiveDs_TLB,

  ComObj;

function GetObject(name:string): IDispatch;

var

  Moniker: IMoniker;

  Eaten: integer;

  BindContext: IBindCtx;

  Dispatch: IDispatch;

begin

  OleCheck(CreateBindCtx(0, BindContext));

  OleCheck(MkParseDisplayName(BindContext,PWideChar(widestring(name)),Eaten,Moniker));

  OleCheck(Moniker.BindToObject(BindContext, NIL, IDispatch,Dispatch));

  Result := Dispatch;

end;

procedure adduser; stdcall;

var

  Usr   : IADsUser;

  Comp  : IADsContainer;

begin

    Comp  := GetObject('WinNT://fs1,computer') as IADsContainer;

    Usr   := Comp.Create('user', 'Novelly')  as IADsUser;

    Usr.SetInfo;

end;

end.

dll Problem

dll Problem

Forumregeln