Текущий архив: 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.44 MB
Время: 0.027 c