השמעת קובץ אודיו דרך SSH ב VBA

ארכיטקט

שלום לכולם, האם ישנה דרך להשמיע קובץ אודיו שנמצא בשרת מרוחק, בלי להוריד קובץ פיזי למחשב ובלי להשתמש ביותר מידי API של windows.

נ.ב. בדוט נט גם טוב, מקסימום עושים shell ל exe.

פורסם במקור בפורום CODE613 ב25/06/2014 13:00 (+03:00)

softs

אולי תן reference ל windwos media player תיצור קונטרול ותפעיל את הקובץ ככה: (עבד לי באקסל)

 Sheet2.WindowsMediaPlayer1.URL = "http://www.stephaniequinn.com/Music/Allegro%20from%20Duet%20in%20C%20Major.mp3"
    Sheet2.WindowsMediaPlayer1.Controls.Play
    Sheet2.WindowsMediaPlayer1.Visible = False

כמובן שבדוט נט זה הרבה יותר פשוט . . .

פורסם במקור בפורום CODE613 ב25/06/2014 13:34 (+03:00)

dovid

שלוש שאלות:
א. להזרים בייטים מSSH.
ב. להשמיע אודיו מזיכרון ולא מקובץ.
ג. שכלול של ב' - להשמיע מייד עם הזרמת הבתים, ולא להמתין להורדת הקובץ לזיכרון.

softs ענה על ב' וג'.

השאלה הראשונה היא כבדת משקל.
זה לא מובנה אפי' ב.NET, וודאי שלא קל בVBA.
יש לשקול להנגיש את הקובץ לשאילתת http פשוטה, כדי לעקוף את הבעיה.

פורסם במקור בפורום CODE613 ב25/06/2014 14:11 (+03:00)

softs

לא שמתי לב לכותרת . . .
אקדים ואומר שבתחום הזה (Network) הידע שלי לוקה בחסר . . .

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

אגב אני יודע שאפשר להגדיר SFTP שידע לעבוד עם דוט נט כמו FTP רגיל (לא יודע איך אבל מישהו נתן לי פעם גישה לכזה),
ואז יש פתרונות כמו NAudio, אז אולי כדאי שתנסה להשתמש עם דוט נט FTP Request.

אגב השימוש ב FTP רגיל ייראה ככה

  Sheet2.WindowsMediaPlayer1.URL = "ftp://username:password@YYYY.eu/1.mp3"

פורסם במקור בפורום CODE613 ב25/06/2014 15:27 (+03:00)

dovid

תבדוק גם את https://sshnet.codeplex.com/

לכאורה אפשר עם סטריימנג:

Public Sub PlayRemotSsh(Host As String, User As String, Password As String, FilePath As String)
    Dim client As New Renci.SshNet.SftpClient(Host, 21, User, Password)
    Dim memStreeam As New IO.MemoryStream
    client.DownloadFile(FilePath, memStreeam)

    My.Computer.Audio.Play(memStreeam, AudioPlayMode.Background)
End Sub

פורסם במקור בפורום CODE613 ב25/06/2014 17:47 (+03:00)

ארכיטקט

@softs

אולי תן reference ל windwos media player תיצור קונטרול ותפעיל את הקובץ ככה: (עבד לי באקסל)
 Sheet2.WindowsMediaPlayer1.URL = "http://www.stephaniequinn.com/Music/Allegro%20from%20Duet%20in%20C%20Major.mp3"
    Sheet2.WindowsMediaPlayer1.Controls.Play
    Sheet2.WindowsMediaPlayer1.Visible = False
כמובן שבדוט נט זה הרבה יותר פשוט . . .

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

פורסם במקור בפורום CODE613 ב02/07/2014 19:04 (+03:00)

softs

אפשר גם ב FTP שזה מאובטח כמו שכתבתי לעיל . .

פורסם במקור בפורום CODE613 ב03/07/2014 02:30 (+03:00)

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

השמעת קובץ אודיו דרך SSH ב VBA