Set CL7="C:\Program Files\Microsoft Visual Studio .NET 2003\Vc7\bin\cl.exe"
Set LINK7="C:\Program Files\Microsoft Visual Studio .NET 2003\Vc7\bin\link.exe"
Set INC7="C:\Program Files\Microsoft Visual Studio .NET 2003\Vc7\include"
Set LIB7="C:\Program Files\Microsoft Visual Studio .NET 2003\Vc7\lib"
%CL7% lang_01.cpp /c /I%INC7%
%LINK7% /LIBPATH:%LIB7% lang_01.obj
Set Ftp = CreateObject( "Lbox.Ftp" )
Server = "bekins.borland.com"
User = "anonymous"
Password = "user@domain"
Remote = "/groups/jp/cppbuild/"
FileName = "freecommandlinetools2.exe"
if Ftp.Connect( Server, User, Password, True ) then
Call Ftp.Download(Remote & "/" & FileName, FileName)
Call Ftp.DisConnect()
end if
VB Framework 版
vbc.exe lang_03.bas
↑ビルド
Imports System.IO
Imports System.Net
Module MyModule
' ********************************************************' * 実行' ********************************************************
Sub Main()
Dim strTarget As String = "ftp://bekins.borland.com"
strTarget &= "/groups/jp/cppbuild/"
Dim strFile As String = "freecommandlinetools2.exe"
strTarget &= strFile
' FTP 用インスタンス作成
Dim request As FtpWebRequest = WebRequest.Create(strTarget)
' Passive モード
request.UsePassive = True
' バイナリ処理
request.UseBinary = True
' ダウンロードコマンドをセット
request.Method = WebRequestMethods.Ftp.DownloadFile
' 接続用オブジェクトを FTP 用インスタンスにセット
request.Credentials = new NetworkCredential ("anonymous","user@domain")
' コマンド実行
Dim response As FtpWebResponse = request.GetResponse()
' レスポンスより、ストリームを取得
Dim responseStream As Stream = response.GetResponseStream()
' バイナリストリームリーダーのインスタンス作成
Dim reader As BinaryReader = new BinaryReader(responseStream)
' ファイルストリーム作成
Dim fs As FileStream = new FileStream( strFile, FileMode.Create )
' ライタ作成
Dim w As BinaryWriter = new BinaryWriter(fs)
Dim loopFlg As Boolean = True
Dim data As byte = 0
Dim nCount As Integer = 0
Do while( loopFlg )
Try
data = reader.ReadByte()
w.Write( data )
nCount += 1
if nCount Mod 100000 = 0 then
Console.Write( "*" )
end if
Catch e As EndOfStreamException
loopFlg = False
End Try
Loop
' ファイルクローズ
w.Close()
fs.Close()
' リーダーを閉じる
reader.Close()
' 要求を閉じる
response.Close()
End Sub
End Module
// オブジェクト作成
var Ftp = new ActiveXObject("Lbox.Ftp");
// 変数
var Server = "bekins.borland.com";
var User = "anonymous";
var Password = "user@domain";
var Remote = "/groups/jp/cppbuild/"
var FileName = "freecommandlinetools2.exe";
if ( Ftp.Connect( Server, User, Password, true ) ) {
Ftp.Download(Remote + "/" + FileName, FileName);
Ftp.DisConnect();
}
Jscript Framework 版
jsc.exe lang_06.js
↑ビルド
import System;
import System.IO;
import System.Net;
var strTarget : String = "ftp://bekins.borland.com";
strTarget += "/groups/jp/cppbuild/";
var strFile : String = "freecommandlinetools2.exe";
strTarget += strFile;
// FTP 用インスタンス作成
var request : FtpWebRequest = WebRequest.Create(strTarget);
// Passive モード
request.UsePassive = true;
// バイナリ処理
request.UseBinary = true;
// ダウンロードコマンドをセット
request.Method = WebRequestMethods.Ftp.DownloadFile;
// 接続用オブジェクトを FTP 用インスタンスにセット
request.Credentials = new NetworkCredential ("anonymous","user@domain");
// コマンド実行
var response : FtpWebResponse = request.GetResponse();
// レスポンスより、ストリームを取得
var responseStream : Stream = response.GetResponseStream();
// バイナリストリームリーダーのインスタンス作成
var reader : BinaryReader = new BinaryReader(responseStream);
// ファイルストリーム作成
var fs : FileStream = new FileStream( strFile, FileMode.Create );
// ライタ作成
var w : BinaryWriter = new BinaryWriter(fs);
var loop : Boolean = true;
var data : byte = 0;
var nCount = 0;
while( loop ) {
try {
data = reader.ReadByte();
w.Write( data );
nCount++;
if ( nCount % 100000 == 0 ) {
Console.Write( "*" );
}
}
catch( e ) {
loop = false;
}
}
// ファイルクローズ
w.Close();
fs.Close();
// リーダーを閉じる
reader.Close();
// 要求を閉じる
response.Close();