自己做一个dll,调用你视频的东西,然后手写一个pas文件把这个dll里的方法用平台的工具注册一下
形如
uses
SysUtils,
Classes;
const
dllName = 'FtpDLL.dll';
function DeleteFTP(Host,User,Password,Port,pCaption : String;lDir,lServerFileName : String) : Boolean;stdcall;
implementation
function DeleteFTP(Host,User,Password,Port,pCaption : String;lDir,lServerFileName : String) : Boolean;stdcall;external dllName;
end; |