2011-09-28 72 views
2

当我调用该函数RTMP_SetupURL从德尔福的网址是不是在记录RTMP更新的地图,我tanslated DLL函数那样:LIBRTMP德尔福:该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时使用“链接”的纪录。 我想这个记录没有正确申报

+0

不,“PAnsichar”是正确的。这就是你需要与'char *'匹配的东西。怎么样调用约定。你的Delphi版本应该使用'cdecl'吗?两种语言的RTMP定义是什么? –

回答

2

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

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