בעיה בהעלאת קובץ עם מספור אוטומטי
-
אני מנסה להעלות קובץ wav עם מספור אוטומטי אבל הקובץ לא עולה, כשאני מעלה ללא מספור אוטומטי, זה עולה היטב.
הקוד כתוב בVBPrivate Sub Button_Click() Dim audio_file_path As String = Path.Combine(selectedFolder, $"{fileName}.wav") Dim token As String = TextBox5.Text & ":" & TextBox6.Text Dim name As String = "001" Dim pathFolder As String = "ivr2:/" & ComboBox6.Text & "/" Dim pathFolder2 As String = "ivr2:/" & ComboBox6.Text & "/" & name & ".wav" yemotUpload.UploadFile(audio_file_path, pathFolder, token, True) End Sub Public Async Sub UploadFile(audio_file_path As String, path As String, token As String, autoNumbering As Boolean) Dim convertAudio As String = "0" Dim filePath As String = audio_file_path Dim url As String = "https://www.call2all.co.il/ym/api/UploadFile" Using httpClient As New HttpClient() Using formContent As New MultipartFormDataContent() Dim fileBytes As Byte() = File.ReadAllBytes(filePath) Dim fileContent As New ByteArrayContent(fileBytes) fileContent.Headers.ContentType = New Net.Http.Headers.MediaTypeHeaderValue("audio/wav") formContent.Add(fileContent, "contents", "file.wav") formContent.Add(New StringContent(token), "token") formContent.Add(New StringContent(path), "path") formContent.Add(New StringContent(convertAudio), "convertAudio") formContent.Add(New StringContent(autoNumbering), "autoNumbering") Dim response As HttpResponseMessage = Await httpClient.PostAsync(url, formContent) If response.IsSuccessStatusCode Then 'להוסיף בדיקה של סטטוס ימות ולא רק סטטוס בקשה Else MsgBox("אירעה שגיאה בעת העלאה, בדוק את הפרטים ונסה שנית") End If End Using End Using End Sub
לפי הבדיקה שלי זה נראה שהסיבה היא שהשרת של ימות לא מזהה את הערך של autoNumbering כtrue או לא מזהה אותו בכלל, ולכן כשאני מותן פרמטר נתיב שלא כולל שם קובץ, הוא מחזיר לי שגיאה 110 נתיב לא חוקי
ניסיתי את כל הויראציות, כבוליאני, כסטרינג, 0/1, עם גרשיים בלי גרשיים, אותיות קטנות/גדולות/חצי-חצי (לא באמת)אשמח לדעת האם עוד מישהו נתקל בבעיה דומה, (יש לי מימוש בדיוק אותו הדבר בC# שעובד מעולה..)
-
@אביי-ורבא כתב בבעיה בהעלאת קובץ עם מספור אוטומטי:
Dim convertAudio As String = "0"
מתברר שהבעיה היתה כאן.. הערך של convertAudio חייב להיות טרו (1) בשביל שיעבוד העלאה אוטומטית..
@eliyahu כדאי לעדכן את זה בתיעוד...