AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

Bink Player

Ein Thema von TrevorKidd · begonnen am 5. Sep 2011 · letzter Beitrag vom 6. Sep 2011
Antwort Antwort
TrevorKidd

Registriert seit: 5. Sep 2011
5 Beiträge
 
Delphi 7 Personal
 
#1

Bink Player

  Alt 5. Sep 2011, 11:15
Hallo,

ich möchte in einem kleinen Tool Bink Videos abspielen lassen. Ich habe im Internet auch ein Beispiel gefunden, doch leider scheint dies mit einer neueren Version von Delphi erstellt worden zu sein (ich benutze Delphi 7).

Leider ist es mir nicht gelungen das Ganze nach Delphi 7 zu portieren. Vermutlich stehe ich einfach nur zu sehr auf dem Schlauch. Könnte mir dabei bitte jemand helfen?

Grüße

Edit: Alternativ würde mir auch reichen, wenn mir jemand erklärt wie ich die BinkW32.pas, die auch in dem Archiv mit dem Beispiel enthalten ist, benutze um ein Video im Binkformat abzuspielen.

Für die Leute, die sich das Archiv nicht runterladen möchten, hier der Code aus der BinkW32.pas.
*snip*

Geändert von Daniel ( 5. Sep 2011 um 20:38 Uhr) Grund: Code entfernt wegen Verdacht auf Verletzung des Urheberrechts
  Mit Zitat antworten Zitat
Alt 5. Sep 2011, 11:51     Erstellt von omata
Dieser Beitrag wurde von Daniel gelöscht. - Grund: Verdacht auf Verletzung des Urheberrechts
Alt 5. Sep 2011, 12:24     Erstellt von TrevorKidd
Dieser Beitrag wurde von Daniel gelöscht. - Grund: Verdacht auf Verletzung des Urheberrechts
Alt 5. Sep 2011, 12:47     Erstellt von omata
Dieser Beitrag wurde von Daniel gelöscht. - Grund: Verdacht auf Verletzung des Urheberrechts
Alt 5. Sep 2011, 13:10     Erstellt von TrevorKidd
Dieser Beitrag wurde von Daniel gelöscht. - Grund: Verdacht auf Verletzung des Urheberrechts
Alt 5. Sep 2011, 14:52     Erstellt von TrevorKidd
Dieser Beitrag wurde von Daniel gelöscht. - Grund: Verdacht auf Verletzung des Urheberrechts
Benutzerbild von lbccaleb
lbccaleb

Registriert seit: 25. Mai 2006
Ort: Rostock / Bremen
2.037 Beiträge
 
Delphi 7 Enterprise
 
#2

AW: Bink Player

  Alt 5. Sep 2011, 18:37
Hast du mal dezent den Einleitungstext von der *.pas gelöscht?

Der da währe:

Zitat:
{-------------------------------------------------------------------------------

BINK 1.0q LIBRARY HEADER FOR DELPHI
- By Lars Peter Christiansen.

http://home1.stofanet.dk/nitezhifter

PLEASE READ THIS :
"Bink" is a video library from RAD Tools. You have to be licensed in order
to use bink commercially.
Visit RADTools for legal info : www.smacker.com


This file is a hack !
Alot of record fields are still incomplete.
Not all functions exists!
I don't have the Bink SDK, and regardless of hours of search on the net, i
haven't found any info/extracts of the SDK. All i had to go on, was the tiny
info on RADTools website. Here is a list of approaches i used :
- Reading any written info of the Bink (sdk overview, changelogs)
- Reading any info of the Smacker (they might have things in common)
- Disassembling of the Binkw32.dll (names, parameters)
- Disassembling and debugging of games using the lib. ( Diablo2 )
- Creating various testing programs.(automating bitflags and stuff)


Binkw32.dll versions:
There are difference in function names and existence between the different
library versions. They are not always backwards-compatible!


DON'T RELEASE ANYTHING USING THIS FILE BEFORE YOU'VE READ AND UNDERSTOOD
THE LEGAL INFO AT www.smacker.com !


02-08-2000:
First version of the binkw32.pas.
We can open and display a binkfile. Can't get the audio to work though!

22-10-2001:
Did some research of the different versions of binkw32.dll. Seems that i've
been working on some beta version, which caused the switch of colors on
movies compiled at later dates. Movies play nicely now and works great with
a standard windows bitmap.

23-10-2001:
After some heavy analysis, the surfacetype constants fell into place. Still
not sure about 8bit. Is it supported at all?
After some _serious_ disassembling of Diablo2 and Red alert2 i finally solved
the great puzzle of the sound system. Those callbacks really bugged me.
Still can't create a custom sound system.

24-10-2001:
After a bit RedAlert2 debugging, support for playing off a stream
with offset has beed added.
Added a GetBinkVersion() function.


-------------------------------------------------------------------------------}
Intressant ist das:
Zitat:
"Bink" is a video library from RAD Tools. You have to be licensed in order
to use bink commercially.
Visit RADTools for legal info : www.smacker.com


This file is a hack !
Alot of record fields are still incomplete.
Not all functions exists!
I don't have the Bink SDK, and regardless of hours of search on the net, i
haven't found any info/extracts of the SDK.
Der Grund dafür, steht auf der Seite der Firma!

Zitat:
The best way to learn about Bink is to just try it! Download the RAD Video Tools to compress files into Bink format. Email us to get an evaluation SDK.
Sprich, das was du da gerade machst, ist illegal! Genauso, wie der hier gepostete Code
Martin
MFG Caleb
TheSmallOne (MediaPlayer)
Die Dinge werden berechenbar, wenn man die Natur einer Sache durchschaut hat (Blade)
  Mit Zitat antworten Zitat
Alt 5. Sep 2011, 20:27     Erstellt von TrevorKidd
Dieser Beitrag wurde von Daniel gelöscht. - Grund: Verdacht auf Verletzung des Urheberrechts
Daniel
(Administrator)

Registriert seit: 30. Mai 2002
Ort: Hamburg
15.183 Beiträge
 
Delphi 10.3 Rio
 
#3

AW: Bink Player

  Alt 5. Sep 2011, 20:39
Auf den ersten Blick scheint mir dies eine kommerzielle Unit zu sein (vielen Dank für den Hinweis!). Wenn dem tatsächlich so ist, dann darf der Code hier nicht veröffentlicht werden. Schon gar nicht ohne den Copyright-Hinweis.

Sollte es davon eine frei verfügbare Variante geben, dann benötige ich dafür eine belastbare Quelle und ich schalte alle Beiträge wieder frei.
Daniel R. Wolf
Admin Delphi-PRAXiS
mit Grüßen aus Hamburg
  Mit Zitat antworten Zitat
omata

Registriert seit: 26. Aug 2004
Ort: Nebel auf Amrum
3.154 Beiträge
 
Delphi 7 Enterprise
 
#4

AW: Bink Player

  Alt 5. Sep 2011, 22:34
Es tut mir leid, ich habe einfach den ersten Link bei Google auf der Suche nach "binkw32.pas" verwendet (Jetzt ist es der zweite Link) und das Beispiel von dort verwendet. Da ist auch nichts herausgelöscht worden (außer nicht verwendeter Variablen und dem Befehl "Exit").

Naja, sorry.
  Mit Zitat antworten Zitat
Benutzerbild von igel457
igel457

Registriert seit: 31. Aug 2005
1.622 Beiträge
 
FreePascal / Lazarus
 
#5

AW: Bink Player

  Alt 6. Sep 2011, 11:57
Wenn du einfach nur Bink-Videos dekodieren möchtest, kannst du dafür Acinerella (http://acinerella.sf.net/) verwenden - den Code für die Wiedergabe (ohne solide Kenntnisse in Threading und Audio-Wiedergabe ist das leider nur schwer möglich) musst du aber selbst schreiben.
Andreas
"Sollen sich auch alle schämen, die gedankenlos sich der Wunder der Wissenschaft und Technik bedienen, und nicht mehr davon geistig erfasst haben als die Kuh von der Botanik der Pflanzen, die sie mit Wohlbehagen frisst." - Albert Einstein
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 20:01 Uhr.
Powered by vBulletin® Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2019 by Daniel R. Wolf