WebDAV上のファイル・フォルダを取得したい (ID:149555)

名前

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

本文

FormにTIdWebDAV、TButton、TMemoをドラッグドロップして、以下のソースコードで、
ローカルのApacheのWebDavにはファイルをアップロードできました。
正直、よくわかっていないのですが、ご参考まで。

procedure TForm1.Button1Click(Sender: TObject);
var
    res: TStringStream;
    strm:TMemoryStream;
    b:TBytes;
begin
  strm:=TMemoryStream.Create;

//UTF8文字列をWebDavにPUTする場合
  b:=TEncoding.UTF8.GetBytes('UTF8の文字列を入れます'+#13#10+'2行目'+#13#10);
  strm.Write(b,length(b));

//ファイルをWebDavにPUTする場合
  //strm.LoadFromFile('a.jpg');

res := TStringStream.Create('');
  try
    //fill params

IdWebDAV1.URL.Username := 'user';
    IdWebDAV1.URL.Password := 'pass';
    IdWebDAV1.URL.Port := '80';
    IdWebDAV1.URL.URI := '/dav/';
    IdWebDAV1.URL.Host := 'localhost';
    IdWebDAV1.URL.Protocol := 'PROPFIND';

//テキストファイルをアップロードする
    IdWebDAV1.Put('http://localhost/dav/a.txt', strm, res);
    //JPGファイルをアップロードする
    //IdWebDAV1.Put('http://localhost/dav/a.jpg', strm, res);
    //レスポンスを表示する場合
    Memo1.Lines.Text := res.DataString;
  finally
    strm.Free;
    res.Free;
  end;
end;

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

戻る