要在Delphi中調用FFmpeg，你需要使用FFmpeg庫的動態鏈接庫（DLL），然后使用Delphi的外部函數來調用該庫。
以下是一些基本的步驟：
下載并安裝FFmpeg：你可以從FFmpeg官方網站（https://ffmpeg.org/）下載最新版本的FFmpeg。
導入FFmpeg庫：將FFmpeg的動態鏈接庫導入到Delphi項目中。可以將DLL文件復制到項目文件夾中，然后在Delphi中選擇“項目”->“添加到項目”->“外部文件”來將DLL文件添加到項目中。
創建一個新的Delphi單元：在Delphi中，創建一個新的單元來管理FFmpeg的函數。在該單元中聲明外部函數來調用FFmpeg庫的函數。
例如，你可以在Delphi中創建一個名為"FFmpegUtils.pas"的單元，并在其中聲明以下函數：
unit FFmpegUtils;
interface
type
PAVFormatContext = Pointer;
PAVCodecContext = Pointer;
PAVFrame = Pointer;
PAVPacket = Pointer;
procedure av_register_all; cdecl; external 'avformat.dll';
function avformat_open_input(var ps: PAVFormatContext; url: PAnsiChar; fmt: PAVInputFormat; options: PPAVDictionary): Integer; cdecl; external 'avformat.dll';
// 聲明其他的FFmpeg函數
implementation
end.
uses
FFmpegUtils;
var
pFormatContext: PAVFormatContext;
videoStreamIndex: Integer;
pCodecContext: PAVCodecContext;
pFrame: PAVFrame;
pPacket: PAVPacket;
filename: PAnsiChar;
ret: Integer;
begin
// 注冊所有的FFmpeg組件
av_register_all;
// 打開視頻文件
filename := 'path_to_your_video_file';
ret := avformat_open_input(pFormatContext, filename, nil, nil);
if ret <> 0 then
begin
ShowMessage('無法打開視頻文件');
Exit;
end;
// 獲取視頻流索引
videoStreamIndex := av_find_best_stream(pFormatContext, AVMEDIA_TYPE_VIDEO, -1, -1, nil, 0);
if videoStreamIndex < 0 then
begin
ShowMessage('無法找到視頻流');
Exit;
end;
// 獲取視頻流的編解碼器上下文
pCodecContext := pFormatContext.streams[videoStreamIndex].codec;
// 創建幀和數據包
pFrame := av_frame_alloc;
pPacket := av_packet_alloc;
// 處理視頻幀...
// 釋放資源
av_packet_free(pPacket);
av_frame_free(pFrame);
avformat_close_input(pFormatContext);
end.
請注意，上述示例代碼僅用于演示如何調用FFmpeg庫中的函數。具體要根據你的實際需求進行修改和擴展。
