Filemanager problem

[marjinz]

Hello! Im coding a filemanager and I need some help.
The download speed is very slow.

The arrived packets are loaded into memory (4 kb/packet) and that also makes the program very slow. The packets should get into the file as soon as they arrived.
Can you help me to fix the code? Code (Client side):

'Module
Public CurrentDirectory As String
Public intFile As Integer
Public lngFileSize As Long
Public lngFileProg As Long
Public StrFileName As String
Public RequestedFile As String
Public tmpstring As String
Public screenshot As Boolean
-------------------------------------------------------------------
 
 
Private Sub ClientSck_DataArrival(Index As Integer, ByVal bytesTotal As Long)
Dim arrLines() As String
Dim i As Integer
Dim Lines As Long
Dim All_data As String
Dim Clean_Data As String
Dim Temp_Data As String
Dim NData() As String
Dim FileBuffer As String
 
ClientSck(Index).GetData All_data, vbString
NData = Split(All_data, "|")
Select Case NData(0)
 
 
 
 
        Case "SEND_FILE": lngFileSize = Int(NData(1)): Filemanager.ProgressBar.Max = lngFileSize: Filemanager.lblPercent.Caption = "0%": intFile = FreeFile
                          lngFileSize = Int(NData(1)): Screencapture.PB.Max = lngFileSize
                          SckNumber = lstConTable.ListItems.Item(lstConTable.SelectedItem.Index)
                          If FileExists(StrFileName) Then
                              Kill StrFileName: DoEvents
                          End If
                          Open StrFileName For Binary Access Write As intFile: ClientSck(SckNumber).SendData "ACPT_FILE" & "|" & RequestedFile: lngFileProg = 0
 
 
 
        Case "CHNK_DATA"
            SckNumber = lstConTable.ListItems.Item(lstConTable.SelectedItem.Index)
            All_data = Mid$(All_data, 11, Len(All_data) - 10)
 
            If (lngFileProg + 4096) < lngFileSize Then
                lngFileProg = lngFileProg + 4096
                Filemanager.ProgressBar.Value = Filemanager.ProgressBar.Value + 4096
                Filemanager.lblPercent.Caption = Format$((Filemanager.ProgressBar.Value / Filemanager.ProgressBar.Max * 100), "##.##") & "%"
                Screencapture.PB.Value = Screencapture.PB.Value + 4096
                Put intFile, , All_data
                ClientSck(SckNumber).SendData "CHNK_FILE"
 
            Else
 
                All_data = Left$(All_data, lngFileSize - lngFileProg)
                Filemanager.ProgressBar.Value = Filemanager.ProgressBar.Max
                Filemanager.lblPercent.Caption = "100%"
                Put intFile, , All_data
                ClientSck(SckNumber).SendData "DONE_FILE"
                Close intFile
                Filemanager.ProgressBar.Value = 0
                 Screencapture.PB.Value = 0
                Filemanager.lblPercent.Caption = vbNullString
 
                If screenshot = True And StrFileName = App.Path & "\CompressedSS.cmp" Then
                    screenshot = False
                    DecompressFile App.Path & "\CompressedSS.cmp", App.Path & "\Screencapture.bmp"
                    Kill App.Path & "\CompressedSS.cmp"
                    Screencapture.Picture1.Picture = LoadPicture(App.Path & "\Screencapture.bmp")
  Screencapture.Picture1.ScaleMode = 3
    Screencapture.Picture1.AutoRedraw = True
    Screencapture.Picture1.PaintPicture Screencapture.Picture1.Picture, _
        0, 0, Screencapture.Picture1.ScaleWidth, Screencapture.Picture1.ScaleHeight, _
        0, 0, _
        Screencapture.Picture1.Picture.Width / 26.46, _
        Screencapture.Picture1.Picture.Height / 26.46
    Screencapture.Picture1 = Screencapture.Picture1.Image
 
                Else
 
                    statBar.SimpleText = "Status: Command Executed"
                    MsgBox "Download Finished" & vbNewLine & vbNewLine & "Total Recived: " & Format$(Filemanager.ProgressBar.Max, "###,###,###,###") & " bytes", vbOKOnly, "Nedladdnings status"
 
                End If
            End If

[DigiRev]

Have a look at a file manager I made along time ago, might be a couple bugs in the directory listing, but everything else works. It comes with a file transfer control (sender/receiver) to make transferring files pretty easy.

I plan on updating the code soon since back then I wasn't real experienced with winsock, or VB in general.

http://www.pscode.com/vb/scripts/Sho...50253&lngWId=1

If you have any questions let me know.

[DigiRev]

Also, a 4KB packet size is kind of big. Remember that, no matter how big you set your packet size, only so much data can get through at one time. This is limited by Windows (TCP/IP) settings and network interface drivers. A large packet size will not make the transfer go any faster. I would set it at about 512 bytes or 1KB at most. Packet size will not really determine the rate of download (KBPS) unless you set it extremely low, and even then it will have minimal effect.

It also looks like you're sending/receiving files using strings to hold the data.

Use a byte array. If the file you're sending is a binary file, you will want to use a byte array to store/write the data to disk.

You could change your parsing routine to work with a byte array, or alternatively, use 2 ports. One for sending the file info, the other for transferring the file data.

[ganeshmoorthy]

Im doing similar program to copy files thru tcp/ip, but the size of files will be 5 to 7 MB and there are lots of files to be transferred at one time...any help on transferring large size files thru tcp/ip