DvbDream Community

Posted: **Mon Oct 01, 2007 8:47 am**

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.

Posted: **Mon Oct 01, 2007 1:01 pm**

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));



...

Posted: **Fri Oct 05, 2007 8:41 am**

Thanks...