发新话题
打印

FFmpeg for VB 示例

这个是输出选项的结构体。。。参数以指针方式传递。。。

function SetOutputFile(const AInputIndex: Integer; const AFileName: string; const AOptions: POutputOptions): Boolean;
复制内容到剪贴板
代码:
  POutputOptions = ^TOutputOptions;
  TOutputOptions = packed record
    FileName: string;
    FileFormat: string;
    FileExt: string;
    PacketSize: Integer;
    MuxRate: Integer;
    MuxDelay: Single;
    MuxPreload: Single;
   
    AudioCodec: string;
    DisableAudio: Boolean;
    AudioVolume: Integer;
    AudioChannels: Integer;
    AudioRate: Integer;
    AudioBitrate: Integer;
    AudioLanguage: string;

    VideoCodec: string;
    DisableVideo: Boolean;
    FrameRate: string;
    FrameSize: string;
    FrameAspectRatio: string;
    CropTop: Integer;
    CropBottom: Integer;
    CropLeft: Integer;
    CropRight: Integer;
    PadTop: Integer;
    PadBottom: Integer;
    PadLeft: Integer;
    PadRight: Integer;
    PadColor: TColor;
    GroupPictureSize: Integer;
    VideoBitrate: Integer;
    VideoMaxRate: Integer;
    VideoMinRate: Integer;
    VideoBufSize: Integer;
    TimeStart: Integer;
    TimeLength: Integer;
    Info: TStreamInfo;

    DisableSubtitle: Boolean;
    SubtitleLanguage: string;
  end;
超级简单易用的音视频转换组件 支持RMVB解码 FFmpeg for Delphi / VB

TOP

看代码看到头晕

N年没有用过VB了~

TOP

引用:
原帖由 aalii 于 2008-5-4 10:49 发表
看代码看到头晕

N年没有用过VB了~
超过十年没有?
超级简单易用的音视频转换组件 支持RMVB解码 FFmpeg for Delphi / VB

TOP

引用:
原帖由 aalii 于 2008-5-4 10:49 发表
看代码看到头晕

N年没有用过VB了~
我看这些代码还是很亲切的
很习惯哦

TOP

引用:
原帖由 aalii 于 2008-5-4 10:49 发表
看代码看到头晕

N年没有用过VB了~
只要你懂英语,那么你就懂VB。
Something you can see it. But you can never reach it.

TOP

引用:
原帖由 CodeCoolie 于 2008-5-3 20:28 发表
假设目录结构如下
其中ffmpeg*.dll包含在“FFmpeg for Delphi”帖子的附件里
C:\CCAVCDemoVB\CCAVC.dll
C:\CCAVCDemoVB\LibAVC\(ffmpeg*.dll)
C:\CCAVCDemoVB\input.mpgAPI 声明模块mCCAVC.basPublic Declare Fu ...
vb只认com,而且只认实现双接口的com。
想要vb能用delphi的事件,要把库封装成com库,然后让vb去响应com事件。要实现Idispatch接口。
上班时间不上网

TOP

引用:
原帖由 wandou 于 2008-5-4 12:25 发表

vb只认com,而且只认实现双接口的com。
想要vb能用delphi的事件,要把库封装成com库,然后让vb去响应com事件。要实现Idispatch接口。
失败,我不会com。。。

我设想是用回调函数来实现。。。
超级简单易用的音视频转换组件 支持RMVB解码 FFmpeg for Delphi / VB

TOP

引用:
原帖由 hiwmp 于 2008-5-4 01:49 发表
恕我直言:VB的代码很丑很垃圾
这么多年了,我一直没有发现那个语言的比C语言简洁与优美了。
恰恰VB是最不好破解的,因为垃圾代码太多
马甲1号粉丝会二期会员!!!

TOP

引用:
原帖由 wandou 于 2008-5-4 12:25 发表

vb只认com,而且只认实现双接口的com。
想要vb能用delphi的事件,要把库封装成com库,然后让vb去响应com事件。要实现Idispatch接口。
vb只认com?用VB我感觉最好的方法是成OCX,然后使用。
另外,用这个DLL,进度和是否完成转换如何实现?DEMO版没有这二个功能?

[ 本帖最后由 go2go 于 2008-5-4 14:45 编辑 ]

TOP

引用:
原帖由 hiwmp 于 2008-5-3 17:49 发表
恕我直言:VB的代码很丑很垃圾
这么多年了,我一直没有发现那个语言的比C语言简洁与优美了。
你审美观有问题。
BASIC和PASCAL是我觉得最干净利落的语言,C语言也不错,功能强但是不够干净。C++最难看。
本帖最近评分记录
  • 5bxb 活力 +1 我很赞同 2008-5-4 17:11
I'll Never Say Goodbye

TOP

发新话题