[DCC Error] E2064 Left side cannot be assigned to

[RWarnecke]

Hallo zusammen,

ich stehe irgendwie auf dem Schlau. Die folgende Zeile funktioniert unter XE2 32Bit hervorragend und unter 64Bit gibt es die Meldung wie im Titel.

Delphi-Quellcode:

var
  FFileHandle : Cardinal;
  TmpSerial   : array[1..20] of AnsiChar;
  i, j        : integer;
  buffer      : array [0..sizeof (SRB_IO_CONTROL) + sizeof (SENDCMDOUTPARAMS)] of AnsiChar;
  p           : SRB_IO_CONTROL absolute buffer;
  pin         : PSENDCMDINPARAMS;
  dummy       : dword;
  pOut        : PSENDCMDOUTPARAMS;
  pId         : PIDSECTOR;
begin
  result := '';
  FFileHandle := CreateFileA(PAnsiChar('\\.\Scsi' + AnsiString(inttostr(devname)) + ':'),
                             GENERIC_READ or GENERIC_WRITE,
                             FILE_SHARE_READ or FILE_SHARE_WRITE, nil,
                             OPEN_EXISTING, 0, 0);
  try
    if FFileHandle <> INVALID_HANDLE_VALUE then
    begin
      try
        dword(pin) := dword(@buffer) + sizeof(SRB_IO_CONTROL);   //<--- Fehler aus dem Titel
        fillchar(buffer, sizeof (buffer), 0);
        p.HeaderLength := sizeof (SRB_IO_CONTROL);
        p.Timeout := 1000;

Da muss also irgendwo der Wurm drin sein. Mein Vermutung liegt bei den beiden dword-Befehlen, bin mir aber nicht sicher. Könnt Ihr mir anhand der paar Zeilen sagen, warum diese Zeile unter 64Bit nicht funktioniert ?

[Uwe Raabe]

PSENDCMDINPARAMS ist ein Pointer und der ist unter 64-Bit halt 64-Bit lang. Damit funktioniert der Cast auf DWord nicht.

Edit: Nimm besser NativeInt.

[Stevie]

Zitat von Uwe Raabe:

Edit: Nimm besser NativeInt.

Oder besser IntPtr - ist zwar nur ein Alias für NativeInt, macht aber direkt sichtbar, dass du hier nen Pointer in nem Zahlenwert rumträgst.

[RWarnecke]

Hallo Ihr beiden,

danke für eure schnellen Antworten. Mit NativeInt oder IntPtr kompiliert er jetzt ohne Fehler durch. Wäre doch vergleichbar mit diesem Beispiel hier, nur ein anderer Typ ?

Delphi-Quellcode:

      {$IFDEF Win32}
        Inc(Integer(lgi01), SizeOf(Pointer));
      {$ELSE}
        Inc(Int64(lgi01), SizeOf(Pointer));
      {$ENDIF}

[jbg]

Wie wäre es mit PByte bzw. um abwärtskompatibel zu bleiben PAnsiChar:

Inc(PByte(lgi01), SizeOf(Pointer));

Ich würde das übrigens so schreiben:
pin := PSENDCMDINPARAMS(PByte(@buffer) + SizeOf(SRB_IO_CONTROL));

[RWarnecke]

Zitat von jbg:

Ich würde das übrigens so schreiben:
pin := PSENDCMDINPARAMS(PByte(@buffer) + SizeOf(SRB_IO_CONTROL));

Du verwirrst mich hier ein wenig. Was macht Deine Zeile anderst als meine ??? Da komme ich jetzt nicht ganz mit vom Verständnis her.

[jbg]

Zitat von RWarnecke:

Was macht Deine Zeile anderst als meine ???

Ich habe den Typecast am R-Value und nicht am L-Value. Ist aber Geschmackssache. Zudem nutze ich PByte statt DWORD bzw. IntPtr.

[RWarnecke]

Hallo Andreas, jetzt komme ich dahinter. Danke für Deine Erklärung.

[himitsu]

Was auch immer geht (egal welche Delphiversion) ... PAnsiChar

Für diesen wurde eine schöne Arithmetik eingebaut (1 Byte pro addiertem Wert)


PS: Wenn du del linken Cast nix zuweisen kannst, dann verschiebe den Cast nach rechts

Delphi-Quellcode:

pin := Pointer(PAnsiChar(@buffer) + SizeOf(SRB_IO_CONTROL));  // Pointer kann an alle Pointertypen zugewiesen werden

// oder 

pin := PSENDCMDINPARAMS(PAnsiChar(@buffer) + SizeOf(SRB_IO_CONTROL));


// und wäre PIN selbst ein "Pointer", dann könnte man ihm den PAnsiChar direkt zuweisen, ohne zusätzlichen Cast