delphi4arab منتديات دلفي للعرب

نسخة كاملة : تكملة كود تحميل صور ؟
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم
كتبت هذا الكود
كود :
fn := 'C:\Documents and Settings\admin\Desktop\11/65474.jpg'; fs := TFileStream.Create(fn, fmOpenRead); idTCPClient1.Host := Edit1.Text; idTCPClient1.Connect; IdTCPClient1.IOHandler.Write(fs);
المشكلة في الكود لا يمكنني تحميل غير صوره واحدة
كيف استطيع تغيير 65474.jpg في الكود, أو تحميل جميع الصور دفعة واحدة من الملف ؟؟

شكرا لكم