HTTP POST 웹 요청을 만드는 방법

질문자 :Hooch

정식
POST 메서드를 사용하여 일부 데이터를 보낼 수 있습니까?

GET 요청을 할 수 POST 요청을 만드는 방법을 모릅니다.

GET 및 POST 요청을 수행하는 방법에는 여러 가지가 있습니다.

---

방법 A: HttpClient(선호)

사용 가능: .NET Framework 4.5+ , .NET Standard 1.1+ , .NET Core 1.0+ .

현재 선호되는 접근 방식이며 비동기식 고성능입니다. 대부분의 경우 기본 제공 버전을 사용하지만 매우 오래된 플랫폼의 경우 NuGet 패키지가 있습니다.

 using System.Net.Http;

설정

권장 하나의 인스턴스를 HttpClient 당신이하지에 특정의 이유가없는 응용 프로그램의 수명과 공유 할 수 있습니다.

 private static readonly HttpClient client = new HttpClient();

종속성 주입 솔루션 HttpClientFactory 를 참조하세요.

---

• POST

   var values = new Dictionary<string, string> { { "thing1", "hello" }, { "thing2", "world" } }; var content = new FormUrlEncodedContent(values); var response = await client.PostAsync("http://www.example.com/recepticle.aspx", content); var responseString = await response.Content.ReadAsStringAsync();

• GET

   var responseString = await client.GetStringAsync("http://www.example.com/recepticle.aspx");

---

방법 B: 타사 라이브러리

레스트샤프

• POST

   var client = new RestClient("http://example.com"); // client.Authenticator = new HttpBasicAuthenticator(username, password); var request = new RestRequest("resource/{id}"); request.AddParameter("thing1", "Hello"); request.AddParameter("thing2", "world"); request.AddHeader("header", "value"); request.AddFile("file", path); var response = client.Post(request); var content = response.Content; // Raw content as string var response2 = client.Post<Person>(request); var name = response2.Data.Name;

Flurl.Http

유창한 API를 자랑하는 최신 라이브러리이며 도우미를 테스트하고 후드 아래에서 HttpClient를 사용하며 이식 가능합니다. NuGet을 통해 사용할 수 있습니다.

 using Flurl.Http;

---

• POST

   var responseString = await "http://www.example.com/recepticle.aspx" .PostUrlEncodedAsync(new { thing1 = "hello", thing2 = "world" }) .ReceiveString();

• GET

   var responseString = await "http://www.example.com/recepticle.aspx" .GetStringAsync();

---

방법 C: HttpWebRequest(신규 작업에는 권장하지 않음)

사용 가능: .NET Framework 1.1+ , .NET Standard 2.0+ , .NET Core 1.0+ . .NET Core에서는 대부분 호환성을 위한 것입니다. HttpClient 래핑하고 성능이 저하되며 새로운 기능을 사용할 수 없습니다.

 using System.Net; using System.Text; // For class Encoding using System.IO; // For StreamReader

---

• POST

   var request = (HttpWebRequest)WebRequest.Create("http://www.example.com/recepticle.aspx"); var postData = "thing1=" + Uri.EscapeDataString("hello"); postData += "&thing2=" + Uri.EscapeDataString("world"); var data = Encoding.ASCII.GetBytes(postData); request.Method = "POST"; request.ContentType = "application/x-www-form-urlencoded"; request.ContentLength = data.Length; using (var stream = request.GetRequestStream()) { stream.Write(data, 0, data.Length); } var response = (HttpWebResponse)request.GetResponse(); var responseString = new StreamReader(response.GetResponseStream()).ReadToEnd();

• GET

   var request = (HttpWebRequest)WebRequest.Create("http://www.example.com/recepticle.aspx"); var response = (HttpWebResponse)request.GetResponse(); var responseString = new StreamReader(response.GetResponseStream()).ReadToEnd();

---

방법 D: WebClient (신규 작업에는 권장하지 않음)

HttpWebRequest 의 래퍼입니다. HttpClient 와 비교하십시오 .

사용 가능: .NET Framework 1.1+ , NET Standard 2.0+ , .NET Core 2.0+

 using System.Net; using System.Collections.Specialized;

---

• POST

   using (var client = new WebClient()) { var values = new NameValueCollection(); values["thing1"] = "hello"; values["thing2"] = "world"; var response = client.UploadValues("http://www.example.com/recepticle.aspx", values); var responseString = Encoding.Default.GetString(response); }

• GET

   using (var client = new WebClient()) { var responseString = client.DownloadString("http://www.example.com/recepticle.aspx"); }

Community Wiki

간단한 GET 요청

 using System.Net; ... using (var wb = new WebClient()) { var response = wb.DownloadString(url); }

간단한 POST 요청

 using System.Net; using System.Collections.Specialized; ... using (var wb = new WebClient()) { var data = new NameValueCollection(); data["username"] = "myUser"; data["password"] = "myPassword"; var response = wb.UploadValues(url, "POST", data); string responseInString = Encoding.UTF8.GetString(response); }

Pavlo Neiman

MSDN 에 샘플이 있습니다.

 using System; using System.IO; using System.Net; using System.Text; namespace Examples.System.Net { public class WebRequestPostExample { public static void Main() { // Create a request using a URL that can receive a post. WebRequest request = WebRequest.Create("http://www.contoso.com/PostAccepter.aspx"); // Set the Method property of the request to POST. request.Method = "POST"; // Create POST data and convert it to a byte array. string postData = "This is a test that posts this string to a Web server."; byte[] byteArray = Encoding.UTF8.GetBytes(postData); // Set the ContentType property of the WebRequest. request.ContentType = "application/x-www-form-urlencoded"; // Set the ContentLength property of the WebRequest. request.ContentLength = byteArray.Length; // Get the request stream. Stream dataStream = request.GetRequestStream(); // Write the data to the request stream. dataStream.Write(byteArray, 0, byteArray.Length); // Close the Stream object. dataStream.Close(); // Get the response. WebResponse response = request.GetResponse(); // Display the status. Console.WriteLine(((HttpWebResponse)response).StatusDescription); // Get the stream containing content returned by the server. dataStream = response.GetResponseStream(); // Open the stream using a StreamReader for easy access. StreamReader reader = new StreamReader(dataStream); // Read the content. string responseFromServer = reader.ReadToEnd(); // Display the content. Console.WriteLine(responseFromServer); // Clean up the streams. reader.Close(); dataStream.Close(); response.Close(); } } }

Otávio Décio

이것은 JSON 형식의 데이터 송수신에 대한 완전한 작업 예이며 Visual Studio 2013 Express Edition을 사용했습니다.

 using System; using System.Collections.Generic; using System.Data; using System.Data.OleDb; using System.IO; using System.Linq; using System.Net.Http; using System.Text; using System.Threading.Tasks; using System.Web.Script.Serialization; namespace ConsoleApplication1 { class Customer { public string Name { get; set; } public string Address { get; set; } public string Phone { get; set; } } public class Program { private static readonly HttpClient _Client = new HttpClient(); private static JavaScriptSerializer _Serializer = new JavaScriptSerializer(); static void Main(string[] args) { Run().Wait(); } static async Task Run() { string url = "http://www.example.com/api/Customer"; Customer cust = new Customer() { Name = "Example Customer", Address = "Some example address", Phone = "Some phone number" }; var json = _Serializer.Serialize(cust); var response = await Request(HttpMethod.Post, url, json, new Dictionary<string, string>()); string responseText = await response.Content.ReadAsStringAsync(); List<YourCustomClassModel> serializedResult = _Serializer.Deserialize<List<YourCustomClassModel>>(responseText); Console.WriteLine(responseText); Console.ReadLine(); } /// <summary> /// Makes an async HTTP Request /// </summary> /// <param name="pMethod">Those methods you know: GET, POST, HEAD, etc...</param> /// <param name="pUrl">Very predictable...</param> /// <param name="pJsonContent">String data to POST on the server</param> /// <param name="pHeaders">If you use some kind of Authorization you should use this</param> /// <returns></returns> static async Task<HttpResponseMessage> Request(HttpMethod pMethod, string pUrl, string pJsonContent, Dictionary<string, string> pHeaders) { var httpRequestMessage = new HttpRequestMessage(); httpRequestMessage.Method = pMethod; httpRequestMessage.RequestUri = new Uri(pUrl); foreach (var head in pHeaders) { httpRequestMessage.Headers.Add(head.Key, head.Value); } switch (pMethod.Method) { case "POST": HttpContent httpContent = new StringContent(pJsonContent, Encoding.UTF8, "application/json"); httpRequestMessage.Content = httpContent; break; } return await _Client.SendAsync(httpRequestMessage); } } }

user2188550

여기에 정말 좋은 답변이 있습니다. WebClient()를 사용하여 헤더를 설정하는 다른 방법을 게시하겠습니다. API 키 설정 방법도 알려드리겠습니다.

 var client = new WebClient(); string credentials = Convert.ToBase64String(Encoding.ASCII.GetBytes(userName + ":" + passWord)); client.Headers[HttpRequestHeader.Authorization] = $"Basic {credentials}"; //If you have your data stored in an object serialize it into json to pass to the webclient with Newtonsoft's JsonConvert var encodedJson = JsonConvert.SerializeObject(newAccount); client.Headers.Add($"x-api-key:{ApiKey}"); client.Headers.Add("Content-Type:application/json"); try { var response = client.UploadString($"{apiurl}", encodedJson); //if you have a model to deserialize the json into Newtonsoft will help bind the data to the model, this is an extremely useful trick for GET calls when you have a lot of data, you can strongly type a model and dump it into an instance of that class. Response response1 = JsonConvert.DeserializeObject<Response>(response);

Adam

이 솔루션은 표준 .NET 호출만 사용합니다.

테스트:

• 엔터프라이즈 WPF 응용 프로그램에서 사용 중입니다. UI 차단을 피하기 위해 async/await를 사용합니다.
• .NET 4.5 이상과 호환됩니다.
• 매개변수 없이 테스트되었습니다(뒤에서 "GET" 필요).
• 매개변수로 테스트되었습니다(뒤에서 "POST" 필요).
• Google과 같은 표준 웹 페이지에서 테스트했습니다.
• 내부 Java 기반 웹 서비스로 테스트했습니다.

참조:

 // Add a Reference to the assembly System.Web

암호:

 using System; using System.Collections.Generic; using System.Collections.Specialized; using System.Net; using System.Net.Http; using System.Threading.Tasks; using System.Web; private async Task<WebResponse> CallUri(string url, TimeSpan timeout) { var uri = new Uri(url); NameValueCollection rawParameters = HttpUtility.ParseQueryString(uri.Query); var parameters = new Dictionary<string, string>(); foreach (string p in rawParameters.Keys) { parameters[p] = rawParameters[p]; } var client = new HttpClient { Timeout = timeout }; HttpResponseMessage response; if (parameters.Count == 0) { response = await client.GetAsync(url); } else { var content = new FormUrlEncodedContent(parameters); string urlMinusParameters = uri.OriginalString.Split('?')[0]; // Parameters always follow the '?' symbol. response = await client.PostAsync(urlMinusParameters, content); } var responseString = await response.Content.ReadAsStringAsync(); return new WebResponse(response.StatusCode, responseString); } private class WebResponse { public WebResponse(HttpStatusCode httpStatusCode, string response) { this.HttpStatusCode = httpStatusCode; this.Response = response; } public HttpStatusCode HttpStatusCode { get; } public string Response { get; } }

매개변수 없이 호출하려면(뒤에서 "GET" 사용):

 var timeout = TimeSpan.FromSeconds(300); WebResponse response = await this.CallUri("http://www.google.com/", timeout); if (response.HttpStatusCode == HttpStatusCode.OK) { Console.Write(response.Response); // Print HTML. }

매개변수를 사용하여 호출하려면(뒤에서 "POST" 사용):

 var timeout = TimeSpan.FromSeconds(300); WebResponse response = await this.CallUri("http://example.com/path/to/page?name=ferret&color=purple", timeout); if (response.HttpStatusCode == HttpStatusCode.OK) { Console.Write(response.Response); // Print HTML. }

Contango

지금까지 찾은 간단한(한 줄짜리, 오류 검사 없음, 응답 대기 없음) 솔루션:

 (new WebClient()).UploadStringAsync(new Uri(Address), dataString);‏

주의해서 사용하십시오!

Ohad Cohen

유창한 API가 마음에 들면 Tiny.RestClient 를 사용할 수 있습니다. NuGet 에서 사용할 수 있습니다.

 var client = new TinyRestClient(new HttpClient(), "http://MyAPI.com/api"); // POST var city = new City() { Name = "Paris", Country = "France" }; // With content var response = await client.PostRequest("City", city) .ExecuteAsync<bool>();

user8803505

Windows.Web.Http 네임스페이스를 사용할 때 FormUrlEncodedContent 대신 POST에 대해 HttpFormUrlEncodedContent를 작성합니다. 또한 응답은 HttpResponseMessage 유형입니다. 나머지는 Evan Mulawski가 쓴 대로입니다.

S4NNY1

그것을 하는 또 다른 방법:

 using (HttpClient httpClient = new HttpClient()) using (MultipartFormDataContent form = new MultipartFormDataContent()) { form.Add(new StringContent(param1), "param1"); form.Add(new StringContent(param2), "param2"); using (HttpResponseMessage response = await httpClient.PostAsync(url, form)) { response.EnsureSuccessStatusCode(); string res = await response.Content.ReadAsStringAsync(); return res; } }

이렇게 하면 스트림을 쉽게 게시할 수 있습니다.

ikwillem

왜 이것이 완전히 사소한 것이 아닌 것입니까? 요청을 수행하는 것은 특히 결과를 처리하지 않으며 일부 .NET 버그도 관련된 것처럼 보입니다 . HttpClient.GetAsync의 버그는 TaskCanceledException이 아닌 WebException을 throw해야 함을 참조하세요.

나는이 코드로 끝났습니다.

 static async Task<(bool Success, WebExceptionStatus WebExceptionStatus, HttpStatusCode? HttpStatusCode, string ResponseAsString)> HttpRequestAsync(HttpClient httpClient, string url, string postBuffer = null, CancellationTokenSource cts = null) { try { HttpResponseMessage resp = null; if (postBuffer is null) { resp = cts is null ? await httpClient.GetAsync(url) : await httpClient.GetAsync(url, cts.Token); } else { using (var httpContent = new StringContent(postBuffer)) { resp = cts is null ? await httpClient.PostAsync(url, httpContent) : await httpClient.PostAsync(url, httpContent, cts.Token); } } var respString = await resp.Content.ReadAsStringAsync(); return (resp.IsSuccessStatusCode, WebExceptionStatus.Success, resp.StatusCode, respString); } catch (WebException ex) { WebExceptionStatus status = ex.Status; if (status == WebExceptionStatus.ProtocolError) { // Get HttpWebResponse so that you can check the HTTP status code. using (HttpWebResponse httpResponse = (HttpWebResponse)ex.Response) { return (false, status, httpResponse.StatusCode, httpResponse.StatusDescription); } } else { return (false, status, null, ex.ToString()); } // https://devblogs.microsoft.com/dotnet/net-5-new-networking-improvements/ } catch (TaskCanceledException ex) when (ex.InnerException is TimeoutException) { return (false, ex.ToString(), null, WebExceptionStatus.Timeout); } catch (TaskCanceledException ex) { return (false, ex.ToString(), null, WebExceptionStatus.RequestCanceled); } catch (Exception ex) { return (false, WebExceptionStatus.UnknownError, null, ex.ToString()); } }

이것은 postBuffer가 null postBuffer 따라 GET 또는 POST를 수행합니다.

Success가 true이면 응답은 ResponseAsString

Success가 false인 경우 WebExceptionStatus , HttpStatusCode 및 ResponseAsString 을 확인하여 무엇이 잘못되었는지 확인할 수 있습니다.

kofifus

.net core에서는 다음 코드를 사용하여 사후 호출을 할 수 있습니다. 여기에서 이 코드에 몇 가지 추가 기능을 추가하여 코드가 프록시 뒤에서 작동하도록 하고 네트워크 자격 증명이 있는 경우 여기에도 인코딩을 변경할 수 있다고 언급했습니다. 당신의 메시지. 이것이 모든 것을 설명하고 코딩에 도움이 되기를 바랍니다.

 HttpClient client = GetHttpClient(_config); if (headers != null) { foreach (var header in headers) { client.DefaultRequestHeaders.TryAddWithoutValidation(header.Key, header.Value); } } client.BaseAddress = new Uri(baseAddress); Encoding encoding = Encoding.UTF8; var result = await client.PostAsync(url, new StringContent(body, encoding, "application/json")).ConfigureAwait(false); if (result.IsSuccessStatusCode) { return new RequestResponse { severity = "Success", httpResponse = result.Content.ReadAsStringAsync().Result, StatusCode = result.StatusCode }; } else { return new RequestResponse { severity = "failure", httpResponse = result.Content.ReadAsStringAsync().Result, StatusCode = result.StatusCode }; } public HttpClient GetHttpClient(IConfiguration _config) { bool ProxyEnable = Convert.ToBoolean(_config["GlobalSettings:ProxyEnable"]); HttpClient client = null; if (!ProxyEnable) { client = new HttpClient(); } else { string ProxyURL = _config["GlobalSettings:ProxyURL"]; string ProxyUserName = _config["GlobalSettings:ProxyUserName"]; string ProxyPassword = _config["GlobalSettings:ProxyPassword"]; string[] ExceptionURL = _config["GlobalSettings:ExceptionURL"].Split(';'); bool BypassProxyOnLocal = Convert.ToBoolean(_config["GlobalSettings:BypassProxyOnLocal"]); bool UseDefaultCredentials = Convert.ToBoolean(_config["GlobalSettings:UseDefaultCredentials"]); WebProxy proxy = new WebProxy { Address = new Uri(ProxyURL), BypassProxyOnLocal = BypassProxyOnLocal, UseDefaultCredentials = UseDefaultCredentials, BypassList = ExceptionURL, Credentials = new NetworkCredential(ProxyUserName, ProxyPassword) }; HttpClientHandler handler = new HttpClientHandler { Proxy = proxy }; client = new HttpClient(handler,true); } return client; }

Syed Fahad Ali

다음은 .NET 4.8에서 HTTP POST 요청을 만드는 데 사용하는 것입니다. 이 코드를 사용하면 한 번에 여러 POST 요청을 비동기식으로 보낼 수 있습니다. 각 요청이 끝나면 이벤트가 발생합니다. 또한 모든 요청이 끝나면 다른 이벤트가 발생합니다.

다음은 핵심 클래스입니다.

 Imports System.ComponentModel Imports System.Text.RegularExpressions Imports System.Timers Imports System.Windows.Forms Imports AeonLabs Imports AeonLabs.Environment Imports Newtonsoft.Json Public Class HttpDataCore Public Property url As String Public Property state As New environmentVarsCore Public Property errorMessage As String = "" Public Property statusMessage As String Public Property threadCount As Integer = 25 Public Property numberOfRetryAttempts = 5 Public Property queue As List(Of _queue_data_struct) Public Property queueBWorker As Integer() ' has the size of threadCount Public Property queueLock As New Object Public Property retryAttempts As New _retry_attempts Public Property dataStatistics As List(Of _data_statistics) Public Property loadingCounter As Integer Public Property CompletionPercentage As Integer ' value range 0-100 Public Property IsBusy As Boolean Public Structure _queue_data_struct Dim vars As Dictionary(Of String, String) Dim filenameOrSavePath As String ' full address file name or full adress folder path Dim misc As Dictionary(Of String, String) Dim status As Integer ' -1 - completed; 0- not sent yet; 1-already sent / processing End Structure Public Structure _retry_attempts Dim counter As Integer Dim pattern As Integer Dim previousPattern As Integer Dim errorMessage As String End Structure Public Structure _data_statistics Dim filesize As Double Dim bytesSentReceived As Double Dim speed As Double End Structure Public WithEvents RestartQueueTimer As New Timers.Timer Public bwDataRequest() As BackgroundWorker Public Event requestCompleted(sender As Object, requestData As String) 'TODO add misc vars Private sendToQueue As Boolean Public Sub New(ByVal Optional _state As environmentVarsCore = Nothing, ByVal Optional _url As String = "") queue = New List(Of _queue_data_struct) dataStatistics = New List(Of _data_statistics) loadingCounter = 0 sendToQueue = False If _state IsNot Nothing AndAlso _url.Equals("") Then url = _state.ServerBaseAddr & _state.ApiServerAddrPath ElseIf Not _url.Equals("") Then url = _url Else Throw New System.Exception("Initialization err: state and url cannot be both null at same time") End If If _state IsNot Nothing Then state = _state End If End Sub Public Sub loadQueue(ByVal vars As Dictionary(Of String, String), ByVal Optional misc As Dictionary(Of String, String) = Nothing, ByVal Optional filenameOrSavePath As String = Nothing) Dim queueItem As New _queue_data_struct queueItem.vars = New Dictionary(Of String, String) queueItem.misc = New Dictionary(Of String, String) queueItem.vars = vars queueItem.status = 0 queueItem.misc = misc queueItem.filenameOrSavePath = filenameOrSavePath queue.Add(queueItem) End Sub Public Sub clearQueue() loadingCounter = 0 queue = New List(Of _queue_data_struct) End Sub Public Sub startRequest() If bwDataRequest(0) Is Nothing Then Throw New Exception("You need to call initialze first") Exit Sub End If 'startSendQueue() IsBusy = True AddHandler RestartQueueTimer.Elapsed, New ElapsedEventHandler(AddressOf QueueTimerTick) With RestartQueueTimer .Enabled = True .Interval = 500 .Start() End With End Sub Private Sub QueueTimerTick(ByVal sender As Object, ByVal e As ElapsedEventArgs) If QueuesToComplete(queue).Equals(0) And QueuesToSend(queue).Equals(0) Then RestartQueueTimer.Stop() queue = New List(Of _queue_data_struct) RaiseEvent requestCompleted(Me, Nothing) IsBusy = False Exit Sub End If If retryAttempts.counter >= numberOfRetryAttempts Then 'ToDo a retry number of attempts before quits Threading.Thread.CurrentThread.CurrentUICulture = Globalization.CultureInfo.GetCultureInfo(state.currentLang) Dim MsgBox As messageBoxForm MsgBox = New messageBoxForm(retryAttempts.errorMessage & ". " & My.Resources.strings.tryAgain & " ?", My.Resources.strings.question, MessageBoxButtons.YesNo, MessageBoxIcon.Question) If MsgBox.ShowDialog() = DialogResult.Yes Then Dim retry As _retry_attempts With retry .counter = 0 .previousPattern = -1 .pattern = 0 .errorMessage = "" End With retryAttempts = retry startSendQueue() Else RestartQueueTimer.Stop() queue = New List(Of _queue_data_struct) RaiseEvent requestCompleted(Me, Nothing) IsBusy = False Exit Sub End If Exit Sub ElseIf Not sendToQueue And QueuesToSend(queue) > 0 Then startSendQueue() End If End Sub Private Sub startSendQueue() sendToQueue = True While QueuesToSend(queue) > 0 For shtIndex = 0 To threadCount For i = 0 To queue.Count - 1 If Not bwDataRequest(shtIndex).IsBusy Then SyncLock queueLock If queue.ElementAt(i).status.Equals(0) Then Dim data As New _queue_data_struct data.vars = queue.ElementAt(i).vars data.status = 1 data.misc = queue.ElementAt(i).misc data.filenameOrSavePath = queue.ElementAt(i).filenameOrSavePath queue(i) = data queueBWorker(shtIndex) = i dataStatistics(shtIndex) = (New _data_statistics) bwDataRequest(shtIndex).RunWorkerAsync(queue(i)) Threading.Thread.Sleep(50) End If End SyncLock End If Next i Next shtIndex End While sendToQueue = False End Sub Public Function QueuesToSend(queue As List(Of _queue_data_struct)) As Integer Dim counter As Integer = 0 For i = 0 To queue.Count - 1 If queue(i).status.Equals(0) Then counter += 1 End If Next i Return counter End Function Public Function QueuesToComplete(queue As List(Of _queue_data_struct)) As Integer Dim counter As Integer = 0 For i = 0 To queue.Count - 1 If queue(i).status.Equals(1) Then counter += 1 End If Next i Return counter End Function Public Function QueuesMultiHash(queue As List(Of _queue_data_struct)) As Integer Dim counter As Integer = 0 For i = 0 To queue.Count - 1 If queue(i).status.Equals(1) Then counter += i End If Next i Return counter End Function Public Function IsBase64String(ByVal s As String) As Boolean s = s.Trim() Return (s.Length Mod 4 = 0) AndAlso Regex.IsMatch(s, "^[a-zA-Z0-9\+/]*={0,3}$", RegexOptions.None) End Function '+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Public Function ConvertDataToArray(key As String, fields As String(), response As String) As Dictionary(Of String, List(Of String)) If GetMessage(response).Equals("1001") Then Threading.Thread.CurrentThread.CurrentUICulture = Globalization.CultureInfo.GetCultureInfo(state.currentLang) errorMessage = "{'error':true,'message':'" & My.Resources.strings.errorNoRecordsFound & "'}" Return Nothing End If Try Dim jsonResult = JsonConvert.DeserializeObject(Of Dictionary(Of String, Object))(response) If jsonResult.ContainsKey(key) Then If Not jsonResult.Item(key).item(0).Count.Equals(fields.Length) Then Threading.Thread.CurrentThread.CurrentUICulture = Globalization.CultureInfo.GetCultureInfo(state.currentLang) errorMessage = "{'error':true,'message':'" & My.Resources.strings.JsonFieldsMismatch & ". table(" & key & "'}" Return Nothing Else Dim results = New Dictionary(Of String, List(Of String)) For k = 0 To fields.Length - 1 Dim fieldValues As List(Of String) = New List(Of String) For i = 0 To jsonResult.Item(key).Count - 1 fieldValues.Add(jsonResult.Item(key).item(i).item(k).ToString) Next i results.Add(fields(k), fieldValues) Next k Return results End If Else Threading.Thread.CurrentThread.CurrentUICulture = Globalization.CultureInfo.GetCultureInfo(state.currentLang) errorMessage = "{'error':true,'message':'" & My.Resources.strings.JsonkeyNotFound & " (" & key & "'}" Return Nothing End If Catch ex As Exception errorMessage = "{'error':true,'message':'" & ex.ToString & "'}" errorMessage = ex.ToString Return Nothing End Try End Function End Class

AeonLabs.Envoriment 는 컬렉션 또는 필드 및 속성이 있는 클래스입니다.

그리고 다음은 POST 요청을 하기 위한 것입니다.

 Imports System.ComponentModel Imports System.IO Imports System.Net Imports System.Text Imports System.Web Imports System.Web.Script.Serialization Imports System.Windows.Forms Imports AeonLabs.Environment Imports AeonLabs.Security Public Class HttpDataPostData Inherits HttpDataCore Public Event updateProgress(sender As Object, misc As Dictionary(Of String, String)) Public Event dataArrived(sender As Object, requestData As String, misc As Dictionary(Of String, String)) Public Sub New(ByVal Optional _state As environmentVarsCore = Nothing, ByVal Optional _url As String = "") MyBase.New(_state, _url) End Sub Public Sub initialize(ByVal Optional _threadCount As Integer = 0) If Not _threadCount.Equals(0) Then threadCount = _threadCount End If ReDim bwDataRequest(threadCount) ReDim queueBWorker(threadCount) For shtIndex = 0 To threadCount dataStatistics.Add(New _data_statistics) bwDataRequest(shtIndex) = New System.ComponentModel.BackgroundWorker bwDataRequest(shtIndex).WorkerReportsProgress = True bwDataRequest(shtIndex).WorkerSupportsCancellation = True AddHandler bwDataRequest(shtIndex).DoWork, AddressOf bwDataRequest_DoWork AddHandler bwDataRequest(shtIndex).RunWorkerCompleted, AddressOf bwDataRequest_RunWorkerCompleted Next shtIndex Dim retry As _retry_attempts With retry .counter = 0 .previousPattern = -1 .pattern = 0 .errorMessage = "" End With retryAttempts = retry End Sub Private Sub bwDataRequest_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) ' Find out the Index of the bWorker that called this DoWork (could be cleaner, I know) Dim Y As Integer Dim Index As Integer = Nothing For Y = 0 To UBound(bwDataRequest) If sender.Equals(bwDataRequest(Y)) Then Index = Y Exit For End If Next Y Dim queue As _queue_data_struct queue = e.Argument Dim vars As New Dictionary(Of String, String) vars = queue.vars 'TODO translation need to be local If Not System.Net.NetworkInformation.NetworkInterface.GetIsNetworkAvailable() Then Threading.Thread.CurrentThread.CurrentUICulture = System.Globalization.CultureInfo.GetCultureInfo(state.currentLang) e.Result = "{'error':true,'message':'" & My.Resources.strings.errorNoNetwork & "'}" Exit Sub End If If vars Is Nothing Then e.Result = "{'error':true,'message':'missconfiguration vars'}" Exit Sub End If If Not vars.ContainsKey("id") Then vars.Add("id", state.userId) End If If Not vars.ContainsKey("pid") Then Dim appId As New FingerPrint vars.Add("pid", appId.Value) End If If Not vars.ContainsKey("language") Then vars.Add("language", state.currentLang) End If If Not vars.ContainsKey("origin") Then vars.Add("origin", state.softwareAccessMode) End If Dim serializer As New JavaScriptSerializer() Dim json As String = serializer.Serialize(vars) Dim encryption As New AesCipher(state) Dim encrypted As String = HttpUtility.UrlEncode(encryption.encrypt(json)) Dim PostData = "origin=" & state.softwareAccessMode & "&data=" & encrypted Dim request As WebRequest = WebRequest.Create(url) Dim responseFromServer As String = "" Dim decrypted As String = "" request.Method = "POST" Dim byteArray As Byte() = Encoding.UTF8.GetBytes(PostData) request.ContentType = "application/x-www-form-urlencoded" request.Headers.Add("Authorization", state.ApiHttpHeaderToken & "-" & state.softwareAccessMode) request.ContentLength = byteArray.Length Try Dim dataStream As Stream = request.GetRequestStream() dataStream.Write(byteArray, 0, byteArray.Length) dataStream.Close() Dim response As HttpWebResponse = CType(request.GetResponse(), HttpWebResponse) dataStream = response.GetResponseStream() Dim reader As New StreamReader(dataStream) responseFromServer = reader.ReadToEnd() reader.Close() dataStream.Close() response.Close() If response.StatusCode = HttpStatusCode.Accepted Or response.StatusCode = 200 Then If IsBase64String(responseFromServer) And Not responseFromServer.Equals("") Then decrypted = encryption.decrypt((responseFromServer)).Replace("\'", "'") Else Threading.Thread.CurrentThread.CurrentUICulture = System.Globalization.CultureInfo.GetCultureInfo(state.currentLang) decrypted = "{'error':true,'encrypted':false,'message':'" & My.Resources.strings.contactingCommServer & " |" & responseFromServer & "|'}" End If Else Threading.Thread.CurrentThread.CurrentUICulture = System.Globalization.CultureInfo.GetCultureInfo(state.currentLang) decrypted = "{'error':true,'message':'" & My.Resources.strings.contactingCommServer & " (" & response.StatusCode & ")', 'statuscode':'" & response.StatusCode & "'}" End If Catch ex As Exception Threading.Thread.CurrentThread.CurrentUICulture = System.Globalization.CultureInfo.GetCultureInfo(state.currentLang) decrypted = "{'error':true,'message':'" & My.Resources.strings.contactingCommServer & " (" & ex.Message.ToString.Replace("'", "\'") & ")'}" End Try e.Result = decrypted.Replace("\'", "'") End Sub Private Sub bwDataRequest_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) ' Find out the Index of the bWorker that called this DoWork (could be cleaner, I know) Dim Y As Integer Dim Index As Integer = Nothing Dim data As New _queue_data_struct For Y = 0 To UBound(bwDataRequest) If sender.Equals(bwDataRequest(Y)) Then Index = Y Exit For End If Next Y If IsResponseOk(e.Result, "statuscode") Then data = New _queue_data_struct data = queue(queueBWorker(Index)) data.status = 0 're queue the file SyncLock queueLock queue(queueBWorker(Index)) = data End SyncLock Dim errorMsg As String = GetMessage(e.Result) Dim retry As _retry_attempts With retry .counter = retryAttempts.counter .previousPattern = retryAttempts.previousPattern .pattern = retryAttempts.pattern .errorMessage = retryAttempts.errorMessage End With retry.errorMessage = If(retryAttempts.errorMessage.IndexOf(errorMsg) > -1, retryAttempts.errorMessage, retryAttempts.errorMessage & System.Environment.NewLine & errorMsg) retry.pattern = QueuesMultiHash(queue) If retry.previousPattern.Equals(retry.pattern) Then retry.counter += 1 Else retry.counter = 1 retry.previousPattern = retryAttempts.pattern End If retryAttempts = retry Exit Sub End If data = New _queue_data_struct data = queue(queueBWorker(Index)) data.status = -1 'completed sucessfully status SyncLock queueLock queue(queueBWorker(Index)) = data End SyncLock loadingCounter += 1 CompletionPercentage = (loadingCounter / queue.Count) * 100 statusMessage = "Loading data from the cloud ..." RaiseEvent updateProgress(Me, queue(queueBWorker(Index)).misc) RaiseEvent dataArrived(Me, e.Result, queue(queueBWorker(Index)).misc) End Sub End Class

Aoenlabs.Security는 표준 암호화 알고리즘을 사용하여 암호화된 POST 데이터를 전송하기 위한 클래스입니다.

Miguel Silva

출처 : http:www.stackoverflow.com/questions/4015324/how-to-make-an-http-post-web-request