[2005] sending file through network

[Visual Basic.Net]

Hello everybody
I want to read all of the data in an binary file like gif file to send the file through network. what is the best way? I using winsock but I don't know how to read all data in the file. I used this but it dosn't work
Dim st As FileStream = File.Open("C:\test.gif", FileMode.Open)
Dim binaryFile As New BinaryReader(st)
Dim FData As String
FData = MsgBox(binaryFile.ReadString())
While (EOF(binaryFile.GetHashCode()))
MsgBox(FData)
FData = MsgBox(binaryFile.ReadString())
End While

[Visual Basic.Net]

any body?

[Visual Basic.Net]

is it a hard question?!!

[sauronsmatrix]

BUMP

I'm trying to do something similar as well... If I make any progress I'll let you know; I bookmarked the thread.

Oh, and as for reading the data:

        Dim dialog As New Windows.Forms.OpenFileDialog
        Dim blah As DialogResult = dialog.ShowDialog()
        If blah = Windows.Forms.DialogResult.Cancel Then Exit Sub
        Dim st As FileStream = File.Open(dialog.FileName, FileMode.Open)
        Dim fileread As New StreamReader(st)
        Dim FData As String = fileread.ReadToEnd()
        st.Close()
        fileread.Close()
        TextBox1.Text = FData

That's how to read the data easily. I saw you used a binary reader though. Is that required for sending the file through the network?

[Visual Basic.Net]

Thx alot bro , but that code would be a bad sol for reading a big files!
It would be good right now for reading the gif small files. I will try it
Thx again

[Visual Basic.Net]

it dosn't work with me!! Plz if anybody have the way to read a binary file and put the read data into a string variable, tell us?!
thx

[sauronsmatrix]

Made some progress my friend! I got the binary reading down.

Heres the code:

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox1.Text = ""
        Dim dialog As New Windows.Forms.OpenFileDialog
        Dim blah As DialogResult = dialog.ShowDialog()
        If blah = Windows.Forms.DialogResult.Cancel Then Exit Sub
        Dim st As FileStream = File.Open(dialog.FileName, FileMode.Open, FileAccess.Read, FileShare.Read)
        Dim fileread As New StreamReader(st)
        Dim filedata As String = fileread.ReadToEnd
        TextBox1.Text = TextToBinary(filedata)
        st.Close()
        fileread.Close()
    End Sub
    Public Function TextToBinary(ByVal Text As String, Optional ByVal Separator As String = " ") As String
        Dim oReturn As New StringBuilder
        ' Convert to ASCII and go through all the bytes
        For Each Character As Byte In ASCIIEncoding.ASCII.GetBytes(Text)
            oReturn.Append(Convert.ToString(Character, 2).PadLeft(8, "0"))
            oReturn.Append(Separator)
        Next
        Return oReturn.ToString
    End Function

I took the TextToBinary Function off some site, its not mine. But yeah, it works. Although loading large files does take long, but you can use a BackgroundWorker to solve that mess.

Now, on to the actual networking.... X__X

Also, you need an import:

Imports System.Text

and obviously

Imports System.IO

[Visual Basic.Net]

why conversion I didn't get it? I used the reading code and imediatly save the content of the filedata into another file but it is currupted??!

[sauronsmatrix]

let me see the code you are using to save the file

[Visual Basic.Net]

Dim F As Integer = FreeFile()
FileOpen(F, "c:\tes.gif", OpenMode.Binary)
FilePut(F, FData)
FileClose(F)

[Visual Basic.Net]

hello!