Hallo!
Ich hoffe ich bin hier richtig!
Hab leider nocht nicht viel mit Klassen etc. in Delphi gearbeitet, und stell hier einfach mla die Frage ins Forum:
Ich will ein grabbing tool für meine D-Box schreiben!
Jemand hat eine
DLL (WingrabEngine.DLL (dem ein oder andern evtl. bekannt)) erstellt, die ich dann mit meinem Tool ansprechen will!
So weit so gut...grabben funzt auch, nur habe ich das Problem, dass ich es nicht schaffe die Statusinformationen aus der
DLL "abzuholen".
Hier hätte ich mal ein VB.NET Beispiel, vielleicht kann mit das jemand bezüglich MessageCallBack für Delphi übersetzen:
Code:
Implements IWinGrabProcessCallback
Public WinGrabLibrary As Object
Public WinGrabGrabControl As Object
Private Sub Form_Load()
Dim video As String
Dim audio(3) As String
video = "C:\Recording\Kabel_00.vpes"
audio(0) = "C:\Recording\Kabel_01.apes"
audio(1) = "C:\Recording\Kabel_02.apes"
'z.B. zwei PES-Streams (udrec -pes) zu einem PS-Stream muxen
Set WinGrabLibrary = CreateObject("WinGrabEngine.WinGrabLibrary")
Set WinGrabGrabControl = WinGrabLibrary.StartMuxEx(video, -1, -1, audio, "C:\Recording\Kabel.mpg", 0, Me)
End Sub
Public Sub IWinGrabProcessCallback_OnMessage(ByVal sMessage As String)
'Log-Ausgabe (sMessage) wird als String übergeben
End Sub
Public Sub IWinGrabProcessCallback_OnStateChange(ByVal sName As String, ByVal sState As String)
'Status-Informationen (z.B. "Muxer" sName, "SCR: 00:00:00.480 Syncs: 1" sState) werden jeweils als String übergeben
End Sub
Um das
Public Sub IWinGrabProcessCallback_OnMessage(ByVal sMessage As String) bzw. das implements ganz oben gehts mir eigentlich!!!
Hab in meinem Prog schon schon eine procedure eingefügt:
procedure IWinGrabProcessCallback_onMessage(sMessage: String), aber irgendwie wird die procedure nicht aufgerufen, falls daten von der
dll kommen!
Irgendwo in meinem Programm (deklarationen?) muss ich ihm sicher noch sagen, dass er die procedure aufrufen soll, oder??
Hoffe das Problem ist nicht zu speziell!
danke für Eure Bemühungen!
MfG
Steran