HTTP Sender to File

Question

Hi all!
I have a scenario like this:
<b>HTML page(http adapter)->SAP XI->(File Adapter)D:\somedir</b>
I will send a file from some HTML page, for that iam using HTTP sender adapter.It will reach to SAP XI. From there i will post the file to some physical location in my machine. For this am using File adapter.
I dont know what to give in Integration Directory(For HTTP)->Communication channel->Address Type,Target Host, Service Number.........
Please help me what to be done further.
Thanks in advance!

Answer 1

check http logs in SMICM and SICF
''a vb script to send a file
option explicit
'' Makes a httpcall binary clean, and sends data from a file
'' Author: Otto Frost
'' Copyright: Otto Frost
Dim url    ' url to send to
Dim file   ' file to send, UNC path
''You must code special characters such as forward slash (/), hyphen , period (.), or colon ( with escape characters
''(for example, %2F for /, %2D for -, %2E for .,and %3A for :).
url = "http://XIDEV:8000/sap/xi/adapter_plain?service=SE1CLNT500"
url = url & "&namespace=urn%3Axxx%2Dse%3ACREDIT%3ADECISION"
url = url & "&interface=MI_SOAP_OUTBOUND"
url = url & "&sap%2Dclient=100"
url = url & "&sap%2Duser=httpuser&sap%2Dpassword=123456&sap%2Dlanguage=EN"
''&qos=EO&msgguid=3C61F6C12F1E2DD1E10000000A1145AB
''urn:trema-com:trema:trema
file = "utf8.txt"
''file = "xx.zip"
''file = "yy.txt"
file = "test.xml"
file = "soap20051208.151353.0.xml"
file = "soap_request20051219.155753.0.xml"
' should not have to change anything below this line
Dim strm
Set strm = CreateObject("ADODB.Stream")
'Dim IE As SHDocVw.InternetExplorer
Dim g_oIE 'As InternetExplorer ' Global reference to an
                                    ' instance of IE
Set g_oIE = CreateObject("InternetExplorer.Application")
g_oIE.Visible = True
'Private Sub cmdSubmit_Click()
Dim edtPostData
''edtPostData.Text = ""  ' Initialize an edit box for testing
Dim aByte
''ReDim aByte(0) 'As Byte ' Array of bytes to hold data to post
      ' Extract the URL encoded data from the UI,
      ' and pack it into an array of bytes
''cFlavor = "Orange"
''cParamName = "FName="
''cParamFlavor = "Flavor="
''cSeparator = "&"
''cPostData = cParamName & "F1" & cSeparator & cParamFlavor & cFlavor
''PackBytes aByte, cPostData
strm.Type = 1
strm.Open
strm.Type = 1
strm.LoadFromFile file
''strm.WriteText cPostData
strm.Position = 0
strm.Type = 1
aByte = strm.Read
      ' For testing, rebuild the POST data and stuff
      ' it into an edit box
''For i = LBound(aByte) To UBound(aByte)
''          edtPostData = edtPostData + Chr(aByte(i))
''Next
Dim vPost 'As Variant
vPost = aByte ' Assign the byte array to a VARIANT
Dim vFlags 'As Variant
Dim vTarget 'As Variant
Dim vHeaders 'As Variant
vHeaders = "Content-Type: application/x-www-form-urlencoded" + Chr(10) + Chr(13)
vHeaders = "content-type: text/plain; charset=UTF-8" + Chr(10) + Chr(13)
vHeaders = "content-type: text/plain;UTF-8" + Chr(10) + Chr(13)
''vHeaders = "content-type:application/octet-stream" + Chr(10) + Chr(13)
vHeaders = "content-type: application/octet-stream" + Chr(10) + Chr(13)
vHeaders = ""
vHeaders = vHeaders & "SOAPAction: None" & Chr(10) & Chr(13)
vHeaders = vHeaders & "Content-Type: text/xml" & Chr(10) & Chr(13)
''Content-Length: nnnn
''Content-Encoding: gzip
''Content-Type: image/gif
''Content-Type: text/html; charset=ISO-8859-4
''Transfer-Encoding: chunked
      ' You're done. Now call Navigate
      ' Note: modify path to server as appropriate
g_oIE.Navigate url, vFlags, vTarget, vPost, vHeaders
'      Private Sub Form_Load()
      ' Create an instance of IE
'      Set g_oIE = New InternetExplorer
'      g_oIE.Visible = True
      ' Populate a combobox with some flavor choices
'      cboFlavor.List(0) = "Vanilla"
'      cboFlavor.List(1) = "Chocolate"
'      cboFlavor.List(2) = "Strawberry"
'      cboFlavor.ListIndex = 0 ' The default choice
'      End Sub
      ' Utility function to pack the data to post into an array of bytes
'Sub PackBytes(ByteArray() As Byte, ByVal PostData As String)
Sub PackBytes(ByteArray() , ByVal PostData )
      iNewBytes = Len(PostData) - 1   ' Get rid of the null termination
      If iNewBytes < 0 Then
       Exit Sub
      End If
      ReDim ByteArray(iNewBytes)
      For i = 0 To iNewBytes
       ch = Mid(PostData, i + 1, 1)
       If ch = Space(1) Then
          ch = "+"
       End If
       ByteArray(i) = Asc(ch)
      Next
End Sub
Message was edited by: Otto Frost
Message was edited by: Otto Frost