Foros Club Delphi - Partir un AVI

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - Partir un AVI (https://www.clubdelphi.com/foros/showthread.php?t=38338)

Hola a todos
No se si este sea el foro correcto pero no supe donde ponerlo

Resulta que tengo una archivo .AVI y tengo que obtener un fragmento de él, pero tiene que ser mediante código y alguien me puede orientar de como lograr hacerlo o donde empezar a buscar se lo agradezco mucho

Hola, pásate por éste hilo, puede que te ayude a como partir un fichero.

Espero te sirva.

Saludos

Gracias Bicho por tu respuesta.

Efectivamente puedo segmentar cualquier archivo, la mala noticia es que despues no puedo reproducir la parte segmetada. ¿Podrias darme alguna otra idea? el codigo que puse fue este

Código:

procedure TForm1.Button1Click(Sender: TObject);

var origen , destino : TFileStream;

begin

  Abrir.Execute;

  origen := TFileStream.Create(Abrir.FileName,fmOpenRead or fmShareDenyWrite);

  Guardar.Execute;

  destino := TFileStream.Create(Guardar.FileName,fmCreate or fmShareDenyRead);

  destino.CopyFrom(origen, 29303);

  FreeAndNil(origen);

  FreeAndNil(destino);

end;

a lo mejor estoy olvidando algo. Gracias otra vez