Current and Following EPG

[yeyotheiron]

var
AEpgInfo: TEPGInfo;

begin

SendMessage(DDHwnd,
WM_MODULE_MSG,
DMODAPI_GET_EPG_CURRENT,
Integer(@AEpgInfo)
);

Why AEpgInfo is nil here...

SendMessage(DDHwnd,
WM_MODULE_MSG,
DMODAPI_GET_EPG_FOLLOWING,
Integer(@AEpgInfo)
);

and here...

Please, howto get Current and Following EPG...

Thanks, excuse my English.

[FredB]

You can encapsulate the SendMessage functions in a Timer procedure.

ie :

Code: Select all


var
Timer1:Integer; //TTimer;
....

....

Timer1:=SetTimer(0,0,1000,@Timer1Timer);

....

procedure Timer1Timer (Hw: LongWord; Msg:LongWord;
idEvent:LongWord; dwWord:LongWord); StdCall;)

//Current EPG
SendMessage(DDHwnd, WM_MODULE_MSG, DDMODAPI_GET_EPG_CURRENT, Integer(@AEpgInfo));

//Following EPG
SendMessage(DDHwnd, WM_MODULE_MSG, DDMODAPI_GET_EPG_FOLLOWING , Integer(@AEpgInfo));

...


[yeyotheiron]

Thanks...