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

ممكن هذا الكود

مغلق
بدأه midnight في 8 ديسمبر 2002 · 5 رد · 598 مشاهدة · في لغة Delphi
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

http://smdi.com/send.php?user=$user_name&passwd=$user_passwd&to=$mobile&msg=$msg&from=$sender_id&coding=$lang&type=$type

استخدمت هذا

ShellExecute(0, PChar('OPEN'), PChar('http://smdi.com/send.php?user='+Edit1.Text+'&passwd='+Edit3.Text+'&to='+DBEdit1.Text+'&msg='+memo1.Text+'&from='+Edit5.Text+'&coding='+edit2.Text+'&type='+edit6.Text+''), Nil, Nil, SW_SHOWMAXIMIZED);

ولكن للاسف تظهر البيانات امام المستخدم .سؤالي

هل من الممكن ارسال البيانات الي السيرفر بدون ظهور البيانات في المتصفح او حتى ارسال البيانات من غير الاعتماد على المتصفح اصلا

#2

السلام عليكم

TIdHTTP يحوي Method باسم Post يمكن استخدامها للغرض الذي تريده .

هناك مثال على ذلك في المجلد DemosIndyHTTPClient

لمعلومات اكثر عن TIdHTTP راجع Delphi Help او ابحث في Google .

(f)

CIONO1

هناك حتى الأحلام أصبحت ممنوعة ...

إنه لعار أن ننتمي لهكذا أوطان ... لكن ... ربما العار أن نكون نحن أبناء لتلكم أوطان .. من يدري ؟!!

ليعلم أولئك ... إنّ الشعوب إنْ هي استيقظت تسحق ظُلامََهَا ...

There, even in dreams u r wanted

To be a programmer, how a nice dream it was

Leaving ...

أعيدوا لإسمي لونه المفضل

#3

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

#4

السلام عليكم

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

اما بالنسبة للمثال الذي أوردته ، يمكنك تجربة URLEncoder او HttpEncode مثل تحويل كل رمز إلي رمز آخر مفهوفة في URL مثل تحويل المسافة إلي %20 إلخ

function HTTPEncode(const AStr: String): String;

const

  NoConversion = ['A'..'Z','a'..'z','*','@','.','_','-'];

var

  Sp, Rp: PChar;

begin

  SetLength(Result, Length(AStr) * 3);

  Sp := PChar(AStr);

  Rp := PChar(Result);

  while Sp^ <> #0 do

  begin

    if Sp^ in NoConversion then

      Rp^ := Sp^

    else

      if Sp^ = ' ' then

        Rp^ := '+'

      else

      begin

        FormatBuf(Rp^, 3, '%%%.2x', 6, [Ord(Sp^)]);

        Inc(Rp,2);

      end;

    Inc(Rp);

    Inc(Sp);

  end;

  SetLength(Result, Rp - PChar(Result));

end;

ملاحظة : انا لم اجرب الكود :)

#5

مثال لاستخدام المكون idHttp

var
    URI: string;
begin
  URI := '/send.php?user='+User+'&passwd='+passwd; 
  idHttp1.Host := 'http://smdi.com';
  try
     idHttp1.Get(URI);
  except
     // handle error
     ;
   end;	
end;

استخدمت Get Method لأنك استخدمتها في سؤالك ويجب أن تأخذ المتغيرات من $_GET في ملف php ، إذا استخدمت Post Method فيجب أن تأخذ المتغيرات من $_POST ، الا اذا كانت register_globals on فلا يفرق اكانت post أم get بل تجد المتغيرات معرفة بشكل مباشر .

#6

السلام عليكم

شكرا fsl .

تعمدت الا اكتب مثال لان المثال المرفق مع دلفي يفي بالغرض .

وكما أشرت google تفي بالغرض أيضا

هنا : http://groups.google.com/groups?hl=en&lr=&...G=Google+Search

اخي midnight : أثناء البحث ربما تجد مشاكل تعرض لها الاخرون وتستفد منها ( هذه هي اهميه البحث في الانترنت ) .

(f)

CIONO1

هناك حتى الأحلام أصبحت ممنوعة ...

إنه لعار أن ننتمي لهكذا أوطان ... لكن ... ربما العار أن نكون نحن أبناء لتلكم أوطان .. من يدري ؟!!

ليعلم أولئك ... إنّ الشعوب إنْ هي استيقظت تسحق ظُلامََهَا ...

There, even in dreams u r wanted

To be a programmer, how a nice dream it was

Leaving ...

أعيدوا لإسمي لونه المفضل

هذا الموضوع مغلق.

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