Sorry, ich bekomme es irgendwie nicht gebacken. Bei der Sid kommt irgendwie nichts g'scheids heraus...
Codeschnipsel
Code:
Var
i : integer;
sField : String;
sSid : String;
begin
sField := ADOQuery1.FieldByName('objectSid').AsString;
for i := 1 to length(sField) do sSid := sSid + IntToHex(Ord(Copy(sField,i,1)[1]),2) + ' ';
showmessage(sSid);
end;
Zum Umwandeln der HexWerte in Strings habe ich folgende Funktion verwendet:
Code:
Function HexToStr(s: String): String;
Var i: Integer;
Begin
Result:=''; i:=1;
While i<Length(s) Do Begin
Result:=Result+Chr(StrToIntDef('$'+Copy(s,i,2),0));
Inc(i,2);
End;
End;
Mit deinem Beispiel bekomme ich irgendwelche HexWertke heraus, welche aber leider keinen lesbaren String ergeben, sondern irgendwelche Sonderzeichen. Ich vermute, dass der Rückgabeparameter "AsString" nicht funktioniert
Wie bekomme ich den Wert der ObjectSid in ein ByteArray und dieses dann in ein String umgewandelt?