عملت شاشة ارسال رسائل في 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

عملت شاشة ارسال رسائل في 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



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

ما هى المشكلة ؟؟

لاتتم عمليةالارسال عند الضغط على زر SUBMIT
ان امكن كتابة الكود فقط في زر الSUBMIT دون الكتابه FUNCTION في PROGRAM UNIT يكون ذلك افضل
وشكرا

تم حل المشكله وفي اقرب وقت سأرفع البرنامج للإفاده

ممكن طيب حل المشكلة أخي الكريم عشان انا محتاج الموضوع ده ضروري
وشكرا لك...

اخي العزيز
qupeed

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

فين الحل ؟؟؟

محتاج حل المشكلة الله يكرمكم 

 

او كيفية الارسال sms وشكرا جزيلا