Microsoft Word - 第八章透過Ehernet傳輸檔案.doc

Size: px

Start display at page:

Download "Microsoft Word - 第八章透過Ehernet傳輸檔案.doc"

孚抵欧阳
6 years ago
Views:

1 第八章透過 Ethernet 傳送檔案南臺科大電子系 2005/5/10 Ethernet 一個 1970 開發出來的區域網路資料傳輸技術, 採用分歧式連接法當某一站發送訊號時其它所有的站也都會收到訊息, 所以也稱為廣播式區域網路如圖 8-1 所示, 當電腦 A 傳出一個訊息時其它電腦也會收到同樣的訊息, 而使用乙太網路技術的電腦則會利用封包的檢查來判斷這是不是自已的訊息, 如果不是就不會處理而這種技術已經是使用者最多的一種電腦 A 電腦 B 電腦 C 乙太網路電腦 D 電腦 E 圖 8-1. Ethernet 的架構寫程式的重要觀念,Socket 與 API Socket 用檔案描述元 (file descriptor) 做 Internet 上的資料傳送與接收為了要在 Internet 上傳送資料, 因此 socket 必須要遵守 TCP/IP 網路通訊協定, 而在寫程式時所有與硬體有關的部分都是交給 API ( 應用程式介面 ) API 可以簡單看成就是一組組的函式, 只要照著函式的格式加參數及寫變數, 就可以達到與硬體溝通 Socket 依照作業系統有 windows 下的 winsock API 與 unix-like 的 sock API, 兩者基本的概念與流程都一樣, 差別在語法的不同 Ethernet 是 TCP/IP 通訊協定的其中一種 [1, pp ]. 欲透過 Ethernet 作資料的對傳, 分成 Clent 端及 Server 端兩種情況就 Client 端而言, 相關動作為 1. 建立 socket 2. 填寫連線遠端 server 的資料, 包含連線協定 ( ipv4,ipv6, TCP,UDP ) 及 server ip,server port 3. 連線 4. 傳送資料或接收資料 5. 結束 socket 連線就 Server 端而言, 相關動作為 1. 建立 socket 2. 確定自己的資料 ( ip,port) 3. 聆聽等待連接 4. 接受連接 5. 傳送資料或接收資料 6. 結束 socket 連線接下來分別針對這些動作說明 1. 建立 Socket 連線函式 int socket(int domain, int type, int protocol ) 1

2 A. 參數 domain: 要使用的規範 IPV4 的規範是 AF_INET 或者是 PF_INET 兩者皆表示同一規範 B. 參數 type: 傳輸資料所使用的協定 TCP, 所以使用 SOCK_STREAM 此參數其他參數型態請參考文獻 [6] C. 參數 protocol: 網路位元組順序的 32 位元整數 [2, p9, p13], 大部分連線型態都只支援 protocol=0 若回傳值為 -1 表示 socket 建立失敗, 其他則表示成功範例 : if ( (sockfd = socket(af_inet, SOCK_STREAM, 0)) < 0 ) perror("socket"); /*socket 建立失敗, 在終端機畫面顯示 Socket 相關的錯誤的訊息 */ exit(1); 2. 填寫遠端 Server 資料建立 Socket 連線後, 需填寫的遠端 Server 資料, 包括 : A. Server 的 port, 範例 :#define PORT_SERVER 9999 B. Server 的 IP address, 範例 : #define SERVER_ADDR " " C. 宣告儲存 Server 資料的結構 : struct sockaddr_in dest dest 此資料結構型態說明可參考文獻 [2, p12] 包括 1. 填寫 Server 使用的規範 :dest.sin_family = AF_INET 2. 將 16 位元的 2 進位碼轉換成從大到小的排序 :dest.sin_port = htons(port_server) 3. 將使用句點分格式 (xxx.xxx.xxx.xxx) 的位址轉換成網路位元組順序的 2 進位碼 :inet_aton(server_addr, &dest.sin_addr.s_addr) 相關程式範例 : #define PORT_SERVER 9999 /* 要連接到 server 的 port */ #define SERVER_ADDR " " /*server 的 ip address */ #define MAXBUF 1024 /* buffer 的大小 */ int main() int sockfd; struct sockaddr_in dest; /* sockaddr_in 為 API 內定的資料結構名稱 */ char buffer[maxbuf]; /* 填寫連線遠端 server 的資料 */ bzero(&dest, sizeof(dest)); /* 將 Struct 記憶體內的值初始化為零 */ 2

3 dest.sin_family = AF_INET; /* 連線協定 */ /* sin_family 為 API 內定的資料結構項目名稱 */ dest.sin_port = htons(port_server); /* server port*/ /* sin_port 為 API 內定的資料結構項目名稱 */ if ( inet_aton(server_addr, &dest.sin_addr.s_addr) == 0 ) perror(server_addr); /* 若轉換失敗, 在終端機畫面顯示錯誤的訊息 */ exit(1); /* 將使用句點分格式的位址 SERVER_ADDR SERVER_ADDR 轉換成網路位元組順序的 2 進位碼 dest.sin_addr.s_addr */ /* sin_addr.s_addr 為 API 內定的資料結構項目名稱 */ 3. 要求連線填寫遠端 Server 資料後,Client 端便可透過 connect 指令對 Server 端提出連線要求, 指令格式說明如下 : int connect(int sockfd, const struct sockaddr * serv_addr,socklen_t addrlen ); A. 參數 sockfd: 建立 socket 時的檔案描述元 B. 參數 serv_addr: 填寫 Server 資料結構的變數 C. 參數 addrlen:server 資料結構的大小, 範例 : if ( connect(sockfd,(struct sockaddr*)&dest, sizeof(dest))!= 0 ) perror("connect "); /* 若連線失敗, 在終端機畫面顯示 Connect 相關的錯誤的訊息 */ exit(1); /*(struct sockaddr*)& 為 API 填寫 Server 資料結構宣告的固定用法, 不能改變, 能改變的名稱為 sockfd 及 dest */ 4. ARM 端傳送資料當 Client 端要求連線且 Server 端接受連線後, 便可傳送資料或接收資料, 傳送資料指令格式如下 : 3

4 ssize_t send(int s, const void * msg, size_t len, int flags ); ssize_t 是 int 形式的另一種宣告, 目的是增加程式的可讀性 A. 參數 s: 建立 socket 時的檔案描述元 B. 參數 msg: 儲存傳送資料的變數 C. 參數 len: 儲存傳送資料的變數的大小 D. 參數 flags: 開啟特殊訊息處理動作的一個旗標, 通常給 0 傳送資料分成兩種情況,1. 傳送字串,2. 傳送檔案兩種情況傳送字串 : char buffer[maxbuf]; /* 宣告儲存陣列大小及型態 */ strcpy(buffer, hello ); /* 將欲傳送的字串放至儲存陣列 */ send(sockfd,buffer,sizeof(buffer),0); /* 傳送字串 */ 傳送檔案研廣 ARM 發展板無法使用 sendfile 指令來完成檔案傳送, 因此把檔案內容切成數頁傳送, 每頁本範例程式定為 512byte /* 與開啟檔案有關的相關宣告 */ int check_rdcount=0; /* 每次讀取動作時, 所讀取到 byte 的總數 */ int check_sdcount=0; /* 每次傳送動作時, 所傳送 byte 的總數 */ size_t count=512; /* size_t 是 int 形式的另一種宣告, 目的是增加程式的可讀性 */ off_t offset=0; /* off_t 是 int 形式的另一種宣告, 目的是增加程式的可讀性 */ int fd; int max=512; char buf[max]; /* 與傳送檔案有關的相關宣告 */ char serveraddr[]=" "; /* 指定接收端的 IP 位址 */ int serverport=1111; /* 指定接收端的暫時通訊埠 [2, Ch.2, pp ] */ char filename[]="tl.jpg"; /* 通知接收端 VB 程式, 即將接收的檔案名稱 */ char path[]="/tmp/tl.jpg"; /* 在 ARM 系統內, 指定欲傳檔案的路徑 */ 4

5 /* 開啟欲傳送的圖檔 */ if((fd=open(path,o_rdonly))<0) perror("fopen"); exit(errno); while(1) memset(buf,0,sizeof(buf)); /* 在指定的儲存空間內皆填入 0 */ /* 由圖檔內一次讀 512 byte (count=512) 當作一頁資料,check_rdcount 代表實際讀到的 byte 數目若是 check_rdcount<count, 代表是最後一頁的資料 */ check_rdcount=read(fd,buf,count); if(check_rdcount<count) max=check_rdcount; /* 將一頁資料透過 ethernet 傳送出去, 若傳送成功 check_sdcount = sizeof(buf), 若傳送失敗 check_sdcount=-1 [2, Append B, p. 10] */ check_sdcount=send(tcp_socket,buf,sizeof(buf),0); if(check_sdcount<0) perror("send"); exit(errno); /*---- check_rdcount<count, 代表是傳送最後一頁的資料 */ if(check_rdcount<count) printf("send file complete\n"); break; lseek(fd,offset,seek_cur); /*---- 把讀取檔案的位址指標移至下一頁的起始位址 [5] */ /* 傳送完畢, 關閉圖檔 */ if(close(fd)<0) perror("close fail"); exit(errno); /* ---- 因關閉失敗,exit 內的參數通常定為 errno, 關閉成功習慣上定為 1--- */ 5

6 close(tcp_socket); return 0; /* 傳送完畢, 關閉 Socket*/ 5. 主電腦 (Server 端 ) 透過 Ethernet 接收資料分成兩種情況 :1. 在 Window 環境下寫 VB 程式接收字串或圖檔 2. 在 Linux 環境下寫 C 程式接收字串或圖檔在 Window 環境下寫 VB 程式接收字串或圖檔 Option Explicit Dim a As Long Dim lpos As Long Dim bok As Boolean Dim fname As String 執行此 cmdrun_click() 副程式, 將等待指定通訊埠 (a 字串 ), 然後透過 Socket 等待接受連線 - Private Sub cmdrun_click() a = Text1 If cmdrun.caption = "Run" Then cmdrun.caption = "Stop" wstcp(0).localport = a wstcp(0).listen 在 Run 狀態呼叫自訂 lstevents 物件名稱 ( 在 MSDN 相關網站查 listbox 物件可看到使用法 ), 顯示 AddItem 的相關訊息 Call lstevents.additem("server started, listening on " & a) Else wstcp(0).close cmdrun.caption = "Run" Call lstevents.additem("shutting down") End If 在 Stop 狀態顯示 shutting down 訊息 End Sub 指定圖檔儲存的資料夾路徑 Private Sub Drive1_Change() Dir1.Path = Drive1.Drive & "\" 6

7 End Sub Private Sub VScroll1_Change() End Sub 關閉 Winsock 物件的相關動作 Private Sub wstcp_close(index As Integer) Close #1 # 一定需要,1 是自定詳細說明可參考 MSDN 的網站 Unload wstcp(1) bok = False End Sub 可接收對方連線要求相關動作 Private Sub wstcp_connectionrequest(index As Integer, ByVal requestid As Long) Load wstcp(1) wstcp(1).accept requestid End Sub 當接收到資料時所執行的程式 Private Sub wstcp_dataarrival(index As Integer, ByVal bytestotal As Long) If Not bok Then 第一次接收資料時 bok=false wstcp(1).getdata fname 將所接收到的字串存至 fname,fname 所指定的內容為 Client 端告知 Server 端欲傳送的檔案名稱 Client 端傳送檔案時, 在程式設計上第一筆資料指定 filename, 第二筆以後才是真正檔案的內容 If InStr(fname, vbcrlf) <> 0 Then fname = Left(fname, InStr(fname, vbcrlf) - 1) 判斷 filename 是否已讀取完畢, 若未讀取完畢則執行 fname = Left(fname, InStr(fname, vbcrlf) - 1) bok = True 若資料夾內已有相同檔案名稱, 則刪除此舊檔案 If Dir(Dir1.Path & "\" & fname) <> "" Then Kill Dir1.Path & "\" & fname 在指定資料內開啟新的圖檔, 檔案名稱為 fname 所指定的字串 Open Dir1.Path & "\"& fname For Binary As 1 1 為了配合指令 close #1 而定 lpos = 1 wstcp(1).senddata "OK" & vbcrlf 送 OK 字串至 Client 端,vbCrLf 類似 eof 的控制碼, 相關內容可至 MSDN 網站查閱 Else bok=true 時執行 Else 後的指令, 代表接收真正的檔案內容 Dim buffer() As Byte wstcp(1).getdata bufer 將所接收到的字串存至 buffer,buffer 的內容為 Client 端傳給 Server 端的圖檔資料 Put #1, lpos, bufer 把 buffer 內的一頁內容存至檔案內 7

8 lpos = lpos + UBound(bufer) + 1 調整檔案指標以便接收下一筆資料, 每一筆資料大小不一, 視當時情控調整, 參考圖 xx Cal lstevents.additem(ubound(bufer) 顯示每一筆接收到資料 byte 數 End If End Sub 6 結束 socket 連線 () 當傳輸資料或接收資料完畢後, 便可結束 socket 連線指令格式說明如下 : int close( int sd ) 參數 sd: 建立 socket 時的檔案描述元 /* 結束 SOCKET 連線 */ close(sockfd); 六 Server 端在建立好 socket 後確定自己的資料, 指令格式說明如下 : int bind(int sockfd, struct sockaddr * my_addr, socklen_t addrlen ) 參數 sockfd: 建立 socket 時的檔案描述元參數 my_addr: 填寫 Server 資料結構的變數參數 addrlen:server 資料結構的變數的大小相關程式範例 : #define MY_PORT 9999 #define MAXBUF 1024 int main(int Count, char *Strings[]) int sockfd; struct sockaddr_in self; char buffer[maxbuf]; /* 建立 socket */ if ( (sockfd = socket(af_inet, SOCK_STREAM, 0)) < 0 ) perror("socket"); exit(errno); 8

9 /* 確定自己的資料 */ bzero(&self, sizeof(self)); self.sin_family = AF_INET; /* IPV4 連線選項 */ self.sin_port = htons(my_port); /* 準備接收連線的 port */ self.sin_addr.s_addr = INADDR_ANY; /* 準備接收連線的 ip address */ if ( bind(sockfd, (struct sockaddr*)&self, sizeof(self))!= 0 ) /* 連結以上資訊 */ perror("socket--bind"); exit(errno); ; 實驗步驟 1. PC 與 ARM 的連線硬体連接方式如圖 8-2 所示 PC 與 ARM 連線時透過 RS232 顯示終端機的畫面 PC 是透過網路線將應用程式下載至 ARM 網路線必需是跳線, 如圖 8-3 所示網路線 RS232 電腦 ARM 圖 8-2. 下載應用程式時 PC 與 ARM 的連接方法 : RJ45 Pin 腳說明 ( Connector side ) 1 TX+ Transmit Data+ 2 TX- Transmit Data- 3 RX+ Receive Data+ 4 NC Not Connected 9

10 5 NC Not Connected 6 RX- Receive Data- 7 NC Not Connected 8 NC Not Connected 圖 8-3. ARM 與 Host PC 連接 2. 產生應用程式的執行檔連線處理完畢後, 把 Makefile 和 elf2flt.ld 及應用程式 xxx.c 擺在同一個檔案夾下, 然後終端機畫面執行 make 指令以便產生可執行檔, 如圖 8-4 所示圖 8-4(a). 產生執行檔的畫面 10

11 圖 8-4(b). 產生執行檔的畫面 3. 檢查電腦的 IP 位址在任一目錄上用 ifconfig 檢查電腦的 IP 位址, 如圖 8-5 所示圖 8-5 執行 ifconfig 所出現的畫面, 顯示電腦的 IP 位址

12 4. 設定 ARM 的 IP 位址 ARM 的 IP 位址前三碼必須與電腦的 IP 位址前三碼相同, 若不相同, 必須更改 ARM 的 IP 位址首先進入有 ttty 此指令的目錄接者執行./ttty p0 b 如圖 8-6 所示接下來按下 ARM 上的 rest 鈕就可見到圖 8-7 的畫面此時代表已進入 ARM 相關的終端機畫面此時執行指令 ifconfig 看 ARM 的網路設定, 如圖 8-8 所示下載應用程式時,ARM 的 IP 位址第四碼必須與電腦的 IP 位址第四碼不相同, 若相同也必須更改 ARM 的 IP 位址南台學校是鎖網卡的, 如果網路卡如果沒有去申請帳號是無法連上網的目前向計中申請到 ARM 能上網的 MAC address 是 00:40:95:36:35:95 IP address 是因此讓 ARM 上網的方法有三 1. 以 ARM 的 MAC address 去申請一個 IP 號碼 2. 把 ARM 的 MAC address 與 IP address 改成上面那一組, 但是同一時間只能有一片能上網 3. 把 ARM 的 MAC address 與 IP address 改成教室中可上網的那一組例如 J 304 教室有一台可以上網的電腦 MAC address 是 00:00:E2:4A:37:1C IP address 是 , 就可把 ARM 的 MAC address 與 IP address 改成上面此組號碼同一間教室不可以有兩個一樣的號碼同時上網, 在此種情況下,ARM 上網電腦就不能上網, 電腦上網 ARM 就不能上網圖 8-6. 執行 ttty 指令的相關畫面 12

13 圖 8-7. 按 Reset 建後所看到的畫面圖 8-8. 進入 ARM 系統後執行 ifconfig 指令後所看到的畫面 13

更改 ARM 的 IP 與 MAC address 指令如下 : netconfig i xxx.xxx.xxx.xxx 其中 xxx.xxx.xxx.xxx 代表欲設定的 IP 位址例如 netconfig i 10

14 更改 ARM 的 IP 與 MAC address 指令如下 : netconfig i xxx.xxx.xxx.xxx 其中 xxx.xxx.xxx.xxx 代表欲設定的 IP 位址例如 netconfig i 更改 MAC 位址指令如下 : netconfig -c 0000E24A371C 代表設定的 MAC 位址為 00:00:E2:4A:37:1C, 如圖 8-9 所示更改後再按 Reset 鍵即生效圖 8-9. 更改 IP 位址及 MAC 位址的相關畫面 5. 下載應用程式首先用 ps 指令檢查 ARM 的 inetd 是否啟動在圖 8-10 中可以看到 inetd 名稱代表 inetd 已啟動, 如果沒有看到 inetd 就在提示符號下自行輸入 inetd &, 以便啟動 inetd 相功能若 inetd 已啟動, 便可執行再電腦的任一目錄下執行 tftp 指令進行電腦與 ARM 的網路連線, 以便下載應用程式指令如下 tftp xxx.xxx.xxx.xxx 其中 xxx.xxx.xxx.xxx 是 ARM 的 IP 位址接者輸入 binary ( 表示檔案型態 ), 輸入 put aaa /bin/bbb,aaa 為要下載到 ARM 的檔案,/bin/bbb 是指定下載到 ARM 的 bin 目錄下, 檔名更改為 bbb bbb 的名稱可以與 aaa 一致傳輸成功後可以看見所傳的檔案大小與傳輸時間, 如圖 8-11 所示 14

15 圖用 ps 指令查看 inetd 是否起動圖下載應用程式時相關指令及畫面 6. 更改 Ethernet 連線為了使 ARM 能將圖檔透過 Ethernet 傳至指定 IP 的電腦, 必更改 Ethernet 連線 15

16 HUB/MAU BNC 4Mb/s GD J A RE K B I L F C M7 N8 O9 GD % UTILIZATION GD GD G D T 2 U 3 V 0 W. X Y Z TAB PRINT HELP NIC ALPHA SHIFT ENTER RUN HUB/MAU BNC 4Mb/s GD J A RE K B I L F C M7 N8 O9 GD % UTILIZATION GD GD G D T 2 U 3 V 0 W. X Y Z TAB PRINT HELP NIC ALPHA SHIFT ENTER RUN 如圖 8-12 所示 RS232 網路線電腦 ARM 集線器工學院主機計中主機連外網路圖 ARM 透過 Ethernet 傳送圖檔時的連線傳輸程式下面以一個 Client 程式下載到 ARM, 用 ARM 與 PC ( Linux ) 傳輸字串在 Client 與 Server 的傳輸中,Server 一定要先執行才執行 Client /************************************************************************* * * 以下是一個 Server 的程式 ************************************************************************* */ #include <stdio.h> #include <sys/socket.h> #include <resolv.h> #include <arpa/inet.h> #include <errno.h> #define MY_PORT 9999 #define MAXBUF 1024 int main(int Count, char *Strings[]) 16

17 int sockfd; struct sockaddr_in self; char buffer[maxbuf]; /* 建立 socket */ if ( (sockfd = socket(af_inet, SOCK_STREAM, 0)) < 0 ) perror("socket"); exit(errno); /* 確定自己的資料 */ bzero(&self, sizeof(self)); self.sin_family = AF_INET; /* IPV4 連線選項 */ self.sin_port = htons(my_port); /* 準備接收連線的 port */ self.sin_addr.s_addr = INADDR_ANY; /* 準備接收連線的 ip address */ if ( bind(sockfd, (struct sockaddr*)&self, sizeof(self))!= 0 ) /* 連結以上資訊 */ perror("socket--bind"); exit(errno); /* 聆聽等待連線 */ if ( listen(sockfd, 20)!= 0 ) /* 20 : 等待連線的數量 */ perror("socket--listen"); exit(errno); /*---Forever */ while (1) int clientfd; struct sockaddr_in client_addr; int addrlen=sizeof(client_addr); /* 接受連線 */ /* 接受時建立新的 socket :clientfd */ /* 接收 client 端的 ip 與 address 資料 :( struct sockaddr*)&client_addr */ 17

18 [2] clientfd = accept(sockfd, (struct sockaddr*)&client_addr, &addrlen); printf("%s:%d connected\n", inet_ntoa(client_addr.sin_addr), ntohs(client_addr.sin_port)); /* 把 recv 到的資訊直接 send 回去 */ send(clientfd, buffer, recv(clientfd, buffer, MAXBUF, 0), 0); /* 結束與 client 端的連線 */ close(clientfd); /* 結束 server 端的連線 */ close(sockfd); return 0; 以下是執行 Server 的畫面當有 Client 端連接進來的畫面, 終端機會顯示 Client 的 IP address 和 port 18

19 /************************************************************************* * * 以下是一個 Client 的程式 ************************************************************************* */ #include <stdio.h> #include <string.h> #include <sys/socket.h> #include <errno.h> #include <resolv.h> #define PORT_SERVER 9999 /* 要連接到 server 的 port */ #define SERVER_ADDR " " /*server 的 ip address */ #define MAXBUF 1024 /* buffer 的大小 */ int main() int sockfd; struct sockaddr_in dest; char buffer[maxbuf]; /* 建立 socket 小於零表示建立失敗 */ /* AF_INET :IPV4 的連線選項 */ /* SOCK_STREAM : TCP 的選項 */ 19

20 /* 最後ㄧ項 0 : 控制旗標 */ if ( (sockfd = socket(af_inet, SOCK_STREAM, 0)) < 0 ) perror("socket"); exit(1); /* 填寫連線遠端 server 的資料 */ bzero(&dest, sizeof(dest)); dest.sin_family = AF_INET; /* 連線協定 */ dest.sin_port = htons(port_server); /* server port*/ if ( inet_aton(server_addr, &dest.sin_addr.s_addr) == 0 ) /* server ip */ perror(server_addr); exit(1); /* 連線 */ if ( connect(sockfd,(struct sockaddr*)&dest, sizeof(dest))!= 0 ) perror("connect "); exit(1); /* 傳資料 */ bzero(buffer,maxbuf); strcpy(buffer, hello ); send(sockfd,buffer,sizeof(buffer),0); /* 接收訊息 */ bzero(buffer, MAXBUF); recv(sockfd, buffer, sizeof(buffer), 0); printf("%s\n", buffer); /* 結束 SOCKET 連線 */ close(sockfd); return 0; [2] 執行時會出現 hello 的字串 20

下面以一個 Client 程式下載到 ARM, 用 ARM 與 PC ( vb6 ) 傳輸圖片在 Client 與 Server 的傳輸中,Server 一定要先執行才執行 Client VB Server 的部份程式 : Option Explicit Dim a As Long Dim lpos As Long Dim bok As Boolean Dim fname As String

21 下面以一個 Client 程式下載到 ARM, 用 ARM 與 PC ( vb6 ) 傳輸圖片在 Client 與 Server 的傳輸中,Server 一定要先執行才執行 Client VB Server 的部份程式 : Option Explicit Dim a As Long Dim lpos As Long Dim bok As Boolean Dim fname As String Private Sub cmdrun_click() a = Text1 If cmdrun.caption = "Run" Then cmdrun.caption = "Stop" wstcp(0).localport = a wstcp(0).listen Call lstevents.additem("server started, listening on " & a) Else wstcp(0).close 21

22 cmdrun.caption = "Run" Call lstevents.additem("shutting down") End If End Sub Private Sub Drive1_Change() Dir1.Path = Drive1.Drive & "\" End Sub Private Sub VScroll1_Change() End Sub Private Sub wstcp_close(index As Integer) Close #1 Unload wstcp(1) bok = False End Sub Private Sub wstcp_connectionrequest(index As Integer, ByVal requestid As Long) Load wstcp(1) wstcp(1).accept requestid End Sub Private Sub wstcp_dataarrival(index As Integer, ByVal bytestotal As Long) If Not bok Then wstcp(1).getdata fname If InStr(fname, vbcrlf) <> 0 Then fname = Left(fname, InStr(fname, vbcrlf) - 1) bok = True If Dir(Dir1.Path & "\" & fname) <> "" Then Kill Dir1.Path & "\" & fname Open Dir1.Path & "\" & fname For Binary As 1 lpos = 1 wstcp(1).senddata "OK" & vbcrlf Else Dim buffer() As Byte 22

23 wstcp(1).getdata buffer Put #1, lpos, buffer lpos = lpos + UBound(buffer) + 1 Call lstevents.additem(ubound(buffer)) End If End Sub 如果要建立可執行檔在 File 下拉選單中有一個 Make server.exe 其中 server 為檔名, 因此如果檔名為 hello 則點選 Make hello.exe 選完後選擇執行檔存放路 23

24 可在路徑下看到按兩下執行檔後搷入 port 號, 按下 Run button,run 會變成 Stop 如下圖 24

25 當 Client 端傳資料時的畫面 25

26 當發現接收畫面不在更動時就是傳輸完閉以下是 Client 端的程式 Linux 的部份程式 : #include <stdarg.h> #include <stdio.h> #include <string.h> #include <sys/socket.h> #include <sys/types.h> #include <resolv.h> #include <errno.h> #include <netinet/in.h> #include <netdb.h> #include <unistd.h> #include <stdlib.h> #include <arpa/inet.h> #include <sys/stat.h> #include <fcntl.h> 26

27 #define MAXBUF 1024 int main() /******************************************/ /* open file to copy */ int check_rdcount=0; int check_sdcount=0; size_t count=512; off_t offset=0; int fd; int max=512; char buf[max]; /*****************************************/ /* sever addr port and filename to send */ char serveraddr[]=" "; int serverport=1111; char filename[]="tl.jpg"; char path[]="/tmp/tl.jpg"; /******************************************/ /* socket */ int tcp_socket ; struct sockaddr_in saddr ; /******************************************/ /* socket */ if ( (tcp_socket = socket(pf_inet, SOCK_STREAM, 0)) < 0 ) perror("socket"); exit(errno); /*---Initialize own server address---*/ memset(&saddr,0,sizeof(saddr)); saddr.sin_family = AF_INET; if(inet_aton(serveraddr,&saddr.sin_addr)<0) 27

28 perror("inet_aton"); exit(errno); saddr.sin_port = htons(serverport); if ( connect(tcp_socket, (struct sockaddr *)&saddr, sizeof(saddr))!= 0 ) perror("connect"); exit(errno); /********************************************************/ memset(buf,0,sizeof(buf)); if(send(tcp_socket,filename,strlen(filename)+1,0)<0) perror("send filename"); exit(errno); printf("filename=%s\n",filename); if(recv(tcp_socket,buf,sizeof(buf),0)<0) perror("recv ok"); exit(errno); /************************************************************/ if((fd=open(path,o_rdonly))<0) perror("fopen"); exit(errno); while(1) memset(buf,0,sizeof(buf)); check_rdcount=read(fd,buf,count); if(check_rdcount<count) 28

29 max=check_rdcount; check_sdcount=send(tcp_socket,buf,sizeof(buf),0); if(check_sdcount<0) perror("send"); exit(errno); if(check_rdcount<count) printf("send file complete\n"); break; lseek(fd,offset,seek_cur); if(close(fd)<0) perror("close fd:"); exit(errno); close(tcp_socket); return 0; 將 client 端與圖片 t1.jpg 傳到 ARM 29

30 參考文獻 [1] 網路聖經, 作者黃謝璋 ( 夢耕 ), 出版社儒林圖書公司, 書號 SIM 919 [2] Linux 網路程式設計, 作者黃俊翔, 出版社碁峰, 書號 XP0070 [3] Keyword : connect [4] Keyword : socket 30

31 [5] Keyword : lseek [6] 網路與通訊百科全書, 譯者沈芝慎, 出版社和碩科技文化有限公司, 書號 N23 [7] LAR 技術 \Ethernet 與 FDDI, 譯者林昱志, 出版社全華科技圖書股份有限公司, 書號 [6] [7] [8] [9] l [10] [11] [12] [13] [14] 精通 Visual Basic 6.0, 洪錦魁著, 文魁 P

32 32

ebook35-21

ebook35-21 21 Linux L i n u x 211 U N I X U N I X I / O F I F O U N I X I n t e r n e t s o c k e t () s o c k e t () send() r e c v ( read() w r i t e () send() r e c v () I n t e r n e t 212 Internet Internet S