Prosjekt: VBTorrent skrevet i VB6

[Richard87]

En Bit Torrent Client skreve i VB6, nogen intereserte?

 

her e en link øve Protocllen etc:

BitTorrent Protokoll

 

det første problemet eg komm øve, va ganske enkelt og lesa inn .torrent filå,eg kn lesa en del av filå, mes så e det en del av filå som består av "binary" kode, dvs, der e et EOF tegn midt i filå,som eg ikkje greie og lesa videre itte

 

dessuten, någen som har en god "algorithme" for og lasta inn alle "settingsene"?

 

PS, den første testen min va og bruke split() på fileå, men det går ikkje, fordi der e tall inni bildet som IKKJE blir "delima" av :, og dessuten URL'er som alltid inneholder :

 

ok, eg har begynt men eg har ingen ide om neste steg...

clsTorrentLoad.cls

Endret 10. mars 2005 av Richard87

[aadnk]

For å overkomme problemet med EOF-karakterer i filen, kan du jo ganske enkelt laste inn filen binarisk. Dette gjøres på følgende måte:

 

Public Function LoadData(sFile As String) As String

   Dim Free As Long
   
   ' Finn et ledig filnummer for åpningsprosessen
   Free = FreeFile
   
   ' Åpne filen i binarisk modus
   Open sFile For Binary As #Free

       ' Alloker variabel stor nok til å romme hele filen
       LoadData = Space(LOF(Free))
       
       ' Last inn data
       Get #Free, , LoadData

   ' Lukk filen
   Close #Free

End Function

 

PS, den første testen min va og bruke split() på fileå, men det går ikkje, fordi der e tall inni bildet som IKKJE blir "delima" av :, og dessuten URL'er som alltid inneholder :

 

Hver streng har sin lengde som prefiks - før kolonet. Benytt denne til å avgjøre hvor lang en URL er.

[Richard87]

ok, eg fatte,eg greie og lesa in heila stringen inn i sBuffer, men text boxen nekte og skriva inn mer itte eof tegnet.. eller e det någe annet eg ikkje har fått me meg her?

 

Private Function LoadData(ByVal FileName As String) As String
Dim sBuffer As String
Dim lFree As Long
lFree = FreeFile
sBuffer = Space(FileLen(FileName))
'Load the torrent into memory...
Open FileName For Binary As #lFree: Get #lFree, , sBuffer: Close #lFree
'ok, we have the torrent in sBuffer(hopefully)
LoadData = sBuffer
End Function

[aadnk]

Tekstbokser i VB er simpelthen en innkapsling av Edit-kontrollen i Windows. Denne kontrollen kan ikke vise nullkarakterer, hvilket er årsaken til at teksten deler seg etter "EOF-tegnet".

 

En løsning på problemet er å heller benytte en RichTextBox for å vise teksten, idet denne ikke bærer på de samme begrensningene som tekstboksen.

[Richard87]

koffor får eg "Subscript out of range" i denne koden?

 

Public Function GetAnnounce(ByRef sText() As String, ByRef sReturn As String) As Boolean
If IsArray(sText) = False Then Exit Function
Dim X As Long
For X = LBound(sText) To UBound(sText) '< på dene linjå..
   If LCase(sText(X)) = "announce" Then
       sReturn = sText(X + 1)
       GetAnnounce = True
       Exit For
   End If
Next X
End Function

og kossen kan eg fiksa det?

Endret 11. mars 2005 av Richard87

[inherit]

lurer kanskje på om du må ta ... To Ubound(sText) - 1

Har ikke testet det...

[Stig Jøran]

Er det mulig å få se kildekoden?

[Richard87]

hehe, joda, men eg har ikkje komt lengre til og "prøve" og lasta opp torrent fila, eg har ikkje någe fungerande kode enda...

[aadnk]

Laste opp? Mener du å avlese torrent-filen?

 

Jeg må for øvrig tillate meg selv å bemerke at det er litt av en prestasjon å ha så lite progresjon på et halv år. Neida, jeg vet hvordan det er. Ofte blir en distrahert slik at andre prosjekter kommer i fokus istedenfor.