BVB ソース・コード

Delphi は、MMS プロトコルを使用してストリーミング メディア ファイルをダウンロードするには 表示する Unit1.pasソースコード

戻る ダウンロードDelphi は、MMS プロトコルを使用してストリーミング メディア ファイルをダウンロードするには: 個別にダウンロードUnit1.pasソースコード - 全体をダウンロードDelphi は、MMS プロトコルを使用してストリーミング メディア ファイルをダウンロードするにはソースコード - タイプ:.pas
  1. unit Unit1;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, StdCtrls, ExtCtrls, MMS, AppEvnts, ComCtrls, UnitMMSTask, Unit2;
  8.  
  9. type
  10.   TForm1 = class(TForm)
  11.     Panel1: TPanel;
  12.     edtHost: TEdit;
  13.     edtPort: TEdit;
  14.     btnDownLoad: TButton;
  15.     btnDisConnect: TButton;
  16.     btnClear: TButton;
  17.     Memo1: TMemo;
  18.     edtDestFile: TEdit;
  19.     btnTest: TButton;
  20.     edtSourceFile: TEdit;
  21.     StatusBar1: TStatusBar;
  22.     edtStartPacketNO: TEdit;
  23.     Timer1: TTimer;
  24.     procedure btnClearClick(Sender: TObject);
  25.     procedure btnDownLoadClick(Sender: TObject);
  26.     procedure btnDisConnectClick(Sender: TObject);
  27.     procedure btnTestClick(Sender: TObject);
  28.     procedure FormShow(Sender: TObject);
  29.     procedure Timer1Timer(Sender: TObject);
  30.   private
  31.     { Private declarations }
  32.   public
  33.     { Public declarations }
  34.   end;
  35.  
  36. var
  37.   Form1: TForm1;
  38.   MyMMS: TMMSThread;
  39.   MMSTask: TMMSTaskThread;
  40. implementation
  41.  
  42. {$R *.dfm}
  43.  
  44. procedure TForm1.btnClearClick(Sender: TObject);
  45. begin
  46.   Memo1.Clear;
  47. end;
  48.  
  49. procedure TForm1.btnDownLoadClick(Sender: TObject);
  50. begin
  51.   MyMMS := TMMSThread.Create(Memo1,
  52.                              edtHost.Text,
  53.                              StrToInt(edtPort.Text),
  54.                              edtSourceFile.Text,
  55.                              edtDestFile.Text,
  56.                              StrToInt(edtStartPacketNO.Text));
  57.   MyMMS.Resume;
  58. end;
  59.  
  60. procedure TForm1.btnDisConnectClick(Sender: TObject);
  61. begin
  62.   MyMMS.bTerminate := True;
  63. end;
  64.  
  65.  
  66. procedure TForm1.btnTestClick(Sender: TObject);
  67. begin
  68.   MMSTask := TMMSTaskThread.Create(edtHost.Text,
  69.                                    StrToInt(edtPort.Text),
  70.                                    edtSourceFile.Text,
  71.                                    edtDestFile.Text,
  72.                                    2);
  73.   Timer1.Enabled := True;                                  
  74. end;
  75.  
  76. procedure TForm1.FormShow(Sender: TObject);
  77. begin
  78.   Form2.Show;
  79. end;
  80.  
  81. procedure TForm1.Timer1Timer(Sender: TObject);
  82. begin
  83. //
  84. end;
  85.  
  86. end.
  87.  
個別にダウンロードUnit1.pasソースコード - 全体をダウンロードDelphi は、MMS プロトコルを使用してストリーミング メディア ファイルをダウンロードするにはソースコード
関連するソース/ソフトウェア:
Delphi は単純なの P2P チャット プログラムを実装します。 - プロトコルで使用、簡単なサーバー ・ Clisent とソケットの制御に使用されるこの簡単な P2P... 2012-02-18
Delphi 取得システム プロセスのポート - Windows をダイナミック リンク ライブラリ システム提供 Iphlpapi.dll ファイル... 2012-02-18
卒業: デルファイ賃金管理システム - 大学院生の卒業プロジェクト Delphi の作品は、これ、近くの大きな賃金管理システム管理システム ... 2012-02-18
単純な Delphi 電卓 - 実装は、単純な電子計算機に、Tedit コントロールは、主に同じような機能し、BitBtn コントロ... 2012-02-18
RM ファイル アドレス、セキュリティ チェックの DELPHI 実装 - RM 形式で映画をダウンロードしているときは、多くの Web ページはトロイ人であることがあります、... 2012-02-18
Delphi 漢字教育ソフトウェア完全な版 - Delphi 生徒中国語の文字認識ソフトウェア バージョンは、オンラインのバージョンによるとがされて... 2012-02-18
イメージ コントロールを使用して表示およびテキストを描画する Delphi の例 - Delphi の例は、イメージ コントロールを使用して表示し、このコントロール内のテキストを描画する... 2012-02-18
Delphi タッチパネル レジ システム ソース プログラム - 独自のサーバーを実行するには、大規模なシステム、サーバーとクライアントのニーズとディレクトリ構造の観... 2012-02-18
子供の数学的演算ソフトウェア Delphi ソース コード - 生徒の数は、サードパーティ製のコントロール、Delphi 2007 で既にコントロールによって提供さ... 2012-02-18
画像の選択と編集プラグイン v2.0 Delphi 版 - これは、プラグインを使用する、デルファイ グラフィックスですが迅速に複数のイメージのディレクトリ間で... 2012-02-18
雷賃金クエリ システム v7.0 - ソフトウェアの更新、およびデータの暗号化に対する包括的な変更。 雷賃金クエリ システム オンライン... 2016-08-19
FaLiang 3 層ディレクトリ v1.0 - このデモは 3 層アドレス帳のソース コードは、ミスのない友人の必要性! 1、検索 2、アドレ... 2016-08-19
ケ Xi サイト ヘルプ システム v2.4 - ケ Xi サイト ヘルプ システムは非常に役に立つヘルプ システム、プログラム、Web サイト、企業... 2016-08-19
レンタル レンタル販売プラットフォーム 1.0 - レンタル レンタル販売プラットフォームは非常に典型的なレンタル ネットワーク管理システム ソース コ... 2016-08-19
V1.95 Shangyun CMS (SyCms) - メニューとブロック システムのスタイル機能を追加します。 さらに一歩は、ファイル選択ファイル問題を復... 2016-08-19
SuperSocket v1.6.6 - 軽量であり、拡張可能な開発フレームワークを使用して、どのようにソケットを使用する方法を学ぶことがなく... 2016-08-19
基本的なデータ エントリ プログラム v2.0 - 1、プログラムに基づきます。 net4.0 フレームワークと開発環境 vs2010 IIS7.0 に... 2016-08-19
学生情報システム v2.0 - 1、プログラムに基づきます。 net4.0 フレームワークと開発環境 vs2010 IIS7.0 に... 2016-08-19
Baidu の手書き入力メソッドのソース コード v1.0 - Baidu の手書き入力メソッド ソース コード、オンライン ネットワークでこのようなソースコードの... 2016-08-19
B2B e コマース システム v1.0 の JAVA 版での信頼性の高いソース - 虹 B2B システム データベースと MySQL で人気の高い JAVA 言語を使用してください。 ... 2016-08-19

 トップへ戻る