חזרה על תשובה שהתקבלה מהשרת

[795693929]

@baror230 אמר בחזרה על תשובה שהתקבלה מהשרת:

@795693929 הקוד בשרת

זה יושב על השרת של המתכנת.

הייתי מבקש ממנו את הקוד, אבל ב"ה זה עובד טוב, אז בינתיים אין צורך.

ושוב תודה על כל העזרה!

[795693929]

לאחר כמה ניסיונות ראיתי שלא תמיד ההשמעה חוזרת על עצמה כמה פעמים.

אז אני מעלה כאן את הקוד בשרת, ואשמח להסבר איפה להכניס את הפקודה הנ"ל [שאם secondTime = 1 שיכתוב את התשובה שוב ואם לא שימשיך]

    Response.Clear()
    Response.ContentType = "application/json; charset=utf-8"
    Response.Write(GetCode(Request))

    Public Function GetCode(ByVal Request As HttpRequest) As String

        Try

            Dim ApiPhone = Request.Form("ApiPhone")
            Dim ApiEnterID = Request.Form("ApiEnterID")

            ' ....

            Return ""

        Catch ex As Exception
            Return "ERROR"

        End Try

    End Function

[795693929]

אשמח מאוד לתשובה. זה חשוב ודחוף לי!!

בתודה מראש

[baror230]

@795693929 זה לא קוד מלא
איפה הוא מדפיס את התשובה הקודמת?

[795693929]

פוסט זה נמחק!

[795693929]

@baror230 אמר בחזרה על תשובה שהתקבלה מהשרת:

@795693929 זה לא קוד מלא
איפה הוא מדפיס את התשובה הקודמת?

מה פירוש תשובה קודמת? כרגע יש רק תשובה אחת.

זה מה שאני מחפש, מה צריך להגדיר כדי שהשרת ישלח תשובה נוספת?!

[אהרן שובקס]

@795693929
הבאת רק חלק מהקוד תביא את כל הקוד ונוכל לעזור לך

[795693929]

המתכנת אומר שזה כל הקוד!

מה עושים?? מדובר על תוכנה שצריכה להיות מופצת במאות עותקים, והנקודה הזו מעכבת את הכל! אני מוכרח שיהיה חזרה של כמה פעמים על התשובה!!

[baror230]

@795693929 זה לא כל הקוד.
אין פה את ההדפסה של התשובה הקודמת.

[795693929]

בואו נעזוב כרגע את הקוד של השרת.

יש לי שאלה אחרת: אני מכניס בהגדרות את הפקודה ש@baror230 נתן לי בהתחלה, אך הוא לא משמיע לי: להשמעה פעם שניה הקש 1 וכו'

זה הקוד:

type=api
api_link=https://yakobov-dev.co.il/binyan.aspx
api_add_0=Maslul=1
api_url_post=yes
say_api_answer=yes
api_call_id_send=no
api_did_send=no
api_extension_send=no
api_enter_id_name_send=no
api_hangup_send=no

enter_id=yes
enter_id_type=digits
enter_id_type_digits_amount=9
enter_id_read_say=yes
record_name=no

read=t-להשמעה פעם שניה הקש 1 להמשך 2.=secondTime,no,1,1,12,No,

[baror230]

@795693929 הפקודה הזאת אמורה להיכנס בשרת לא בהגדרות

[795693929]

@795693929 אמר בחזרה על תשובה שהתקבלה מהשרת:

read=t-להשמעה פעם שניה הקש 1 להמשך 2.=secondTime,no,1,1,12,No,

הפקודה הזו אמורה להכנס בשרת??

read=t-להשמעה פעם שניה הקש 1 להמשך 2.=secondTime,no,1,1,12,No,

[baror230]

@795693929 כן, אחרי הפקודה ההדפסה של הפקודה הקודמת

[795693929]

אבל זה לא ה'שפה' של השרת! זה קשור לימות המשיח!

[baror230]

@795693929 יש שתי דרכים לענות תשובה בapi

1.שהשרת עונה ok אז הוא יבדוק אם יש לו בהגדרות

api_answer_ok=read=t-להשמעה פעם שניה הקש 1 להמשך 2.=secondTime,no,1,1,12,No,

2.זה לענות את התשובה המלא בלי שום הגדרה בהגדרות וזה יהיה כתוב רק בשרת

secondTime,no,1,1,12,No,להשמעה פעם שניה הקש 1 להמשך 2-read=t

שבשרת ב asp זה יראה ככה
("secondTime,no,1,1,12,No,להשמעה פעם שניה הקש 1 להמשך 2-read=t")response.write
ואז ימות המשיח קורא את התשובה ופועל לפי זה
השרת מתייחס לזה כמו טקסט רגיל

[795693929]

@baror230 , מעולה! כעת הבנתי את הענין. המתכנת עדכן בשרת את ההגדרות לפי מה שהבאת לי.

אכן זה משמיע את התשובה, ובנוסף לכך משמיע לשמיעה נוספת הקש 1 וכו'

אך כשלוחצים על 1 לא קורה כלום.

אני מצרף כאן שוב את הקוד המעודכן בשרת, ואשמח להסבר מה צריך להוסיף.

	    Response.Clear()
	    Response.ContentType = "application/json; charset=utf-8"
	    Response.Write(GetCode(Request))
	     Response.Write(" read=t-להשמעה פעם שניה הקש 1 להמשך 2.=secondTime,no,1,1,12,No")
	    Public Function GetCode(ByVal Request As HttpRequest) As String
	 
	        Try
	 
	            Dim ApiPhone = Request.Form("ApiPhone")
	            Dim ApiEnterID = Request.Form("ApiEnterID")
	 
	            ' ....
	 
	            Return ""
	 
	        Catch ex As Exception
	            Return "ERROR"
	 
	        End Try
	 
	    End Function
	

[baror230]

@795693929 שוב פעם, זה לא קוד מלא
אם אתה לא מעלה את הכל אין לנו איך לעזור לך
תפנה למתכנת שלך ושהוא יבנה מה שהוא יודע.

[795693929]

@baror230 אמר בחזרה על תשובה שהתקבלה מהשרת:

@795693929 שוב פעם, זה לא קוד מלא
אם אתה לא מעלה את הכל אין לנו איך לעזור לך
תפנה למתכנת שלך ושהוא יבנה מה שהוא יודע.

אני לא יודע מה לומר לך. אולי תפרט לי מה בדיוק חסר כאן. הקוד הזה כפי שהוא לא יכול לעבוד?

אני מבין שחסר פקודה שמדפיסה את התשובה. זה לא השורה הזו?

	    Response.Write(GetCode(Request))

[baror230]

@795693929
זה אמור לעזור לך

    Response.ContentType = "application/json; charset=utf-8"
    If (Request.Form("secondTime") == 2){
        //פעולת יציאה
        // חוזר לתפריט הראשי
        Response.Write("go_to_folder=/")
    }
    Else {
        Response.Write("read=t-הקוד הוא.t-" & GetCode(Request) & ".t-להשמעה פעם שניה הקש 1 להמשך 2.=secondTime,no,1,1,12,No")
    }
    Public Function GetCode(ByVal Request As HttpRequest) As String
	 
	   Try
	       Dim ApiPhone = Request.Form("ApiPhone")
	       Dim ApiEnterID = Request.Form("ApiEnterID")
	 
	       ' ....
	 
	       Return ""
	 
	   Catch ex As Exception
	       Return "ERROR"
	 
	   End Try
	 
     End Function

[795693929]

@baror230 , אין לי מילים!!!!!

אין לך מושג כמה עזרת לי!! איזה אורך רוח, סבלנות!!

ברוך ה' זה עובד מעולה!!!

רק שאלה קטנה, בשורה הזו יש 3 פעמים את האות t.

        Response.Write("read=t-הקוד הוא.t-"+GetCode(Request)+".t-להשמעה פעם שניה הקש 1 להמשך 2.=secondTime,no,1,1,12,No")
        

ובהשמעה של 'הקוד הוא' וגם בהשמעה של 'להשמעה פעם שניה וכו'' הוא משמיע את האות t.

לכאורה מספיק רק את האות t בתחילת הפקודה. אני צודק? [תוכל לכתוב לי איך בדיוק צריך להיות? ניסיתי להוריד לבד והסתבכתי]