ما هو كود ارسال صورة عن طريق winsock واستقبالها فى الطرف الآخر ؟
وكيف استطيع اضافة progress bar فى الطرفين المرسل والمستقبل لبيان تقدم العملية ؟
وشكرآ
ما هو كود ارسال صورة عن طريق Winsock واستقبالها فى الطرف الآخر ؟
مغلق
حملها فى String
Open MyImage For Binary Access Read As #FF '.................. and so on
و أرسلها كأى نص و قم بحفظها فى الطرف الآخر كصورة.
يبقى البرنامج المرسل يخاطب المستقبل و يقوله هتوصلك صورة من نوع كذا , و بموافقة المستقبل يبدأ المرسل فى الأرسال و ........... .
---
راجع أى مثال للـ Chat المدمج معه خاصية نقل ملفات على موقع PSC.
إقرأ معى:
----
المثقفون العرب .. المزورون العرب: تأبين محمود درويش نموذجا
ماذا خسر العالم بانحطاط المسلمين ؟!! للعلامه: أبو الحسن الندوى (كتاب هام لكل مسلم).
المنهجية ومقدمات في الطلب (لطلاب العلم الشرعى)
الأخ الفاضل ...
كذلك يمكنك ارسالها كمصفوفة بيانات (Bytes Array)، راجع: /index.php?showtopic=137913
شكراً
Nothing is impossible, the word impossible itself says that: I M - Possible
اسهل طريقة فى نقل الملفات بين الاجهزة عن طريق اداة WinSock فى وجهة نظرى فتح الملف المراد نقله للاستخدام الثنائى
Open "the path of your file" for Binary AS #1
ويتم فتح الملف للاستخدام الثنائى فى الجهازين ويلى ذلك تخزين بيانات الملف فى متغير من نوع String ثم نقله على دفعات لمراعاة انه قد يكون كبير الحجم 300 ميجا مثلا اذا كنت تريد نقل فيلم او شىء كهذا ويتم ذلك على النحو التالى
بالنسبة لجهاز العميل وهو الجهاز المرسل سينقل بيانات الملف على النحو التالى
Dim DataChunk As String
Do While Not EOF(1)
DataChunk = InPut(#1 , 4200)
Winsock1.SendData DataChunk
Loop
الاجراء السابق سيستمر بنقل الملف الى الجهاز المستقبل طالما انه لم يتم الوصول الى نهاية الملف وهو شرط الخروج من التكرار وانا افترضت هنا ان اقصى دفعة يمكن نقلها هى 4200 Bytes ويستمر نقل الملف على دفعات حتى الوصول الى نهاية حجم الملف
ولنرى الان كيف سيتم استقبال الملف من الجهاز الاخر
Winsock1.GetData Data
Put #1, , Data
كما يمكن نقل الملف بطريقة اخرى وهى BytesArray ولكنها اصعب والطريقة السابقة تؤدى نفس الغرض وهى الافضل
انا اردت ان انقل اليكم الفكرة فقط اعتقد انها واضحة وسهلة للغاية ... دمتم فى رعاية الله
الأفكار العبقرية تأتي بالتعب و المجهود و الإلهام فيها لا يتعدى 1% ( أديسون )
هذا الموضوع مغلق.