То,что я нашел про Bink-кер(*.bik).Разберемся в нем

[Lamer_Pavel]

Может,осилим Бинкер

[kibernetics]

а чё это ваще такое?
поясни, будь добр

[jangle]

Рискну предположить, что это закодированное послание от гуманоидов с Альфа-Центавра

[kibernetics]

я знаю что это формат из игр вроде бы, типа видео.
но зачем всё это...
паштет, ну ты хочешь повытягивать ролики из игрушек?

[Lamer_Pavel]

Специально для всех - это исходный код на C++,ориентируясь на который,можно использовать binkw32.dll.
Например:

Код на C++

Код: Выделить всё

typedef struct
{
   s32 Width;         
   s32 Height;         
   s32 Frames;         
   s32 FrameNum;      
   s32 LastFrame;
   s32 FrameRate;      
   s32 FrameRateDiv;   
   u32 Flags;
        s32 yWidth;         
   s32 yHeight;      
   s32 uvWidth;      
   s32 uvHeight;   
   
} BINK_STRUCT, *HBINK;


На VB:

Код: Выделить всё

Private Type BINK_STRUCT
     Width As Integer
     Height As Integer
     Frames As Integer
     FrameNum As Integer
     LastFrame As Integer
     FrameRate As Integer
     FrameRateDiv As Integer
     Flags As Integer
     yWidth As Integer
     yHeight As Integer
     uvWidth As Integer
     uvHeight As Integer
End Type


На C++:

Код: Выделить всё

#define BINKNOTHREADEDIO 0x00800000


На VB:

Код: Выделить всё

Private Const BINKNOTHREADEDIO = &H800000


[HiSER]

В структуре вместо Integer должно быть Long, как я понимаю u32 - без знаковое 32-х битное число, а s32 - знаковое. А Integer - знаковое 16-и битное число.

[burik]

И что полезного есть в этой binkw32.dll?

[Lamer_Pavel]

Она проигрывает файлы *.bik,которые используются в большинстве игр.

[Antonariy]

Если задача только в том, чтобы смотреть ролики, то для far'а есть плагин - binkview.

[homeworld]

Было бы супер использовать эту библу(binkw32.dll) в VB6. Я слышал что есть Rad Video Tools SDK (bink & smk) так там вроде есть описания про всё что надо, но SDK кажется стоит денежков.

[Lamer_Pavel]

Я вот что написал

Код: Выделить всё

Private Declare Function BinkOpen Lib "binkw32.dll" Alias "_BinkOpen@8" (ByVal hBinkFile As String, flags As String) As Long
Private Sub Form_Load()
BinkOpen "d:/1.bik", "BINKALPHA"
Me.Caption = BinkOpen("d:/1.bik","BINKALPHA")
End Sub


И на заголовке формы появилось число 19988608,но если "d:/1.bik" заменить на несуществующий путь, то будет число 0.
Значит ли это то,что я сделал всё правильно?

[Antonariy]

Да

[Lamer_Pavel]

На одном из форумов VBSTREETS:

-----------------------------------------------------
Addr:8000D40C hint(0038) Name: _BinkWait@4
Addr:00000000 hint(0015) Name: _BinkDoFrame@4
Addr:000000D5 hint(0022) Name: _BinkNextFrame@4
Addr:00527CE8 hint(000F) Name: _BinkClose@4
Addr:8000D60C hint(0024) Name: _BinkOpenDirectSound@4

имеют пустой параметр void, либо на адрес буфера.

А функция:

Addr:00000000 hint(0016) Name: _BinkGetError@0

Вообще не имеет параметра, она возвращает, как я понял какое либо значение. Только вот какое?
-----------------------------------------------------

Как мне в VB "изобразить" пустой параметр void

С _BinkGetError@0 я разобрался

Код: Выделить всё

Private Declare Function BinkGetError Lib "binkw32.dll" Alias "_BinkGetError@0" () As Long


И мне он возвратил число 805638608

[HiSER]

Она возвращает адрес строки. Получить её можно, например, так:

Код: Выделить всё

Private Declare Function BinkGetError Lib "binkw32.dll" Alias "_BinkGetError@0" () As Long
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Private Declare Function lstrlen Lib "kernel32" Alias "lstrlenA" (lpString As Any) As Long

Private Function GetError() As String
Dim addr As Long
Dim lstr As Long
addr = BinkGetError
lstr = lstrlen(ByVal addr)
If lstr > 0 Then
GetError = String$(lstr, 0)
CopyMemory ByVal GetError, ByVal addr, lstr
End If
End Function

Private Sub Command1_Click()
Me.Caption = GetError
End Sub


[Lamer_Pavel]

На данный момент я без проблем обращаюсь к библиотеке со следующими функциями:

Код: Выделить всё

Private Declare Function BinkGetError Lib "binkw32.dll" Alias "_BinkGetError@0" () As Long
Private Declare Function BinkOpen Lib "binkw32.dll" Alias "_BinkOpen@8" (ByVal hBinkFile As String, flags As Long) As Long
Private Declare Function BinkClose Lib "binkw32.dll" Alias "_BinkClose@4" (ByVal val As Long) As Long


Но при использовании функций:

Код: Выделить всё

Private Declare Function BinkGoto Lib "binkw32.dll" Alias "_BinkGoto@12" (ByVal val As Long, framenumber As Long, ByVal flags As Long) As Long
Private Declare Function BinkNextFrame Lib "binkw32.dll" Alias "_BinkNextFrame@4" (ByVal val As Long) As Long
Private Declare Function BinkDoFrame Lib "binkw32.dll" Alias "_BinkDoFrame@4" (ByVal val As Long) As Long


Где val - это BinkOpen("d:/1.bik", BINKALPHA),то вылетает ошибка о том ,что в проэкте найдена ошибка и оно закрывается,передайте Microsoft сведения о ошибке.
Я что-то делаю неправильно?

[Lamer_Pavel]

Это кусок Bink SDK,может по нему можно определить ошибку:

Код: Выделить всё

#include <radbink.h>
#include <stdio.h>


s32 BinkOpenDirectSound(s32 unknown)
{
   return 0;
}

s32 BinkOpenMiles(s32 unknown)
{
   return 0;
}

s32 BinkOpenWaveOut(s32 unknown)
{
   return 0;
}

s32 BinkSetSoundSystem(BINK_SOUND_FUNC SoundFunction, IDirectSound *pDS)
{
   return 0;
}

HBINK BinkOpen(HANDLE hBinkFile, u32 Flags)
{
   return 0;
}

void BinkGoto(HBINK hBink, s32 FrameNumber, s32 unknown)
{
}

s32 BinkDoFrame(HBINK hBink)
{
   return 0;
}

void BinkNextFrame(HBINK hBink)
{
}

void BinkClose(HBINK hBink)
{
}

s32 BinkWait(HBINK hBink)
{
   return 0;
}