Videoerstellung???

[heiopei]

Wie kann ich Bilder zu einem Video zusammenfassen und in einem 'Image' anzeigen(Bild laden, bestimte Zeit zeigen, neues Bild laden)? [/center]

[Sebastian Nintemann]

Hallo, und herzlich willkommen erstmal, meinst du jetzt wie du Bilder zu einem Video (avi, gif, ...) zusammensetzen kannst, oder einfach Bilder in bestimmten Zeitabständen in einer TImage Komponente anzeigen kannst?
Für ersteres benutze ich Animation Shop von Jasc Software (auf der Paint Shop Pro CD, keine Ahnung ob es ein Trial davon gibt). Das Ergebnis (AVI) kann man dann in einer TAnimate Komponente abspielen lassen.
Wenn du nur Bilder in Bestimmten Zeitabständen anzeigen lassen willst kannst du ja in einem Timer jeweils ein Bild laden, etwa so:

Delphi-Quellcode:

var
  i: integer = 0;  //globale Variable
...
procedure Timer1Timer(sender: TObject);
begin
  Image1.LoadFromFile('C:\Test\bild'+IntToStr(i)+'.bmp');
  inc(i);
  if i = 15 then i := 0
end;

//Für diesen Beispielcode müssten die Bilder bild0.bmp bis bild14.bmp im Verzeichnis C:\test\ liegen.

Wird aber wahrscheinlich flackern (nicht getestet), bei schnellem Bildwechsel nicht zu empfehlen!

Gruß, Sebastian

[heiopei]

Danke Grotesquery,
bin leider schon länger nicht im Interet gewesen und check des noch nicht ganz ab hier.
Ich hof das es funktioniert!Hast du vielleicht noch n' Link für des Programm? Wär echt coll, weil ich sowas schon ewig such!

[Sebastian Nintemann]

Hallo, ich hab mal gegoogelt und folgenden Link gefunden:
30-Tage Trial von Animation Shop

Wenn du noch Erklärungen zu dem Code haben willst ruhig fragen, ich könnte auch mal was machen was nicht flackert, kommt blos drauf an was du machen willst, geht es nur um eine Bildfolge von 5 Bildern oder so ist das kein Problem das nur mit den Bitmaps zu machen, willst du aber ein richtiges längeres Video zeigen würde ich schon zu AVI oä. greifen.

Gruß, Sebastian