Sekündlich wechselnde MAC Adresse!?

[himitsu]

Oder eine dieser beiden Varianten, wobei ich Letztere bevorzugen würde ^^

Und das der Index bei 0 beginnt, daß hat Lasse2002 schon versucht zu sagen
TMacAddress = array [0..MAXLEN_PHYSADDR - 1] of Byte;

Delphi-Quellcode:

class function TAdapter.MacAddrToStr(const MacAddr: TMacAddress; AddrLen: Cardinal): String;
var
  I: Integer;
begin
  { Convert MAC-Address to string for display purposes... }
  if AddrLen = 0 then
  begin
    Result := '00-00-00-00-00-00';
    Exit;
  end;
  Result := IntToHex(MacAddr[0], 2);
  for I := 1 to AddrLen - 1 do
    Result := Result + '-' + IntToHex(MacAddr[I], 2);
end;

Delphi-Quellcode:

class function TAdapter.MacAddrToStr(const MacAddr: TMacAddress; AddrLen: Cardinal): String;
var
  I: Integer;
begin
  { Convert MAC-Address to string for display purposes... }
  if AddrLen > 0 then
  begin
    Result := IntToHex(MacAddr[0], 2);
    for I := 1 to AddrLen - 1 do
      Result := Result + '-' + IntToHex(MacAddr[I], 2);
  end
  else
    Result := '00-00-00-00-00-00';
end;

Allerdings dürfte sich, auf Grund des Indexfehlers, nur die letzte Zahl verändern und nicht die vorletzte, also wird es demnach noch ein weiteres Problem geben.