Winsock Uygulaması – TR Kodlama

Bu konu boş.

0 yanıt dizini görüntüleniyor

Yazar

Yazılar

9 Temmuz 2010: 21:44 #6632

oralunal

Ziyaretçi

* Makalede anlatılanlar Visual Basic 6.0 Service Pack 6’da denenmiştir.

Visual Basic kullananlar bilir ki toolbox (soldaki araç kutusu) üzerinde sağ tuşla tıklayarak “Componentsâ€¦” menüsüne tıklayarak araçlarımıza yeni bileşenler ekleyebiliriz. Bunlar DLL, OCX dosyaları olup içlerinde hazırladığımız programda kullanacağımız çeşitli araçlar içerir (Progress Bar, Form 2.0, Inet vs.). İşte burada listelenen â€œMicrosoft Winsock Control 6.0Â¨ ı araçlarımız arasına alıp formda yer verirsek bir TCP/IP ya da TCP/UDP protokollü geçişe sahip bir ağ geçişi sağlamış oluruz. Araç kutusundan Winsock’u seçip formumuza ekleyelim.

Özellikler “Properties” bölümünde yer alan RemoteHost ve RemotePort, başka bir bilgisayara bu protokol üzerinden bağlanmamız için gerekli iki önemli özellik. RemoteHost bir sunucu adı ya da ip adresi olabilir, port ise karşı tarafa verileri ileteceğimiz 0-65536 arasında olabilecek port numarasıdır. Bu bilgileri girdikten sonra kodlarımız arasına şunu yazarak bağlantıyı sağlarız:

Winsock1.Connect

1	Winsock1.Connect

Burada geçen Winsock1, Winsock için bir isim olup Özellikler menüsünden bu isim değiştirilebilir. Peki ya bağlanamazsa? Eğer bağlantı sağlanamazsa bunu anlamanın yolu uygulama ile birlikte gelen nesne_Error fonksiyonudur.

Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, _<br />
ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, _<br />
ByVal HelpContext As Long, CancelDisplay As Boolean)<br />
<br />
Dim msg as Integer<br />
msg = MsgBox("Bağlantı sağlanamıyor..", vbOkOnly, "Hatalı")<br />
<br />
End Sub

Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, _

ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, _

ByVal HelpContext As Long, CancelDisplay As Boolean)

Dim msg as Integer

msg = MsgBox("Bağlantı sağlanamıyor..", vbOkOnly, "Hatalı")

End Sub

Hata istemci tabanlı olabileceği gibi sunucu tabanlı da olabilir. Winsock uygulaması portlar arası bağlantı felsefesine dayanır. Bu durumda sunucu açık olsa bile, yerleştirebileceği bir port yoksa da hata almanız kaçınılmaz.

Bağlantıyı sağladıktan sonra veri göndermek için SendData() fonksiyonundan yararlanırız. Bu yine Winsock için belirlediğimiz ismin sonuna ilgili ek gelerek yapılır.

Winsock1.SendData( "Selam, nasıl gidiyor?" )

1	Winsock1.SendData( "Selam, nasıl gidiyor?" )

Peki veri geldiğinde yapacaklarımızı nerden ayarlarız. Bunun için nesne_DataArrival fonksiyonunu kullanırız. Fonksiyon sadece bir veri alımı gerçekleştiğinde çalışacaktır. Bu durumda gelen veriyi GetData() ile alırız.

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)<br />
DIM Mesaj as String<br />
Call Winsock1.GetData(Mesaj)<br />
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)

DIM Mesaj as String

Call Winsock1.GetData(Mesaj)

End Sub

Sağlanan bir bağlantıyı kapatmak içinse yine nesne adına Close eklemesi yapıyoruz. Böylece bağlantı kesilmiş olacaktır. Bağlantıyı sunucu taraflı kesmek için de aynı komut geçerlidir.

Winsock1.Close

1	Winsock1.Close

Şimdiye kadar anlattıklarımız İstemci (Client) ile Sunucu (Server) için ortak olması gerekenlerdi. Eğer sunucu isek öncelikle Winsock ile açtığımız portları Listen fonksiyonu ile dinlemeye almak, sonrasında gelen bağlantıyı kabul etmemize yarayan nesne.Accept( reqID ) komutu kullanılmalıdır. Yoksa bağlantı gerçekleşmez.

Private Sub Winsock1_ConnectionReqüst(ByVal reqüstID As Long)<br />
Call Winsock1.Close<br />
Call Winsock1.Accept(reqüstID)<br />
End Sub

Private Sub Winsock1_ConnectionReqüst(ByVal reqüstID As Long)

Call Winsock1.Close

Call Winsock1.Accept(reqüstID)

End Sub

Burada öncelikle Close kullanmamızın nedeni, asılı kalan bağlantıyı kapatmak. Böylece bağlantı sorunsuzca sağlanacaktır. Bir bağlantı durumunu nesne.State ile almaktayız. Bu bir sayısal değere işaret edip 2 ise boş, 7 ise bağlı, 8 ise bağlantısı kesilmiş uygulamalar demektir.

Sunucu, kendisine bağlanacak client kadar porta sahip olmalıdır. Örneğin en fazla 4 kullanıcı bağlanacak bir ağ için 5000-5001-5002-5003 portları seçilebilir. İşimizi kolaylaştırması açısından Winsock uygulamamızın Index değerini 0 yaparak bir dize değeri haline getirebiliriz. Böylece 4 kullanıcıya birden mesaj atmak oldukça kolaylaşacaktır.

DIM i as Integer<br />
For i = 0 to max_client<br />
If Winsock1(i).State = 7 Then Winsock1(i).SendData( "Sunucu Mesajı: Hoşgeldiniz..." );<br />
Next i

DIM i as Integer

For i = 0 to max_client

If Winsock1(i).State = 7 Then Winsock1(i).SendData( "Sunucu Mesajı: Hoşgeldiniz..." );

Next i

Aynı zamanda bir sunucu için localport özelliğini ayarlamayı unutmayın. Bu değer sizin clientler için açtığınız port değerine eşittir.

Yazdıklarımızı özetleyecek olursak bir sunucu açıyorsak:

sunucu.LocalPort = 2593<br />
sunucu.Listen

1 2	sunucu.LocalPort = 2593<br /> sunucu.Listen

Bir istemci açıyorsak:

istemci.RemoteHost = "localhost"<br />
istemci.RemotePort = 2593<br />
istemci.Connect

istemci.RemoteHost = "localhost"

istemci.RemotePort = 2593

istemci.Connect

İyi kodlamalar..

Kaynak: Venus Programlama

Yazar

Yazılar

0 yanıt dizini görüntüleniyor

Bu konuyu yanıtlamak için giriş yapmış olmalısınız.