View Single Post
  #3 (permalink)  
Old 13th November 2003
giubbe giubbe is offline
Junior Member
BS.Player Newbie
 
Join Date: Sep 2003
Posts: 8
Rep Power: 0
giubbe is an unknown quantity at this point
Default

I apologize, I mistake

The BSP_GETVERSION works, I had send the wrong command

The BSP_Exit works only if the filmed is on play

The following code works well in 0.86.501, but not in 1.0.800 (not exit)

repeat
hWnd2 := FindWindow('BSPlayer',nil);
Application.ProcessMessages;
if Time - Te > 1/24/60 then begin
TempoOK:=false;
hWnd2:=1;
end;
until hWnd2<>0;
if tempoOK then begin
Ver := SendMessage(hWnd2, WM_BSP_CMD, BSP_GETVERSION, 0);
SendMessage(hWnd2, WM_BSP_CMD, BSP_Play, 0);
SendMessage(hWnd2, WM_BSP_CMD, BSP_Exit, 0);
end

This you instead work well in both the versions

repeat
hWnd2 := FindWindow('BSPlayer',nil);
Application.ProcessMessages;
if Time - Te > 1/24/60 then begin
TempoOK:=false;
hWnd2:=1;
end;
until hWnd2<>0;
if tempoOK then begin
Ver := SendMessage(hWnd2, WM_BSP_CMD, BSP_GETVERSION, 0);
showMessage(IntToStr(ver));
SendMessage(hWnd2, WM_BSP_CMD, BSP_Play, 0);
SendMessage(hWnd2, WM_BSP_CMD, BSP_Exit, 0);
end


This code starts the Chapter Cap with 0.86.501 and the chapter Cap-1 in 1.0.800

for t:=1 to Cap do SendMessage(bsp_hand,WM_BSP_CMD,BSP_NextCh,0);
Reply With Quote
 

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20