WebDav клиент на дельфи

[alekola]

Люди добрый есть у кого знание\опыт в этой области?
В indy 10 есть вроде компонент(tidwebdav)..но не примеров не справки по нему не нашел.Может кто чем другим пользовался напишите пожалуйста.
Хочу авторизоваться на вебдав сервере и провести синхронизацию файлов.
Пробывал вот так

Wd.URL.Password:='pass';
wd.URL.Username:='user';
wd.URL.Port:='80';
wd.URL.URI:='http://ftp.sanremo-dv.ru/owncloud';
wd.URL.Path:='http://ftp.sanremo-dv.ru/owncloud';
wd.URL.Host:='http://ftp.sanremo-dv.ru/owncloud';
wd.Connect('http://ftp.sanremo-dv.ru/owncloud',80);

пишет не найдет хост. Хотя по указанным ссылкам прекрасно попадает на веб интерфейс

[alekola]

Wd.URL.Password:='*';
wd.URL.Username:='*';
wd.URL.Port:='80';
wd.URL.URI:='/owncloud';
wd.URL.Path:='http://ftp.sanremo-dv.ru/owncloud';
wd.URL.Host:='http://ftp.sanremo-dv.ru/owncloud';
wd.Connect('http://ftp.sanremo-dv.ru',80);

  if wd.Connected then
      ShowMessage('ok');

получилось соеденится!!! +) теперь научится бы остальному

[postal2]

alekola, есть прогресс? Тоже интересуюсь =)

[alekola]

Нет, все откладываю, да откладываю - нахватает времени разобраться =\ Если что нарою отпишусь

[alekola]

Вот кому нужно, отрывки кода
подключим в uses модули Synapse:
httpsend,
synacode,
ssl_openssl

type
  TWebDAVSend = class
  private
    FHTTP : THTTPSend;
    FToken: AnsiString;
    FPassword: string;
    FLogin: string;
    procedure SetLogin(const Value: string);
    procedure SetPassword(const Value: string);
    procedure SetToken;
  public
    constructor Create;
    destructor Destroy; override;
    property Login: string read FLogin write SetLogin;
    property Password: string read FPassword write SetPassword;
end;
 
{ TWebDAVSend }
 
constructor TWebDAVSend.Create;
begin
  inherited;
  FHTTP:=THTTPSend.Create;
end;
 
destructor TWebDAVSend.Destroy;
begin
  FHTTP.Free;
  inherited;
end;
 
procedure TWebDAVSend.SetToken;
begin
  FToken:=EncodeBase64(FLogin+':'+FPassword);
end;
 
procedure TWebDAVSend.SetLogin(const Value: string);
begin
  FLogin := Value;
  SetToken;
end;
 
procedure TWebDAVSend.SetPassword(const Value: string);
begin
  FPassword := Value;
  SetToken;
end;
function TWebDAVSend.PROPFIND(Depth: integer; const Element: String): string;
begin
  with FHTTP do
  begin
    Headers.Clear;
    Document.Clear;
    Headers.Add('Authorization: Basic ' + FToken);
    Headers.Add('Depth: ' + IntToStr(Depth));
    Headers.Add('Accept: */*');
    if HTTPMethod('PROPFIND', GetRequestURL(Element)) then
      result := ReadStrFromStream(Document, Document.Size)
    else
      raise Exception.Create(rsPropfindError+' '+ResultString);
  end;
end;
const
  cWebDAVServer = 'https://webdav.yandex.ru/';
function TWebDAVSend.GetRequestURL(const Element: string): string;
var URI: string;
begin
  URI:=Element;
  if URI[1]='/' then
    Delete(URI,1,1);
  Result:=cWebDAVServer+EncodeUTF8URI(URI);
end;
function TWebDAVSend.EncodeUTF8URI(const URI: string): string;
var
  i: integer;
  Char: AnsiChar;
begin
  result := '';
  for i := 1 to length(URI) do
  begin
    if not(URI[i] in URLFullSpecialChar) then
      begin
      for Char in UTF8String(URI[i]) do
        Result:=Result+'%'+IntToHex(Ord(Char), 2)
      end
    else
      Result:=Result+URI[i];
  end;
end;
function TWebDAVSend.MKCOL(const ElementPath: string): boolean;
begin
  Result:=False;
  with FHTTP do
  begin
    Headers.Clear;
    Document.Clear;
    Headers.Add('Authorization: Basic ' + FToken);
    Headers.Add('Accept: */*');
    if HTTPMethod('MKCOL', GetRequestURL(ElementPath)) then
      begin
        Result:=ResultCode=201;
        if not Result then
          raise Exception.Create(IntToStr(ResultCode)+' '+ResultString);
      end
    else
      raise Exception.Create(rsPropfindError+' '+ResultString);
  end;
end;

[alekola]

___________________________________ _____________

[X11]

а я indy IdWebDAV ещё кто-нибудь работал?
Есть примеры?