天高地厚 by 信樂團

你累了沒有　可否伸出雙手　想擁抱　怎能握著拳頭
我們還有很多夢沒做　還有很多明天要走　要讓世界聽見我們的歌
準備好沒有　時間不再回頭　想要飛　不必任何理由
不管世界盡頭多寂寞　你的身邊一定有我　我們說過不管天高地厚

想飛到　那最高最遠最灑脫　想擁抱　在最美麗的那一刻
想看見　陪我到最後誰是朋友　你是我最期待的那一個
可以一起闖禍一起沈默一起走　可以一起飛翔一起淪落
不管天高地厚陪著我　陪我一起大聲狂吼

想飆到　那最高最遠最遼闊　想唱完　那最感動的一首歌
沒看見　那天高地厚不肯放手　因為我有我想要的朋友　你是我最想要的朋友

好的星象家與占卜者

一個好的星象家或占卜者．．是自變動之中
見其柳暗花明之處

使用Web Services來建立存取圖片之服務

以下是使用 VB.NET 2005 所寫的 Web Sevices範例程式

• 將圖片上傳至Services端

- Service端程式

Imports System.WebImports System.Web.Services

Imports System.Web.Services.Protocols

Imports System.io

_

Public Function GetPic(ByVal str As String) As Byte()

Dim filename As String = Me.Server.MapPath(".") & "\\" & str & "." & "Jpg"

Dim fs As FileStream = New FileStream(filename, FileMode.Open)

Dim br As BinaryReader = New BinaryReader(fs)

Dim pic As Byte() = br.ReadBytes(fs.Length)

br.Close()

fs.Close()

Return pic

End Function

-Client端程式

Imports System.IO

Imports System.Drawing

Imports System.Drawing.Imaging

Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim s As New WebReference2.Service

Dim STR As String = "123"

Dim path As String = Server.MapPath(".")

Dim msImage As MemoryStream = New MemoryStream(s.GetPic("2"))
Dim imgFile As Image = Image.FromStream(msImage)
ImgFile.Save(path + "\" + STR + ".jpg", ImageFormat.Jpeg)
Me.Image1.ImageUrl = "~/" & STR & ".jpg" '在Web上放入一個Image控制項來顯示所取回的圖片
imgFile.Dispose()

End Sub

• 將向服務端請求提供圖片的服務

上面的例子顛倒過來寫就是向服務端請求提供圖片的服務. 有空在繼續放.

要存檔處的資料夾 權限記得要打開給ASP.NET和本機使用儲存.