von mehreren JPEG in MPEG

[igel457]

Zitat:

Gibt es da auch einen andere möglichkeit damit ich nur eine Datei pro film habe???

Jo!
Das ist eigentlich ganz einfach.
Du schreibst erst einmal deine ganzen Bilder in einen TFileStream.

Delphi-Quellcode:

var
  FS:TFileStream;
begin
  FS := TFileStream.Create(filename,fmOpenWrite);
  FS.Seek(soFromEnd,0);
  for i := 0 to bildercount-1 do
    mybild[i].savetostream(FS);
  FS.Free;
end;

So hättest du deine Bilder schon einmal in einer Datei.
Du kannst den Stream auch in OnFormCreate erzeugen und nur dann ein Bildhinzufügen wenn du es brauchst.

Um das ganze wieder zu lesen würde ich einen Timer verwenden.

Delphi-Quellcode:

var FS:TFileStream;

implementation

procedure FormCreate(Sender:TObject);
begin
.
.
  FS := TFileStream.Create(filename,fmOpenRead);
  FS.Seek(fmFromBeginning);
.
.
end;

Delphi-Quellcode:

procedure OnTimer(Sender:TObject);
begin
  image1.picture.bitmap.loadfromstream(fs);
end;

In FormDestroy nicht vergessen den Filestream zu löschen!

Ich weiß nicht ob das geht, ich rate dir mal die Online Hilfe zu Streams zur Hand zu nehmen.