Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.06.26;
Скачать: CL | DM;

Вниз

Проблемы с SDK BSPlayer а   Найти похожие ветки 

 
Deedlit ©   (2003-03-10 11:36) [0]

Здравствуйте все. Нужно открыть BSPlayer (один из популярных видеоплейеров) и открыть в нем видеофайл. Упоминания о такой возможности есть в SDK этой программы:

// To get BSPlayer window handle use:
// bsp_hand:=FindWindow("BSPlayer",nil);

// cds:TCOPYDATASTRUCT;
//
// cds.dwData:=BSP_OpenFile;
// cds.lpData:=Pchar("file.avi");
// cds.cbData:=strlen(cds.lpData)+1;
// SendMessage(bsp_hand,WM_COPYDATA,0,lParam(@cds));
// available in BSPlayer version 0.84.484+
//
// Open file
BSP_OpenFile = $10108;


Вот написанная процедура:

procedure TMainForm.sbOpenPlayerClick(Sender: TObject);
var
BSP: TCopyDataStruct;
hPlayer: THandle;
begin
LoadObject(PlayerPath);
hPlayer:=FindWindow("BSPlayer", nil);
BSP.dwData:=BSP_OpenFile;
BSP.lpData:=PChar("c:\127.0.0.1\Coding\[BurnUpW] Opening.avi");
BSP.cbData:=StrLen(BSP.lpData)+1;
SendMessage(hPlayer, WM_COPYDATA, 0, lParam(@BSP));
end;


... в результате которой плейер запускается, но файл не открывает. Все пути проверены. Что интересно и совсем непонятно, если не запустить плейер и попробовать FindWindow, результат не будет равен null...

В общем, нужна помощь.


 
Cobalt ©   (2003-03-11 14:10) [1]

попробуйте сделать второе приложение, и ему послать это сообщение, а потом вывести(во 2-ом), что в нем передалось.



Страницы: 1 вся ветка

Текущий архив: 2003.06.26;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.021 c
3-83859
terra
2003-06-02 10:34
2003.06.26
БД и QuickReport


4-84818
saha
2003-04-22 13:00
2003.06.26
Активное окно


1-84320
Serjik
2003-06-15 05:59
2003.06.26
Следы


7-84807
Alkinoy
2003-04-15 16:56
2003.06.26
Научите, пожалуйста, обрабатывать прерывания.


1-84084
kah68
2003-06-10 12:39
2003.06.26
Не обязательный параметр