LDAP SID ermitteln

[cst_07]

Hi,

also ich habe deinen Code jetzt so eingebaut...

Code:

      sField := ADOQuery1.FieldByName('objectSid').AsString;
      sSid := '';
      sSID2 := '';
      for i := 1 to Length(sField) do begin
        ch := Copy(sField,i,1)[1];
        sSID2 := sSID2 + ch;
        // ch := sField[i]; // <-- wäre auch eine Möglichkeit.
        b := Ord(ch);
        sHex := IntToHex(b,2);
        sSid := sSid + sHex + ' ';
        // sSid := sSid + '$' + sHex; // <-- wenn's denn mit $ vorneweg sein soll.
      end;
      // showmessage(sSid);
      Memo1.Lines.Add('FName: ' + lsi.FName + #13#10+
                      'SID:   ' + sSID + #13#10+
                      'SID2:  ' + sSID2 + #13#10);

Irgendwas mache ich noch falsch,... bei mir kommt anstelle der SID immernoch irgendwelche Zeichen. Ich habe dir einen Screen angefügt, damit du siehst was ich meine.