Moin,
bei mir funktioniert:
Delphi-Quellcode:
if ErrorMessage.Length > 2 then
StatusCode := StrToInt(Copy(ErrorMessage.ValueFromIndex[2], Pos(' ', ErrorMessage.ValueFromIndex[2]) + 1, 3));
leider nicht. Zum einen kennt er ErrorMessage.Length nicht und ValueFromIndex[2] ist leer.
Mit:
Copy(ErrorMessage[2], Pos(' ', ErrorMessage[2]) + 1, 3))
bekomme ich jedoch 401 als String zurück...
Also Danke Danke Danke