[Vb.Net 2005] manipulation d'un fichier fixml

Version imprimable

J'essaye d'evoyer un fichier fixml vers un serveur nymex distant, pour cela, j'utilise le code suivant :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
 
Public Class GATEWAY
    Dim url As String = "https://www.blabla.com"
    Dim port As String = "443"
    Dim msg As String = "blabla"
    Dim user_id As String = "login"
    Dim user_pass As String = "mdp"
    Dim reqid As String
    Dim client As New WebClient()
    Dim request As String
    Dim myCredentials As New NetworkCredential(user_id, user_pass)
    Dim login As Boolean = False
    Dim logoff As Boolean = False
    Dim sw As StreamWriter
    Dim f_path As String = "C:\Documents and Settings\...\"
    Dim f_name As String = "test.xml"
    Dim XmlDoc As XmlDocument = New XmlDocument()
    Dim elemUserReq As XmlElement
 
Function test()
 
        client.BaseAddress = url
        client.Credentials = myCredentials
 
        XmlDoc.LoadXml("<FIXML></FIXML>")
 
        XmlDoc.DocumentElement.SetAttribute("v", "4.4")
        XmlDoc.DocumentElement.SetAttribute("s", "20040109")
        XmlDoc.DocumentElement.SetAttribute("r", "20030618")
 
        elemUserReq = XmlDoc.CreateElement("UserReq")
 
        elemUserReq.SetAttribute("ReqID", get_reqid())
        elemUserReq.SetAttribute("UserReqTyp", "1")
        elemUserReq.SetAttribute("Username", user_id)
        elemUserReq.SetAttribute("Password", user_pass)
 
        XmlDoc.DocumentElement.AppendChild(elemUserReq)
 
        XmlDoc.Save(f_path + f_name)
 
        'client.UploadFile(url + ":" + port + msg, f_path + f_name)
 
        request = XmlDoc.ToString()
 
        client.UploadString(url + ":" + port + msg, request)
 
        dataStream = client.OpenRead(url + msg)
        'Open the stream using a StreamReader for easy access.
        reader = New StreamReader(dataStream)
        'Read the content.
        responseFromServer = reader.ReadToEnd()
        TextBox1.Text = responseFromServer
        reader.Close()
        dataStream.Close()
 
End Function
 
    Function get_reqid() As String
        Return (user_id + System.DateTime.Now.TimeOfDay.Milliseconds.ToString())
    End Function
 
Private Sub GATEWAY_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.test()
    End Sub
End Class

Que j'essaye de cette manière ou de la facon en commentaire j'ai le meme message d'erreur dans "responseFromServer" : "<reply><error code="0">General Exception:XML Parsing Exception:Error on line 1: Premature end of file.</error></reply>"

quelqu'un sait comment arranger ca ?

Le fichier Fixml semble clean, il est ouvert par internet explorer sans aucune erreur

29/07/2008, 11h07
RomainDotNet

Salut,
Je ne sais pas si c'est une bonne piste mais tu as quoi à la premiere ligne de ton fichier xml?
29/07/2008, 11h15
shadowmoon
le fichier fixml créé est tout simple :
Code:

1 2 3 4 5 <FIXML v="4.4" s="20040109" r="20030618"> <UserReq ReqID="blabla274" UserReqTyp="1" Username="blabla" Password="blabla" /> </FIXML>
[edit] Pour etre plus précis, je chercher à faire la meme chose que le code java suivant

Code:

httpRequestor.doXMLRequest(url, s2)

dans lequel url est https://www.blabla.com:433/blabla et s2 est le fichier fixml transformé en string

A force de chercher j'ai fini par trouver ce que je voualis faire en C#, je l'ai donc adapté en Vb .Net :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
 
 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        Dim file As String = create_xml_request()
 
        WebReq = WebRequest.Create(url + ":" + port + msg)
        WebReq.Method = "POST"
        WebReq.ContentType = "text/xml"
        Dim writer As New StreamWriter(WebReq.GetRequestStream())
        writer.WriteLine(GetTextFromXMLFile(file))
        writer.Close()
 
 
        WebRes = WebReq.GetResponse()
        'Open the stream using a StreamReader for easy access.
        Dim reader As New StreamReader(WebRes.GetResponseStream())
        'Read the content.
        Dim responseFromServer As String = reader.ReadToEnd()
        TextBox1.Text = responseFromServer
        reader.Close()
end sub
 
Function GetTextFromXMLFile(ByVal XML_file As String) As String
 
        Dim reader As StreamReader = New StreamReader(XML_file)
        Dim ret As String = reader.ReadToEnd()
        reader.Close()
        Return ret
    End Function
 
    Function create_xml_request() As String
 
        XmlDoc.LoadXml("<FIXML></FIXML>")
 
        XmlDoc.DocumentElement.SetAttribute("v", "4.4")
        XmlDoc.DocumentElement.SetAttribute("s", "20040109")
        XmlDoc.DocumentElement.SetAttribute("r", "20030618")
 
        elemUserReq = XmlDoc.CreateElement("UserReq")
 
        elemUserReq.SetAttribute("ReqID", user_id + System.DateTime.Now.TimeOfDay.Milliseconds.ToString())
        elemUserReq.SetAttribute("UserReqTyp", "1")
        elemUserReq.SetAttribute("Username", user_id)
        elemUserReq.SetAttribute("Password", user_pass)
 
        XmlDoc.DocumentElement.AppendChild(elemUserReq)
 
        XmlDoc.Save(f_path + f_name)
 
        Return (f_path + f_name)
    End Function