3

我在我的项目中使用paslibvlc从ip 摄像机中获取以 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;
4

2 回答 2

3

您的回调使用register调用约定。但这是 Delphi 特定的调用约定。您的图书馆使用cdecl. 这可以从库的 Pascal 源代码中看出：

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);
于 2013-03-20T08:28:37.937 回答
0

所有问题都在于我如何分配内存。在第一个主题中，我在程序的区域设置内存中分配内存，例如 SetLength(ctx, 1280*720*4+32)，但是为了做好工作，我必须使用 AllocMem 来使用非托管内存。

于 2013-03-29T02:50:41.523 回答