طريقة إرسال ملف من العميل للخادم

السلام عليكم

الخطوه الأولى بدأ الإستماع من الخادم وتجهيزه (تم)

الخطوه الثانيه عملية الإتصال من العميل للخادم (تم)

الخطوه الثالثه إرسال الأمر تنزيل مع حجم الملف (تم)

فقط الآن أبحث عن كود أضعه في العميل لبدأ إرسال الملف

وكود أضعه في الخادم لاستقبال الملف

أستخدم في العميل (TClientSocket)

أستخدم في الخادم (winsock)

أستخدم في العميل فورم

في الخادم لاأستخدم فورم فقط

(uses windows,messages,winsock;)

و لا أريد إستخدام TFileStream في الخادم لكتابة ملف

وأتمنى أن يكون الكود يعمل بشكل جيد حين استخدام البرنامج بدون إتصال أو حين الاتصال بالنت

وشكرااا