كيف تصمم برنامج رسائل الsms اليك الطريقة

لأرسال رسائل عبر دلفي يجب لك ان تحصل على gatway للشركة المزودة وذلك عند شرائك حزمة رسائل

وبعدها في دلفي يمكنك ان تستخدم مكون indy

idhttp

وبذلك تكتب الكود كالتالي

var
curl:TStrings;
fg:string;
begin
    curl:=TStringList.Create;
          curl.add('user_name=youruser');
            curl.add('&user_password=yourpassword');
            curl.Add('&sender=headofmsg');
            if CheckBox1.Checked=true then
            begin
            curl.Add('&isUnicode=1')   ;//عربي
            end
            else
            begin
               curl.Add('&isUnicode=0')   ;//e
            end;
             curl.Add('&sms='+(send_txt.Text)+'');//نص الرسالة
             curl.Add('&destinations='+memo1.text+'')   ;//رقم الجوال


     ShowMessage(curl.GetText);

  fg:= IdHTTP1.post('gateway', curl);
  curl.Free;

  if fg='20|'then
       begin
     Label7.Caption:='تم الارسال بنجاح';
    end;
  if fg='21|'then
    begin
     Label7.Caption:='فشل الارسال';
         end;
       if fg='25|'then
         begin
           Label7.Caption:='خطأ معلومات';
         end;