الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

استفسار الله لايهينكم بخصوص فكرة برنامج بسيط

بدأه coade it في 1 سبتمبر 2008 · 13 رد · 1,405 مشاهدة · في لغة Delphi
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

رمصان كريم عليكم وعلي الجميع

لي طلب بسيط لو تكرمتم

وضع سورس كود لتنفيذ هذه الفكره حتي افهما

اريد جلب بيانت من علي الانترنت وتفريغها داخل

المربعين كما في الصوره

67172465zu1.jpg

بمعني اذا ضغطنا علي الزر

key1

يقوم بجلب بيانات موجود علي الانترنت وتفريغها داخل صندوق

key1

90587142ds5.jpg

طبعا البيانات تكون مثلا علي ملف تكست بموقع

مثلا

www.kaka2005.net/keys.txt

وجزاكم اله عنا خير الجزاء

محبكم في الله ابو يمني

#2

لك ما تقول بالمرفق

لتحميل المرفق اضغط هنا : Download_Text_File.rar

بالتوفيق

Comming Soon

#3

استاذي الغالي

Swift

والله مني عارف اقو لك ايه غير جزاك الله الف خير ويعطيك الف عافيه هذا ماردته فعلا جزاك الله خير الجزاء علي الافاده

ومعليش اثقل عليك لو تكرمت

لو حبيت اضع ايدت اخر تظهر فيه بيانات اخري وتتم بنفس الضغطه حيث ياخذ البيانات من السطر الثاني مثلا في التكست

مثل التاريخ لو وضعته في السطر الثاني مثلا من التكست

وكيف ممكن اخفي رابط التكست حتي لا يستخرجه احد من الملف التنفيذي

ربي يعطيك العافيه استاذي

ماقصرت

تم تعديل هذه المشاركة بواسطة coade it في 2 سبتمبر 2008 في 04:17

#4

جزاكم الله خيرا

المشروع شغال على النسخة كام يا أخي؟؟

تم تعديل هذه المشاركة بواسطة croconile في 2 سبتمبر 2008 في 07:02

rasool4k.gif

[وسط]mimetex.cgi?MSN:root@root-shell.net.

[/وسط]

#5

7 اخوي

#6

ممكن تقوم برفع ملف نصى على موقع وتعطينى الرابط بالرسائل الخاص لو تكرمت

علشان أجرب

هذه هي الطريقة لو الملف بالكمبيوتر

  1. procedure TForm1.Button1Click(Sender: TObject);
  2. var
  3. L1:TStringList;
  4. begin
  5.   L1:=TStringList.create;
  6.   L1.LoadFromFile('C:Test Folder'+'New Text.txt');
  7.   if L1.count>=1 then Edit1.Text := L1[0];
  8.    if L1.count>=2 then Edit2.Text := L1[1];
  9. end;
  10.  

بالنسبة لموضوع التشفير يوجد طريقة سهلة للحماية وكويسة بنفس الوقت .. ابحث عن برنامج اسمة : DotFix Nice Protect v2.5
اقتباس
المشروع شغال على النسخة كام يا أخي؟؟
Borland Delphi 7
بالتوفيق

      
      

      
Comming Soon

    

  

    
    

      
#7
        
        

      
تسلم اخي الحبيب 
Swift 
 والله اتعبناك 
 ساقوم برفع الملف وارسال رابطه لك  ان شاء الله لاني اريد الطريقه علي    تكون من ملف علي الانترت فعلا 
 بارك الله فيك وسدد خطاك

      
      

      
    

  

    
    

      
#8
        
        

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

      
      

      
Comming Soon

    

  

    
    

      
#9
        
        

      
يا أخي المثال مش شغال :(
ساعات 404 وساعات socket error

      
تم تعديل هذه المشاركة بواسطة croconile في 10 سبتمبر 2008 في 17:34

      

      
rasool4k.gif
[وسط]mimetex.cgi?MSN:root@root-shell.net.
[/وسط]

    

  

    
    

      
#10
        
        

      
أخى انا وضعت رابط للتكست وهمى مثل ما كتب الأخ / Code it
ارسل لى رابط  ملف التكست للتجربة
بالتوفيق

      
تم تعديل هذه المشاركة بواسطة Swift في 11 سبتمبر 2008 في 03:20

      

      
Comming Soon

    

  

    
    

      
#11
        
        

      
السلام عليكم 
تستطيع فتح صفحة الملف النصي على WebBrowser تقوم بعمل ما تريده اي القراء و التغيير ..الخ

      
      

      
    

  

    
    

      
#12
        
        

      
السلام عليكم ورحمة الله وبركاتة
-------------------------------
اقتباس
السلام عليكم 
تستطيع فتح صفحة الملف النصي على WebBrowser تقوم بعمل ما تريده اي القراء و التغيير ..الخ
وعليكم السلام ورحمة الله
نعم أخى زكيرى يمكنة من فعل ذلك ؟ لكن الطريقة اللتى وضعتها له قد تفيدة ايضاً فى أن يقوم مثلاً بوضع IF لعمل تحديث للبرنامج مثل برامج الفيروسات 
فأنهم يقومون بمقارنة الرقم الموجود على الموقع او على السيرفر لعملية التحديث 
بالتوفيق

      
      

      
Comming Soon

    

  

    
    

      
#13
        
        

      
لسبب ما اشتغل الآن.
جزاكم الله خيرا.

      
      

      
rasool4k.gif
[وسط]mimetex.cgi?MSN:root@root-shell.net.
[/وسط]

    

  

    
    

      
#14
        
        

      
اقتباس
لسبب ما اشتغل الآن.
جزاكم الله خيرا.
الحمد لله

      
      

      
Comming Soon

    

  

    
    
    
 مواضيع مشابهة





  

    
عدد الزوار حالياً
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

    
—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

    
جارٍ التحقق من المتواجدين…