libvlc vmem访问冲突

Question

我在我的项目中使用paslibvlc从获得一个视频摄像头在h.264流。我需要从此流中获取快照，并尝试使用vmem。我的项目编写于delphi 7。当我用字符串“rtsp：// ip/main”连接摄像机时，一切正常，但是当我设置回调和格式时，会出现访问存储器违规的错误。有人可以对我说，我做错了什么？ 这是代码

PBytes = ^TBytes; 
TBytes = array of byte; 

var 
    MainForm: TMainForm; 
    ctx:TBytes; 

const 
    cameraURL = 'rtsp://192.168.123.100/main'; 

function lock(opaque : Pointer; var planes : Pointer) : Pointer; 
function unlock(opaque : Pointer; picture : Pointer; planes : Pointer) : Pointer; 
function display(opaque : Pointer; picture : Pointer) : Pointer; 

implementation 

{$R *.dfm} 


function lock(opaque : Pointer; var planes : Pointer) : Pointer; 
begin 
    planes := x; 
end; 

function unlock(opaque : Pointer; picture : Pointer; planes : Pointer) : Pointer; 
begin 
end; 

function display(opaque : Pointer; picture : Pointer) : Pointer; 
begin 
end; 

procedure TMainForm.PlayerInit(); 
var 
    args: packed array[0..6] of PAnsiChar; 
begin 
    libvlc_dynamic_dll_init(); 

    SetLength(ctx, 1280*720*4+32); 

    if (libvlc_dynamic_dll_error <> '') then 
    begin 
    MessageDlg(libvlc_dynamic_dll_error, mtError, [mbOK], 0); 
    exit; 
    end; 

    args[0] := PAnsiChar(libvlc_dynamic_dll_path); 
    args[1] := '--no-video-title-show'; 
    args[2] := '--no-xlib'; 
    args[3] := '--no-audio'; 

    p_li := libvlc_new(Length(args)-1, @args[0]); 
    p_mi := NIL; 
end; 

procedure TMainForm.PlayerPlay(fileName: WideString); 
var 
    p_md: libvlc_media_t_ptr; 
begin 
    btm:=Tbitmap.Create; 
    btm.Width:=1280; 
    btm.Height:=720; 
    PlayerStop(); 

    // create new media from fileName 
    p_md := libvlc_media_new_path(p_li, PAnsiChar(System.UTF8Encode(fileName))); 

    //libvlc_media_player_set_media(p_mi, p_md); 
    p_mi := libvlc_media_player_new_from_media(p_md); 

    if (p_mi <> NIL) then 
    begin 
    libvlc_video_set_callbacks(p_mi,@lock,@unlock,@display,@ctx); 
    libvlc_video_set_format(p_mi, 'RV32', 1280, 720, 1280*4); 
    //libvlc_media_player_set_hwnd(p_mi, btm.Handle); 
    end; 

    // play 
    libvlc_media_player_play(p_mi); 

    // release media 
    if (p_md <> NIL) then 
    begin 
    libvlc_media_release(p_md); 
    // p_md := NIL; 
    end; 
end; 



procedure TMainForm.FormActivate(Sender: TObject); 
begin 
    PlayerInit(); 
    PlayerPlay(cameraURL); 
end; 

Answer 1

你的回调使用register调用约定。但这是一个Delphi特定的调用约定。您的图书馆使用cdecl。这可以从该库的帕斯卡尔源代码中可以看出：

type 
    libvlc_video_lock_cb = function(opaque : Pointer; 
     var planes : Pointer) : Pointer; cdecl; 
    libvlc_video_unlock_cb = function(opaque : Pointer; 
     picture : Pointer; planes : Pointer) : Pointer; cdecl; 
    libvlc_video_display_cb = function(opaque : Pointer; 
     picture : Pointer) : Pointer; cdecl; 

你需要改变你的回调库的调用约定相匹配。

编译器会告诉你所有这些，只要你没有使用@运算符来获得函数指针。这样做意味着编译器不会检查您的函数指针的签名是否与声明的签名匹配。这是人们犯的最常见的错误之一。无论出于何种原因，神话一直延续，获得函数指针的方式是使用@运算符。

总之你需要添加cdecl到您的回调函数：

function lock(opaque : Pointer; var planes : Pointer) : Pointer; cdecl; 
function unlock(opaque : Pointer; picture : Pointer; 
    planes : Pointer) : Pointer; cdecl; 
function display(opaque : Pointer; picture : Pointer) : Pointer; cdecl; 

然后停止使用@获取函数指针：

libvlc_video_set_callbacks(p_mi, lock, unlock, display, @ctx); 

Answer 2

所有问题是我如何分配内存。在第一个主题中，我在SetLength（ctx，1280 * 720 * 4 + 32）等程序的语言环境内存中分配内存，但为了做好工作，我必须使用AllocMem来使用非托管内存。