한국 델파이 동호회 델마당

유니코드를 지원하는 Delphi 2009 또는 이후 버전의 델파이를 사용할 경우를 대비해서 VCL_ffMPEG.pas의 Function Open의 시작부는 아래와 같이 수정이 필요합니다.

Function  TffMPEG.Open ( FileName : String ) : Boolean;
Var
  channel_layout : Int64;
  stop           : boolean;
  {$IFDEF UNICODE}
  ansiName: AnsiString;  // **** Added
  {$ENDIF}
begin
  Result := False;
  If Not(FileExists(FileName)) then Exit;

  // Open File & Alloc Context
  {$IFDEF UNICODE}
  ansiName := FileName;  // **** Added
  If avformat_open_input(@fMPEG.ctx_fmt,PAnsiChar(ansiName), nil, nil) < 0 then  // **** Added
  {$ELSE}
  If avformat_open_input(@fMPEG.ctx_fmt,PAnsiChar(FileName), nil, nil) < 0 then
  {$ENDIF}
   begin
    Event_Status(msError, Format('Could not open source file %s', [FileName]));
    Exit;
   end;

2017-01-28 오후 12:02:28