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....

[MatthiasW]

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 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....

ich werds mal versuchen, danke

[MatthiasW]

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....

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