本文整理自网络,侵删。
翻译来自MPlay的windows编译版中的SubDownloader字幕下载工具。
unit SubDownload;
interface
uses Windows;
type
TFUNC_CallBackFinish = function(number, bad_number: Integer): Pointer;
TFUNC_CallBackA = function(const sub_path: AnsiChar;
is_eng, sub_delay: Integer): Pointer;
TFUNC_CallBackW = function(const sub_path: WideChar;
is_eng, sub_delay: Integer): Pointer;
function DownloaderSubtitleA(const filepath: AnsiChar; eng_sub: BOOL;
Callback: TFUNC_CallBackA; callbf: TFUNC_CallBackFinish): Integer; stdcall;
external 'SubDownload.dll';
function DownloaderSubtitleW(const filepath: WideChar; eng_sub: BOOL;
Callback: TFUNC_CallBackW; callbf: TFUNC_CallBackFinish): Integer; stdcall;
external 'SubDownload.dll';
implementation
end.
相关阅读 >>
Delphi tms web core直接从html&css设计的页面布局
Delphi setcurrentdir 设置当前文件夹路径
更多相关阅读请进入《Delphi》频道 >>