ABCpdf .NET PDF Component Documentation - SwfImportOperation Import Function. Imports selected frames of a Flash movie.

Here we import 24 frames from a Flash movie alternately into two PDF documents. The frames are 0.2 seconds apart. Doc.Rect is set so that the outputs are 6-up and preserve the aspect ratio. For the fifth to the eighth imported frames in each document, the background is suppressed and a transparent oval in the same color is drawn instead.

using Doc doc1 = new Doc();
using Doc doc2 = new Doc();
using (var operation = new SwfImportOperation()) {
  const int fontSize = 20;
  int k = 0;
  bool failed = false;
  operation.ProcessingObject += delegate (object sender, ProcessingObjectEventArgs e) {
    switch (e.Info.SourceType) {
      case ProcessingSourceType.MultiFrameImage:
        if (failed || k >= 24)
          e.Info.FrameNumber = null;
        else
          e.Info.FrameNumber = 1 + Convert.ToInt64(0.2 * k * e.Info.FrameRate.Value);
        e.Tag = ProcessingSourceType.MultiFrameImage;
        break;
      case ProcessingSourceType.ImageFrame: {
          SwfImportOperation op = (SwfImportOperation)sender;
          op.Doc = op.Doc == doc1 ? doc2 : doc1;
          const int distance = 20;
          const int margin = 30;
          double width = op.Doc.MediaBox.Width - 2 * margin;
          double height = op.Doc.MediaBox.Height - 2 * margin;
          double scale = Math.Min((width - distance) / (2 * e.Info.Width.Value),
            (height - 2 * distance - 3 * fontSize) / (3 * e.Info.Height.Value));

          int p = k / 2;
          double rectWidth = scale * e.Info.Width.Value;
          double rectHeight = scale * e.Info.Height.Value;
          op.Doc.Rect.SetRect(margin + (width + distance) * (p % 2) / 2,
            margin + height - rectHeight - (height + 2 * distance) * (p / 2 % 3) / 3,
            rectWidth, rectHeight);
          if (p % 6 == 0)
            op.Doc.Page = op.Doc.AddPage();
          if (p >= 4 && p < 8 && e.Info.BackgroundColor != null) {
            op.BackgroundRegion = null;
            op.Doc.Color.String = e.Info.BackgroundColor.String;
            op.Doc.Color.Alpha = 127;
            op.Doc.AddOval(true);
          }
        }
        break;
    }
  };
  operation.ProcessedObject += delegate (object sender, ProcessedObjectEventArgs e) {
    if (!e.Successful) {
      failed = true;
      return;
    }
    if (e.Tag is ProcessingSourceType
      && (ProcessingSourceType)e.Tag == ProcessingSourceType.MultiFrameImage) {
      SwfImportOperation op = (SwfImportOperation)sender;
      op.Doc.Color.Gray = 0;
      op.Doc.Color.Alpha = 255;
      op.Doc.FontSize = fontSize;
      op.Doc.TextStyle.HPos = 0.5;
      op.Doc.Rect.Top = op.Doc.Rect.Bottom;
      op.Doc.Rect.Bottom = op.Doc.MediaBox.Bottom;
      op.Doc.AddText(string.Format("{0} secs", 0.2 * k));
      ++k;
    }
    PixMap pixmap = e.Object as PixMap;
    if (pixmap != null)
      pixmap.Compress();
  };
  operation.Import(Server.MapPath("ABCpdf.swf"));
}
doc1.Save(Server.MapPath("swf1.pdf"));
doc2.Save(Server.MapPath("swf2.pdf"));

Dim doc1 As New Doc()
Dim doc2 As New Doc()
Using operation As New SwfImportOperation()
  Const  fontSize As Integer = 20
  Dim k As Integer = 0
  Dim failed As Boolean = False
  operation.ProcessingObject += Sub(sender As Object, e As ProcessingObjectEventArgs) Select Case e.Info.SourceType
    Case ProcessingSourceType.MultiFrameImage
      If failed OrElse k >= 24 Then
        e.Info.FrameNumber = Nothing
      Else
        e.Info.FrameNumber = 1 + Convert.ToInt64(0.2 * k * e.Info.FrameRate.Value)
      End If
      e.Tag = ProcessingSourceType.MultiFrameImage
      Exit Select
    Case ProcessingSourceType.ImageFrame
      If True Then
        Dim op As SwfImportOperation = DirectCast(sender, SwfImportOperation)
        op.Doc = If(op.Doc = doc1, doc2, doc1)
        Const  distance As Integer = 20
        Const  margin As Integer = 30
        Dim width As Double = op.Doc.MediaBox.Width - 2 * margin
        Dim height As Double = op.Doc.MediaBox.Height - 2 * margin
        Dim scale As Double = Math.Min((width - distance) / (2 * e.Info.Width.Value), (height - 2 * distance - 3 * fontSize) / (3 * e.Info.Height.Value))

        Dim p As Integer = k / 2
        Dim rectWidth As Double = scale * e.Info.Width.Value
        Dim rectHeight As Double = scale * e.Info.Height.Value
        op.Doc.Rect.SetRect(margin + (width + distance) * (p Mod 2) / 2, margin + height - rectHeight - (height + 2 * distance) * (p / 2 Mod 3) / 3, rectWidth, rectHeight)
        If p Mod 6 = 0 Then
          op.Doc.Page = op.Doc.AddPage()
        End If
        If p >= 4 AndAlso p < 8 AndAlso e.Info.BackgroundColor <> Nothing Then
          op.BackgroundRegion = Nothing
          op.Doc.Color.String = e.Info.BackgroundColor.[String]
          op.Doc.Color.Alpha = 127
          op.Doc.AddOval(True)
        End If
      End If
      Exit Select
  End Select
  operation.ProcessedObject += Sub(sender As Object, e As ProcessedObjectEventArgs) 
  If Not e.Successful Then
    failed = True
    Return
  End If
  If TypeOf e.Tag Is ProcessingSourceType AndAlso DirectCast(e.Tag, ProcessingSourceType) = ProcessingSourceType.MultiFrameImage Then
    Dim op As SwfImportOperation = DirectCast(sender, SwfImportOperation)
    op.Doc.Color.Gray = 0
    op.Doc.Color.Alpha = 255
    op.Doc.FontSize = fontSize
    op.Doc.TextStyle.HPos = 0.5
    op.Doc.Rect.Top = op.Doc.Rect.Bottom
    op.Doc.Rect.Bottom = op.Doc.MediaBox.Bottom
    op.Doc.AddText(String.Format("{0} secs", 0.2 * k))
    System.Threading.Interlocked.Increment(k)
  End If
  Dim pixmap As PixMap = TryCast(e.[Object], PixMap)
  If pixmap <> Nothing Then
    pixmap.Compress()
  End If

  End Sub
  operation.Import(Server.MapPath("ABCpdf.swf"))
End Using
doc1.Save(Server.MapPath("swf1.pdf"))
doc1.Clear()
doc2.Save(Server.MapPath("swf2.pdf"))
doc2.Clear()