南京外贸网站建设系统,天美影视传媒有限公司,asp程序网站后台发布产品的时候前台怎么不显示产品名称,进出口贸易公司怎么注册用Delphi编写的简单视频格式转换程序#xff0c;它使用TComboBox、TOpenDialog和TSaveDialog组件来选择转换格式、选择源视频文件和选择目标视频文件。程序还使用TEdit组件允许用户输入参数#xff0c;然后将这些组件中的信息拼接成转换命令并在DOS窗口中运行它。
procedure…用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;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls, ShellAPI;typeTForm1 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(Command: string): string;public{ Public declarations }end;varForm1: TForm1;implementation{$R *.dfm}function TForm1.GetDosCommand(Command: string): string;
begin// 将命令转换为可执行的DOS命令Result : cmd.exe /c Command;
end;procedure TForm1.Button1Click(Sender: TObject);
varCommand, SourceFile, TargetFile: string;
begin// 显示打开文件对话框选择源视频文件if OpenDialog1.Execute thenSourceFile : OpenDialog1.FileNameelseExit;// 显示保存文件对话框选择目标视频文件if SaveDialog1.Execute thenTargetFile : SaveDialog1.FileNameelseExit;// 根据ComboBox的选项获取转换命令case ComboBox1.ItemIndex of0: Command : ffmpeg -i SourceFile -vcodec copy -f mpegts TargetFile; // H264视频转ts视频流1: Command : ffmpeg -i SourceFile -vcodec copy -f mp4 TargetFile; // H264视频转mp42: Command : ffmpeg -i SourceFile -acodec copy -vcodec copy -f mp4 TargetFile; // ts视频转mp43: Command : ffmpeg -i SourceFile -acodec copy -vcodec copy -f flv TargetFile; // mp4视频转flv4: Command : ffmpeg -y -i SourceFile Edit1.Text TargetFile; // 转换文件为3GP格式 5: Command : ffmpeg -y -i SourceFile -ac 1 -acodec libamr_nb -ar 8000 -ab 12200 -s 176x144 -b 128 -r 15 TargetFile; // 转换文件为3GP格式 v2elseShowMessage(请选择一个转换格式);Exit;end;// 将Edit1中的参数添加到命令中if Trim(Edit1.Text) thenCommand : Command Edit1.Text;// 在DOS窗口中运行转换命令Command : GetDosCommand(Command);ShellExecute(Handle, open, cmd.exe, PChar(Command), nil, SW_HIDE);
end;end.
在上述代码中我们使用TComboBox组件允许用户选择转换格式使用TOpenDialog和TSaveDialog组件选择源视频和目标视频文件并使用TEdit组件允许用户输入参数。在Button1的OnClick事件中我们根据ComboBox的选项获取要执行的转换命令并将Edit1中的参数添加到命令中。最后我们在DOS窗口中运行转换命令。
按下图操作C:\delphisource\mytools\runpythoncode\Unit1.pas 比如选择mp4转flv类型生成的命令如下
C:\Users\86182\AppData\Local\JianyingPro\Apps\4.3.1.10241\ffmpeg.exe -i C:\myApp\deepfakelivetemp\DeepFaceLive_NVIDIA\_internal\DeepFaceLive\build\samples\Asian woman.mp4 -acodec copy -vcodec copy -f flv C:\myimages\outputs\output.flv
结果
