[ تمت الإجابة ]من يساعدني في فهم هذه الشفرة

هذي الآداة : Winsock والواضح من الحدث تحسس استقبال البيانات لنقل الملفات بين عميل وخادم .

بســم الله الـرحمــن الرحيــم

:سأشرح لك على قدر فهمي

==================

Private Sub tcpClient_DataArrival(ByVal bytesTotal As Long)امر الكومبيوتر العميل باستقبال المعلومات

Dim strData As Stringالمعلومات الواردة كهيئة نص

Dim ifreefile

DoEvents

tcpClient.GetData strData في حال الحصول على المعلومات نفذ مايلي

If Right$(strData, 7) = "FILEEND" Then

bFileArriving = False أوقف الإستقبال

lblProgress = "Saving File to " & App.Path & "\" & sFileأحفظ الملف و اكتب يتم الان الحفظ

sArriving = sArriving & Left$(strData, Len(strData) - 7)

ifreefile = FreeFile إذا تم الحفظ

If Dir(sFile) <> "" Then

MsgBox "File Already Exists"أكتب الملف موجود

Else

Open sFile For Binary Access Write As #ifreefile

Put #ifreefile, 1, sArriving إفتح الملف الموجود

Close #ifreefile

ShellExecute 0, vbNullString, App.Path & "\" & sFile, vbNullString, vbNullString, vbNormalFocus في هذا المسار

End If

lblProgress = "Complete"

ElseIf Left$(strData, 4) = "FILE" Then إذا لم يتم ذلك

bFileArriving = True حاول إعادة إستقبال الملف

sFile = Right$(strData, Len(strData) - 4)

ElseIf bFileArriving Then إذا وصل الملف

lblProgress = "Receiving " & bytesTotal & " bytes for " & sFile & " from " & tcpClient.RemoteHostIP أعطني حجمه و اسمه على الجهاز العميل

sArriving = sArriving & strData

End Ifإنهاء الشرط الوصول

End Sub إنهاء التعليمة استقبال الملف

=====================================

إن شاء الله كنت كفيت وفيت وتكرم عينك

joud-kheder

JADO

جود خضر

شكرا لك اخي جود خضر على الرد

عسى الله ان يزيدك من العلم اكثر واكثر

اسأل الله ان يحفظك ويفرج عنك كل كربه

بسم الله الرحمن الرحيم

تمت الإجابة على الموضوع

إدارة الفريق العربي للبرمجة