Gif erstellen

  • VB.NET

Es gibt 10 Antworten in diesem Thema. Der letzte Beitrag () ist von RodFromGermany.

    Danke für deine Schnelle Hilfe.
    Ich habe allerdings noch eine Frage: Wie kann ich das in dem Code machen, dass das Programm die Bilder automatisch aus C:\Programme\Treenix nehmen kann. In dem Ordner sind immer Unterschiedlich viele Bilder drin.ersucht

    Ich habs bisher so versucht:

    VB.NET-Quellcode

    1. String [] imageFilePaths = new String[]{"C:\Programme\Treenix"};
    2. String outputFilePath = "C:\Programme\Treenix\Test.gif";
    3. AnimatedGifEncoder e = new AnimatedGifEncoder();
    4. e.Start( outputFilePath );
    5. e.SetDelay(500);
    6. //-1:no repeat,0:always repeat
    8. e.SetRepeat(0);
    9. for (int i = 0, count = imageFilePaths.Length; i < count; i++ )
    10. {
    11. e.AddFrame( Image.FromFile( imageFilePaths[i] ) );
    12. }
    13. e.Finish();
    14. /* extract Gif */
    15. string outputPath = "c:\\";
    16. GifDecoder gifDecoder = new GifDecoder();
    17. gifDecoder.Read( "C:\Programme\Treenix\Test.gif" );
    18. for ( int i = 0, count = gifDecoder.GetFrameCount(); i < count; i++ )
    19. {
    20. Image frame = gifDecoder.GetFrame( i ); // frame i
    21. frame.Save( outputPath + Guid.NewGuid().ToString()
    22. + ".png", ImageFormat.Png );
    23. }

    Wenn Du in C# programmierst, solltest Du Deine Strings anders aufbauen, sonst funkt es nicht.
    1. String [] imageFilePaths = new String[]{"C:\\Programme\\Treenix"};
    2. String [] imageFilePaths = new String[]{@"C:\Programme\Treenix"};
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Der Code von Treenix ist C#.
    Lesen können solltest Du ihn schon.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Hier hast du den Code in VB.NET :

    VB.NET-Quellcode

    1. Dim imageFilePaths() As tring = New String() {"C:\Programme\Treenix"}
    2. Dim outputFilePath As String = "C:\Programme\Treenix\Test.gif"
    3. Dim e As AnimatedGifEncoder = New AnimatedGifEncoder
    4. e.Start(outputFilePath)
    5. e.SetDelay(500)
    6. '-1:no repeat,0:always repeat
    7. e.SetRepeat(0)
    8. Dim count As Integer = imageFilePaths.Length
    9. Do While (i < count)
    10. e.AddFrame(Image.FromFile(imageFilePaths(i)))
    11. Dim i As Integer = 0
    12. i = (i + 1)
    13. Loop
    14. e.Finish
    15. Dim outputPath As String = "c:\\"
    16. Dim gifDecoder As GifDecoder = New GifDecoder
    17. gifDecoder.Read("C:\Programme\Treenix\Test.gif")
    18. Dim count As Integer = gifDecoder.GetFrameCount
    19. Do While (i < count)
    20. Dim frame As Image = gifDecoder.GetFrame(i)
    21. Dim i As Integer = 0
    22. ' frame i
    23. frame.Save((outputPath _
    24. + (Guid.NewGuid.ToString + ".png")), ImageFormat.Png)
    25. i = (i + 1)
    26. Loop

    Mit folgendem Code (C#) generiere ich animierte GIFs aus MetaFiles:
    Spoiler anzeigen

    Quellcode

    1. using System.Windows.Media;
    2. using System.Windows.Media.Imaging;
    3. using Metafile = System.Drawing.Imaging.Metafile;
    5. internal void DrawMakroGif(string fileName, List<MakroPosition> lmp)
    6. {
    7. if (lmp.Count == 0)
    8. {
    9. MessageBox.Show("Kein Makro verfügbar.");
    10. return;
    11. }
    13. Rectangle rc = this.ClientRectangle;
    14. int width = rc.Width;
    15. int height = rc.Height;
    16. int stride = width * 4; // 4 Byte per Pixel
    17. byte[] pixels = new byte[height * stride];
    19. GifBitmapEncoder encoder = new GifBitmapEncoder();
    20. string tfn = System.IO.Path.GetTempFileName();
    21. foreach (MakroPosition mp in lmp)
    22. {
    23. DrawMetaFile(tfn, mp); // hier wird zu jeder Makro-Position ein Metafile abgespeichert
    25. Metafile emf = new Metafile(tfn);
    26. Bitmap bmp = new Bitmap(emf.Width, emf.Height, System.Drawing.Imaging.PixelFormat.Format32bppArgb);
    27. Graphics g = Graphics.FromImage(bmp);
    28. g.Clear(Color.White);
    29. g.DrawImage(emf, 0, 0);
    30. emf.Dispose();
    32. System.Drawing.Imaging.BitmapData bmpDataIn;
    33. bmpDataIn = bmp.LockBits(rc, System.Drawing.Imaging.ImageLockMode.ReadWrite, bmp.PixelFormat);
    34. Marshal.Copy(bmpDataIn.Scan0, pixels, 0, pixels.Length);
    35. bmp.UnlockBits(bmpDataIn);
    37. // Creates a new empty image
    38. BitmapSource image = BitmapSource.Create(
    39. width, // Breite der Bitmap in Pixeln
    40. height, // Höhe der Bitmap in Pixeln
    41. 96, // horizontale Punkte pro Zoll (dots per inch, dpi) der Bitmap
    42. 96, // vertikale Punkte pro Zoll (dots per inch, dpi) der Bitmap.
    43. PixelFormats.Pbgra32, // ARGB - 32 Bit pro Pixel
    44. null, // Define the image palette
    45. pixels,
    46. stride); // Schrittweite der Bitmap
    48. encoder.Frames.Add(BitmapFrame.Create(image));
    49. }
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!