WEBサーバー上に存在するディレクトリ内ファイルを全て削除したい (ID：47348)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

PHP の例がでたので，
Delphi 付属の Indy コンポを使用する場合の PHP の操作例です．
ディレクトリあるいはディレクトリ内のファイルの削除の場合は，対象のディレクトリよりも
上の階層に操作用の PHP のファイルをサーバに UP しておきます (当たり前 !?)．

動作確認は Windows 7 U64(SP1) + Delphi XE(UP1) + Indey 10.5.7

//=============================================================================
//  Mr.XRAYのサイトのtestpost.phpを実行する例
//  testpost.phpは実在のPHPファイル
//
//  フォームに配置したTIdHTTPコンポを使用(コンポ名はIdHTTP1)
//  HTTPEncodeの使用にはusesにHTTPAppが必要
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
var
  PostURL    : String;
  PostStream : TStringList;
  ResStream  : TStringStream;
begin
  Memo1.Clear;

//PostURLはPHPファイルがある場所
  PostURL := 'http://mrxray.on.coocan.jp/Others/testpost.php';

//PostStreamにはPHPに渡すパラメータを設定する
  PostStream := TStringList.Create;

//PHPから情報を受け取るストリーム
  ResStream  := TStringStream.Create('');

//自動でエンコードしないようにする
  IdHTTP1.HTTPOptions := IdHTTP1.HTTPOptions - [hoForceEncodeParams];

Screen.Cursor := crHourGlass;
  try
    try
      //PHP実行
      IdHTTP1.Post(PostURL, PostStream, ResStream);
    except
      //エラー内容はIdHTTP1.ResponseTextで受取る
    end;
  finally
    Memo1.Lines.Add(IdHTTP1.ResponseText);
    //サーバからのデータを表示
    Memo1.Lines.Add(ResStream.DataString);

Screen.Cursor := crDefault;
    FreeAndNil(PostStream);
    FreeAndNil(ResStream);
  end;
end;

←解決時は質問者本人がここをチェックしてください。

戻る