This document is archived and information here might be outdated.  Recommended version.

Create Animation QuickTime Snippet (ArcObjects .NET 10.5 SDK)

ArcObjects Library Reference

Create Animation QuickTime Snippet

[C#]

///<summary>Exports the current animation in globe to a QuickTime movie file. Note - In order to export animation to QuickTime movie, QuickTime player should be installed on the machine.</summary>
/// 
///<param name="globe">An IGlobe interface</param>
///<param name="exportFileName">A System.String that is the path and filename of the Quick Time file to be exported. Example: ex: "C:\temp\myanimation.qt"</param>
///<param name="duration">A System.Double that is the length (or duration) in seconds of the Quick Time movie. Example: 30</param>
///  
///<remarks></remarks>
public void CreateAnimationQuickTime(ESRI.ArcGIS.GlobeCore.IGlobe globe, System.String exportFileName, System.Double duration)
{
  //Find the animation extension
  ESRI.ArcGIS.Analyst3D.IBasicScene2 basicScene2=(ESRI.ArcGIS.Analyst3D.IBasicScene2)globe; // Explicit Cast

  ESRI.ArcGIS.Animation.IAnimationExtension animationExtension=basicScene2.AnimationExtension;
  ESRI.ArcGIS.Animation.IAGAnimationEnvironment AGAnimationEnvironment=basicScene2.AnimationExtension.AnimationEnvironment;

  // Create an instance of videoexporter
  ESRI.ArcGIS.Animation.IVideoExporter videoExporter=new ESRI.ArcGIS.Animation.AnimationExporterQTClass();

  videoExporter.ExportFileName=exportFileName;
  videoExporter.ShowSettingsDialog=false;

  videoExporter.Codec="8BPS:Planar RGB";
  videoExporter.FrameRate=30;
  animationExtension.AnimationEnvironment.AnimationDuration=duration;

  videoExporter.ExportAnimation(animationExtension.AnimationTracks, animationExtension.AnimationEnvironment, null);
}

[Visual Basic .NET]

'''<summary>Exports the current animation in globe to a QuickTime movie file. Note - In order to export animation to QuickTime movie, QuickTime player should be installed on the machine.</summary>
''' 
'''<param name="globe">An IGlobe interface</param>
'''<param name="exportFileName">A System.String that is the path and filename of the Quick Time file to be exported. Example: ex: "C:\temp\myanimation.qt"</param>
'''<param name="duration">A System.Double that is the length (or duration) in seconds of the Quick Time movie. Example: 30</param>
'''  
'''<remarks></remarks>
Public Sub CreateAnimationQuickTime(ByVal globe As ESRI.ArcGIS.GlobeCore.IGlobe, ByVal exportFileName As System.String, ByVal duration As System.Double)

  ' Find the animation extension
  Dim basicScene2 As ESRI.ArcGIS.Analyst3D.IBasicScene2=CType(globe, ESRI.ArcGIS.Analyst3D.IBasicScene2) ' Explicit Cast

  Dim animationExtension As ESRI.ArcGIS.Animation.IAnimationExtension=basicScene2.AnimationExtension
  Dim AGAnimationEnvironment As ESRI.ArcGIS.Animation.IAGAnimationEnvironment=basicScene2.AnimationExtension.AnimationEnvironment

  ' Create an instance of videoexporter
  Dim videoExporter As ESRI.ArcGIS.Animation.IVideoExporter=New ESRI.ArcGIS.Animation.AnimationExporterQTClass

  videoExporter.ExportFileName=exportFileName
  videoExporter.ShowSettingsDialog=False

  videoExporter.Codec="8BPS:Planar RGB"
  videoExporter.FrameRate=30
  animationExtension.AnimationEnvironment.AnimationDuration=duration

  videoExporter.ExportAnimation(animationExtension.AnimationTracks, animationExtension.AnimationEnvironment, Nothing)

End Sub