Announcement

**Andreas Kosch** · 30.10.2002, 16:20

Hallo,

folgendes sollte erfolgreich sein:
<pre>
uses ComObj, ActiveX;

function GetMAC: String;
var
sTmp : String;
i : Integer;
aGUID : TGUID;
begin
OleCheck(CoCreateGUID(aGUID));
sTmp := '';
for i:= 2 to 7 do
sTmp := sTmp + IntToHex(aGUID.D4[i],2);
Result := sTmp;
end;
</pre&gt

**Mathias Simmack** · 30.10.2002, 19:36

Das ist bestimmt in die falsche Sparte gerutscht, Andreas?! 
Ich h�tte n�mlich "GetHostByName" (WinSock) vorgeschlagen. 
Gru�, 
Mathias

**Patrick Esche** · 03.11.2002, 11:52

GetHostByName klingt schon recht vielversprechend, lieftert mir aber immer einen Nullzeiger zur�ck. 
Grob gesagt sieht mein Code so aus: 

<pre>
function getNetAdress(s:PChar):string;
var hostInfo:PHostent;
begin
hostInfo:=GetHostByName(s);
result:=StrPas(hostInfo.h_Addr^);
end;

procedure TMyForm.Create(Sender:TObject);
var pCompName:PChar; nSize

Word; addr:string;
begin
nSize:=MAX_COMPUTERNAME_LENGTH+1;
pCompName:=StrAlloc(nSize);
try
if GetComputerName(pCompName,nSize) then addr:=getNetAdress(pCompName);
except
end;
end;
</pre>
 
So hatte ich das eigentlich verstanden, aber wie gesagt - GetHostByName liefert mir einen Nullzeiger...
 
Was mache ich da falsch? 
Danke 
Patric

**Mathias Simmack** · 03.11.2002, 13:25

Hm, ob�s dir weiterhilft wei� ich nicht, aber das kurze St�ck stammt aus einem "hosts"-Editor (VCL-Version):

<pre>procedure THEDInputForm.pingBtnClick(Sender: TObject);
var
hostent : pHostent;
fIP : tInAddr;
begin
hostent := GetHostByName(pchar(url.Text));
if(assigned(hostent)) then
begin
fIP.S_addr := integer(pointer(hostent^.h_addr_list^)^);
SendMessage(hIpAddr,IPM_SETADDRESS,0,fIP.S_addr);
end
else
SendMessage(hIpAddr,IPM_CLEARADDRESS,0,0);
end;</pre>

Du m�sstest die Adresse allerdings anders konvertieren, weil ich in dem Fall das IP-Control des Systems benutzt habe um sie anzuzeigen. Wenn du ein Edit-Feld oder einen String benutzen willst, w�re das hier:

<pre>string(inet_ntoa(fIP));</pre>

wohl besser. 
Gru�, 
Mathias

**Patrick Esche** · 03.11.2002, 16:27

Was ich eigentlich m�chte, ist folgendes: 
Wir haben eine Applikation entwickelt, die auf einem Client/Server-System laufen soll, und diese Anwendung l��t a) benutzerspezifische Einstellungen zu und b) arbeitsplatzspezifische Einstellungen. Ich m�chte in einer zentralen Datenbank die Rechner abspeichern, die Benutzer sowie diverse Einstellungen. Will sagen, ich mu� jeden Rechner des Netzwerks eindeutig identifizieren k�nnen - da z. B. in unserem Firmennetz mehrere Rechner den gleichen Namen haben, funktioniert das nicht �ber den Rechnernamen, sondern meines Wissens nach nur �ber die physikalische Netzwerkadresse. So wie ich das verstehe, liefert das Beispiel oben eher die IP-Adresse und nicht die Adresse der Netzwerkkarte (die brauche ich). 
Aber trotzdem danke!
<br&gt

**Mathias Simmack** · 04.11.2002, 11:07

So, jetzt bin ich verwirrt. 
1. Mehrere Rechner im gleichen Netzwerk (Arbeitsgruppe und/oder Dom�ne) benutzen den selben Namen? Ich erinnere mich an unsere fr�heren Versuche, bei denen immer der Pech hatte, der sich an zweiter Stelle anzumelden versuchte. Dem hagelten die Fehlermeldungen "dieser Name wird bereits benutzt" usw. um die Ohren. 
Ist das wirklich m�glich? Oder verwechselst du das mit dem Benutzernamen, mit dem sich die Leute anmelden? 
2. Wenn du Netzwerkadresse schreibst (s. dein erstes Posting), dann gehe ich davon aus, dass du die IP brauchst, die der Rechner im LAN benutzt. Anhand dieser IP ist er doch eindeutig zu identifizieren, da IMHO die selbe Adresse nicht mehrfach benutzt werden kann. Anders sieht die Sache bei der dynamischen Zuordnung aus. Da �ndert sich die IP bei jedem Anmelden im LAN. 
3. Wenn du wirklich die eindeutige MAC der Netzwerkkarte suchst, muss ich dich erst mal entt�uschen. Eine Funktion zum Auslesen kenne ich im Augenblick nicht. Was aber, wenn die Karte mal kaputt geht und eine neue eingebaut werden muss? Dann stehst du wohl wieder vor dem Problem, dein Programm updaten zu m�ssen, weil die neue Karte ja logischerweise eine neue einzigartige MAC mitbringt. 
Wie gesagt: ich bin jetzt verwirrt. 
Gru�, Mathias

**Patrick Esche** · 05.11.2002, 11:20

1. Nein, ich verwechsle den Benutzernamen und den Rechnernamen nicht. Die Windowsfunktion GetComputerName liefert den Namen des Computers, dann frage ich in meiner eigenen Datenbank ab, ob dieser Rechner schon eingetragen ist. Wenn ja, gucke ich in meiner Datenbank, wer der letzte Benutzer unserer Anwendung war und starte die Anwendung mit den ebenfalls aus der Datenbank ausgelesenen Einstellungen f�r den Computer und den Benutzer. Ist der Rechner noch nicht eingetragen, mu� der Benutzer sich einmalig anmelden, und das Programm wird mit den Standardeinstellungen gestartet. Rechner/Benutzer werden dann in die Datenbank eingetragen. Und der Bneutzer kann �ber Optionen bestimmte Einstellungen individualiesieren.

2. Leider kann ich die IP-Adresse nicht verwenden, weil sie eben nicht statisch ist...

3. Wenn die Netzwerkkarte mal kaputt geht und eine neue eingebaut wird, mu� der Anwender sich nur einmal neu anmelden, mehr nicht

**ake** · 05.11.2002, 12:47

hallo patrick,

...und dann sind wir wieder beim kosch'schen beispiel, das liefert n�mlich die mac-adresse und die ist garantiert eindeutig...

mfg
ak

**Mathias Simmack** · 05.11.2002, 13:02

Bist du sicher? Ich habe im Moment z.B. keine Netzwerkkarte drin, bekomme aber dennoch ein Ergebnis. Wenn ich im PSDK zu "CoCreateGUID" nachschlage, finde ich zwar eine ausf�hrliche Beschreibung und diverse Links, aber der Zusammenhang zwischen dieser Funktion und der MAC-Adresse der Netzwerkkarte will sich dennoch nicht einstellen. 
Vielleicht k�nnte ja Andreas diese Frage beantworten? 
Mathias

**Andreas Kosch** · 05.11.2002, 13:27

Hallo,

>keine Netzwerkkarte drin, bekomme aber dennoch ein Ergebnis...

die Win32-API-Funktion liefert nur dann die exakte MAC-Adresse zur�ck, wenn mindestens eine Netzwerkkarte im Rechner steckt. Ist das nicht der Fall, wird simuliert. Eine GUID erreicht ihre weltweite Eindeutigkeit allein schon aufgrund der Einmaligkeit der MAC-Adresse - wenn aber der Rechner keine Netzwerkkarte mit einer in der Hardware abgelegten MAC-Adresse hat, l�uft eine Simulation, die mit sehr hoher Wahrscheinlichkeit ebenfalls eindeutige GUIDs generieren kann

**Mathias Simmack** · 05.11.2002, 13:34

Hallo. 
Ja, ich hab�s gemerkt.

) Ich habe ja gl�cklicherweise noch ein paar alte MSI-Dateien rumliegen, die noch "mit eingebauter Netzwerkkarte entstanden" ... ;o) ... und bei denen war die letzte Stelle der "ComponentId" immer identisch, weil ich daf�r ja auch GUIDs benutzt habe. 
Danke f�r die Antwort. 
Gru�, 
Mathias

**Patrick Esche** · 05.11.2002, 14:20

Ja, da� der Code von Andreas Kosch genau das war, was ich brauchte, ist mir inzwischen auch klar geworden. Danke nochmal! 
Jetzt habe ich noch ein anderes Problem... 
Ich m�chte diesen Code in eine DLL packen, und aus bestimmten Gr�nden mu� ich diese DLL in C++ programmieren. Der C++-Builder kann doch DelphiCode kompilieren, oder irre ich mich da? Ich bekomme es jedenfalls nicht hin, eine Delphi-Unit so einzubinden, da� sie korrelt compiliert wird. Ich habe in meiner cpp-Datei f�r die DLL meine Delphidatei (in der nur diese eine Funktion deklariert ist) eingebunden mit 
#include "Netadress.pas" 
Beim Versuch, die Datei zu compilieren, meldet der Compiler einen Fehler in der "symac.H"; wei� jemand, wie ich Delphi-Dateien in den C++-Builder einbinden kann? 
Ich habe auch schon versucht, die Funktion in C++ nachzubauen - ist ja nicht allzu schwierig, allerdings liefert mir OleCheck unter C++ eine Exception, w�hrend es bei Delphi keine Exception gibt.
 
Kann mir da nochmal jemand helfen? 
Danke 
Patric

**Patrick Esche** · 05.11.2002, 18:09

Also, die Sache mit der Exception bei C++ habe ich inzwischen hinbekommen (ich vergesse immer wieder, da� man unter C/C++ st�ndig explizit Speicher reservieren mu�...) 
Ich habe allerdings festgestellt, da� der Code von Andreas Kosch sowohl unter Delphi als auch unter C++ (da halt von mir syntaxtechnisch abgewandelt) bei jedem Aufruf ein anderes Resultat zur�ckliefert. 
Das kann aber doch irgendwie nicht sein - die physikalische Adresse der Netzwerkadresse ist doch konstant... 
Irgendwie ist es jetzt an mir, verwirrt zu sein

Announcement

Ermitteln der Netzwerkadresse

Ermitteln der Netzwerkadresse

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment