As the title says I'm trying to connect to a win2000 server. My B4A version is 2.30. As per the tutorial I have installed AndSMB and it does connect and display folders / files in the win2000 server.
AndSMB Settings: This works but I don't know why since the real path is /usidata/users/manuals or 10.0.0.1/users/manuals
Host:10.0.0.1
User: tech
PW: tech
Domain: avionics
remore dir: /manuals
Below is the B4A code. For the ListFiles URL I've used all the configurations I can think of.
Domain is Avionics
USIdata is the host = 10.0.0.1 and the path is /users/manuals/*.pdf
LOG:
LogCat connected to: 03806189439f6517
--------- beginning of /dev/log/system
--------- beginning of /dev/log/main
** Activity (main) Create, isFirst = true **
** Activity (main) Resume **
** Activity (main) Pause, UserClosed = true **
** Activity (main) Create, isFirst = false **
** Activity (main) Resume **
** Activity (main) Create, isFirst = true **
** Activity (main) Resume **
Thank you
Doug
AndSMB Settings: This works but I don't know why since the real path is /usidata/users/manuals or 10.0.0.1/users/manuals
Host:10.0.0.1
User: tech
PW: tech
Domain: avionics
remore dir: /manuals
Below is the B4A code. For the ListFiles URL I've used all the configurations I can think of.
Domain is Avionics
USIdata is the host = 10.0.0.1 and the path is /users/manuals/*.pdf
B4X:
'Activity module
Sub Process_Globals
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.
Dim usismb As SMB
End Sub
Sub Globals
'These global variables will be redeclared each time the activity is created.
'These variables can only be accessed from this module.
End Sub
Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:
'Activity.LoadLayout("Layout1")
If FirstTime Then
usismb.SetCredentials("tech","tech","Avionics")
usismb.Initialize(usismb)
End If
usismb.ListFiles("//10.0.0.1/users/manuals","*.pdf")
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub usismb_ListCompleted(Url As String, Success As Boolean, Entries() As SMBFile)
If Not(Success) Then
Log(LastException)
Else
For i = 0 To Entries.Length - 1
Log("*****************")
Log(Entries(i).Name)
Log(Entries(i).Directory)
Log(DateTime.Date(Entries(i).LastModified))
Log(Entries(i).Parent)
Log(Entries(i).Size)
Next
End If
End Sub
LOG:
LogCat connected to: 03806189439f6517
--------- beginning of /dev/log/system
--------- beginning of /dev/log/main
** Activity (main) Create, isFirst = true **
** Activity (main) Resume **
** Activity (main) Pause, UserClosed = true **
** Activity (main) Create, isFirst = false **
** Activity (main) Resume **
** Activity (main) Create, isFirst = true **
** Activity (main) Resume **
Thank you
Doug