Trocear archivos

[JoseFco]

Presupongo que tu lo que quieres son las partes.Y continuando con el presuponio, presupongo que eso no es muy legal.
Desvirtuadores SI, pero muy derechos.


Un Saludo.

[[eduarcol]]

Empezado por JoseFco

Presupongo que tu lo que quieres son las partes.Y continuando con el presuponio, presupongo que eso no es muy legal.
Desvirtuadores SI, pero muy derechos.


Un Saludo.

no pues, eso si y mucho...

Ademas los gurus estan durmiendo, solo quedamos los desvirtuadores, si quieres te echamos una ayudadita...

[JoseFco]

Empezado por eduarcol

no pues, eso si y mucho...

Ademas los gurus estan durmiendo, solo quedamos los desvirtuadores, si quieres te echamos una ayudadita...

jejejejejeje si quieres le podemos trocear al poliburro y le mandamos 14" de megabytes.

[[eduarcol]]

Empezado por JoseFco

jejejejejeje si quieres le podemos trocear al poliburro y le mandamos 14" de megabytes.

y como sabes esas medidas?

[JoseFco]

Empezado por eduarcol

y como sabes esas medidas?

Tu si que eres indiscreto carnal, como tu crees que te voy a confesar que egostar me lo conto.

[JoseFco]

Bueno continuando con el presuponio y analizando profundamente este hilo creo que los locos estan sueltos.

PD:Este hilo deveria ser relocalizado a La Taberna.

Un Saludo.

[[enecumene]]

Empezado por JoseFco

jejejejejeje si quieres le podemos trocear al poliburro y le mandamos 14" de megabytes.

....

[JXJ]

Empezado por JoseFco

Presupongo que tu lo que quieres son las partes.Y continuando con el presuponio, presupongo que eso no es muy legal.
Desvirtuadores SI, pero muy derechos.


Un Saludo.

Que quede muy claro..

es para mi. uso de asuntos personales.
repartir, informacion p2p, de mis archivos, mis videos. mi musica.
es mio. de mi.. YO, el propietario legitimo, que solo uso una camara
un audifono, para hacer los archivos.
Mi software, mis, archivos ISO, de mis cosas, de mis documentos,
de mis respaldos.

Es para hacer mi sistema de respaldos, descentralizados.
entiendase.
Mis cosas.

un respaldo de ellas a las diferentes pcs, o lugares, donde este,
solo el software, por el cual, pedi su asistencia o ayuda.

Una vez lista, la aclaracion, que es innecesaria.

[Manden este tema, a la taberna.]
ya se lleno de comentarios que no sirven., exepto los mios claro.

Mejor eliminenlo.

[[enecumene]]

Vamos hombre, no seas así, mira conseguí este link donde hay un free source de un programa p2p hecho en delphi tal vez te ayude.

Saludos

[JXJ]

..
pues, que ese codigo ya lo estoy revisando.

Por que no tengo certeza de que compile.

ya lo he intentado, muchas veces. y a cada ocasión
da error de supernodo.
y otras extrañas faltas.

total no va ese codigo..

[JoseFco]

Empezado por JXJ

..
pues, que ese codigo ya lo estoy revisando.

Por que no tengo certeza de que compile.

ya lo he intentado, muchas veces. y a cada ocasión
da error de supernodo.
y otras extrañas faltas.

total no va ese codigo..

Me a pasado mil veces que encuentro un codigo y asumo que estara todo probado y que funcionara.En ocasiones he encontrado muchos errores como que le faltan end; que falta declarar algunas cosas, etc. Ten eso en cuenta porque suele suceder.Ahora eso si si te dan un codigo es mejor que nada amigo.Ya por lo menos tienes una idea de como corre la cosa.

Un Saludo.

[Neftali [Germán.Estévez]]

El código de Ares debería funcionar si lo bajas del lugar correcto. Es más, el programa está funcionando correctamente. Hay que leerse la documentación y tener muy presente las directivas de tipo DEFINE.

En cuanto a la pregunta, échale un vistazo a procedimientos del tipo: Seek, Read,... y demás procedimientos de acceso a ficheros. Puedes probar algo así:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  f: file of Byte;
  size: Longint;
  S:String;
  ch:Char;
  b:Byte;
  i:Integer;
begin
  if OpenDialog1.Execute then begin
    AssignFile(f, OpenDialog1.FileName);
    Reset(f);
    try
      size := FileSize(f);
      S := 'Tamaño del fichero: ' + IntToStr(size);
      MessageDlg(S, mtInformation, [mbOK], 0);

      memo1.Lines.Add('--------------------------');
      // Leer 100
      for i := 0 to 100 do begin
        Read(f, b);
        memo1.Lines.Text := memo1.Lines.Text + IntToStr(b) + ' ';

        // Guardarlo en otro
        //...
      end;

      Seek(f, size div 2);
      S := 'Position actual: ' + IntToStr(FilePos(f));
      MessageDlg(S, mtInformation, [mbOK], 0);
      
      memo1.Lines.Add('--------------------------');

      // Leer otros 100
      for i := 0 to 100 do begin
        Read(f, b);
        memo1.Lines.Text := memo1.Lines.Text + IntToStr(b) + ' ';

        // Guardarlo en otro
        //...
      end;

    finally
      CloseFile(f);
    end;
  end;
end;

Para enviarlos sí que puedes utilizar Streams; Hace no muchos días estuvimos hablando de cómo enviar cosas a travñés de Indy, e incluso Seoane colocó código para hacerlo (no más de 2 o 3 semanas -el hilo hablaba de enciar imágenes-).

Junto con el trozo que envías deberías enviar información que te permita identificar o ubicar posteriormente ese trozo. Ya sea posicion de inicio y tamaño, algun identificador del número de la parte, tamaño y número de parte,... (hay muchas posibiliodades).