Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
[ÇÖZÜLDÜ] WebDav ile Bulut Sunucuya Dosya Yükleme
#1
S.a

Yandex Disk Webdav Protokülü ile erişmeye çalışıyorum
çalışan bir örnek bulamadım

biraz denemeler yaptım malesef çözemedim
IdWebDAV1->URL->Host ="https://webdav.yandex.com";
		  IdWebDAV1->URL->Port = 443;
		  IdWebDAV1->URL->Username = "dGhlU2luYW4wMkB5YW5kZXguY29tLnRy";
		  IdWebDAV1->URL->Password = "dGhlU2luYW4hMDI=";
		  IdWebDAV1->Request->ContentType = "text/xml";
		  IdWebDAV1->Request->CharSet = "utf-8";
		  IdWebDAV1->IOHandler = IdSSLIOHandlerSocketOpenSSL1;
		  IdWebDAV1->Request->CustomHeaders->Values["Authorization"] = "Basic dGhlU2luYW4wMkB5YW5kZXguY29tLnRy:dGhlU2luYW4hMDI=";
		  IdWebDAV1->Request->BasicAuthentication = true;
		  IdWebDAV1->Request->Host ="https://webdav.yandex.com";
		  IdWebDAV1->Connect("https://webdav.yandex.com",443) ;
		  IdWebDAV1->DAVPropPatch("https://disk.yandex.com/client/disk/deneme.txt", q, r);
		  r->Position = 0;
		  Memo1->Lines->Text = ReadStringAsCharset(r, IdWebDAV1->Response->CharSet);[
IdSSLIOHandlerSocketOpenSSL1
için libeay32.dll ve ssleay32.dll Dosyalrını indirdim
SSL ayarlarını yaptım
Bu Şekilde yazdım 

Socket Error # 11001
Host not found.
hatasını veriyor
İşin içinden çıkamadım
Yardımlarınız için Allah Razı Olsun
Cevapla
#2
Host için https yerine http deneyin.
Ağlarsa kablosuz ağlar, gerisi yerel ağlar...
Cevapla
#3
(24-04-2019, Saat: 13:40)engerex Adlı Kullanıcıdan Alıntı: Host için https yerine http deneyin.

hocam denedim malesef yine aynı hatayı veriyor
Webdav Çalışmasını C++ Builder de yapıyorum
Makul bir ücret Karşılığında Destek Verebilecek arkadaş olursa 
Destek almak isterim
Cevapla
#4
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;
}

 }
Cevapla
#5
Delphi için de Clever Componentler bu iş için uygundur. Clever componentlere sahip olan arkadaşlar varsa açık kaynak kodu da buradan bakabilirler:
https://github.com/CleverComponents/Yandex-Disk
Cevapla
#6
(08-07-2019, Saat: 12:15)theSinan Adlı Kullanıcıdan Alıntı: 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;
}

 }

elinize sağlık...fakat örnek uygulama silinmiş yeniden paylaşmanız mümkünmü???
Cevapla
#7
(20-12-2020, Saat: 04:16)SenayAkgun Adlı Kullanıcıdan Alıntı:
(08-07-2019, Saat: 12:15)theSinan Adlı Kullanıcıdan Alıntı: 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;
}

 }

elinize sağlık...fakat örnek uygulama silinmiş yeniden paylaşmanız mümkünmü???

Merhaba pazartesi tekrar yükleyeyim inşallah
Cevapla
#8
(26-12-2020, Saat: 14:03)theSinan Adlı Kullanıcıdan Alıntı:
(20-12-2020, Saat: 04:16)SenayAkgun Adlı Kullanıcıdan Alıntı: elinize sağlık...fakat örnek uygulama silinmiş yeniden paylaşmanız mümkünmü???

Merhaba pazartesi tekrar yükleyeyim inşallah

Teşekkür ederim Sinan Bey.
Cezalı görünüyorsunuz yada benim sistemimdemi bi problem var??  Exclamation Sad
Cevapla
#9
(28-12-2020, Saat: 20:10)SenayAkgun Adlı Kullanıcıdan Alıntı:
(26-12-2020, Saat: 14:03)theSinan Adlı Kullanıcıdan Alıntı: Merhaba pazartesi tekrar yükleyeyim inşallah

Teşekkür ederim Sinan Bey.
Cezalı görünüyorsunuz yada benim sistemimdemi bi problem var??  Exclamation Sad

Hayır . Arkadaş banlanmış.
Cevapla
#10
(29-12-2020, Saat: 16:14)quiet1day Adlı Kullanıcıdan Alıntı:
(28-12-2020, Saat: 20:10)SenayAkgun Adlı Kullanıcıdan Alıntı: Teşekkür ederim Sinan Bey.
Cezalı görünüyorsunuz yada benim sistemimdemi bi problem var??  Exclamation Sad

Hayır . Arkadaş banlanmış.

Bu çok kötü ya...
Cevapla


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Fastreport İçindekiler Sayfası Oluşturma [ÇÖZÜLDÜ] bydelphi 1 181 18-03-2024, Saat: 12:11
Son Yorum: bydelphi
Lightbulb Delphi 7zip Password lü Dosya Sıkıştırma ve Açma + Bonus RAR5 Desteği frmman 6 262 16-03-2024, Saat: 17:55
Son Yorum: delphi.developer
  Çok Satırlı Filtreleme [Çözüldü] bünyamin68 12 1.253 14-02-2024, Saat: 22:42
Son Yorum: mustafaozpinar
  [ÇÖZÜLDÜ] macos işletim sistemine program yazmak shooterman 5 451 02-02-2024, Saat: 09:54
Son Yorum: shooterman
  COZULDU veritabani prg yerine ne kullanabilirim. sadikacar60 8 694 29-01-2024, Saat: 18:41
Son Yorum: sadikacar60



Konuyu Okuyanlar: 1 Ziyaretçi