delphi - LIBRTMP德尔福: mapping of the DLL

Question

当我从 Delphi 调用函数 RTMP_SetupURL 时，记录 RTMP 中的 URL 没有更新，我这样翻译了 DLL 函数:

int RTMP_SetupURL(RTMP *r, char *url);

function RTMP_SetupURL(var r:RTMP; url:PAnsichar):integer;

记录 AVal 的声明如下:

AVal = record
av_val: PansiChar; 
av_len: integer;
end;

<小时/>

在设置URL之前有一个初始化问题，我的记录(RTMP)没有正确初始化，在我的记录下面:

PChar = PAnsiChar;
uint32_t = LongWord;
uint8_t = Byte;
int8_t = char;
int32_t = LongInt;
unsigned_int = LongWord;
unsigned_short = Word;
int16_t = smallint;
cchar = Char;
cint = LongInt; 

RTMP = record
m_inChunkSize : cint;
m_outChunkSize : cint;
m_nBWCheckCounter : cint;
m_nBytesIn : cint;
m_nBytesInSent : cint;
m_nBufferMS : cint;
m_stream_id : cint;
m_mediaChannel : cint;
m_mediaStamp : uint32_t;
m_pauseStamp : uint32_t;
m_pausing : cint;
m_nServerBW : cint;
m_nClientBW : cint;
m_nClientBW2 : uint8_t;
m_bPlaying : uint8_t;
m_bSendEncoding : uint8_t;
m_bSendCounter : uint8_t;
m_numInvokes : cint;
m_numCalls : cint;
m_methodCalls : PRTMP_METHOD;
m_vecChannelsIn : array[0..(RTMP_CHANNELS)-1] of PRTMPPacket;
m_vecChannelsOut : array[0..(RTMP_CHANNELS)-1] of PRTMPPacket;
m_channelTimestamp : array[0..(RTMP_CHANNELS)-1] of cint;
m_fAudioCodecs : double;
m_fVideoCodecs : double;
m_fEncoding : double;
m_fDuration : double;
m_msgCounter : cint;
m_polling : cint;
m_resplen : cint;
m_unackd : cint;
m_clientID : AVal;
m_read : RTMP_READ;
m_write : RTMPPacket;
m_sb : RTMPSockBuf;
Link : RTMP_LNK;
end;
PRTMP = ^RTMP;

然后我打电话:

var MY_RTMP: RTMP;
MY_RTMP := RTMP_Alloc;
RTMP_Init(MY_RTMP);

除初始化 URL 时使用的“链接”记录外，所有记录均已初始化。我猜该记录未正确声明

Answer 1

我会尝试这个。 Here是我用作基础的来源。

function RTMP_SetupURL(var R: RTMP; Url: PAnsiChar): Integer; cdecl; 
  external 'librtmp.dll' name 'RTMP_SetupURL';