migration code java vers le vb.net

Bonjour,

Excusez moi d'avance si le sujet n'est pas dans la bonne section.

J'ai besoin de migrer un projet java en vb.net. J'ai cependant quelque problèmes à porter certains bout de code.

En java j'ai:

Code:

---

1 2 3 4 5 6 7

URI uri = new URI( this.protocol, this.domain, this.path, params, null); return uri.toASCIIString();

---

En vb.net j'ai utilisé l'équivant, cad:

Code:

---

Dim uri As New UriBuilder(Me.protocol, Me.domain, 80, Me.path, params)

---

Mais à la sortie j'ai une exception "ExtraValue".

Merci de votre aide

l'erreur est expliquée ici : http://msdn.microsoft.com/fr-fr/library/19z9y1as.aspx
il faut voir le contenu de tes variables je pense ...

sinon il serait plus simple de migrer de java vers c#, c'est comme vb.net mais avec la syntaxe de java

Citation:

---

Envoyé par Pol63

l'erreur est expliquée ici : http://msdn.microsoft.com/fr-fr/library/19z9y1as.aspx
il faut voir le contenu de tes variables je pense ...

sinon il serait plus simple de migrer de java vers c#, c'est comme vb.net mais avec la syntaxe de java

---

Les contenus de mes variables sont:

Code:

---

1 2 3 4

Me.protocol = "http" Me.domain = "localhost:8080" Me.path = "KJ/FFFF/1/" params = "lenght=1"

---

Je suis contraint de migrer vers le vb.net.

mais en C# ca donne:

Code:

---

URI uri = new URI(this.protocol, this.domain, this.path, params, null);

---

J'ai à ajouté au contenu de params "?", et j'ai plus d'exception.

Merci,

PS: Je ne met pas résolu, car j'avance encore dans la migration

J'ai un bout de code pour pour envoyer recevoir des requets en java:

Code:

---

1 2 3 4 5 6 7 8 9 10

URL url = new URL(u); HttpURLConnection con = (HttpURLConnection) url.openConnection();   con.setRequestProperty("User-Agent", "User"); con.setRequestProperty("Cookie", this.session); con.setDoInput(true);   int status = con.getResponseCode(); String hf = con.getHeaderField("Set-Cookie");

---

EN vb.net, de ce que j'ai implémenté, ca plante au niveau de la deuxième ligne avec comme exception

Citation:

---

"This header must be modified using the appropriate property. Parameter name: name".

---

Code:

---

1 2 3 4 5 6 7

Dim request As HttpWebRequest = CType(WebRequest.Create(targetURI), HttpWebRequest) request.Headers.Add(HttpRequestHeader.UserAgent, "User") request.Headers.Add(HttpRequestHeader.Cookie, Me.session)   response = (CType(request.GetResponse(), HttpWebResponse)) status = response.StatusCode Dim hf As String = request.GetResponse.Headers("Set-Cookie")

---

ca me parrait assez explicite

Code:

---

request.useragent = "User"

---

Citation:

---

Envoyé par Pol63

ca me parrait assez explicite

Code:

---

request.useragent = "User"

---

---

Merci

Bonjour,

Quel est l'équivalent en .Net de la methode getErrorStream qui permet de récupérer un flux d'erreur?

Code:

---

1 2 3 4 5

URL url = new URL(u); HttpURLConnection connection = (HttpURLConnection) url.openConnection();   connection.getInputStream(); connection.getErrorStream();

---

quand tu appelles le getresponse tu obtient un httpwebresponse (à caster)
sur ce webresponse tu as le status (200(=ok), 404 etc..)
et tu peux faire .getresponsestream pour récupérer le retour html

pas sur que ca réponde à ta question ...

Voilà ce que j'ai essayé de faire:

Code:

---

1 2 3

response = (CType(request.GetResponse(), HttpWebResponse)) Dim sr As StreamReader sr = New StreamReader(request.GetResponse.GetResponseStream)

---

j'ai une exception

Citation:

---

Stream was not readable.

---

getresponse fait l'appel à la requete http
donc il ne faut pas la faire 2 fois déjà

essaye sr = New StreamReader(response.GetResponseStream)

Lorsque le status est Ok (200) je récupère bien une stream.
Mais lorsque c'est un status error (500), une exception est levée...
et plus moyen de faire quoi que ce soit,alors que j'ai besoin justement de lire le flux lorsque c'est une erreur...

http://stackoverflow.com/questions/1...-to-the-real-e

?

Cela donne en vb.net:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Catch wexc1 As WebException   Dim sr As Stream ' any statusCode other than 200 gets caught here If wexc1.Status = WebExceptionStatus.ProtocolError Then ' can also get the decription: 'Dim response As HttpWebResponse= ((HttpWebResponse)wexc1.Response).StatusDescription; Dim response As WebResponse = wexc1.Response sr = response.GetResponseStream   End If Finally If response IsNot Nothing Then 'response.close() End If End Try

---

Bonjour,

Est ce qu'il est possible de lire un flux de données envoyé par le serveur et le stoquer directement dans un tableau de Bytes au lieu d'une string?

Code:

---

1 2 3 4

response = (CType(request.GetResponse(), HttpWebResponse)) Dim sr As StreamReader sr = New StreamReader(response.GetResponseStream) Dim sr2 As String = sr.ReadToEnd

---

j'ai trouvé une fonction qui a comme paramètre une stream et permet de récupérer un tableau de Byte

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Private Function GetStreamAsByteArray(ByVal stream As System.IO.Stream) As Byte()   Dim streamLength As Integer = Convert.ToInt32(stream.Length)   Dim fileData As Byte() = New Byte(streamLength) {}   ' Read the file into a byte array stream.Read(fileData, 0, streamLength) stream.Close()   Return fileData   End Function

---

Mais à la ligne

Code:

---

Dim streamLength As Integer = Convert.ToInt32(stream.Length)

---

j'ai une exception

Citation:

---

This stream does not support seek operations.

---

Ya t'il un moyen d'éviter cette exception?

non

la classe stream expose des méthodes et propriétés
les héritiers de stream peuvent ne pas supporter toutes les méthodes et propriétés selon le stream (tcp/ip, fichier etc...)

par contre readtoend retourne un string certes, mais il doit bien y avoir des méthodes qui sortent des bytes (ou un seul dans le pire des cas, et à ajouter dans un collection via une boucle)
pour trouver il suffit d'utiliser l'intellisense

J'ai trouvé ce bout de code qui résoud le problème

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Dim webrespSNYDetails As HttpWebResponse webrespSNYDetails = webreqSNYDetails.GetResponse   'Convert the data into a string and return it   Dim streamSNYDetails As Stream = webrespSNYDetails.GetResponseStream Dim strEncoding = webrespSNYDetails.ContentEncoding   Dim streamMemStream As New MemoryStream Dim streamWriter As New BinaryWriter(streamMemStream)   Dim readStream As New BinaryReader(streamSNYDetails) streamWriter.Write(readStream.ReadBytes(webrespSNYDetails.ContentLength))   Me.ImageStream = streamMemStream.ToArray()

---

http://forums.asp.net/t/1048305.aspx/1

J'ai un souci avec l'encodage, certains caractères ne s'affiche pas correctement...

La fonction GetStreamAsByteArray contient le code au dessus

Code:

---

1 2 3 4 5

Dim data As Byte() Dim text As Char() data = GetStreamAsByteArray(response) text = Encoding.ASCII.GetChars(data)

---

Dans le tableau de char text certaines cases j'ai des "carrés" et les autres lettre sont écrite de cette manière "G"c, "a"c,etc.

De même que les retour que "\n" que je suis sencé recevoir à pour valeur "Nothing".
Il ya sans doute un souci d'encodage, mais je n'arrive pas à trouver le bon

es-tu sûr que c'est de l'ascii de l'autre côté ?

dans le response de la requête j'ai:

CharacterSet = "ISO-8859-1"
ContentEncoding = ""

je ne sais pas si cela répond à ta question

System.Text.Encoding.GetEncoding("iso-8859-1")
.getchars

Code:

---

text = System.Text.Encoding.GetEncoding("iso-8859-1").GetChars(data)

---

C'est ce que j'avais essayé aussi. Mais c'est un peu près la même chose.
Exemple, pour les valeurs:

0 => nothing
3 => "carré"c
255 => "y"c (le y avec les deux points au dessus)

Pour le reste j'ai les bon caractères

Bonjour,

Je souhaite récupérer un cookie de session attribuer par le serveur à ma première requête.
Et ensuite fournir ce set cookie à chaque requête vers le serveur.


J'ai un bout de code mais apparement il n'est pas complet...

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Dim request As HttpWebRequest = CType(WebRequest.Create(targetURI),HttpWebRequest)   If Me.session.Length > 0 Then request.Headers.Add(HttpRequestHeader.Cookie, Me.session) End If     'executed the http request response = (CType(request.GetResponse(), HttpWebResponse)) status = response.StatusCode

---

J'ai pu récupérer la valeur du cookie par cette ligne de code:

Code:

---

1 2 3 4 5 6 7 8

Dim httpResponse As HttpWebResponse   httpResponse = wexc1.Response   Dim ln As String = httpResponse.GetResponseHeader("Set-Cookie") session = ln.Substring(0, (ln.IndexOf(" ")) - (0))   httpResponse.Headers.Set(HttpRequestHeader.Cookie, session)

---

Mais à la dernière ligne une exception est levée:

Citation:

---

This collection holds response headers and cannot contain the specified request header.

---