Odesílání přes PVS – .NET – Fórum – Programujte.com
 x   TIP: Přetáhni ikonu na hlavní panel pro připnutí webu
Reklama
Reklama

Odesílání přes PVS – .NET – Fórum – Programujte.comOdesílání přes PVS – .NET – Fórum – Programujte.com

 

Hledá se programátor! Plat 1 800 € + bonusy (firma Boxmol.com)
23. 9. 2009   #1
-
0
-

Dobrý den,
řeším odesílání dat přes portál veřejné správy a mám menší problém s doručením dat na portál. Z mého počítače vše funguje bez problémů, od zákazníka přes jejich proxy už ne, ale 602XML bez problémů odesílá, jen já ne, bohužel řešení přes 602XML je pro nás nepoužitelné kvůli integraci do mzdového sw.
Posílám kus kódu, kterým odesílání řeším:

Dim httpsReq As System.Net.HttpWebRequest

If (eldpTest = False) Then
httpsReq = System.Net.WebRequest.Create("https://bezpecne.podani.gov.cz/submission")
Else
httpsReq = System.Net.WebRequest.Create("https://bezpecne.dev.gov.cz/submission")
End If
httpsReq.Method = "POST"
httpsReq.ProtocolVersion = System.Net.HttpVersion.Version11
httpsReq.ContentType = "text/xml"
httpsReq.UserAgent = "Mozilla/4.0 (compatible; .NET)"
httpsReq.KeepAlive = False
https()
System.Net.ServicePointManager.CertificatePolicy = New ELDPNet.AcceptAllCertificatePolicy()
'System.Net.ServicePointManager.ServerCertificateValidationCallback = New ELDPNet.AcceptAllCertificatePolicy()

Dim postData As String = ciph.FileToString(fn)
Dim bytes As Byte() = System.Text.Encoding.UTF8.GetBytes(postData)

httpsReq.ContentLength = bytes.Length
Dim ds As IO.Stream = httpsReq.GetRequestStream()
ds.Write(bytes, 0, bytes.Length)
ds.Close()
'odchyceni xml vraceneho serverem
Dim response As System.Net.WebResponse = httpsReq.GetResponse()
Dim respStream As Stream = response.GetResponseStream()
'Dim readResponce As New StreamReader(respStream, System.Text.Encoding.UTF8)
Dim respFile As New FileStream("c:\atemp\eldp\response.xml", FileMode.Create, FileAccess.Write)
Dim buffer(1024) As Byte
Dim Count As Integer = buffer.Length
Do
Count = respStream.Read(buffer, 0, Count)
If Count = 0 Then
Exit Do
End If
respFile.Write(buffer, 0, Count)
Loop
respFile.Close()
respFile.Dispose()
System.GC.Collect()
MsgBox("Vaše podání bylo odesláno.")

Chyba, kterou si přečtu, je to ještě obalené pomocí Try, u zákazníka tvrdí "connection timeout", asi po 60 sekund.
Možná jsem jen zvolil špatnou komponentu, ale nic logičtějšího, než HttpWebRequest jsem nenašel, kdyby u mě nefungoval a já neměl odchycenou odpověď, tak bych ji zavrhl, ale teď nevím.
PS: Pokud někdo znáte posunutí správným směrem i v jazyce C#, nevadí mi to, ve VB píši kvůli šéfům.

Nahlásit jako SPAM
IP: 88.146.70.–
Reklama
Reklama
Zjistit počet nových příspěvků

Přidej příspěvek

Toto téma je starší jak čtvrt roku – přidej svůj příspěvek jen tehdy, máš-li k tématu opravdu co říct!

Ano, opravdu chci reagovat → zobrazí formulář pro přidání příspěvku

×Vložení zdrojáku

×Vložení obrázku

Vložit URL obrázku Vybrat obrázek na disku
Vlož URL adresu obrázku:
Klikni a vyber obrázek z počítače:

×Vložení videa

Aktuálně jsou podporována videa ze serverů YouTube, Vimeo a Dailymotion.
×
 
Podporujeme Gravatara.
Zadej URL adresu Avatara (40 x 40 px) nebo emailovou adresu pro použití Gravatara.
Email nikam neukládáme, po získání Gravatara je zahozen.
-
Pravidla pro psaní příspěvků, používej diakritiku. ENTER pro nový odstavec, SHIFT + ENTER pro nový řádek.
Sledovat nové příspěvky (pouze pro přihlášené)
Sleduj vlákno a v případě přidání nového příspěvku o tom budeš vědět mezi prvními.
Reaguješ na příspěvek:

Uživatelé prohlížející si toto vlákno

Uživatelé on-line: 0 registrovaných, 59 hostů

Podobná vlákna

Odesílání dat pres socket — založil don_Dominique

Odesílání e-mailu — založil Al

 

Hostujeme u Českého hostingu       ISSN 1801-1586       ⇡ Nahoru Webtea.cz logo © 20032016 Programujte.com
Zasadilo a pěstuje Webtea.cz, šéfredaktor Lukáš Churý