تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مساعدة (خطء في كود ارسال ملف بالــ winsock)
#1
السلام عليكم شباب

عندي كود ارسال ملف بالينسوك ولاكن عندة ارسال الملف يظهر خطء ولا اعرف ماهوة السبب اتمنا المساعدة

صوؤة للخطء




الكود

كود :
Dim sending As Boolean
Public Sub Wait(iSecond As Integer)
On Error Resume Next
Dim tme As Single

tme = Timer
Do Until (Timer - tme >= iSecond) Or sending = True
    DoEvents
Loop
End Sub
Private Sub Command1_Click()
CommonDialog1.ShowOpen
Text1.Text = CommonDialog1.FileName
Text1.SelStart = Len(Text1.Text)
End Sub

Private Sub Command2_Click()



SendFile Text1.Text

End Sub
Private Sub SendFile(pPath As String)
Dim ia As Long
On Error GoTo Down:
Dim I As Long
Dim B() As Byte
'==============
If Form1.Winsock1.State = 7 Then
    sending = False

      DoEvents
    Wait (5)
End If

Open pPath For Binary As #1
For I = 1 To LOF(1)
    If Loc(1) >= LOF(1) Then
        GoTo Down:
        Exit Sub
    End If
    If Form1.Winsock1.State <> 7 Then
        GoTo Down:
        Exit Sub
    End If
    If LOF(1) < 1024 * 8 Or LOF(1) - Loc(1) < 1024 * 8 Then
        ReDim B(LOF(1) - Loc(1) - 1)
    Else
        ReDim B(1024 * 8 - 1)
    End If
    
    Get #1, , B
    sending = True

    Form1.Winsock1.SendData "A" & "|" & B
    DoEvents
    Wait (5)
Next

Down:
Close #1

End Sub
الرد }}}}
تم الشكر بواسطة:
#2
السلام عليكم...

السبب هو أن B هي مصفوفة بايتات: Dim B() As Byte. و بالتالي لا يمكن دمجها بالعامل & مع الـ String.

سلام.
بِسْمِ اللهِ الرَّحْمَنِ الرَّحِيمِ ( وَ مَا تُقَدِّمُوا لِأَنفُسِكُم مِّنْ خَيْرٍ تَجِدُوهُ عِندَ اللهِ هُوَ خَيْراً وَ أَعْظَمَ أَجْراً ) صَدَقَ اللهُ الْعَظِيمُ
الرد }}}}
تم الشكر بواسطة:
#3
ناجي إبراهيم كتب :السلام عليكم...

السبب هو أن B هي مصفوفة بايتات: Dim B() As Byte. و بالتالي لا يمكن دمجها بالعامل & مع الـ String.

سلام.


تسلم بارك الله بيك اخي ولاكن ما الحل ؟ لتفادي الخطء , انا بحاجه الى اضافه المعامل & الى الكود
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  طلب مساعدة في قراءة كلمة بمجرد التأشير عليها بالماوس khalid tharwat 3 540 14-03-17, 01:02 AM
آخر رد: عبد العزيز البسكري
  [سؤال] مساعدة في عمل خصم نسبة مئوية VB.NET 3 111 23-02-17, 12:25 PM
آخر رد: Ashraf Elafify
  مساعدة الملف التنفيدي لا يشتغل على وندوز 7 chatbi 2 310 07-01-17, 09:03 PM
آخر رد: Ashraf Elafify
Rainbow [سؤال] مساعدة لعمل برنامج حضور وانصراف+وقاعدة بيانات+ربط بالوورد لسهولة طباعة بعض الفورمز فاطمة غ 8 826 01-12-16, 06:37 PM
آخر رد: Amir_alzubidy
  [سؤال] مساعدة في كتابة كود الزر تخزين مزنة 9 516 28-11-16, 12:44 PM
آخر رد: مزنة
  [vb6.0] هل يمكن ارسال بريد اليكترونى من برنامجى؟ ahmed_egypt 1 249 04-07-16, 01:26 AM
آخر رد: Amir_alzubidy
  احتاج مساعدة في الفيجوال بيسك lena114 0 285 25-03-16, 02:50 PM
آخر رد: lena114
  [سؤال] طلب مساعدة iraq_moon 4 388 22-03-16, 07:00 PM
آخر رد: محمد العبيدي
  مساعدة : كود لنسخ قاعد البيانات استرجاعها محمد2015 10 1,275 21-01-16, 01:56 AM
آخر رد: awidan76
  [سؤال] مساعدة في مشروع تسجيل الحضور و الانصراف MarwanMohammed 1 328 19-01-16, 09:02 PM
آخر رد: VB_Local

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم