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;