بخصوص الكتاب الذي تشرف به الأستاذ محمد عبد العليم

السلام عليكم

بخصوص الكتاب الذي تشرف به الأستاذ محمد عبد العليم في منتدى الفريق العربي للبرمجة

جزاه الله ألف خير

وإسم هذا الكتاب

Digital.Press.Network.programming.in.dot.NET.C.Sharp.and.Visual.Basic.d

ot.NET.May.2004.eBook-DDU.pdf

لدي بعض التعليقات في هذا الكتاب

إبتداء من صفحة 57 إلى صفحة 72

يشرح طريق عمل برنامج عميل وخادم مرة بال

UDP لإرسال البيانات

ومرة

TCP/IP لإرسال الملفات

انا نجحت في عمل برنامج العميل أي الكلينت كاملا لكل من هما

ولكن برنامج الخادم أي السيرفر لم أنجح بكفائة لكل منهما

بسبب شفرة فيهما يطلب مني وضعها في شفرة البرنامج ولم يذكر بالضبط

أين أضعها بالضبط

والشفرة موجودة في صفحة 59و60 كل من السي شارب و الفيجوال بيسك دوت نت للسيرفر يوديبي

UDP

C# :-

public void serverThread()
{
UdpClient udpClient = new UdpClient(8080);
while(true)
{
IPEndPoint RemoteIpEndPoint = new IPEndPoint(IPAddress.Any,0);
Byte[] receiveBytes = udpClient.Receive(ref
RemoteIpEndPoint);
string returnData = Encoding.ASCII.GetString(receiveBytes);
lbConnections.Items.Add(
RemoteIpEndPoint.Address.ToString() + ":" +
returnData.ToString());
}
}

----------------------------------------------------------------------

----------------------------------------------------------------------

VB.NET:--

Public Sub serverThread()
Dim udpClient as new UdpClient(8080)
While true
Dim RemoteIpEndPoint as new IPEndPoint(IPAddress.Any, 0)
Dim receiveBytes as Byte()
receiveBytes = udpClient.Receive(RemoteIpEndPoint)
Dim returnData As String = _
Encoding.ASCII.GetString(receiveBytes)
lbConnections.Items.Add _
RemoteIpEndPoint.Address.ToString() + ":" + _
returnData.ToString()
Wend
End Sub

والشفرة موجودة أيضا في صفحة 70و71 كل من السي شارب و الفيجوال بيسك دوت نت للسيرفر التسي بي أي بي

TCP/IP

C#:---


public void handlerThread()
{
Socket handlerSocket = (Socket)alSockets[alSockets.Count-1];
NetworkStream networkStream = new
NetworkStream(handlerSocket);
int thisRead=0;
int blockSize=1024;
Byte[] dataByte = new Byte[blockSize];
lock(this)
{
// Only one process can access
// the same file at any given time
Stream fileStream = File.OpenWrite("c:\\my documents\
\upload.txt");
while(true)
{
thisRead=networkStream.Read(dataByte,0,blockSize);
fileStream.Write(dataByte,0,thisRead);
if (thisRead==0) break;
}
fileStream.Close();
}
lbConnections.Items.Add("File Written");
handlerSocket = null;
}

__________

VB.NET :---

Public Sub handlerThread()
Dim handlerSocket As Socket
handlerSocket = alSockets(alSockets.Count - 1)
Dim networkStream As NetworkStream = New _
NetworkStream(handlerSocket)
Dim blockSize As Int16 = 1024
Dim thisRead As Int16
Dim dataByte(blockSize) As Byte
SyncLock Me
' Only one process can access the
' same file at any given time
Dim fileStream As Stream
fileStream = File.OpenWrite("c:\upload.txt")
While (True)
thisRead = networkStream.Read(dataByte, _
0, blockSize)
fileStream.Write(dataByte, 0, dataByte.Length)
If thisRead = 0 Then Exit While
End While
fileStream.Close()
End SyncLock
lbConnections.Items.Add("File Written")
handlerSocket = Nothing
End Sub

لم يذكر الكتاب أين وضعهما بالضبط مع قرأتي للكتاب في هذا الجزء كثيراااا

مع العلم إني حاولت مرارا وتكرارا أنا وبعض أصدقائي المشاركين معي في هذا الوضوع ومشاركين في نفس المنتدى

فأرجو الإفادة وشكراااااااااااااااااااااااااااااااااااااااااا