FTP | CCD | Buscar | Trucos | Trabajo | Foros |
#3
|
|||
|
|||
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;
__________________
Saludos Cordiales |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Partir cadenas | rcg2 | Varios | 2 | 23-06-2006 10:49:58 |
Partir un string | FunBit | Varios | 5 | 25-07-2005 17:58:32 |
Crear un fichero .tlb a partir de un .pas | jfgazquez | Varios | 1 | 18-07-2005 16:44:50 |
Partir Archivos | juliopag1 | Varios | 1 | 10-06-2005 19:37:42 |
Crear un EXE a partir de un TXT o CPP | aleidania | Varios | 1 | 25-10-2003 18:36:45 |
|