Einzelnen Beitrag anzeigen

Benutzerbild von TERWI
TERWI

Registriert seit: 29. Mär 2008
Ort: D-49626
381 Beiträge
 
Delphi 11 Alexandria
 
#3

Re: Sendmessage - Probleme ....

  Alt 8. Aug 2009, 15:07
Nicht wirklich.
Ich versuche z.B. das aktuelle Programm und Signalstärke/Qualität auszulesen.
In der API ist u.a. das so definiert:

Delphi-Quellcode:
const
  WM_MODULE_MSG = WM_USER + 321;
  ...
  DDMODAPI_GET_SIGNALINFO = $00100001;
  DDMODAPI_GET_CHANNEL_INFO = $00100015;
  ...
type
  PSignalInfo = ^TSignalInfo;
  TSignalInfo = packed record
    dwSize: DWORD;
    Level: BYTE;
    Quality: BYTE;
    Locked: BYTE;
  end;
  ...
  PChannelInfo = ^TChannelInfo;
  TChannelInfo = packed record
    dwSize: DWORD;
    wNID: WORD;
    wSID: WORD;
    wSatPos: WORD;
    dwChId: DWORD;
    ChName: packed array[0..63] of char;
    Provider: packed array[0..63] of char;
    ChType: BYTE;
    Scrambled: BYTE;
    wVideo: WORD;
    wPMT: WORD;
    wPCR: WORD;
    wTTX: WORD;
    Audio: TAudioInfo;
    ECM: TCAInfo;
    EMM: TCAInfo;
    wChNo: WORD;
  end;
  ...
var
  ChannelInfo : TChannelInfo;
  SignalInfo : TSignalInfo;
  hdl : HWND;
  ...

  ChannelInfo.dwSize = sizeof(TChannelInfo); // define the size of record
  SendMessage(hdl, WM_MODULE_MSG, DDMODAPI_GET_CHANNEL_INFO, integer(@ChannelInfo));

  SignalInfo.dwSize := sizeof(TSignalInfo); // define the size of record
  SendMessage(hdl, WM_MODULE_MSG, DDMODAPI_GET_SIGNALINFO, integer(@SignalInfo));
  ...
ChannelInfo und SignalInfo auslesen ergibt nur murks, bzw. weg ist DVBDream ...
Als Modul schon zig mal so eibgesetzter Code.
  Mit Zitat antworten Zitat