مشروع تبادل ملفات على الشبكة بإستخدام

السلام عليكم

اقترح عمل المشروع بالدلفي بريسم :bye: لاني اعتزلت VCL

كي استطيع المشاركة معكم

شكرا

هو مجرد اقتراح ولو تكرمت اكثر ليكون ب WPF فاعدكم ان ابذل ما استطعت كي ينجح

السلام عليكم

سعيد بمشاركتك أخ prof_1982 :)

لا مشكلة لدي سنستخدم دلفي 7 و اذا اقتضى الامر نستخدم نسخة أحدث ان شاء الله

واجهة أولية للمشروع :wink:

اي اقتراحات او اضافات...

سنبدأ العمل خطوة خطوة ان شاء الله

الخطوة الاولى

قراءة عناوين الملفات - حجم الملف - نوع الملف من المجلد Shared

و تسجيلها

(جاري العمل )

المشروع في المرفقات

Client_01.rar

السلام عليكم

مرحبا اخ و استاذ زكيري عبد العالي اخ زكيري تريد استخدام .net لك ذلك !! :)

أقترح ان ننقسم الى قسمين فريق يطور الـ Web Service و فريق يطور Win32 ما رأيكم ؟

ستكون أخ عبد العالي على ما يبدو وحدك لتطوير الـ Web Service و اكون و الاخ prof_1982

لتطوير الـ Win32 الا اذا كان هناك اعتراض..

ستكون بيننا الـ XML ينتهي عملنا عندما نرسل الـ XML اليك...سنتفق على شكل قاعدة بيانات

اعتقد ستستخدم الـ ASP.NET اخ زكيري لاخذ المعلومات من ملف الـ XML و تسجيلها

في القاعدة البيانات على العموم انت ادرى مني بالتقنيات الواجب استخدامها...

مشكلة : نحتاج الى استضافة للـ Web Service هل من اقتراحات...

فائدة هذا التقسيم ستكون بامكانك استخدام .net اخ زكيري و لا يهمنا التقنيات التي ستخدمها

كما انك لن تقلق بشأن Client لانه الذي يهمك وصول ملف الـ XML محمل بالمعلومات و طبعا

اعتقد يوجد تقنيات بالدلفي تمكننا من ارسال ملف الـ XML اليك و إستقباله منك...

من الناحية التقنية

اعتقد انه ليس هناك اي اختلاف ف الملف الـ Xml الذي سننتجه سيكون نفس الملف الذي ربما

سينتجه الـ .net و عملية ارسال ملف يمكن إجراءها بالدلفي !! اذا لا داعي ان نقتحم

.net الا اذا اثبت العكس اخ زكيري...

اذا ارى هذا التقسيم منطقي و الكل سيحضى باللغة التي يحبها في انتضار رأيكم أساتذة المنتدى

:clapping:

prof_1982

زكيري عبد العالي

و السلام عليكم و رحمة الله

اقتباس

ستكون أخ عبد العالي على ما يبدو وحدك لتطوير الـ Web Service و اكون و الاخ prof_1982

لتطوير الـ Win32 الا اذا كان هناك اعتراض..

موافق :blink:

اقتباس

ستكون بيننا الـ XML ينتهي عملنا عندما نرسل الـ XML اليك...سنتفق على شكل قاعدة بيانات

اعتقد ستستخدم الـ ASP.NET اخ زكيري لاخذ المعلومات من ملف الـ XML و تسجيلها

في القاعدة البيانات على العموم انت ادرى مني بالتقنيات الواجب استخدامها...

موافق على الاكسمل لكن لماذا هي ضرورية لما لا تكون قاءمة ابجكت اي تكون لدينا كلاس تحتوي على الخصاءص اسم الملف حجمه ثم ترسلون TLIST

اقتباس

مشكلة : نحتاج الى استضافة للـ Web Service هل من اقتراحات...

نعم لكن سنثبت IIS في جهازنا او اعطيكم السورس و تستطيعوا ان تنفذوه من Microsoft Visual Studio

اعتقد انه ليس هناك اي اختلاف ف الملف الـ Xml الذي سننتجه سيكون نفس الملف الذي ربما

سينتجه الـ .net

نعم

السلام عليكم

صحيح يمكن ذلك دون استخدام الـ xml لكن كيف نستقبل المعلومات من عندك

بمعنى عندما يقوم شخص بالبحث يتم البحث في قاعدة البيانات التي هي على خدمة الويب

مثلا يتم البحث عن اسم الملف و عن الاشخاص الذين يشاركون الملف ...كيف سيستقبل الـ Client النتيجة ؟؟؟

كما اريد ان استخدم الـ xml اليست لغة الحلول و الجميع يوصي بها اذا لنستخدمها في الارسال و الاستقبال

و السلام عليكم و رحمة الله

ليس مشكلة حنما تصلون الى هذه المرحلة سنتفق على حل إن شاء الله

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

class File

Name

Size

...الخ

Tlist FileList of File

شكرا

السلام عليكم

اخي العزيز M.Abdelhak لا يحتاج المشروع لاي وصلات او صفحات ويب سيرفس لانها في النهاية لن تحل المشكلة الرئيسية وهي الوصول للكلاينت في حالة نقل الملف بين مستخدم واخر ، لذلك بكل الاحوال سيكون هناك برنامج سيرفر الكل

سيقوم بالاتصال به وهو حلقة الوصل بين المستخدمين و نقل البيانات لذلك لا داعي لهذا الجزء من العمل .net .

طريقة الاتصال في حالة نقل الملف بين عضوين لتوفير جزء من جهد السيرفر سيتكون كالتالي :

لنضع السيناريو التالي المستخدم x يريد نقل ملف من المستخدم n

طريقة العمل ستكون كالتالي :

1- سيقوم المستخدم x بامكانية الوصول للمستخدم n لنقل الملف بعيدا عن السيرفر وتقليل الجهد عن السيرفر ----->. (في حال فشلت العملية ) سينتقل للخطوة 2

2- سيقوم المستخدم x بارسال تعليمة برمجية للمستخدم n تفيد بتعذر الوصول لجهازه وتتتم العملية بطريقة عكسية اي سيقوم المستخدم n في هذه الحالة للوصول للمستخدم x لارسال الملف له . ( ان فشلت العملية ) سينتقل للخطوة 3

3- حينها سيتم نقل الملف من المستخدم n الي المستخدم x عن طريق السرفر .

اي سيكون العمل بالكامل عن طريق الـsocket لانه اتصال مباشر سنتمكن من معرفة حالة المستخدم و وجوده وعدد الملفات وجديد الملفات بين الاعضاء دون عمل اي استدعاء لصفحات خارجية ، كما انها مفيدة ايضا بشكل كبير في حالة البحث عن ملف

في جميع مجلدات المستخدمين المشاركة بشكل سريع جدا وفعال .

طريقة نقل بيانات الملفات لعرضها لدي المستخدمين سيتم عمل Stream Header تحمل بيانات الملف في حالة الوقوف علي ملف محدد مثلا وعرض بياناته وسيكون تركيبة الهدر كالتالي :

Type TFileInfo = record
      StreamCRC : String [32] ;
      FileName  : String [255] ;
      FileSize  : Double ;
      FilePath  : String [255];
      FileDate  : Datetime ;
  end;

اما في حالة عرض مجلد المشاركة لدي شخص ما ويحتوي علي ملفات كثيرة سيتم عمل Stream اخر يحمل عدة Streams لكل ملف بعدد الملفات المشاركة : كالتالي

Type TFolderInfo = record
      StreamCRC  : String [32] ;
      StreamSize : Integer ;
      FileCount  : Integer ;
      FolderPath  : String [255];
  end;

وتحت هذه الهدر سيتم كتابة stream لكل ملف كالـStream الخاص بالملف في الاعلي .

اتمني ان تكون الفكرة وصلت .

وهي بالمناسبة الطريقة المستخدمة في برامج مشاركة الملفات BitTorrent والبرامج المشابهة .

تحياتي لكم

السلام عليكم

أخ prof_1982

استمسحك عذرا ان كنا قصرنا في الاستفاضة في الشرح..

نحن نتحدث عن مشاركة الملفات على الانترنت بفرض عدد المشاركين كبير أكثر من 100 شخص مثلا ...

حسب ما فهمت من فكرتك يكون هناك Server يقوم بادارة العملية بين جميع الـ Clients

الا ان الـ Server الذي تتحدث عنه سيكون على الوندوز يتنصت على بورت و يتصل به جميع الـ Clients

في حالتنا نفس الشيئ الا انه سيكون السيرفر عبارة عن صفحات asp.net و لغة التخاطب XML

الـ Server ليس له اي دخل في ارسال الملفات

السيرفر نسجل فيه معلومات الملف و معلومات صاحب الملف ( الاي بي - الاسم ...) و حسب

و ليس له اي دخل في عملية الارسال عملية الارسال تتم بين الكلاينت بنفس الطريقة

التي شرحتها باستثناء عدم تدخل السيرفر السيرفر سيكون دوره الربط بين الاجهزة

سأستيعن بصورة الأخ زكيري بارك الله فيه و أضع سيناريو مشاركة الملفات على الانترنت

لدينا 3 أجهزة على التوالي

جهاز 1

جهاز 2

جهاز 3

يريد (جهاز 1) مشاركة الملف النصي (ArabTeam.txt) يقوم بوضع الملف في المجلد Shared

عندما يفتح البرنامج Client يقوم البرنامج بقراءة معلومات الملفات الموجودة داخل المجلد

كمثالنا :

عنوان الملف Arabteam

نوع الملف txt

حجم الملف 4kb

إسم الجهاز

Ip الجهاز

ثم يقوم بارسالها الى الـ Web Service

يتم تسجيلها هذه المعلومات في قاعدة البيانات

الآن

جهاز 2 يبحث عن ArabTeam.txt يتم البحث في قاعدة البيانات ثم يتم ارسال النتيجة

عنوان الملف

نوع الملف

حجم الملف ...

IP الجهاز

عندما يختار جهاز 2 التحميل يأخذ IP الجهاز الذي يشارك الملف و يطلب ارساله ثم يتم الارسال باستخدام الـ Socket مثلا

و هكذا ...

اذا كان هناك اي غموض لا مشكلة لدي في شرح و ان شاء الله نكون على طريق الصواب مع العلم ان طريقتك صحيحة كذلك...

اخ زكيري

تقترح ان يكون المشروع يستسخدم oop ؟ للأمانة ليست خبرتي كبيرة فأسحاول مجارتك لذلك فكلما كان التفصيل

أكثر سهلت عليا المهمة أكثر فأنا لم أضع المشروع كمشروع جماعي الا ليكون العمل ممتع و تبادل الخبرات و الاستفادة المتبادلة

ان شاء الله

تريد أن أنشأ Class جديد

Name

Size

أجعلها على شكل record ام property

سأحاول تطبيق الأمر و أوافيكم بالنتيجة في أقرب الآجال

و السلام عليكم و رحمة الله

السلام عليكم

اخي العزيز M.Abdelhak انا متفهم تمام لطبيعة المشروع ولكن لم تاخد في الحسبان بعض المشاكل الجوهرية ولم تقم بوضع حلول حقيقية لها .

اقتباس

نحن نتحدث عن مشاركة الملفات على الانترنت بفرض عدد المشاركين كبير أكثر من 100 شخص مثلا ...

أعلم ذلك :)

عدد المشاركين ليست مشكلة ليكن 1000 مستخدم مثلا لا مشكلة في العدد المشكلة في عملية ادارة الملفات لو كان هناك 10000 ملف علي الشبكة ككل هل ستقوم بتسجيلهم في قاعدة البيانات ؟؟ لا تنسى انك علي الانترنت :)

اوضح لي اذا سمحت حل لهذه المشكلة حتي افهم

اقتباس

يريد (جهاز 1) مشاركة الملف النصي (ArabTeam.txt) يقوم بوضع الملف في المجلد Shared

عندما يفتح البرنامج Client يقوم البرنامج بقراءة معلومات الملفات الموجودة داخل المجلد

كمثالنا :

عنوان الملف Arabteam

نوع الملف txt

حجم الملف 4kb

إسم الجهاز

Ip الجهاز

ثم يقوم بارسالها الى الـ Web Service

لو قام المستخدم بعمل مشاركة علي مجلد يحتوي علي 1000 ملف هل ستقوم بارسال بيانات هذه الملفات الي السيرفر وتسجيلهم في قاعدة بيانات عند تشغيل النظام ؟؟؟؟؟ (عملية ابلود ليست بسيطة )

هل اخذت في الحسبان الامور التالية :

المستخدم قام بحذف عدة ملفات ، قام بتغيير مسميات بعض الملفات ..... الخ بعد عملية نقل بياناتها علي السيرفر :)

اقتباس

يتم تسجيلها هذه المعلومات في قاعدة البيانات

الآن

جهاز 2 يبحث عن ArabTeam.txt يتم البحث في قاعدة البيانات ثم يتم ارسال النتيجة

عنوان الملف

نوع الملف

حجم الملف ...

IP الجهاز

عندما يختار جهاز 2 التحميل يأخذ IP الجهاز الذي يشارك الملف و يطلب ارساله ثم يتم الارسال باستخدام الـ Socket مثلا

انت تتحدث عن ان الامر كما لو انه يحصل في التو واللحظة ، ماذا لو قام بعد عدة ايام بالبحث عن الملفات ووجده علي السيرفر وقد قام المستخدم بحذفه او تغيير اسمه .

الاي بي لا يفيدنا باي شيئ لانه متغير وغير ثابت ومن الممكن ان تكون مجموعة كبيرة تحمل نفس الايبي خاصة في النت كافيه او الشركات والمؤسسات ، كما لا يعني حصولك علي الايبي انه يمكنك الاتصال بالكلاينت هذه معلومة خاطئة 100%

لان معظم الايبيهات هي في الاساس تكون للراوتر ولا يعبر ولا يمكن الاتصال بكلاينت خلف الراوتر هذه مشكلة كبيرة في برمجة السوكيت .

اقتباس

تريد أن أنشأ Class جديد

Name

Size

أجعلها على شكل record ام property

سأحاول تطبيق الأمر و أوافيكم بالنتيجة في أقرب الآجال

مازال مبكرا التطبيق العملي ، حتي تتضح الفكرة للجميع بعد ذلك يتم رسم نقاط محددة للسير عليها .

تحياتي لكم

وهذه صور كروكي لشكل النظام المتوقع

شاشة التحميل

شاشة البحث عن الملفات

السلام عليكم

أخي العزيز prof_1982

أنا تعمدت الحد من أبعاد المشروع ( مشروع تعليمي) مشكلة المشاريع العربية انها كبيرة الطموح

و غير محدودة الأبعاد لذلك مآلها الى الفشل لاحظ مثلا قلت نضع جميع الملفات في المجلد Shared

مع انه يمكننا إستخدام قاعدة بيانات او اي طريقة اخرى لتسجيل مسار كل ملف على حدة لكن بهذه الطريقة

المشروع لن يصير تعليمي و سيكبر و يكبر الا ان لا نستطيع اتمامه لذلك تعمدت الحد قدر المستطاع من أبعاد المشروع

و كان بامكاني ان اضيف ضغط لملف الـ xml قبل ارساله و فك ضغطه بعد إستقباله لكن اين سيقودنا هذا

المشروع تعليمي بالدرجة الاولى...

في رأيي اذا استطعت انا و انت و الاخ زكيري مشاركة 3 ملفات على الانترنت باستخدام برنامجنا فالنسبة الي حققة

الذي اصبو اليه بعدها سيكون المشروع مفتوح و المصدر و لك كامل الحرية في ايجاد الحلول المتقدمة...

الواقع انا لا احاول برمجة BitTorrent او حتى تقليده...

مشكلة تحديث البيانات سنجد لها حل ليست مشكلة نقوم بتحديثها باستخدام Timer مثلا ....

بالنسبة للواجهة يمكن اعتماد واجهتك و يمكن اعتماد SkyFolder كإسم ارفقه ...

و السلام عليكم و رحمة الله

السلام عليكم

اخي العزيز M.Abdelhak

اقتباس

أنا تعمدت الحد من أبعاد المشروع ( مشروع تعليمي) مشكلة المشاريع العربية انها كبيرة الطموح

و غير محدودة الأبعاد لذلك مآلها الى الفشل

صدقني هذه ليست اضافات خارقة او مستحيلة وتأكد تماما انا لا اضع فكرة الا اذا كنت استطيع تنفيذها بطريقة أو بأخرى لذلك كل الافكار المطروحة قادر علي تنفيذها بقليل من الجهد و البحث ، وقادر علي ايصالها للغير بطريقة يفهمها .

لا يعني بان قدرتي لا تسمح لي بعمل شيئ معين بان لا ابحث عنه وأتقوقع فيما اعرفه والا كيف سنتعلم ، اذا كنت قادر علي عمل مشروع في حدود فهمي وامكانياتي وقدرتي لا اسميه انجاز ولا يكون هناك عنصر البحث والتوسع والاستفادة بالجديد بل سيكون الامر تطبيق لما افهمه فقط دون اي جديد ، لذلك بما انه مشروع تعليمي وهو كذلك سيتم شرح كل كود سيتم اضافته ووظيفته بشكل كامل حتي يتم فهمه من جميع المشاركين هكذا نتعلم :) ما لا افهمه تقوم بشرحه لي وما لا تفهمه اقوم بشرحه لك و هكذا نبني خبرات بعضنا البعض .

اقتباس

الواقع انا لا احاول برمجة BitTorrent او حتى تقليده

وانا كذلك ولكن هناك افكار وطرق لمثل هذه المشاريع يمكنك الاستفادة من بعض المزايا والطرق منها ، وفي الواقع هذا البرنامج مختلف .

علي كل حال لا اريد ان اختلف معك و ان نحيد عن الهدف الرئيسي الان يجب ان تكون قائدا للمشروع وان تضع النقاط الاساسية وكيفية عمله في نقاط ثم نضع افكارا حول هذه النقاط ودراسة المشاكل والحلول ثم نبدأ بالتطبيق ان شاء الله

.

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

السلام عليكم

اخي الكريم prof_1982 و الله لا اشك في قدرة وخبرتك في الدلفي

اضن ان تقوم بالبدا في النقاط الاولى المتفق عليها ان تمت الامور بنجاح تختارو نقط اخرى و هكذا اما عن مشاركتي و الله لقد اعزلت الدلفي VCL لاني اعمل على c#

و لحبي الكبير للدلفي حينما اجد الفرصة ابرمج بالبريسم .

اعذروني عاهدتو نفسي ان لا اعود الى vcl و عوضتها ب WPF التي اجدها لحد الان راءعة .

شكرا .

السلام عليكم

اخي prof_1982 من قال انه يشك في خبرتك !!!؟؟؟ارجو ان لا تكون قد فقدت همتك :) نحن ثلاثة و احدنا لا يحب الـ vcl اذا انسحبت لن يبقى احد غيري :blush:

لا زال الطريق طويل :mad:

حاليا أقوم بتطبيق الخطوة الأولى

قراءة معلومات الملفات من المجلد Shared

تمتة إضاقة الوحدة File_U ستكون الوحدة المسؤولة عن كل ما يتعلق بالملفات

 unit File_U;

interface

uses SysUtils,ShellAPi,Classes,Dialogs;

function GetDirectoryContents(const StrPath : String):TStringList;

implementation


function GetDirectoryContents (const strPath : String):TStringList;
var
  SearchResult  : TSearchRec;
  FileInfo      : TSHFileInfo;
  sFileType     : String;
  ss : TStringList;
begin
  ss := TStringList.Create;
  if DirectoryExists('Shared') then
  begin
    if FindFirst(strPath+'*.*',faArchive,SearchResult) = 0 then
    begin
      Repeat
        SHGetFileInfo(PChar(strPath + SearchResult.Name), 0, FileInfo,SizeOf(FileInfo), SHGFI_TYPENAME);
        sFileType := FileInfo.szTypeName;
        ss.Add(SearchResult.Name+'|'+IntToStr(SearchResult.Size)+'|'+sFileType);
      Until
       FindNext(SearchResult)<> 0;
    end
    else
    ShowMessage('Empty Folder');
  end else
  CreateDir('Shared');
  begin
  Result:= ss;
  end;
end;

هناك الكثير من العمل الذي يجب إجراءه على هذا الجزء

ss.Add(SearchResult.Name+'|'+IntToStr(SearchResult.Size)+'|'+sFileType);

procedure TMain_frm.FormCreate(Sender: TObject);
var
  StrPath : string;
begin
  StrPath := GetCurrentDir+'\Shared\';
  GetDirectoryContents(StrPath);
end;

ملئ الـ ListView

ملاحظة : الكود ناقص في بعض النواحي سأوضحها لاحقا...

يجب ملئ الـ LisView بالمعلومات أنت لها اخي prof_1982

+

اذا اردتم برمجة المشورع وفق oop بجب وضع تصور واضح و دقيق للكلاس أخي زكيري.

و السلام عليكم و رحمة الله

اقوم الان بوضع الاساسات الرئيسية للنظام ، ساقوم بوضعها هنا وشرحها حالما انتهي منها .

prof_1982 كتب:

اقوم الان بوضع الاساسات الرئيسية للنظام ، ساقوم بوضعها هنا وشرحها حالما انتهي منها .

خذ راحتك و اتحفنا بطرحك تحياتي :)

السلام عليكم

ممكن تقبلوني بينكم

السلام عليكم

تطفو مشاغل الحياة أحيانا... سأقوم باتمام الخطوة في اقرب الآجال (العمل لن يكون كثيف في هذا المشروع)...

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

فكلام طيب او دعاء خالص يكفي....

و السلام عليكم و رحمة الله

السلام عليكم و رحمة الله و بركاته

الكود كتبته و لم ادقق فيه كثيرا...

تم ملئ الـ ListView ..

المشروع في المرفقات

و السلام عليكم و رحمة الله

Client_02.rar

السلام عليكم

لقد نسينا شيئ مهم نحتاج الى اقتراح اسم جميل للمشروع يجب ان يكون الاسم

له طابع اسلامي غير طويل له وقع جميل على الاذن سهل التذكر و فريد

من المبدع القادر على ابتكار اسم من هذا النوع :happy:

:hmm:

أشياء ناقصة :

1- الكود ليس له القدرة على قراءة المجلدات جاري بالاضافة الى مشكلة عويصة أخرى..

2- تحسين الكود

3- اضافة بعض المميزات الاخرى حساب حجم الملفات بالـ mb غيرها

اخ زكيري عبد العالي كيف تتوقع ان يكون ملف الـ xml + لا تبخل علينا باقتراحاتك بارك الله فيك

و السلام عليكم و رحمة الله و بركاته

السلام عليكم

عبد الحق كيف الحال

لنكمل المشروع في المرفق اضف OOP ليكون اجمل واحسن ولتحس بالبرمجة .

كما اضفت مشروعين اخرين في مجلد server

1- Datasnap serevr

2- Webserver ISAPI

ثم نختار الافضل بعدها

المشروع الاخير عبارة عن بكاج نضع فيه الكلاساة المشتركة والادواة المختلفة

اقتباس

ارجوا ان تحدد التوابع التي سنضيفها الى تطبيق السرفر

1-اظن هناك الاظافة اي اظافة معلوماة الملف المحدد الى القاعدة

PartageFilesManager.rar

السلام عليكم

رمضان مبارك للجميع و لك أخ زكيري

كانت لدي مشكلة في الاتصال بالانترنت ...

سأقوم بالاطلاع على المرفق نعم قاعدة البيانات ستكون بسيطة ...

أخ زكيري بالنسبة للاختيار بين

Datasnap serevr

Webserver ISAPI

من فضلك أخ زكيري قم بتحديد واحدة فقط للتتيح لي التركيز على تقنية واحدة

فهذا سيساعدني كثيرا...

و السلام عليكم و رحمة الله

السلام عليكم

حسنا ساختار خدمة الويب ISAPI

لقد عدلة واضفة كلاس الاتصال بالقاعة مع توابع لعرض قائمة الملفاة واظافة سجل الى القاعدo

PartageFilesManager.rar