טלפון IP המחובר לרשת - הוצאת שיחות מאקסס

מלא 0

אויש, לא כתבתי בהודעה הראשונה
שאני עםהארץ גדול והקוד הזה חסר משמעות בשבילי, יש שם כמה פונקציות ומשתנים שאין להם אבא,
נאלמתי מימיני לשמאלי...

אם מישהו יוכל לתת יותר פירוט לאיזוב קיר כמוני, אודה לו מאוד... :oops:

פורסם במקור בפורום CODE613 ב11/05/2017 22:09 (+03:00)

dovid

עליך להוסיף Reference (בתפריט Project) לMicrosoft XML, version X.0.
מלבד זאת יש משתנה/פונקציה ללא אבא בקוד? אני לא רואה במבט ראשון.

פורסם במקור בפורום CODE613 ב11/05/2017 22:21 (+03:00)

מלא 0

דבר ראשון תודה.
דבר שני
א. אני לא רואה את הרפרנס הזה. יש רק , Microsoft XML, v3.0/6.0 גם לא למעלה בחסרים.
ב. GetCurrentPhoneExtension, PBX_GetAddress , URLEncode

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

פורסם במקור בפורום CODE613 ב11/05/2017 22:46 (+03:00)

dovid

א. בדיוק התכוונתי להם, תבחר ב6.
ב. את שורה 2 תמחוק לגמרי.
את PBX_GetAddress תחליף בכתובת של המרכזיה ("10.0.0.34" או "mer566.sys7.co.il").
לUrlEncode תוסיף את הפונציה הזאת, מקוה שיעבוד:

Public Function URLEncode( _
   StringToEncode As String, _
   Optional UsePlusRatherThanHexForSpace As Boolean = False _
) As String

  Dim TempAns As String
  Dim CurChr As Integer
  CurChr = 1

  Do Until CurChr - 1 = Len(StringToEncode)
    Select Case Asc(Mid(StringToEncode, CurChr, 1))
      Case 48 To 57, 65 To 90, 97 To 122
        TempAns = TempAns & Mid(StringToEncode, CurChr, 1)
      Case 32
        If UsePlusRatherThanHexForSpace = True Then
          TempAns = TempAns & "+"
        Else
          TempAns = TempAns & "%" & Hex(32)
        End If
      Case Else
        TempAns = TempAns & "%" & _
          Right("0" & Hex(Asc(Mid(StringToEncode, _
          CurChr, 1))), 2)
    End Select

    CurChr = CurChr + 1
  Loop

  URLEncode = TempAns
End Function

פורסם במקור בפורום CODE613 ב11/05/2017 23:00 (+03:00)

מלא 0

אם אני מוחק את שורה 2 אני צריך לתת לו שלוחה כדי ששורה 4 לא יפעל...

__
עריכה:
מצאתי שזה URL המוציא שיחה. אם אני מדביק את זה בדפדפן הוא עושה את זה..
"http://10.0.0.4/adr.htm?adrnumber=" & number & "&outgoing=100000000@sip1.015pbx.net"

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

פורסם במקור בפורום CODE613 ב11/05/2017 23:16 (+03:00)

dovid

א. זה פרמטר שהפונקציה מקבלת, כלול אותה בקריאה לפונקציה.

ב. קוד ממש דומה לזה שלעיל.

Dim urladdress  As String
Dim number As string
number  = "0500000000"
urladdress = "http://10.0.0.4/adr.htm?adrnumber=" & number & "&outgoing=100000000@sip1.015pbx.net"
Dim xmlDoc As MSXML2.DOMDocument60
Set xmlDoc = New MSXML2.DOMDocument60
 
xmlDoc.Async = True
xmlDoc.Load (urladdress)

פורסם במקור בפורום CODE613 ב12/05/2017 00:14 (+03:00)

מלא 0

מוזר שהקודם לא הפעיל אותו...

תודה ענקית ר' דוד,
ועוד יותר תודה שאתה לא מבקש לי לעשות את זה בVS

פורסם במקור בפורום CODE613 ב12/05/2017 01:09 (+03:00)

dovid

@מלא

ועוד יותר תודה שאתה לא מבקש לי לעשות את זה בVS
:oops:

ההפסד כולו שלך.

פורסם במקור בפורום CODE613 ב12/05/2017 01:13 (+03:00)

מלא 0

@דוד ל.ט.

ההפסד כולו שלך.

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

בפרט שהפרוייקט כאן כבר בנוי באקסס, וזה רק פיניש קטן

פורסם במקור בפורום CODE613 ב12/05/2017 02:16 (+03:00)

ארכיטקט

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

פורסם במקור בפורום CODE613 ב13/05/2017 23:00 (+03:00)

מלא 0

@ארכיטקט

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

איזה אנשים מעניינים גרים פה בפורום.
בן אדם מבקש עזרה, עוזרים לו, ומתנצלים... :lol:

תודה לכולם..

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

פורסם במקור בפורום CODE613 ב14/05/2017 23:30 (+03:00)

ארכיטקט

@מלא

הדרך הזה של החיוג טוב רק לחיוג של הטלפון שלי, לא?
במקרה של טלפון אחר/חברה אחרת אצטרך משהו אחר?
למה אני שואל, כי בקוד של ארכיטקט זה היה נראה יותר גלובלי, לא כך?

מה שנתתי לך זה בסך הכל קריאה ל HTTP, השיטה הכי רווחת היום זה שאפליקציות ידברו ביניהן דרך קריאות HTTP, כי אז לא ממש משנה איך אתה כותב את הקוד שלך באותו צד. מה שאומר שאתה יכול גם לבנות בעיקרון אקסס שידבר עם תוכנת בינה מלאכותית, וממש ניתן לעשות זאת דרך קריאות HTTP.

אם אתה רוצה לבנות משהו גנרי אתה יכול להשתמש באבסטרקציות שונות בתוך הקוד שלך (שממנו מבוצע החיוג בפועל) כלומר לבנות עוד שכבה שתתווך בין האקסס שלך לבין החייגן, ושם אתה תחליט מה מי מו וכו'.

פורסם במקור בפורום CODE613 ב15/05/2017 15:13 (+03:00)

מלא 0

אז בעצם כל פעם שאני רוצה לחייג מכל מערכת IP שהיא
אני לצריך לדעת את הURL של החיוג, נכון?

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

פורסם במקור בפורום CODE613 ב15/05/2017 16:42 (+03:00)

ארכיטקט

זה תלוי בתוכנה שאיתה החברה מתנהלת, אני לא יודע איפה יושב השרת של המרכזייה שלך, מה שאני ראיתי באסטריסק יש קוד PHP שעושה את העבודה (זה יושב על לינוקס) ואם זו חברה מסודרת ויש שם מישהו עם מבטא רוסי כבד, יש סיכוי שיש להם URL כזה פשוט תשאל אותם.

פורסם במקור בפורום CODE613 ב16/05/2017 00:09 (+03:00)

מלא 0

ואני חשבתי שזה תלוי רק בסוג הטלפון שיש לי, דהיינו של איזה חברה. בדפדפן אני יכול לחייג דרכו.

פורסם במקור בפורום CODE613 ב16/05/2017 00:37 (+03:00)

clickone

יש לך את הAPI הפנימי של 015. (ראאיתי שאתה עובד איתם)
כאן
https://www.015pbx.net/local/guide/dev/json/index.html

פורסם במקור בפורום CODE613 ב16/05/2017 01:34 (+03:00)

תחומים - פורום חרדי מקצועי

טלפון IP המחובר לרשת - הוצאת שיחות מאקסס