كود ارسال صوره بالوينسوك

أعتقد أنك نفس الشخص الذي سأل كيفية إرسال List Box أليس كذلك ؟؟؟

علي العموم هي نفس الفكرة تقريباً ، ولكن تنتقل الي ملف الصورة !!!

بمعني أدق ، تفتح ملف الصورة كملف بيانات عادي من نوع Binary وتجلب جزء جزء من هذا الملف كما يلي :

Dim strGetPic As String * 50
Dim logLoop As Long

Open "C:\Pic.jpg" For Binary As #1
For logLoop = 1 To LOF(1) Step 50
	Get#1,logLoop,strGetPic
	''علي أساس قطعة قطعة strGetPic في هذا الجزء يتم إرسال المتغير
Next
Close#1

'' يستقبل هذه البيانات قطعة قطعة Clint وفي نفس الوقت يكون الجهاز العميل :

بالتوفيق

ممكن عمل برنامج اخي كلنت وسيرفر لارسال الصور ؟

لانني ما فهمت الكود

اخي سؤال : لماذا عملت step 50 ??

مع شكري الجزيل

نعم انا نفس الشخص

بجد الوينسوك جنني مش فاهم فيه حاجا خالص واداه غبيه واخطائها كتير وبتخلي الواحد يتجنن الصارحه

كل شي سهل وبعرف اتعامل فيه الا الوينسوك

لماذا الوينسوك اداه معقده مره

على العموم شكرا لك اخي كايرو على مجهودك وهحاول اطبق الي قلتلي عليه واشوف

تحياتي ........................

فؤاد سعد