Thaiio.com

From sending file in the section 1, about how to code programming. In this section, will be development program by using original chat program of VB Winsock Chat in the section 3 to add 3 controls, 2 Text Box and one Command Button because in the section of listening from Server and Connect from Client have codes and I had already explained , if you have any question, click here.

Creating form and programming

1. Begin open file Visual Basic Project first, after that choose chat program in the section 3 click download Source Code Program Chat. When finishing, open Form of program that will appear like the picture. It is addition for get Path File and button Send File, or adding code 2 procedures. In the section about coding program in the section 1, so I won’t explain again. You just copy Code according to procedure that is set. I write to explain like this.

Source Code and Description

In this part, you must copy to paste in program that has 3 parts,
1. SendData function
2. Send button (Command1_Click)
3.Procedure Winsock_Arrival()

‘ <a href="/index.php?tag=product/&PHPSESSID=eaf5eac0c387b1226d082f3a79544d8e" class="alinks_links" onclick="return alinks_click(this);" title="" >Product</a> by : http://thaiio.com ‘ <a href="/tag/data/?PHPSESSID=eaf5eac0c387b1226d082f3a79544d8e" class="alinks_links" onclick="return alinks_click(this);" title="" >Data</a> : 11/04/2001 ‘ Progrmming by : Narong Y. Option Explicit Private Declare <a href="/index.php?tag=function/&PHPSESSID=eaf5eac0c387b1226d082f3a79544d8e" class="alinks_links" onclick="return alinks_click(this);" title="" >Function</a> ShellExecute Lib “shell32.dll” Alias “ShellExecuteA” (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long Dim bFileArriving As Boolean Dim sFile As String Dim sArriving As String Dim valTotal As Long Dim bSendingFile As Boolean ‘————— ส่วนของฟังก์ชั่น SendData —————— Public Sub SendData(sFile As String, sSaveAs As String, tcpCtl As Winsock) On Error GoTo ErrHandler Dim sSend As String, sBuf As String Dim ifreefile As Integer Dim lRead As Long, lLen As Long, lThisRead As Long, lLastRead As Long ifreefile = FreeFile ‘ เปิดไฟล์ชนิดไบนาลี่ Open sFile For Binary Access Read As #ifreefile lLen = LOF(ifreefile) ‘วนลูปเพื่อทำให้ไฟล์เป็นแพกขนาด 64k: Do While lRead < lLen lThisRead = 65536 If lThisRead + lRead > lLen Then lThisRead = lLen - lRead End If If Not lThisRead = lLastRead Then sBuf = Space$(lThisRead) ‘ เก็บค่า Record ไว้ใน Buffer End If Get #ifreefile, , sBuf ‘ ทำการอ่านข้อมูลจากไฟล์มาเก็บไว้ใน Random Buffer lRead = lRead + lThisRead sSend = sSend &<a href="/tag/amp/?PHPSESSID=eaf5eac0c387b1226d082f3a79544d8e" class="alinks_links" onclick="return alinks_click(this);" title="" >amp</a>; sBuf Loop valTotal = lLen Close ifreefile ‘ปิดแฟ้มข้อมูล bSendingFile = True ‘ส่งชื่อแฟ้มข้อมูลแจ้งไปล่วงหน้า tcpCtl.SendData “FILE” &<a href="/tag/amp/?PHPSESSID=eaf5eac0c387b1226d082f3a79544d8e" class="alinks_links" onclick="return alinks_click(this);" title="" >amp</a>; sSaveAs DoEvents ‘ส่งข้อมูลของแฟ้มข้อมุล tcpCtl.SendData sSend DoEvents ‘เสร็จสิ้น tcpCtl.SendData “File Complete!” bSendingFile = False Exit Sub ErrHandler: MsgBox “Err ” & Err & ” : ” & Error End Sub ‘——————–เป็นส่วนของปุ่ม Send ————— Private Sub cmdSend_Click() If TxtInput.Text <> “” Then On Error GoTo ErrLabel: Winsock1.SendData TxtInput.Text TxtMassage.Text = TxtMassage.Text & “Me: ” & TxtInput.Text & vbCrLf TxtInput.Text = “” TxtMassage.SelStart = Len(TxtMassage.Text) End If Exit Sub ErrLabel: txtMonitor.Text = txtMonitor.Text & Err.Description & ” - Error number: ” & Err.Number & vbCrLf txtMonitor.SelStart = Len(txtMonitor.Text) End Sub ‘———— เป็นส่วนที่จะต้องนำไปเพิ่มเติมในWinsock1_DataArrival(ByVal bytesTotal As Long)——— Dim ifreefile DoEvents If Right$(StrValue, 7) = “Filecmp” Then ‘ถ้าหากฝั่ง Server ส่งค่าสตริงคำว่า”Filecmp” bFileArriving = False sArriving = sArriving & Left$(StrValue, Len(StrValue) - 7) ‘ ifreefile = FreeFile If Dir(sFile) <> “” Then ‘ ตรวจสอบว่ามีไฟล์เดิมอยู่หรือไม่ MsgBox “File Already Exists” Else ‘เปิดแฟ้มข้อมูลแบบไบนาลี่เพื่อเขียนข้อมูล Open sFile For Binary Access Write As #ifreefile Put #ifreefile, 1, sArriving ‘ บันทึกข้อมูลจากตัวแปร buffer ลงสู่แฟ้มข้อมูลตามเรคคอท Close #ifreefile ‘ ปิดแฟ้มข้อมูล ‘ เปิดไฟล์ ShellExecute 0, vbNullString, App.Path & “\” & sFile, vbNullString, vbNullString, vbNormalFocus End If ElseIf Left$(StrValue, 4) = “File” Then bFileArriving = True sFile = Right$(StrValue, Len(StrValue) - 4) ElseIf bFileArriving Then sArriving = sArriving & StrValue End If Exit Sub

How to use program for sending file.

1. After doing file as EXE, then open program to 2 programs, click connect button in order to set value of winsock. The Client side must be clicked to choose status of the computer as client, for Server, choose Server in the part of Client, must fill value Server ในส่วนของ Client and Port number. The computer that send and get must Sharing directrory first in experiment. For this program in another Windows, choose status of computer as Server, then fill port number that match with client side. After that, push Listen   button. For client side, push Connect button. If there aren’t any problems, will have message that successful connection.

Click downloads source code of all programs here

The learning outcome of this article
1.    To know how to program by using Visual Basic to connect through TCP/IP by Winsock.
2.    To apply basic about managing data file to use sending file via TCP/IP.
3.    To understand principle of working of Event and Function of Winsock.

Share This

We have got to know the contents about sending message through TCP/IP. So, we may understand how to use Winsock to connect via TCP/IP. So now, we program in order to send via data, so, we have to firstly make understanding by dividing data file into 2 types in the following.
•    Sequential File
•    Random File
In this content, we mention how to manage file as Random File that has more advantage than Sequential File. It can be quickly opened by not arranging data as Sequential File and enter to Record.  Read the rest of this entry »

Share This