تقييم الموضوع :
  • 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.

سلام.


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Rainbow [سؤال] مساعدة لعمل برنامج حضور وانصراف+وقاعدة بيانات+ربط بالوورد لسهولة طباعة بعض الفورمز فاطمة غ 8 189 01-12-16, 06:37 PM
آخر رد: Amir_alzubidy
  [سؤال] مساعدة في كتابة كود الزر تخزين مزنة 9 211 28-11-16, 12:44 PM
آخر رد: مزنة
  [vb6.0] هل يمكن ارسال بريد اليكترونى من برنامجى؟ ahmed_egypt 1 126 04-07-16, 01:26 AM
آخر رد: Amir_alzubidy
  احتاج مساعدة في الفيجوال بيسك lena114 0 175 25-03-16, 02:50 PM
آخر رد: lena114
  [سؤال] طلب مساعدة iraq_moon 4 240 22-03-16, 07:00 PM
آخر رد: محمد العبيدي
  مساعدة : كود لنسخ قاعد البيانات استرجاعها محمد2015 10 916 21-01-16, 01:56 AM
آخر رد: awidan76
  [سؤال] مساعدة في مشروع تسجيل الحضور و الانصراف MarwanMohammed 1 213 19-01-16, 09:02 PM
آخر رد: VB_Local
Lightbulb [سؤال] طلب مساعدة من المختصين chaabane 2 235 02-10-15, 03:07 AM
آخر رد: chaabane
  [سؤال] احتاج مساعدة في متصفحي ابن الجزائر 2 313 16-09-15, 09:16 PM
آخر رد: ابن الجزائر
  مساعدة : كود لتصفير حقل في جدول محمد2015 5 540 16-05-15, 01:45 AM
آخر رد: Ahmed_Mansoor

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


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