用Delphi编写一个通用视频转换工具，让视频格式转换变得更简单

原创

已于 2023-08-01 19:01:22 修改 · 640 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#视频转换 #ffmpeg #delphi #通用

于 2023-08-01 18:47:30 首次发布

该篇文章介绍了使用Delphi编写的简单视频格式转换程序，通过TComboBox选择转换格式，TOpenDialog和TSaveDialog选择文件，TEdit输入参数，执行ffmpeg命令进行视频转换并在DOS窗口中运行。

用Delphi编写的简单视频格式转换程序，它使用TComboBox、TOpenDialog和TSaveDialog组件来选择转换格式、选择源视频文件和选择目标视频文件。程序还使用TEdit组件允许用户输入参数，然后将这些组件中的信息拼接成转换命令并在DOS窗口中运行它。

procedure TForm1.FormCreate(Sender: TObject);
begin
  // 添加选项到ComboBox下拉框中
  ComboBox1.Items.Add('H264视频转ts视频流');
  ComboBox1.Items.Add('H264视频转mp4');
  ComboBox1.Items.Add('ts视频转mp4');
  ComboBox1.Items.Add('mp4视频转flv');
  ComboBox1.Items.Add('转换文件为3GP格式');
  ComboBox1.Items.Add('转换文件为3GP格式 v2');
end;

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ShellAPI;

type
  TForm1 = class(TForm)
    ComboBox1: TComboBox;
    Button1: TButton;
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    function GetDosCommand(Comman

最低0.47元/天解锁文章