500分求原码或思路,UP有分!!!!!急....... (200分)

I

ike

Unregistered / Unconfirmed
GUEST, unregistred user!
急!!!!
在用DELPHI5+神龙卡SDK包播放DVD的*.vob文件时,不会定义回调函数,如果有哪位大侠能给外
实例或是思路,解决问题后倾囊相送。500分。
 
基本上很少人用,帮你UP一下吧...
 
不会,帮你up
 
你将SDK包中的回调函数原型贴出来(应该是C的吧),就有人会帮你解决
 
我也不知道,但是你有500分吗?
up
 
当然有分,这里200,解决问题后又会开贴给300分的。
 
不知,帮你UP
 
不懂,帮你 UP
 
估计知道答案的人很少...
 
为什么不咨询神龙卡的制作商
 
只好up啦
 
豆豆大侠,久仰大名!
我这里有开发包里C语言示例,看不懂啊。
 
Delphi中定义回调函数

type
TCallBackFunction = function(s: string): integer;
CallMe(s: string): integer;



procedure TestCallBack(CallBackFunction: TCallBackFunction);
far;
external 'Other';
{ Note that 'other' is a Dll containing the procedure TestCallBack }

function CallMe(s: PChar): integer;
begin

{ what ever you need todo
}
CallMe := 1;
{ What ever you need to return }
end;


procedure TForm1.Button1Click(Sender: TObject);
begin

TestCallBack(CallMe);
end;


type
TMainFunction = function(s: string): integer;
TestCallBack(MainFunc: TMainFunction);
{ in library Other implementation }
TestCallBack(MainFunc: TMainFunction);
var
result: integer;
begin

result:=MainFunc('test');
end;

 
帮你顶!!
 
感谢飞侠,因为与神龙卡SDK相关,所以你的回答还帮不上忙。
 

Similar threads

D
回复
0
查看
892
DelphiTeacher的专栏
D
S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
D
回复
0
查看
1K
DelphiTeacher的专栏
D
D
回复
0
查看
1K
DelphiTeacher的专栏
D
顶部