[RESOLVED] send a text file to server

[shahid]

hi, i have an pda application that generate some text files.
how can i send them to the server???

thanks

[petevick]

FTP, Web Service, custom server, RAPI

You have a big choice

Pete

[shahid]

can u plz give me the codes for web services

[shahid]

hello any budy help plz

[Strider]

using the Winint.dll you can use FTP
find more about it here
http://www.teksoftco.com/articles/ftp%20client.htm

RAPI you will need create a desktop application that will pull the file across over activesync

[shahid]

thx m8..but i didnt get any thing by it.
is there any way to sending data from pda to server ...by vb.net...using http protocols....

[Strider]

from doing a search on google i found this
http://forums.asp.net/thread/1082923.aspx

[shahid]

it's nice but work with asp.net pages... i am using vb.net on PDA ...

not good for me.

[shahid]

if i have two pages on server...1 for file selection 2 for save the file...as we use in asp/asp.net to upload files on server thru http protocol....

so can i call the 2nd file thru vb.net...via httprequest object...but how i fill the data (if i run it from server i shud use file1 for file selection...)

hope i get a hint/solution.
thaks

[Techno]

you are best to transmit the data via network stream and then the server application to save the data recieved to text file

[shahid]

is there any solutions to do it??? using XML SOAP etc etc..????

[Techno]

I've just given you a solution.

[Strider]

is there any solutions to do it??? using XML SOAP etc etc..????

If you use webservices you are using xml and soap

[shahid]

i can not use application on the server...
how i use web service for this purpose?

[Strider]

i can not use application on the server...

what cant you use on the server?

how i use web service for this purpose?

i've posted a link in earlier post

[shahid]

the follwoing code send data to the server thru querystring...where the asp file on server will get it and save a text file.
(if you are behind the proxy then ON the proxy codes)
also the lstresult for showing the result.
hope it's help

Dim b As String = "name_" & Now.Date & ".txt"
        b = Replace(b, "/", "-")
        Dim url As String = "http://www.myurl.net/file.asp?a=" & strData & "&b=" & b
 
        Try
            '    If Not "".Equals(txtProxy.Text) Then
            'Dim proxyObject As New WebProxy(proxy, 80)
 
            ' Disable proxy use when the host is local.
            'proxyObject.BypassProxyOnLocal = True
 
            ' HTTP requests use this proxy information.
            'GlobalProxySelection.Select = proxyObject
            'End If
 
            Dim req As WebRequest = WebRequest.Create(url)
            Dim result As WebResponse = req.GetResponse()
            Dim ReceiveStream As Stream = result.GetResponseStream()
            Dim encode As Encoding = System.Text.Encoding.GetEncoding("utf-8")
            Dim sr As New StreamReader(ReceiveStream, encode)
 
            ' Read the stream into arrays of 30 characters
            ' to add as items in the list box. Repeat until
            '' buffer is read.
            Dim read(29) As [Char]
            Dim count As Integer = sr.Read(read, 0, 30)
            While count > 0
                Dim astr As New String(read, 0, count)
                lstresults.Text = lstresults.Text & astr
                count = sr.Read(read, 0, 30)
                If astr = "done" Then
                    btnOK.Enabled = True
                    btnRetry.Enabled = False
                End If
            End While
            'Return True
 
 
        Catch ex As WebException
            Dim message As String = ex.Message
            Dim response As HttpWebResponse = CType(ex.Response, HttpWebResponse)
            If Nothing Is response Then
            Else
                message = response.StatusDescription
                response.Close()
            End If
            btnRetry.Enabled = True
            btnOK.Enabled = False
            'Return False
            lstresults.Text = lstresults.Text & vbCrLf & message
 
        Catch ex As Exception
            'Return False
            lstresults.Text = lstresults.Text & vbCrLf & ex.Message
        End Try
        '=============================end of http url==================================

[shahid]

the following codes send the data to the server thru query string..where the server page get it and save as a text file.
unblock the proxy if u behind the proxy server.
put a lstresult (listbox) before run it.
hope it's help

Dim b As String = "auditor_" & Now.Date & ".txt"
        b = Replace(b, "/", "-")
        Dim url As String = "http://myserver.com/file.asp?a=" & strData & "&b=" & b
 
        Try
            '    If Not "".Equals(txtProxy.Text) Then
            'Dim proxyObject As New WebProxy(proxy, 80)
 
            ' Disable proxy use when the host is local.
            'proxyObject.BypassProxyOnLocal = True
 
            ' HTTP requests use this proxy information.
            'GlobalProxySelection.Select = proxyObject
            'End If
 
            Dim req As WebRequest = WebRequest.Create(url)
            Dim result As WebResponse = req.GetResponse()
            Dim ReceiveStream As Stream = result.GetResponseStream()
            Dim encode As Encoding = System.Text.Encoding.GetEncoding("utf-8")
            Dim sr As New StreamReader(ReceiveStream, encode)
 
            ' Read the stream into arrays of 30 characters
            ' to add as items in the list box. Repeat until
            '' buffer is read.
            Dim read(29) As [Char]
            Dim count As Integer = sr.Read(read, 0, 30)
            While count > 0
                Dim astr As New String(read, 0, count)
                lstresults.Text = lstresults.Text & astr
                count = sr.Read(read, 0, 30)
                If astr = "done" Then
                    btnOK.Enabled = True
                    btnRetry.Enabled = False
                End If
            End While
            'Return True
 
 
        Catch ex As WebException
            Dim message As String = ex.Message
            Dim response As HttpWebResponse = CType(ex.Response, HttpWebResponse)
            If Nothing Is response Then
            Else
                message = response.StatusDescription
                response.Close()
            End If
            btnRetry.Enabled = True
            btnOK.Enabled = False
            'Return False
            lstresults.Text = lstresults.Text & vbCrLf & message
 
        Catch ex As Exception
            'Return False
            lstresults.Text = lstresults.Text & vbCrLf & ex.Message
        End Try
        '=============================end of http url==================================