alnahdisami بتاريخ: 8 أكتوبر 2012 تقديم بلاغ مشاركة بتاريخ: 8 أكتوبر 2012 عملت شاشة ارسال رسائل في button submit كتبت الكود التالي DECLARE V_USERNAME VARCHAR2(100); V_PASSWORD VARCHAR2(100); V_NUMBERS VARCHAR2(100); VV_SENDER VARCHAR2(100); V_MSG VARCHAR2(4000); --V_MSGKEY VARCHAR2(100); X VARCHAR2(500); V_URL VARCHAR2(100) ; V VARCHAR2 (4000); I VARCHAR2 (4000); V_VALUE VARCHAR2 (4000); V_NEW_VALUE VARCHAR2 (4000); BEGIN V_NUMBERS :=:NUMBERS; V_MSG :=:MSG; هنا يتم تحويل الرساله الى unicode FOR N IN 1 .. LENGTH (V_MSG) LOOP V := SUBSTR (V_MSG ,N,1); BEGIN SELECT AR_UNI INTO V_VALUE FROM ARUNI WHERE AR_CHR = V ; EXCEPTION WHEN NO_DATA_FOUND THEN V_VALUE := NULL; END; V_NEW_VALUE := V_NEW_VALUE||V_VALUE ; END LOOP; BEGIN SELECT V_USER,V_PASS,V_SENDER,URL INTO :V_USERNAME,:V_PASSWORD,:V_SENDER,:V_URL FROM SETUP_SMS; END; هنا استخدمت باراميتير لانه يوجد جدول اسمه setup_sms تخزن فيه بيانات التسجيل لدى الشركه المستضيفه مثل (اسم المستخدم والباسورد وكذلك المرسل) X := SEND('V_URL','VV_SENDER','V_MSG','V_USERNAME','V_PASSWORD') ; END; send هنا عباره عن function in program unit insid it FUNCTION SEND(V_NUMBERS IN VARCHAR2, VV_SENDER IN VARCHAR2, V_MSG IN VARCHAR2, V_USERNAME IN VARCHAR2, V_PASSWORD IN VARCHAR2) RETURN VARCHAR2 IS return_value VARCHAR2(10) := NULL; request VARCHAR2(2000) := NULL; result VARCHAR2(2000) := NULL; BEGIN BEGIN request := ' http://ssms.ws/sendsms.php?' || 'user=' || V_USERNAME || '&' || 'Password=' || V_PASSWORD || '&' || 'sender=' || VV_SENDER || '&' || 'message=' || SUBSTR(V_MSG,1,160) || '&' || 'numbers=' || V_NUMBERS || '&' || 'lang=AR'; request := utl_url.escape(request); SELECT utl_http.request(request) INTO result FROM dual; IF SUBSTR(result,1,1) = '0' THEN return_value := 'OK'; ELSE return_value := 'FAIL'; END IF; EXCEPTION WHEN VALUE_ERROR THEN return_value := 'FAIL'; END; RETURN return_value; END send; علما بأنه هذا هو رابط الشركه المستضيفه--http://ssms.ws/sendsms.php?user=fin&password=123&numbers=0096&sender=ssms.ws&message=how are you&lang=en وهذه الشاشه للايضاح اكثر وليستفيد منها من اراد ولكم مني الشكر والتقدير Send_MSG.rar اقتباس رابط هذا التعليق شارك المزيد من خيارات المشاركة
badr2001 بتاريخ: 8 أكتوبر 2012 تقديم بلاغ مشاركة بتاريخ: 8 أكتوبر 2012 عملت شاشة ارسال رسائل في button submit كتبت الكود التاليDECLARE V_USERNAME VARCHAR2(100); V_PASSWORD VARCHAR2(100); V_NUMBERS VARCHAR2(100); VV_SENDER VARCHAR2(100); V_MSG VARCHAR2(4000); --V_MSGKEY VARCHAR2(100); X VARCHAR2(500); V_URL VARCHAR2(100) ; V VARCHAR2 (4000); I VARCHAR2 (4000); V_VALUE VARCHAR2 (4000); V_NEW_VALUE VARCHAR2 (4000);BEGIN V_NUMBERS :=:NUMBERS; V_MSG :=:MSG; هنا يتم تحويل الرساله الى unicode FOR N IN 1 .. LENGTH (V_MSG) LOOP V := SUBSTR (V_MSG ,N,1); BEGIN SELECT AR_UNI INTO V_VALUE FROM ARUNI WHERE AR_CHR = V ; EXCEPTION WHEN NO_DATA_FOUND THEN V_VALUE := NULL; END; V_NEW_VALUE := V_NEW_VALUE||V_VALUE ;END LOOP;BEGIN SELECT V_USER,V_PASS,V_SENDER,URL INTO :V_USERNAME,:V_PASSWORD,:V_SENDER,:V_URL FROM SETUP_SMS; END;هنا استخدمت باراميتير لانه يوجد جدول اسمه setup_sms تخزن فيه بيانات التسجيل لدى الشركه المستضيفه مثل (اسم المستخدم والباسورد وكذلك المرسل) X := SEND('V_URL','VV_SENDER','V_MSG','V_USERNAME','V_PASSWORD') ;END; send هنا عباره عن function in program unit insid itFUNCTION SEND(V_NUMBERS IN VARCHAR2, VV_SENDER IN VARCHAR2, V_MSG IN VARCHAR2, V_USERNAME IN VARCHAR2, V_PASSWORD IN VARCHAR2) RETURN VARCHAR2 IS return_value VARCHAR2(10) := NULL; request VARCHAR2(2000) := NULL; result VARCHAR2(2000) := NULL; BEGIN BEGIN request := ' http://ssms.ws/sendsms.php?' || 'user=' || V_USERNAME || '&' || 'Password=' || V_PASSWORD || '&' || 'sender=' || VV_SENDER || '&' || 'message=' || SUBSTR(V_MSG,1,160) || '&' || 'numbers=' || V_NUMBERS || '&' || 'lang=AR'; request := utl_url.escape(request); SELECT utl_http.request(request) INTO result FROM dual; IF SUBSTR(result,1,1) = '0' THEN return_value := 'OK'; ELSE return_value := 'FAIL'; END IF; EXCEPTION WHEN VALUE_ERROR THEN return_value := 'FAIL'; END; RETURN return_value; END send; علما بأنه هذا هو رابط الشركه المستضيفه--http://ssms.ws/sendsms.php?user=fin&password=123&numbers=0096&sender=ssms.ws&message=how are you&lang=en وهذه الشاشه للايضاح اكثر وليستفيد منها من اراد ولكم مني الشكر والتقدير ما هى المشكلة ؟؟ اقتباس رابط هذا التعليق شارك المزيد من خيارات المشاركة
alnahdisami بتاريخ: 10 أكتوبر 2012 كاتب الموضوع تقديم بلاغ مشاركة بتاريخ: 10 أكتوبر 2012 لاتتم عمليةالارسال عند الضغط على زر SUBMITان امكن كتابة الكود فقط في زر الSUBMIT دون الكتابه FUNCTION في PROGRAM UNIT يكون ذلك افضلوشكرا 1 اقتباس رابط هذا التعليق شارك المزيد من خيارات المشاركة
alnahdisami بتاريخ: 16 أكتوبر 2012 كاتب الموضوع تقديم بلاغ مشاركة بتاريخ: 16 أكتوبر 2012 تم حل المشكله وفي اقرب وقت سأرفع البرنامج للإفاده اقتباس رابط هذا التعليق شارك المزيد من خيارات المشاركة
qupeed بتاريخ: 21 نوفمبر 2012 تقديم بلاغ مشاركة بتاريخ: 21 نوفمبر 2012 ممكن طيب حل المشكلة أخي الكريم عشان انا محتاج الموضوع ده ضروريوشكرا لك... اقتباس رابط هذا التعليق شارك المزيد من خيارات المشاركة
alnahdisami بتاريخ: 1 ديسمبر 2012 كاتب الموضوع تقديم بلاغ مشاركة بتاريخ: 1 ديسمبر 2012 اخي العزيزqupeedان شاء الله سأرفع البرنامج بعد الانتهاء منه بالكامل ولايهمك هو الان في مراحله الاخيره لانه مهم وكنت ابحث عنه طويلا في المنتدى ولكن دون جدوى انشالله قريبا سأرفعه ليستفيد من الاخوان واي استفسار سأرد عليه ان شاء الله 1 اقتباس رابط هذا التعليق شارك المزيد من خيارات المشاركة
0122571947 بتاريخ: 26 مارس 2017 تقديم بلاغ مشاركة بتاريخ: 26 مارس 2017 فين الحل ؟؟؟ اقتباس رابط هذا التعليق شارك المزيد من خيارات المشاركة
eng_jdev بتاريخ: 12 مايو 2017 تقديم بلاغ مشاركة بتاريخ: 12 مايو 2017 محتاج حل المشكلة الله يكرمكم او كيفية الارسال sms وشكرا جزيلا اقتباس رابط هذا التعليق شارك المزيد من خيارات المشاركة
Recommended Posts
انضم إلى المناقشة
يمكنك المشاركة الآن والتسجيل لاحقاً. إذا كان لديك حساب, سجل دخولك الآن لتقوم بالمشاركة من خلال حسابك.