[Delphi 6] File Transfer In Chunks

[Verwijderd]

Hii,

ik ben bezig met een peer to peer programma en ik will graag weten hoe ik het beste een file in kleine chunks kan zetten en dan op vraag van client betreffende chunk door sturen.

Ongeveer als kazaa waar je een hele film in kleine chunks van meerdere mensen kan downen.

Kan iemand mij hier bij helpen?

Ik gebruik Delphi 6.

Alvast bedankt

Raju ;o)

[LordLarry]

Bedenk een protocol zodat je je bestanden in delen op kan sturen. Een client zou bijvoorbeeld om een deel van het bestand kunnen vragen in de vorm van beginpos en endpos of je zou bestand altijd in vaste delen op kunnen delen zodat de client alleen het blocknummer hoeft te vragen. Voor de rest vind ik je vraag een beetje te algemeen. Als je nog een specifiek probleem hebt moet je daar maar een specifieke vraag over stellen.

[Verwijderd]

mijn probleem is hoe ik een bestand in chunks moet delen enn als er nou gevraagd wordt naar een deel 69 dan hoe moet ik die in het bestand zoken?

dus stel ik maak van 500 mb file een chunk van 20kb dus wordt het 256000 chunks.

en een peer stuurt naar deze peer ik wil van die en die file de chunk nr 158 hoe moet ik dan in dat bestand zoeken naar de chunk 158?

ik ben nieuw in delphi dus ik weet nie hoe het kwa code aangepakt moet worden verder heb ik wel een protocol beschreven die verder geimplementeerd wordt in mij programma.


Hoop dat je nu een weet wat ik bedoel

Raju ;o

[Grijze Vos]

Algemene tip:

als je nog niet erg bedreven bent in een bepaalde taal, ga dan eerst eens in pseudo-code opschrijven hoe je het zou willen doen. Dus, kom eens met wat pseudo-code.

[Verwijderd]

wat is een pseudo-code?

tja wat ik bedoel is:

Wat ik totzover af heb is:
- Client logt in de server
- Server Stuurt Alle Online Users (net als msn)
- Nu stuurt een client naar de server volgende info
(RequestedFilename, ChunkNr)
- Server weet client's sockethandle dus server roept de onderstaande procedure aan.

code:

procedure RequestedChunk(Filename : Stringl; ChunkNr, SckHandle : Integer);
begin

   Open(filename);  
   CalculateChunks;
   Find begin/eind pos van de betreffende deel;
   stuur de betreffende deel naar de SckHandle;

end;

Ongeveer zoiets, is dit mischien duidelijk?

[LordLarry]

Precies. En welk deel heb je moeite mee? Je kan gewoon binnen een bestand en/of stream springen naar de locatie die je wilt en vanaf daar gegevens lezen.

[Spinal]

Seek (F, positie);
waarbij F een bestand is, geopend met OpenFile (F, 'bestandsnaam'); Reset (F);
Positie is uiteraard de positie in het bestand, de eerste byte in het bestand heeft positie 0.

Bedoel je dit misschien?

[Soultaker]

Verwijderd schreef op 02 april 2004 @ 17:12:
wat is een pseudo-code?

[..]

code:

procedure RequestedChunk(Filename : Stringl; ChunkNr, SckHandle : Integer);
begin

   Open(filename);  
   CalculateChunks;
   Find begin/eind pos van de betreffende deel;
   stuur de betreffende deel naar de SckHandle;
end;

Dat is dus pseudo-code. Zoek voor dat 'vinden' deel eens naar 'seek' in de Delphi documentatie. Berekenen welk stuk je moet hebben moet je zelf doen, maar dat lukt vast wel.

[Verwijderd]

bedankt voor de antwoorden

ik zal de Seek functie nog effe door kijken en laat je weten of ik nog vragen heb daarover.

b.t.w

Ik heb gehoord dat je met een component van fastnet ook files mee kan inlezen, positie zoeken en versturen en dat dan ook sneller is tja ik weet nix hier van dus kan iemand mij zeggen want het snelste is? want er wordt gewerkt met groteren bestanden van 1+ GB !

Als het mogelijk is graag een voorbeeld app voor mijn probleem

[Verwijderd]

Als ik nou een chunk heb van 20 kb, moet de client dan begin en eind positie meegeven of een chunk nummer ?

Stel is het een chunk nummer dan moet ik eerst de file in 20kb chunks delen en dan de chunk 560 pakken, maar hoe kan ik de begin en eind van die chunk weten?

ik ga vanuit

Eind :=chunk(begin)+20kb

Hoe moet ik chunk begin bytes weten?

moet ik mischien een while loop hebben dat ie met een groote van 20kb, 560 loops gaat maken? tja hoe gaat het dan kwa code?

Small tips welcome

[ Voor 102% gewijzigd door Verwijderd op 03-04-2004 00:44 ]

[Verwijderd]

Ok mense!

NIET OP MIJN REPLY TIJD LETTEN AUB

De situatie is als volgt:
------------------------
Er zijn 2 clients die verbonden zijn met een server. Client1 stuurt een request naar de server met de volgende info: Filename, StartPositie.

Nu Server Zoekt in zijn lijst en vindt dat Client2 die file heeft en vertelt Client2 dat Client1 de volgende gestuurd heeft: Filename, StartPositie.

Nu moet de Client2 de StartPositie vinden in de betreffende file en dan bepaalt de Client2 het eindpositie door zijn maximum Chunk Groote optetellen bij de startpositie.

Daarna Moet de data vanaf StartPositie t/m EindPositie verzonden worden naar de Client2.


Mijn vraag is als volgt:
-----------------------
Ik heb een procedure geschreven die ongeveer doet als de bovenstaande situatie.
Alleen geen id hoe ik verder moet

Mischien kunnen jullie mij beter helpen met behulp van de onderstaande procedure

code:

  procedure TForm1.DoeIets(FInfo : String; FStartPos : Longint);
  var
        F               : textFile;
        FSize           : Variant;
        FEndPos         : Longint;
  begin
        {- Assumed Incomming Values -}
        FInfo           := 'G:\movie1.avi';
        FStartPos       := 18548;

        {- Set Known Values -}
        FChunkSize      := 10*1024; {In Bytes}
        FEndPos         := FStartPos + FChunkSize;

        {- Open File To Read -}
        AssignFile(F, FInfo);
        Reset(F);

        {- Get File Size -}
        FSize := FileSize(F);

        {- Seek For What?? -}
        Seek(F, FStartPos);

        // Hoe moet ik nu verder??
        // Socket1.SendText(????);
        // Welke componenet kan ik het beste gebruiken
        // om de files te verzenden?
  end;

Alvast bedankt voor jullie antwoorden

Raju

[ Voor 37% gewijzigd door Verwijderd op 03-04-2004 03:40 ]

[curry684]

NIET OP MIJN REPLY TIJD LETTEN AUB

Uh, da's normaal onder programmeurs hoor

[Verwijderd]

da's moooi

Nu hoor ik thuis

[ Voor 10% gewijzigd door Verwijderd op 03-04-2004 03:42 ]

[LordLarry]

Verwijderd schreef op 03 april 2004 @ 00:32:
Stel is het een chunk nummer dan moet ik eerst de file in 20kb chunks delen en dan de chunk 560 pakken, maar hoe kan ik de begin en eind van die chunk weten?

ik ga vanuit

Eind :=chunk(begin)+20kb

Begin := 20kb * (ChunckNr - 1) ;
Eind := Begin + 20kb;

En daarom heb je wiskunde nodig bij het programmeren

Verwijderd schreef op 03 april 2004 @ 03:26:

code:

       // Hoe moet ik nu verder??
        // Socket1.SendText(????);
        // Welke componenet kan ik het beste gebruiken
        // om de files te verzenden?

Alle tcp/ip componenten werken. Er zijn pakketten die blocking werken en pakketten die non-blocking werken. Tis maar welke je lekkerder vind. Het makkelijkst is het om componenten te nemen die je standaard bij Delphi krijgt. Bij D6 en hoger vind je Indy en TTcpClient/TTcpServer. Voor Indy vind je voorbeelden op hun website en voor die andere componeten kan je kijken naar C:\Program Files\Borland\Delphi\Demos\Internet\NetChat. Verder vind je er topics over hier op het forum en op internet.

De meeste componenten hebben een soort van SendString, SendBuffer en SendStream methodes. SendStream is waarschijnlijk het makkelijkst voor jouw, maar dan zal je wel TFileStream moeten gebruiken ipv de AssignFile finctie. Kijk even in de help hoe je TFileStream moet gebruiken.

[ Voor 56% gewijzigd door LordLarry op 03-04-2004 15:10 ]

[Verwijderd]

hoe moet ik na de seek verder gaan met de data?

want nu door seek heb ik de beginpositie ingesteld

met welke functie moet ik tot aan de eind poositie in lezen?

tja van friend kreeg ik een tip BlockRead and heeft iemand hier ervaring mee?

[Spinal]

BlockRead staat goed uitgelegd in de help
Vraagje: waarom beginnen met iets (moeilijks?) als een P2P programma als je dit soort (simpele?) dingen niet kent?

[Verwijderd]

hij bedankttt

ik heb de hulp geschket maar eehhh kan iemand dan effe een voorbeeld blockread statement schrijven die bij mijn code toepast?

Ehh ik heb de rest van de progje wel zelf af kunnen krijgen zoals authenticatie, chat server.. en ik will graag dit er ook bij doen

denk niet dat het verkeerd is om effe hulp te gebruiken bij een vrij nieuwe onderdeel (filetransfer in chunks)

Hoop iemand mij hiermee kan helpe

[Creepy]

Eh. de blockread staat, zoals ZanderZ al zegt, prima uitgelegt in de help. Daar heb je echt geen voorbeeld voor nodig.

Of kijk anders eens naar Tstream en varianten (TFileStream).

[lordsnow]

Waarom het wiel opnieuw uitvinden?

Er bestaan al standaard protocollen voor dit gedoe.

Hoe hou jij rekening met:
(1) als een chunk onderweg corrupt raakt?
(2) als iemand een Chunk stturt, zogenaamd van het bestand wat je zoekt, maar het blijkt totaal van iets anders te zijn?
(3) is het mogelijk om chunks te versturen van bestanden die jijzelf nog niet helemaal binnen hebt?

Zoek eens op TigerTreeHash (of TigerHash) i.c.m. filesharing etc.

[ Voor 14% gewijzigd door lordsnow op 04-04-2004 09:21 ]