vc 代码转成delphi代码

2009-04-22 04:41:56 149 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

delphi调用vc写的dll的方法 1. 在VC中新建一个 DLL 工程。写如代码，如：extern "C"{ _declspec(dllexport) int getPPLength(); _declspec(dllexport) int npn(int m, int n);}int getPPLength(){ return 5* 12;}int npn(int m, int n) { int sum; 阅读详情

LONG VSNET_ClientStart(char *m_url,CHANNEL_CLIENTINFO *m_pChaninfo,WORD wserport = 3000)
说明：与服务器建立连接，并实时预览图像；
参数说明：
m_url：服务器的地址或转发服务器的地址；
m_pChaninfo：CHANNEL_CLIENTINFO的指针；
wserport:服务器或转发服务器的端口号；
返回值：-1表示失败，其他值作为VSNET_ClientStop,VSNET_ClientStartCaptureFile等函数的参数；

CHANNEL_CLIENTINFO结构：
typedef struct{
char *m_sername;
char *m_username;
char *m_password;
WORD m_tranType;
WORD m_playstart;
BYTE m_ch;
HWND m_hVideohWnd;
HWND m_hChMsgWnd;
UINT m_nChmsgid;
int m_buffnum;
int m_useoverlay;
COLORREF nColorKey;
void (WINAPI *m_messagecallback)(LONG hHandle,int wParam,int lParam,void *context);
void *context;
}CHANNEL_CLIENTINFO;
说明：
m_sername：服务器名称，如果是通过转发服务器连接时需要该名称检索服务器；
m_username：用户名，长度不超过20个字符；
m_password：密码，长度不超过20个字符；
m_tranType：连接模式，1：UDP方式，2：多播方式，3：TCP方式；
m_playstart：启动实时预览，TRUE：成功连接服务器后开始实时预览图像，FALSE：连接服务器后不预览图像，可以调用VSNET_ClientStartView手动启动实时预览；
m_ch：连接服务器的通道；
m_hVideohWnd：播放窗口句柄;
m_hChMsgWnd: 通道消息通知窗口句柄，可以为NULL，用VSNET_ClientStartup注册的窗口接收消息
m_nChmsgid：通道消息号；
m_buffnum：播放用的缓冲大小，范围10-50，值越小可能会有丢失包的问题，越大效果越好，但会占用更过的内存；
m_useoverlay：OVERLAY使用标志，TRUE：表示创建OVERLAY的表面，如果OVERLAY表面创建失败，会自动使用其它的表面；
nColorKey：保留；
m_messagecallback：消息回调函数
context:用户上下文
注意：如果通过转发服务器连接图像时需要SDK校验服务器名称(m_sername)，如果你没有输入服务器名称，连接通道后会返回-112错误：没有找到服务器索引。
消息回调函数返回失败时，不能在回调函数调用VSNET_ClientStop,可以同时使用消息和回调函数。

---------------------------------
vc 代码转成delphi代码,谢谢！

...全文

比较VC和Delphi 比较VC和Delphi Visual C++与Delphi之比较"最近在CSDN的论坛上的讨论非常火热，本文将以一个程序员的角度，从技术水平、功能、性能、易用性、稳定性、发展历程和前景等方面，以Visual C++6和Delphi5为代表，尽可能客观地比较介绍Visual C++和Delphi这两大主流开发工具的优缺点，其中将涉及到语言、应用框架、控件、编译和连接、集成界面、调试、COM、数据库阅读详情

sxdoujg

网络编程 18,356 成员 64,161 内容

+ 关注 + 加入社区

切换为时间正序

jwybobo2007 2009-08-27

打赏
举报

有帮你翻译的了，就不再贴了

jibing529 2009-08-25

打赏
举报

楼主怎么联系，我也是做朗驰SDK的，联系我！QQ：155160483

qlonsh 2009-06-30

打赏
举报

//朗驰视频服务器数据结构
type
channel_clientinfo = record
m_sername:string; //服务器名称
m_username:string; //登陆用户名
m_password:string; //登陆密码
m_tranType:word; //连接模式（=1：UDP，=2：多播，=3：TCP）这里采用3=TCP
m_playstart:word; //启动实时预览
m_ch:byte; //视频服务器通道号
m_hVideohWnd:HWND; //播放窗口句柄
m_hChMsgWnd:HWND; //通道消息通知句柄
m_nChmsgid:uint; //通道消息号
m_buffnum:integer; //播放用的缓冲大小
m_useoverlay:integer; // Overlay使用标志
nColorKey:Colorref; //
//消息回调函数
m_messagecallback:procedure(hHandle: longint; wParam: integer; lParam: integer; context: Pointer); stdcall;
//void (WINAPI *m_messagecallback)(LONG hHandle,int wParam,int lParam,void *context);
context:string;
end;

luckyboy101 2009-04-26

打赏
举报

不会delphi，转换成dll

小小小黑猫 2009-04-24

打赏
举报

不会delphi，up一个

sxdoujg 2009-04-24

打赏
举报

谢谢各位，我先试试！

僵哥 2009-04-24

打赏
举报

//LONG VSNET_ClientStart(char *m_url,CHANNEL_CLIENTINFO *m_pChaninfo,WORD wserport = 3000)

function VSNET_ClientStart(m_url: PAnsiChar; m_pChaninfo: LPCHANNEL_CLIENTINFO; wserport :WORD = 3000): LongInt;(*stdcall; or cdecl;*) external 'xxx.dll';

说明：与服务器建立连接，并实时预览图像；
参数说明：
m_url：服务器的地址或转发服务器的地址；
m_pChaninfo：CHANNEL_CLIENTINFO的指针；
wserport:服务器或转发服务器的端口号；
返回值：-1表示失败，其他值作为VSNET_ClientStop,VSNET_ClientStartCaptureFile等函数的参数；

CHANNEL_CLIENTINFO结构：
typedef struct{
char *m_sername;
char *m_username;
char *m_password;
WORD m_tranType;
WORD m_playstart;
BYTE m_ch;
HWND m_hVideohWnd;
HWND m_hChMsgWnd;
UINT m_nChmsgid;
int m_buffnum;
int m_useoverlay;
COLORREF nColorKey;
void (WINAPI *m_messagecallback)(LONG hHandle,int wParam,int lParam,void *context);
void *context;
}CHANNEL_CLIENTINFO;

type

  LPCHANNEL_CLIENTINFO = ^CHANNEL_CLIENTINFO;

  CHANNEL_CLIENTINFO = (*packed {如果C++当中使用了pack(1)之类的}*) record

    m_sername: PAnsiChar; 

    m_username: PAnsiChar; 

    m_password: PAnsiChar; 

    m_tranType: Word; 

    m_playstart: Word; 

    m_ch: Byte; 

    m_hVideohWnd: THandle; 

    m_hChMsgWnd: THandle; 

    m_nChmsgid: LongWord; 

    m_buffnum: Integer; 

    m_useoverlay: Integer; 

    nColorKey: COLORREF; 

void (WINAPI *m_messagecallback)(LONG hHandle,int wParam,int lParam,void *context); 

    context: Pointer; 

end;

说明：
m_sername：服务器名称，如果是通过转发服务器连接时需要该名称检索服务器；
m_username：用户名，长度不超过20个字符；
m_password：密码，长度不超过20个字符；
m_tranType：连接模式，1：UDP方式，2：多播方式，3：TCP方式；
m_playstart：启动实时预览，TRUE：成功连接服务器后开始实时预览图像，FALSE：连接服务器后不预览图像，可以调用VSNET_ClientStartView手动启动实时预览；
m_ch：连接服务器的通道；
m_hVideohWnd：播放窗口句柄;
m_hChMsgWnd: 通道消息通知窗口句柄，可以为NULL，用VSNET_ClientStartup注册的窗口接收消息
m_nChmsgid：通道消息号；
m_buffnum：播放用的缓冲大小，范围10-50，值越小可能会有丢失包的问题，越大效果越好，但会占用更过的内存；
m_useoverlay：OVERLAY使用标志，TRUE：表示创建OVERLAY的表面，如果OVERLAY表面创建失败，会自动使用其它的表面；
nColorKey：保留；
m_messagecallback：消息回调函数
context:用户上下文
注意：如果通过转发服务器连接图像时需要SDK校验服务器名称(m_sername)，如果你没有输入服务器名称，连接通道后会返回-112错误：没有找到服务器索引。
消息回调函数返回失败时，不能在回调函数调用VSNET_ClientStop,可以同时使用消息和回调函数。

vc 代码转成delphi代码

相关推荐