The phone is a Samsung Galaxy Victory 4G LTE. In MM I have been able to copy different selections to the phone and the SD card and verified playback.
To clear up any misstatements I may have made, I wrote a small script to dump the device handle and other device information. Code snippet and results are below.
Code: Select all
Dim list : Set list = SDB.Device.ActiveDeviceList("VID_04E8&PID_6860")
If list.Count = 0 Then
Call SDB.MessageBox(SDB.Localize("No active devices. [1]"),mtError,Array(mbOk))
Exit Sub
End If
Dim inds : inds = ""
Dim nams : nams = ""
Dim boo : boo = False
Dim txt
Dim i : i = 0
For i = 0 To list.Count-1
txt = ">>Dev " & i & " ID [" & list.DeviceID(i) & "] Device Count = " & list.Count & " Handle [" & list.DeviceHandle(i) & "]"
Call fout.WriteLine(txt)
If list.DeviceHandle(i) > -1 Then
Dim indx : indx = list.DeviceID(i)
Dim sqls : sqls = "SELECT DeviceCaption,DetailedUSBID FROM Devices WHERE DetailedUSBID LIKE '%"&indx&"%'"
Dim iter : Set iter = SDB.Database.OpenSQL(sqls)
While Not iter.EOF
txt = " Detail Caption [" & iter.StringByIndex(0) & "]"
Call fout.WriteLine(txt)
txt = " USB ID [" & iter.StringByIndex(1) & "]"
Call fout.WriteLine(txt)
iter.Next
Wend
Set iter = Nothing
End If
Next
Call fout.Close()
========== Results Below =============
>>Dev 0 ID [USB\VID_04E8&PID_6860\5014B028] Device Count = 1 Handle [49863440]
Detail Caption [SPH-L300 - Phone]
USB ID [Orig:USB\VID_04E8&PID_6860\5014B028
Found:USB\VID_04E8&PID_6860\5014B028
]
Detail Caption [SPH-L300 - Card]
USB ID [Orig:USB\VID_04E8&PID_6860\5014B028
Found:USB\VID_04E8&PID_6860\5014B028
]
The phone is a Samsung Galaxy Victory 4G LTE. In MM I have been able to copy different selections to the phone and the SD card and verified playback.
To clear up any misstatements I may have made, I wrote a small script to dump the device handle and other device information. Code snippet and results are below.
[code] Dim list : Set list = SDB.Device.ActiveDeviceList("VID_04E8&PID_6860")
If list.Count = 0 Then
Call SDB.MessageBox(SDB.Localize("No active devices. [1]"),mtError,Array(mbOk))
Exit Sub
End If
Dim inds : inds = ""
Dim nams : nams = ""
Dim boo : boo = False
Dim txt
Dim i : i = 0
For i = 0 To list.Count-1
txt = ">>Dev " & i & " ID [" & list.DeviceID(i) & "] Device Count = " & list.Count & " Handle [" & list.DeviceHandle(i) & "]"
Call fout.WriteLine(txt)
If list.DeviceHandle(i) > -1 Then
Dim indx : indx = list.DeviceID(i)
Dim sqls : sqls = "SELECT DeviceCaption,DetailedUSBID FROM Devices WHERE DetailedUSBID LIKE '%"&indx&"%'"
Dim iter : Set iter = SDB.Database.OpenSQL(sqls)
While Not iter.EOF
txt = " Detail Caption [" & iter.StringByIndex(0) & "]"
Call fout.WriteLine(txt)
txt = " USB ID [" & iter.StringByIndex(1) & "]"
Call fout.WriteLine(txt)
iter.Next
Wend
Set iter = Nothing
End If
Next
Call fout.Close()[/code]
========== Results Below =============
>>Dev 0 ID [USB\VID_04E8&PID_6860\5014B028] Device Count = 1 Handle [49863440]
Detail Caption [SPH-L300 - Phone]
USB ID [Orig:USB\VID_04E8&PID_6860\5014B028
Found:USB\VID_04E8&PID_6860\5014B028
]
Detail Caption [SPH-L300 - Card]
USB ID [Orig:USB\VID_04E8&PID_6860\5014B028
Found:USB\VID_04E8&PID_6860\5014B028
]