Sunucu tabanlı video dönüştürücü

IMovieConverterX = interface(IDispatch)
  ['{95D69328-35CD-43AB-8F1A-16717258D51F}']
  procedure Convert(const SourceFile: WideString; const DestFile: WideString;  const Params: WideString); safecall;
  function Register(const RegName: WideString; const RegKey: WideString): WideString; safecall;
  function About: WideString; safecall;
  property ErrorMessage: WideString;
  property LogFile: WideString;
end;

dim C
Set C=CreateObject ("MovieConverter.MovieConverterX")
C.Convert "c:\source.AVI", "c:\dest.MPEG", "-cMPEG  -log c:\movie.log"
Response.Write C.ErrorMessage
set C = nothing

$src="C:\\test.AVI";
$dest="C:\\test.WMV";
if (file_exists($dest)) unlink($dest);
$c= new COM("MovieConverter.MovieConverterX");
$c->convert($src,$dest, "-c WMV  -log c:\\movie.log");
if (file_exists($dest)) echo "OK"; else echo "fail:".$c->ErrorMessage;