güncelleme için yandex disk kullanma

[cvheneburi]

arkadaşlar merhaba programımı internetten güncelleme yapması için yandex diskte yüklediğim dosyadan güncelleme yapmasını istiyorum aşagıdaki kodu buldum fakat şu hatayı verdi : " IOHandler values is not valid" kod şu;

Kod: Tümünü seç

procedure TForm2.Button1Click(Sender: TObject);
var
  q: TStringStream;
  r: TMemoryStream;
begin
  q := TStringStream.Create(
    '<propertyupdate xmlns="DAV:">' + sLineBreak +
    '<set>' + sLineBreak +
    '<prop>' + sLineBreak +
    '<public_url xmlns="urn:yandex:disk:meta">true</public_url>' + sLineBreak +
    '</prop>' + sLineBreak +
    '</set>' + sLineBreak +
    '</propertyupdate>'
  );
  try    
    r := TMemoryStream.Create;
    try
      IdWebDAV1.Request.Username := '***@yandex.com.tr';
      IdWebDAV1.Request.Password := '*****';
      IdWebDAV1.Request.ContentType := 'text/xml';
      IdWebDAV1.Request.Charset := 'utf-8';
      IdWebDAV1.Request.CustomHeaders.Values['Authorization'] := 'OAuth c953e33d6ec14895aa776f55145e73b5';
      IdWebDAV1.Request.BasicAuthentication := False;
      IdWebDAV1.DAVPropPatch('https://disk.yandex.com.tr/client/disk/readme.txt', q, r);
      r.Position := 0;
      Memo1.Lines.Text := ReadStringAsCharset(r, IdWebDAV1.Response.Charset);
    finally
      r.Free;
    end;
  finally
    q.Free;
  end;
end;

yardımcı olabilirmisiniz lütfen....

[greenegitim]

bir web sayfanız var ise direk oradan çektirmeniz daha mantıklı bandwith yüzünden mi yandex diski tercih etiniz?

[tayipk]

Satır satır calıstirip hangi datirda hata verdiğini bulursan ordan yola devam edebilirsin