FTP情報の保存とアクセス
私たちはFTP関連の開発を行うと、データベースのテーブルに、後続のFTPスイッチング、一般的な最初のFTPアカウントの保存情報を容易にするために、クエリを使用している場合は、それを通じ再獲得します。
通常、FTP情報を、以下の方法の、次のように：
1 // 获取FTP信息 2 と qTmp ん 3が 始まる 4を 閉じます。 5 SQL.Clear; 6 SQL.Text：= ' SELECT * FROM SYS_FTP_INFO WHERE NAME = ''テスト'」' 。 7 オープン。 8 SYS_FTPUSER：= FieldByName（' USERNAME ' ）.AsString。 9 SYS_FTPPASSWORD：= FieldByName（' PASSWORD ' ）.AsString。 10 SYS_FTPSERVER：= FieldByName（' IP ' ）.AsString。 11 SYS_FTPDIR：= FieldByName（' PATH ' ）.AsString。 12 端部、
idFTPファイルのダウンロード
、ここでは3つのパラメータを主な機能をダウンロードするに慣れます：
Param1を：（拡張子を含む）のファイル名
PARAM2：パス保存したい（最終的な場所への完全なパスは、ファイルを保存します）
Param3：トゥーレ/ FalseのかどうかHTTP
一般的な手順のコードは次のとおりです。
。1 試す 2 MsgDsp（' ！待って、ファイルを取得を開始' ）; 3。 と idFTPを行う 4。 開始 5。 のIF接続され、その後の切断を、 6。 ユーザー名：= SYS_FTPUSER; 7。 パスワード：= SYS_FTPPASSWORD; 8。 ホスト：= SYS_FTPSERVER; 9。 ポート： = 21であり、 10 接続; 11。 ChangeDir（SYS_FTPDIR） 12が 取得（FILENAME、' C：\ TMP \ ' +FILENAME）、真; 13 IF接続され、その後切断し、 14 エンド; 15 MsgDsp（' 成功のためのレシピファイル！' ） 16 を除く 17 E ON：例外ん 18 開始 19 MsgDspを（「ファイル検索が失敗し、エラーメッセージを処理するためにITに連絡！ ：' + e.Message）; 20 アボート; 21である エンド、 22は エンド。
idFTPファイルのアップロード
ここでは主な使用プットアップロード機能、二つのパラメータ：
Param1を：あなたがアップロードしたいファイルのフルパス
PARAM2：（拡張子を含む）のファイル名
一般的な手順のコードは次のとおりです。
。1 試す 2 MsgDsp（' ！ファイルのアップロードを開始しています。しばらくお待ちくださいを' ）; 3。 と idFTPを行う 4。 開始 5。 のIF接続され、その後の切断を、 6。 ユーザー名：= SYS_CLIENTFTPUSER; 7。 パスワード：= SYS_CLIENTFTPPASSWORD; 8。 ホスト：= SYS_CLIENTTPSERVER; 9。 ポート： = SYS_PORT; 10 接続; 11。 ChangeDir（SYS_CLIENTFTPDIR）; 12は プットの（' C：\ TMP \ ' +FILENAMEは、ExtractFileName（FILENAME））; 13は、 IF接続され、その後の切断を、 14 エンド; 15 MsgDspが（' ファイルが正常にアップロード！' ）;
16 を除いて 17 E ON：例外がない 18 始める
19 MsgDsp（「失敗したファイルのアップロードを、ITの確認をお問い合わせください！エラーメッセージ：" + e.Message）; 20は 中止、 21がある エンド、 22は 終了。