XProfan

- Page 1 -

Frank
Abbing

Horst Horn

@Frank
in der Listview.dll wäre das Teil auch gut aufgehoben

Hehe, kann das doch nicht in alle meine Dlls einbauen...
Vielleicht ist eine eigenständige Dll doch die beste Lösung, oder ich mach es zusätzlich als XPIA-Beispiel.

...oder eine Unit ???

Bleibt noch: get

(userID) - also ab damit nach → Roland

Frank
Abbing

Wenn Roland das so einbauen möchte, soll es mir recht sein, gerne.

RGH

Gute Idee! Erinnere mich jemand bitte noch mal dran, wenn ich beginne, die nächsze Version nach 11.0 vorzubereiten.

Saluto
Roland

Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4

Frank
Abbing

iF schon geschehen...

Jac
de
Lad

Folgender Quelltext liefert bei mir unterschiedliche UserIDs:
Kompilieren Markieren Separieren

Declare text$,x&,bereich#
Dim bereich#,32
External(userid.dll, GetUserID, bereich#)
text$=String$(bereich#,0)
Cls
Print text$
x&=ImportDLL(userid.dll,)
GetUserID(bereich#)
text$=String$(bereich#,0)
Print text$
FreeDLL y&
x&=ImportDLL(userid.dll,)
GetUserID(bereich#)
text$=String$(bereich#,0)
Print text$
FreeDLL y&
x&=ImportDLL(userid.dll,)
GetUserID(bereich#)
text$=String$(bereich#,0)
Print text$
FreeDLL y&
x&=ImportDLL(userid.dll,)
GetUserID(bereich#)
text$=String$(bereich#,0)
Print text$
FreeDLL y&
x&=ImportDLL(userid.dll,)
GetUserID(bereich#)
text$=String$(bereich#,0)
Print text$
FreeDLL y&
Dispose bereich#
WaitInput

Ist das normal?

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP

- Page 2 -

Frank
Abbing

Nein, nicht normal. Hab einen dummen Bug lokalisiert und ausgemerzt. Probier mal bitte mit dieser neuen Dll im Anhang.

P.S. Ich bin darauf aufmerksam gemacht worden, dass diese Methode nicht mit Laptops mit Dockingstation funktioniert. Im eingedockten Zustand wird scheinbar eine andere ID generiert. Selber kann ich das nicht testen - vielleicht hat ja jemand die Möglichkeit das mal zu tun.

UserID.dll	4 kB

Hochgeladen:	08.06.2008

Downloadcounter:
		Download

Da eine Dockingstation oft auch Gerätebündel mitsich bringt, oder zumindest den Ladestatus ändert...

Jac
de
Lad

Jetzt wird mit dem oben geposteten Quelltext (mit Bugfix x&<>y&) die ersten 4 Male immer die gleiche ID angezeigt, danach stürzt das Prog ab (ExceptionFault).

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP

Frank
Abbing

Kann ich nicht nachvollziehen, hab den Code ja schliesslich getestet. Vielleicht liegt es aber schon daran, dass du vergessen hast y& zu deklarieren und ständig damit FreeDll freigibst?

Jac
de
Lad

Nein, das habe ich behoben.

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP