Bool(ean)-Wert in PByte kopieren [gelöst]

[Dalai]

Hallo Leser und Wissende .

Ich hab mal wieder ein kleines Problem, das ich aufgrund fehlenden Wissens, Verständnisschwierigkeiten und mangelnder Suchergebnisse nicht selbst lösen kann.

Gegeben ist eine Funktion

Delphi-Quellcode:

function FsContentGetValue(FileName: PChar; FieldIndex, UnitIndex: integer;
                            FieldValue: PByte; maxlen, flags: integer):integer; stdcall;

Im Parameter FieldValue können verschiedene Typen zurückgegeben werden: Strings, Boolsche Typen, Numerische Typen, Datumsangaben usw. Strings sind ja kein Problem, denn PChar und PByte kann man hier einfach "einander zuweisen", Beispiel:lstrcpyn(PChar(FieldValue), PChar(svc.ServiceName), maxlen);

Aber wie kann ich einen Boolschen Wert zuweisen/kopieren? Ich hab verschiedene Varianten probiert, unter anderem:

Delphi-Quellcode:

PBOOL(FieldValue):= PBOOL(LongBool(svc.OwnProcess));
PBOOL(FieldValue):= PBOOL(svc.OwnProcess);

Leider kommt dabei immer FieldValue = True raus.

In C++ würde man einfach schreiben:

Code:

*((BOOL*)FieldValue) = (svc->Interactive);

Kann mir jemand auf die Sprünge helfen?

MfG Dalai

[himitsu]

Willst du dem Zeiger, oder dem Inhalt was zuweisen?

PBOOL(FieldValue)^ := ... , also das nächste Mal nicht das "*" vergessen.


Ob und wer vorher noch den Speicher reserviert, ist eine andere Sache.

[Medium]

Edit: Hab das falsch verstanden. Ich dachte du nutzt die genannte Funktion, aber du schreibst sie ja

[Aphton]

Zitat:

Delphi-Quellcode:

PBOOL(FieldValue):= PBOOL(LongBool(svc.OwnProcess));
PBOOL(FieldValue):= PBOOL(svc.OwnProcess);

Du sagst: FieldValue, interpretiert als PBool, soll den Wert svc.OwnProcess, interpretiert als LongBool, interpretiert als PBool, haben..

Also im Grunde machst du eine 1:1 zuweisen. Der Pointer FieldValue erhält bei diesen zwei Zeilen keine Adresse sondern einen Wert!
Bei LongBool kann das alles zwischen 0 und 2^32-1 sein!
Wenn du dann FieldValue dereferenzierst, per ^, dann greifst du auf die Adresse, welche der Inhalt von OwnProcess war, zu - was eig. knallen sollte, da da meistens 0 oder 1 drinnen steht und du keinen Zugriff auf diese Adressen haben solltest.

So ists richtig:

Delphi-Quellcode:

// Zuweisung als Pointer
FieldValue := @svc.OwnProcess));

// Änderung der originalen Referenz
FieldValue^ := false; // svc.OwnProcess = false!

[Dalai]

Zitat von himitsu:

Willst du dem Zeiger, oder dem Inhalt was zuweisen?

Natürlich dem Inhalt.

Zitat:

PBOOL(FieldValue)^ := ...

Danke, das funktioniert.

Zitat:

[...] also das nächste Mal nicht das "*" vergessen.

Naja, ich verwende nicht ohne Grund Delphi, um mich nicht mit Zeigerkrempel auseinandersetzen zu müssen . Ich hasse diese C++-Syntax und weiß nie, ob man referenziert oder dereferenziert und was bei vielen Klammern in einer Anweisung wie zusammengehört (Cast, Verzeigerung etc).

Zitat von Medium:

Edit: Hab das falsch verstanden. Ich dachte du nutzt die genannte Funktion, aber du schreibst sie ja

Jein. Es ist eine Funktion für das Plugin-Interface zum Total Commander. Insofern schreibe ich sie, aber nur auf der Seite des Plugins.

MfG Dalai