• 0
Esmat_Halfa

الاتصال بقاعدة بيانات بعيدة باستخدام Indy

سؤال

السلام عليكم

الفكرة التي اسعى لتنفيذها هي :

 

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

- اما بتنشيط مباشر من على جهاز المستخدم باستخدام صلاحيات دخول معينة وقد قمت بتنفيذها من قبل ولله الحمد

- او تنشيطها بالشبكة من على البعد باستجلاب البيانات الخاصة بجهاز المستخدم وتوليد شفرة التنشيط على حاسبي ثم ارسالها اليه عبر الشبكة ولقد وجدت فكرة مشابهة بل مطابقة لماركو كانتو في كتابه المشهور Delphi mastering ولكني لا استحي من الحق لم اقتحم ها العالم من قبل علماً بانه يمكنكم الاستعانة بالكتاب المذكور

Part VI - Chapter 19 - Building socket applications

وسؤال آخر

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

 

نشكركم للاهتمام والاستجابة

تم تعديل بواسطه الحلفاوي
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

4 إجابة على هذا السؤال .

  • 0

فكرة رائعة جدا 

عند فتح البرنامج يقوم البرنامج بتوليد رقم الهارديسك او لوحة التحكم او  اي رقم اخر في ملف ويقوم الزبون بارسالها لك ثم بعد ذلك تقوم انت باعطائه سيريل يعمل فقط في جهازه بناءا علي رقم التي ارسله لك (السيريل يتم حفظها في قاعدة البيانات ويتم مقارنتها مع رقم الهارد )

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

procedure ConverteSerNemb;
var N, I: integer; B: char; S, R: string;
begin
  s := trim(AnsiUpperCase(Form1.Edit8.Text));
  N := length(s);
  R := '';

  for I := 1 to 15 do
    begin
      b := S;
      case b of
        'A': R := r + '1';
        'B': R := r + '2';
        'C': R := r + '3';
        'D': R := r + '4';
        'E': R := r + '5';
        'F': R := r + '6';
        'G': R := r + '7';
        'H': R := r + '8';
        'I': R := r + '9';
        'J': R := r + '1';
        'K': R := r + '2';
        'L': R := r + '3';
          'M': R := r + '4';
        'N': R := r + '5';
        'O': R := r + '6';
        'P': R := r + '7';
        'Q': R := r + '8';
        'R': R := r + '9';
        'S': R := r + '0';
        'T': R := r + '1';
        'U': R := r + '2';
        'V': R := r + '3';
        'W': R := r + '4';
        'X': R := r + '5';
         'Y': R := r + '6';
        'Z': R := r + '7';
     //   '-': R := r + '8'
        else R := R + S;

      end;
    end;

// تعليمة تشفير رقم الهارديسك
// هذا هو رقم المنتوج

  M := StrToFloat® * 5 + 12345;

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

//هذا هو رقم التسجيل للبرنامج

  T := (M - 12345) / 5;
end;

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .