@Blog{zip358.com}

検索する

PHPとVS2015をJSONで連携する。第二弾

2016.06.18

Logging

VB2015側

Imports System.Net
Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim sTargetUrl As String = "http://zip358.com/tool/2015-12-01-smp/index.php"
        Dim objWeb As WebClient = New WebClient()
        Dim bResult As Byte() = objWeb.DownloadData(sTargetUrl)
        Dim sJson As String = System.Text.Encoding.UTF8.GetString(bResult)
        Dim json_obj As Object = JsonConvert.DeserializeObject(sJson)
        RichTextBox1.Text = json_obj("1")("id") & json_obj("1")("name")
    End Sub
End Class

PHP側

<?php
$hoge = array();
$a = 'jsonｷﾀ━(ﾟ∀ﾟ)━!name';
for ($i = 1; $i < 100; $i++)$hoge[$i] = array("id"=>$i,"name"=>$a);
//echo $hoge[$i]["name"];}
header('Content-type: application/json;charset=UTF-8');
echo json_encode($hoge, JSON_UNESCAPED_UNICODE);

以前、PHPとVS2015をJSONで連携する。という記事を
掲載したと思いますが、第二弾として、配列化して取得する方法を
記載したいと思います。
今回使う吐き出し側は以前と変わっていませんが
取り出し側が以前と少し変わってStringで返ってきたjsonデータを
デシリアライズしてから、Objectに流し込んでます。
下記のような結果が得られます。（画像参照）

タグ

AM, Content-type, Dim bResult As Byte, Dim json_obj As Object, Dim objWeb As WebClient, Dim sJson As String, Dim sTargetUrl As String, e As EventArgs, echo json_encode, End Class, Handles Button1.Click, Imports System.Net, JsonConvert.DeserializeObject, New WebClient, objWeb.DownloadData, Private Sub Button1_Click, Public Class Form1, RichTextBox1.Text, sender As Object, System.Text.Encoding.UTF8.GetString, VS2015, デシリアライズ,

PHPとVS2015をJSONで連携する。

2015.12.02

Logging

Imports System.Net
Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim sTargetUrl As String = "http://zip358.com/tool/2015-12-01-smp/index.php"
        Dim objWeb As WebClient = New WebClient()
        Dim bResult As Byte() = objWeb.DownloadData(sTargetUrl)
        Dim sJson As String = System.Text.Encoding.UTF8.GetString(bResult)
        RichTextBox1.Text = sJson
    End Sub
End Class

<?php
$hoge = array();
$a = 'jsonｷﾀ━(ﾟ∀ﾟ)━!name';
for ($i = 1; $i < 100; $i++)$hoge[$i] = array("id"=>$i,"name"=>$a);
//echo $hoge[$i]["name"];}
header('Content-type: application/json;charset=UTF-8');
echo json_encode($hoge, JSON_UNESCAPED_UNICODE);

これで事足りる。ちなみにVB2015からMYSQLに接続する方法とかも有ります。
この頃、VS2015無料版で何かできないかと模索中です。
前回作ったメモった何やら結構ダウンロードしてくれてる
みたいで結構嬉しかったりするのですが・・・
開発に時間もかかってないあんな短いしょぼいアプリでも
使ってもらえるって事は自分が作ったものって
案外需要がないわけではないことが
分かったので、アンドロイドアプリも作るつもりです。
ちなみに折り返しまで作っているのですが
あとAndroidStudio2.0がそろそろリリースされそうなので
リリースされてから、バージョンアップ後、
開発とかしようかなとか考えています。
ちなみに、上記のコードは少しパックってます(´Д｀)が！！
何か！？
ちなみにアセンブリをひとつ参照しないといけないので
ご注意をコレ＞＞system.web.Extensions を参照してくださいな！！
第二弾へ続く｛配列化して取得する。｝
 

タグ

１, AM, AndroidStudio2.0, Content-type, Dim bResult As Byte, Dim objSrializer As JavaScriptSerializer, Dim objWeb As WebClient, Dim sJson As String, Dim sTargetUrl As String, e As EventArgs, Handles Button1.Click, Imports System.Net, Imports System.Text, Imports System.Web.Script.Serialization, New JavaScriptSerializer, New WebClient, objWeb.DownloadData, Private Sub Button1_Click, Public Class Form1, RichTextBox1.Text, sender As Object, System.Text.Encoding.UTF8.GetString, system.web.Extensions, Visual Studio 2015 Windows, VS2015,

#サンプルコード 極力おなじコードを書かないようにする方法2。

2015.03.13

Logging

極力おなじコードを書かないようにする方法のつづき、明日、VS2013で作成したコードをうっぷすると記載しましたが、本日の暇な時間を使って作成しました。コードは下記のとおりです。上記の画像と同じオブジェクト（Button）を作成して下記のコードを貼り付けるとExcelのサンプルコードと同様の処理をします。今回のコードに関してはzipでの配布はしない事にしました。このコードを動かすためにはVisual Studio Community & Express 2013を使用しています（無償版）。ダウンロードしてインストールして動かしてみてください。なお、マイクロソフトにアカウント登録を行わないといけません。MSNメッセンジャーなどを昔使用していた方などは、再度登録する必要はありません。

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        bt_ck(sender, 1)
    End Sub
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        bt_ck(sender, 2)
    End Sub
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        bt_ck(sender, 3)
    End Sub
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
        Dim bt_ary() As Button = {Me.Button1, Me.Button2, Me.Button3}
        For i As Integer = 0 To bt_ary.Count
            bt_ary(i).Text = ""
        Next
    End Sub
    Sub bt_ck(obj As Object, i As Integer)
        If obj.text = "(^_^)v " & i Then
            obj.text = "(^_^)g " & i
        Else
            obj.text = "(^_^)v " & i
        End If
    End Sub
End Class

 

タグ

AM, e As EventArgs, End Sub, For i As Integer, Handles Button1.Click, Handles Button2.Click, Handles Button3.Click, Handles Me.Load, If obj.text, Me.Button1, Me.Button2, Me.Button3, obj As Object, Private Sub, Private Sub Button1_Click, Private Sub Button2_Click, Private Sub Button3_Click, Private Sub Form1_Load, Public Class Form1, sender As Object, Visual Studio Community,