[ÇÖZÜLDÜ] WebDav ile Bulut Sunucuya Dosya Yükleme

[theSinan]

S.a
Webdav ile Bulut Yedekleme 
Sonunda Çözdüm 
Opendrive.com Hesap Açıp bulut Sunucu olarak opendrive.com kullanabilirsiniz
Bilgi Paylaştıkça Çoğalır
İnşallah Faydası Olur
Dosya Yedeklemek için

IdWebDAV1->Request->UserAgent = "Mozilla/5.0 (Windows NT 6.1; WOW64; rv:12.0) Gecko/20100101 Firefox/12.0";
IdWebDAV1->Request->BasicAuthentication = true;
IdWebDAV1->Request->Username = Kullanici_adi ;
IdWebDAV1->Request->Password = Kullanici_Sifre ;
IdWebDAV1->Request->Accept = "*/*";

if ( FileExists(Yerel_Dosya_Ad) )
 {
   IdWebDAV1->Request->CustomHeaders->Clear();
   IdWebDAV1->Request->CustomHeaders->AddValue("Expect","100-continue");
   IdWebDAV1->Request->ContentType = "application/binary";
   IdWebDAV1->Request->ContentLength = Yerel_Dosya_Boyutu;
   TFileStream *src = new TFileStream(Yerel_Dosya_Ad, fmOpenRead);
        __try {
              IdWebDAV1->Put("https://webdav.opendrive.com/" + ExtractFileName(Yerel_Dosya_Ad), src);
              }
__finally {
 delete src;
}

 }