c code nach delphi

[MatthiasW]

ich möchte eine c - source nach Delphi umsetzen, weiß aber bei folgendem code net so richtig wie ich das umsetze:

COPYDATASTRUCT *cpData = (COPYDATASTRUCT *)lParam;

if (cpData->dwData == 1) {
iconData = (NOTIFYICONDATA *) (((BYTE *)cpData->lpData) + 8 );
trayCommand = *(INT *) (((BYTE *)cpData->lpData) + 4);
}

mein bisheriger Lösungsansatz ist wie folgt:

Delphi-Quellcode:

var pCopyData: Pointer;
    cpData: ^TCopyDataStruct;
    IconData: ^NOTIFYICONDATA;
    pByte: ^Byte;
begin
  case Msg of
    WM_COPYDATA:
      begin
        //get data from adress
        pCopyData := Ptr(lParam);
        if pCopyData <> nil then
        begin
          cpData := pCopyData;
          if cpData^.dwData = 1 then
          begin
            pByte := cpData.lpData;
            pByte^ := pByte^ + 8;
            pCopyData:= Ptr(pByte^);
            IconData := pCopyData;

          end;
        end;
      end;
    else
      Result := DefWindowProc(Handle,Msg,wParam,lParam);  
  end;
end;

kann mir jemand helfen?

[maynard]

Tach...

Hab grad keine Zeit, aber schau morgen mal drüber. Bist du dir sicher, dass COPYDATASTRUCT in der WINAPI als void - Zeiger deklariert ist ?

MfG

[Luckie]

Guck einfach hier: http://www.luckie-online.de/Delphi/S..._COPYDATA.html

[MatthiasW]

ganz so einfach ists leider net, da sich der Code in einer DLL befindet und die Abfrage der COPDYDataStruct ja in der Fensterprocedure der "TrayNotifyClass" stattfindet. Ist mein Ansatz um an die übergebene CopyDataStrut zu kommen denn erstmal richtig?

[Luckie]

Wo ist denn da der unterschied? Du schickst mit WM_COPYDATA Daten an ein Fenster oder? Von wo du schickst ist doch egal. Und au´ßerdem geht es dir ja um den Aufruf und das Vorgehen mit der Struktur.

[sniper_w]

Zitat:

COPYDATASTRUCT *cpData = (COPYDATASTRUCT *)lParam;

if (cpData->dwData == 1) {
iconData = (NOTIFYICONDATA *) (((BYTE *)cpData->lpData) + 8 );
trayCommand = *(INT *) (((BYTE *)cpData->lpData) + 4);
}

So ganz "straightforward" wäre es:

Delphi-Quellcode:

type PCOPYDATASTRUCT = ^COPYDATASTRUCT;

var cpData : PCOPYDATASTRUCT;

begin
 cpData := PCOPYDATASTRUCT(lParam);

 if (cpData^.dwData = 1) then
 begin
  iconData := ^NOTIFYICONDATA ( (   (  PBYTE(cpData->lpData) ) + 8 ) );
  trayCommand :=  ( pinteger( (    ( PBYTE(cpData^.lpData))     + 4) ))^;
 end;

Ob es funct ist eine andere Frage.... :gruebel:

[MatthiasW]

Zitat:

Zitat von Luckie

Wo ist denn da der unterschied? Du schickst mit WM_COPYDATA Daten an ein Fenster oder? Von wo du schickst ist doch egal. Und au´ßerdem geht es dir ja um den Aufruf und das Vorgehen mit der Struktur.

Ich schicke nicht sonder bekomme geschickt

[Luckie]

Wie man etwas empfängt, zeige ich doch auch mit meinem Code.

[MatthiasW]

Zitat:

Zitat von sniper_w

Zitat:

COPYDATASTRUCT *cpData = (COPYDATASTRUCT *)lParam;

if (cpData->dwData == 1) {
iconData = (NOTIFYICONDATA *) (((BYTE *)cpData->lpData) + 8 );
trayCommand = *(INT *) (((BYTE *)cpData->lpData) + 4);
}

So ganz "straightforward" wäre es:

Delphi-Quellcode:

type PCOPYDATASTRUCT = ^COPYDATASTRUCT;

var cpData : PCOPYDATASTRUCT;

begin
 cpData := PCOPYDATASTRUCT(lParam);

 if (cpData^.dwData = 1) then
 begin
  iconData := ^NOTIFYICONDATA ( (   (  PBYTE(cpData->lpData) ) + 8 ) );
  trayCommand :=  ( pinteger( (    ( PBYTE(cpData^.lpData))     + 4) ))^;
 end;

Ob es funct ist eine andere Frage.... :gruebel:

ich werds mal versuchen, danke

[MatthiasW]

Zitat:

Zitat von sniper_w

Zitat:

COPYDATASTRUCT *cpData = (COPYDATASTRUCT *)lParam;

if (cpData->dwData == 1) {
iconData = (NOTIFYICONDATA *) (((BYTE *)cpData->lpData) + 8 );
trayCommand = *(INT *) (((BYTE *)cpData->lpData) + 4);
}

So ganz "straightforward" wäre es:

Delphi-Quellcode:

type PCOPYDATASTRUCT = ^COPYDATASTRUCT;

var cpData : PCOPYDATASTRUCT;

begin
 cpData := PCOPYDATASTRUCT(lParam);

 if (cpData^.dwData = 1) then
 begin
  iconData := ^NOTIFYICONDATA ( (   (  PBYTE(cpData->lpData) ) + 8 ) );
  trayCommand :=  ( pinteger( (    ( PBYTE(cpData^.lpData))     + 4) ))^;
 end;

Ob es funct ist eine andere Frage.... :gruebel:

Also der PInteger löst eine Speicherschutzverletzung aus, die Zeile mit dem IconData scheint zu funktionieren.

[MatthiasW]

ne, das ist in beiden Zeilen dasselbe: sobald ich versuche den Wert abzufragen kommt ein Fehler das zu viele Exeptions aufgetreten sind

also

Delphi-Quellcode:

IconData := PNOTIFYICONDATA(((PByte(cpData^.lpData))^+8));
iTrayCommand := (PInteger((PByte(cpData^.lpData))^ + 4))^;

klappt nicht. Die Daten aus der CopyDataStruct können aber abgefragt werden (wenn ich auf einen dieser Werte zugreife wird keine Exception ausgelöst).

[scp]

Ich weis nicht, ob es unter C mit dem PByte klappt, aber unter Delphi sollte es so aussehen, wenn man einen Zeiger erhöhen will:

Delphi-Quellcode:

begin
  cpData := PCOPYDATASTRUCT(lParam);

  if (cpData^.dwData = 1) then
  begin
    iconData     := PNOTIFYICONDATA( (   ( Integer(cpData^.lpData) ) + 8 ) );
    itrayCommand :=        pinteger( (   ( Integer(cpData^.lpData) ) + 4 ) )^;
  end;
end;

Allerdings würde ich auch Luckies Record-Variante vorziehen, sie ist einfacher und führt zum selben Ergebnis.

[sniper_w]

Delphi-Quellcode:

IconData := PNOTIFYICONDATA(((PByte(cpData^.lpData))^+8));
iTrayCommand := (PInteger((PByte(cpData^.lpData))^ + 4))^;

Was sind eingentlich IconData und iTrayCommand ? Ein Cardinal und ein Integer ?

[MatthiasW]

Zitat:

Zitat von sniper_w

Delphi-Quellcode:

IconData := PNOTIFYICONDATA(((PByte(cpData^.lpData))^+8));
iTrayCommand := (PInteger((PByte(cpData^.lpData))^ + 4))^;

Was sind eingentlich IconData und iTrayCommand ? Ein Cardinal und ein Integer ?

jein, IconData ist ein PNotifyIconData also ein zeiger auf eine NotifyIconData - Strucktur und iTrayCommand ist ein Integer

[MatthiasW]

Zitat:

Zitat von scp

Ich weis nicht, ob es unter C mit dem PByte klappt, aber unter Delphi sollte es so aussehen, wenn man einen Zeiger erhöhen will:

Delphi-Quellcode:

begin
  cpData := PCOPYDATASTRUCT(lParam);

  if (cpData^.dwData = 1) then
  begin
    iconData     := PNOTIFYICONDATA( (   ( Integer(cpData^.lpData) ) + 8 ) );
    itrayCommand :=        pinteger( (   ( Integer(cpData^.lpData) ) + 4 ) )^;
  end;
end;

Allerdings würde ich auch Luckies Record-Variante vorziehen, sie ist einfacher und führt zum selben Ergebnis.

Danke deine Variante klappt wirklich super.

bei Luckies Variante blicke ich leider net ganz durch wie ich da den Zeiger erhöhen soll.