上位に戻る PC遠隔電源制御 初版20160110
スマホやタブレットに動画を保存して見ていたのですが、いちいち　SDカードに保存するのが面倒なのでWebサーバから直接見たく、フォルダ内のファイル一覧を構成してファイルにリンクするアプリを作ってみました。スマホからWindowsパソコンの共有フォルダにアクセスできるのですが、認証に失敗する場合もあり使っていません。
リンクタグにしている為、ブラウザの機能により、即時再生されず、ダウンロードする場合もあります。
スマホは、Android 再生ソフトは、MXプレーヤを使っています。即時再生されます。
  1. 動作環境について
    ■サーバ環境
    ASP.NETで動作するWebページです。.NET Framework2.0〜3.5 用のconfigになっています。





  2. asp.netプログラム

    ショボイ簡単なプログラムです。表示するフォルダの場所と、URLの場所を変更してください
    セルで行を追加しているのですが、改行タグを入れないと、改行しません
    なんかおかしいかも・・・・・・。


    Dim conTextBox(1000) As System.Web.UI.WebControls.TextBox ' TextBoxの数
    Dim conLiteral(1000) As System.Web.UI.WebControls.Literal
    --------------------------------------------------------------------

    　Dim tbCell As New TableCell
    　Dim tbRow1 As New TableRow
    　Dim namae(10) As String
    　Dim icount As Integer = 1


    　'ファイルをすべて取得する
    　Dim di As New System.IO.DirectoryInfo("d:\x\xxxx\adlt") '表示させるフォルダの場所を指定
    　Dim files As System.IO.FileInfo() = _
    　di.GetFiles("*.*", System.IO.SearchOption.AllDirectories)


    　'ファイル名を表示
    　For Each f As System.IO.FileInfo In files

    　conLiteral(icount) = New System.Web.UI.WebControls.Literal
    　conTextBox(icount) = New System.Web.UI.WebControls.TextBox
    　conTextBox(icount).BorderStyle = BorderStyle.None
    　conTextBox(icount).Width = System.Web.UI.WebControls.Unit.Parse("20px")
    　tbCell.Controls.Add(conTextBox(icount))
    　conTextBox(icount).Text = icount
    　tbRow1.Cells.Add(tbCell)

    　namae(1) = "/xxxx/adlt/" & f.Name 'ブラウザから表示する場所を指定
    　namae(2) = f.Name
    　conLiteral(icount).Text = "<A href=""" & namae(1) & """>" & namae(2) & "</a><BR>"
    　tbCell.Controls.Add(conLiteral(icount))
    　tbRow1.Cells.Add(tbCell)

    　Table1.Rows.Add(tbRow1)

    　icount = icount + 1
    　Next





    test1.zip 初版2016/01/10


    留意点
    どうもファイル名に#があるとダメなようです。ちなみに　％や？や＝なども意味のある特殊コードのため、ファイル名に含まれているとダメかもしれません。