[خبر] قرص لتخزين البيانات عضوي

[Delphi4Us]

كنت افكر هذه الايام في هذه الاشياء التي تمشي على اربع وكيف تطورت وكنت اتصور منذ زمن وانه لبرمجتها تحتاج كل واحدة الى قرص بيانات خاص بها
وهذا كان قبل تطور الاتصالات ، اما بعد تطور الاتصالات وبخاصة على الاقمار الصناعية والانترنت .
خطر لي خاطر وهو انها لا تحتاج الى قرص بيانات خاص بها .
سيكون العمل المثالي لها هو مبنى كبير يحوي سيرفرات كبيرة تحوي نظام تشغيلها وسلوكها .
تتصل به جميعا لتنفيذ مهمة معينة .
ولو فرضنا ان شركة تريد ان تبرمج آلي لخدمة المنازل وبرمجته تحتاج الى مبنى كبير من الاجهزة التي تعالج المعلومات ليتخذ القرار الصائب .
فافضل طريقة هي باتصالها جميعا بهذه السيرفرات عبر وسيلة اتصال .
لنفرض لدينا سرية مكونة من 200 آلة كهذه لتنفيذ مهمة .

كود :

unit Unit2; interface type  TRobot=class   ID:Integer;   Function Connect():Boolean;   procedure ImportMission();   procedure ReturnBase();   procedure DoMission();  private  public  end; implementation { TRobot } Function TRobot.Connect:Boolean; begin end; procedure TRobot.DoMission; begin end; procedure TRobot.ImportMission; begin end; procedure TRobot.ReturnBase; begin end; end.

هذا صنف العمل

كود :

// تشغيل الالة    Robot:= TRobot.Create;    try      try      // اعطاء رقم تعريف للالة      Robot.ID:=1;      // الاتصال بالقمر الصناعي      Robot.Connect;      // استلام المهمة      Robot.ImportMission;      // تنفيذ المهمة      Robot.DoMission;       except on E: Exception do      end;    finally       //  العودة للقاعدة       Robot.ReturnBase;       //  اطفاء الالة       Robot.Free;    end;