Aporia sthn visual basic 6 kai winsock!!!

[TrObAs]

exo ena problem. 8elw na steilw apo ena pc se ena allo mia fotografia onomatos crf2.jpg kai 8elw na thn steilw me udp protocol (p2p einai i askisi). To 8ema einai den 3erw me pies entoles 8a steilw thn foto patontas ena koumbi p.x.

 

onClick

 

peerA.senddata ............. ?

 

kai antistoixa tis entoles gia na apo8ikeusw sto allo ipologisti kai na thn emfanisw se ena image box

 

p.x.

 

peerB.getdata .............?

Image1.Picture = LoadPicture("C:\temp2.jpg")

 

Ti prepei na grapsw ????

 

PLease epigetai giati einai askisi kai prepei na thn paradoso

 

Euxaristo!!!!

[MindControl]

Auto pou theleis na kaneis apaitei kapoies parapano gnoseis

se programming.

 

Sou stelno attached ena Winsock Example kai elpizo na to katalabeis.

 

MindControl

[Misato]

ki egw exw thn idia askisi.

MindControl to arxeio pou exeis valei afora tcp protocol.Egw thelw na stelnw eikona meso udp protocol kovontas th se kommatia (i kommati < 4 kilobyte)

Xrisimopoiwntas 2 formes pou kai oi 2 einai client alla kai server tautohrona,me to parakatw kodika, steilnei o enas ston allo keimeno kai to blepoun kathws pliktrologeitai.Mesa se afto to kwdika ti na prosthesw gia na stelnoun kai eikona?na valw 2 winsock to ena gia keimeno kai to allo gia eikones? ehei simasia se ti morfi tha einai i eikona .jpg .bmp kai to megethos?

 

idios kodikas kai gia tis 2 formes, episis periexoun 2 txtbox h kathe mia

code:

 

Private Sub Form_Load()

 

With udpPeerA ' winsock me onoma udpPeerA

.RemoteHost= "127.0.0.1"

.RemotePort = 1001

.Bind 1002

End With

frmPeerB.Show

End Sub

 

Private Sub txtSend_Change() 'to textbox pou grafw

udpPeerA.SendData txtSend.Text

End Sub

 

Private Sub udpPeerA_DataArrival _

(ByVal bytesTotal As Long)

Dim strData As String

udpPeerA.GetData strData

txtOutput.Text = strData 'to textbox pou vlepw ti grafei o allos

End Sub

 

epsaksa se diafora tutorials

ekana google search alla auta pou vrika den voithisan katholou!!!

:???: