Integer als Adresse eines Records

[Chewie]

Ich komm gerade nicht weiter. Ich speichere in einer Integer-Variable die Adresse eines Records (zumindest hoffe ich das):

Delphi-Quellcode:

LVItem.mask := LVIF_TEXT or LVIF_PARAM;
      LVItem.iItem := rowIndex;
      LVItem.iSubItem := 0;
      GetTimeFormat(LOCALE_SYSTEM_DEFAULT, 0, @PacketRec.inTime, 'HH:mm:ss', @curTime, Length(curTime));
      LVItem.pszText := @curTime;
      LVItem.lParam := Integer(PacketRec);  //hier
      SendMessage(hIncIPView, LVM_INSERTITEM, 0, Integer(@LVItem));

PacketRec ist eine Referenz auf PacketRec, ein Recordtyp.

Nun (etwas später) will ich den Record wieder auslesen:
PacketRec := PPacketRec(LVItem.lParam); Leider bekomm ich hier eine AV. Kann mir jemand helfen?

[Christian Seehase]

Moin Chewie,

LVItem.lParam := Integer(PacketRec); müsste wohl

Code:

LVItem.lParam := Integer([color=red]@[/color]PacketRec);

heissen.

Die genaue Deklaration von PacketRec wäre eventuell recht hilfreich.

[Chewie]

Das bringt auch nix.

Ich hab mich etwas missverständlich ausgedrückt. Also hier die Deklaration:

Delphi-Quellcode:

type
  TPacketRec = packed record
    {...}
  end;
  PPacketRec = ^TPacketRec;

var
  PacketRec: PPacketRec;

PacketRec ist also schon ein Zeiger.

[Christian Seehase]

Moin Chewie,

nur noch mal zum Verständnis:
Bei dieser Zeile bekommst Du eine AV

PacketRec := PPacketRec(LVItem.lParam);

[Chewie]

Nein, natürlich nicht
Natürlich erst, wenn ich auf ein Element des Records zugreife:

Delphi-Quellcode:

PacketRec := PPacketRec(LVItem.lParam);
                if PacketRec <> nil then
                begin
                  ShowErrorMsg(PacketRec.srcHost, 'Hinweis', hWnd);
                end
                else ShowErrorMsg('Keine Daten', 'Fehler', hWnd);

Sorry nochmal

[EDIT]: ShowErrorMsg ist eine Kapselung von MessageBox.[/EDIT]

[Chewie]

Ach, verdammt, wieder so ein einfacher Fehler. Ich muss mich schämen. Der Fehler lag nicht an der Adresse, sondern daran, dass ich das Feld mit der Adresse gar nicht anfordere.

Folgendermaßen muss ich natürlich das Feld lParram holen:

Delphi-Quellcode:

    with PNMHdr(lParam)^ do
      begin
        //falls es das Listview war...
        if hWndFrom = hIncIPView then
        begin
          case code of
            //Item wurde ausgewählt
            LVN_ITEMACTIVATE:
            begin
              with PNMITEMACTIVATE(lParam)^ do
              begin
                LVItem.iItem := iItem;
                LVItem.iSubItem := 0;
                LVItem.mask :=  LVIF_PARAM;  //<--
                ListView_GetItem(hIncIPView, LVItem);
                PacketRec := PPacketRec(LVItem.lParam);
              end;
            end;
          end;
        end;
      end;

Das markierte Stück hab ich natürlich vergessen. Jetzt klappt alles.

Mein Problem mit den Icons hab ich allerdings immer noch, falls also noch jemand zu diesem Thread eine Idee hat - ich wär glücklioch