שליחת וקבלת API מאקסס

[אפקטיביות]

אכן לנושא זה כדאי לפתוח אשכול.

ובכן, מערכות רבות היום תומכות בפקודות API, [למי שלא יודע, API הינה כינוי כללי לממשק לקבלת פונקציות שמחזירה תגובה בהתאם לפונקציה הנשלחת, מיועד לחיבור בין תוכנות/מערכות שונות], אני מכיר תוכנות ותיקות שהוסיפו להם מערכת API כדי לחברם לאתר/אפליקציה, תוכנות שמתממשקות עם מרכזיות שעברו מאקטיבה לשימוש בAPI ועוד.
למיטב ידיעתי השליחה נעשית בטכנולוגיית POST, הטקסט נשלח בדר"כ ביוניקוד.
עד כאן אני יודע... לינק מידע על API למרכזיות למי שרוצה להחכים מעט.

וכאן הבן שואל, איך אפשר לשלוח פונקציות אלו מאקסס? וכמובן לקבל את התגובות וכו'.

 

[moishy]

הנה דוגמא קטנה לשימוש בAPI של גוגל לצורך החזרת המרחק בק"מ בין שני ישובים:

Function GetDistanceGoogleApi(strStart As String, strDestination As String) As String
    Dim objHttpRequest As Object
    Dim strResponse As String
    Dim strUrl As String
    Dim oRegEx As Object, oMatches As Object

    Set objHttpRequest = CreateObject("WinHttp.WinHttpRequest.5.1")
    strUrl = "http://maps.googleapis.com/maps/api/distancematrix/json?origins=" & _
             Replace(strStart, " ", "+") & _
             "&destinations=" & _
             Replace(strDestination, " ", "+") & _
             "&mode=car&language=pl&sensor=false"

    objHttpRequest.Open "GET", strUrl
    objHttpRequest.Send

    With CreateObject("VBScript.RegExp")
        .Pattern = """value"".*?([0-9]+)"
        .Global = False
        Set oMatches = .Execute(objHttpRequest.responseText)
    End With

    Set objHttpRequest = Nothing

    GetDistanceGoogleApi = CDbl(Replace(oMatches(0).SubMatches(0), ".", ",")) / 1000
End Function

חידה: מה המרחק בין תל אביב לירושלים (בקו אווירי)?
תשובה: GetDistanceGoogleApi("Jerusalem", "Tel Aviv")

 

[אפקטיביות]

הנה דוגמא קטנה לשימוש בAPI של גוגל לצורך החזרת המרחק בק"מ בין שני ישובים:
strUrl = "http://maps.googleapis.com/maps/api/distancematrix/json?origins=" & _
Replace(strStart, " ", "+") & _
"&destinations=" & _
Replace(strDestination, " ", "+") & _
"&mode=car&language=pl&sensor=false"

תודה moishy, זה בהחלט הדגמה טובה למושג API, רק ההבדל בין התשובה שלך לשאלה שלי היא שאתה השתמשת עם דף נחיתה, וגזרת מהדף HTTP את התוים הרלונטיים.
לעומת API של שליחת JSON בטכנולוגיית POST שאינו משתמש עם דף נחיתה כלל אלא רק שולח פונקציה לכתובת IP.
להלן תוצאה מתוכנה לניטור פקודות רשת, שניטרה לי פקודת API שאני רוצה לשלוח מאקסס:
החלק הורוד הוא (לכאורה) התשובה שקיבלתי משרת הAPI.

 

[moishy]

אם לזה כוונתך התשובה עוד יותר פשוטה:

Function Demo(strUrl As String, strJSON As String) As String
    Dim objHttpRequest As Object
    
    Set objHttpRequest = CreateObject("MSXML2.ServerXMLHTTP")
    
    objHttpRequest.Open "POST", strUrl, False

   objHttpRequest.setRequestHeader "Content-type", "application/json"
   objHttpRequest.send (strJSON)
   
   Set objHttpRequest = Nothing
   
   Demo = objHttpRequest.responseText
End Function

 

[אפקטיביות]

תודה רבה, נראה שאנחנו בכיוון הנכון.
ישנה בעיה, כנראה בתחביר.

 

[אפקטיביות]

תיקון הודעה:
תיקנתי את התחביר, הפונקציה נשלחת! השרת מחזיר תשובה! (יש לי LOG מהשרת API).
אבל הפונקציה בעסקים לא מקבלת את התשובה, להלן הודעת השגיאה, הארגומנט objHttpRequest.responseText מוגדר כNothing אף לאחר קבלת התגובה כביכול.

ו.. שאלה נוספת (באותו עניין!): יש פונקציה להמרת תאריך-שעה לפורמט unixDateTime במבנה 10 ספרות? [לדוג': 1414154521]

 

[moishy]

תנסה להשתמש עם <code>MSXML2.ServerXMLHTTP60 במקום </code><code>MSXML2.ServerXMLHTTP
</code>

 

[moishy]

השורה האחרונה צריכה להיות אחד לפני האחרון.

 

[moishy]

ובענין unixDateTime (למרות שלא הבנתי למה זה אותו ענין):

(Now - DateSerial(1970, 1, 1)) * 86400

או לחילופין:

DateDiff("s", 25569, Now)

 

[אפקטיביות]

השורה האחרונה צריכה להיות אחד לפני האחרון.

בינגו!!!!
לא מבין איך לא שמתי לב לטעות...

 

[שמח לעזור]

ההגדרה של API היא דרך כל שהיא בה אפשר לתקשר עם מערכת אחרת באופן ממוחשב.
וסבתא111 התכוון למושג הספצפי Restful Web Service שזה סוג ספציפי של API דרך תקשורת האינטרנט (http), ובסיטואציה שלו הוא מקבל ומחזיר פורמט JSON.
הדוגמה של מושי מgooglemaps היא בדיוק API. התשובה מיעודת לפירוק בדיוק כפי שהוא עשה (המילים "גזרת מהדף HTTP את התוים הרלונטיים" הם תמיד נכונות אם כי זה קצת תיאור גס, אבל כל שליפה מתשובה בתקשורת אינטרנט בסופו של דבר "גוזרת תוים מתאימים"), וכל דרך אחרת תעשה זאת מאחורי הקלעים. החילוקים שיש (פרמטרים בurl ולא בפוסט), הם עניין של סיטואציה.

 

[אפקטיביות]

ההגדרה של API היא דרך כל שהיא בה אפשר לתקשר עם מערכת אחרת באופן ממוחשב.
וסבתא111 התכוון למושג הספצפי Restful Web Service שזה סוג ספציפי של API דרך תקשורת האינטרנט (http), ובסיטואציה שלו הוא מקבל ומחזיר פורמט JSON.
הדוגמה של מושי מgooglemaps היא בדיוק API. התשובה מיעודת לפירוק בדיוק כפי שהוא עשה (המילים "גזרת מהדף HTTP את התוים הרלונטיים" הם תמיד נכונות אם כי זה קצת תיאור גס, אבל כל שליפה מתשובה בתקשורת אינטרנט בסופו של דבר "גוזרת תוים מתאימים"), וכל דרך אחרת תעשה זאת מאחורי הקלעים. החילוקים שיש (פרמטרים בurl ולא בפוסט), הם עניין של סיטואציה.

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

 

[אפקטיביות]

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

 

[אפקטיביות]

חידה: מה המרחק בין תל אביב לירושלים (בקו אווירי)?
תשובה: GetDistanceGoogleApi("Jerusalem", "Tel Aviv")

ואגב, התשובה לחידה היא לא ה68 ק"מ שהפונקציה מחזירה אלא 54 ק"מ (בקו אווירי!!!!)...
מרחק נסיעה הינו אכן 68 ק"מ. בדוק!!

 

[moishy]

Action: <action type><CRLF>
<Key 1>: <Value 1><CRLF>
<Key 2>: <Value 2><CRLF>

 

[אפקטיביות]

Action: <action type><CRLF>
<Key 1>: <Value 1><CRLF>
<Key 2>: <Value 2><CRLF>

בJSON?
תוכל בבקשה להדגים קטע קוד VB?

 

[moishy]

לא JSON טקסט פשוט.

strAction = "Action: login" & vbCrLf & _
"Username: admin " & vbCrLf & _
"Secret: god" & vbCrLf & vbCrLf

 

[אפקטיביות]

לא JSON טקסט פשוט.

strAction = "Action: login" & vbCrLf & _
"Username: admin " & vbCrLf & _
"Secret: god" & vbCrLf & vbCrLf

האם הקוד המלא ייראה בדיוק כך?:

Function Demo(strUrl As String, strAction As String) As String
    Dim objHttpRequest As Object

    strUrl = "http://212.213.214.215:1234"
    strAction = "Action: login" & vbCrLf & _
                "Username: admin " & vbCrLf & _
                "Secret: god" & vbCrLf & vbCrLf

    Set objHttpRequest = CreateObject("MSXML2.ServerXMLHTTP")

    objHttpRequest.Open "POST", strUrl, False
    'האם למחוק את השורה הבאה?
    objHttpRequest.setRequestHeader "Content-type", "application/json"
    objHttpRequest.send (strAction)

    Demo = objHttpRequest.responseText

    Set objHttpRequest = Nothing
End Function

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

 

[moishy]

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

 

[אפקטיביות]

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

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