Merhaba
Uzun Zamandır Webdav Protokolu ile Yandex'e Bağlanıp Bilgi Almaya Çalışıyordum
Nihayet Bağlantı Yapabildim Ancak Klasör Bilgilerini Veriyor Dizin adı , oluşturma ve değiştirme tarihi gibi bilgilerini listeliyor
Yandex te
https://tech.yandex.com/disk/doc/dg/refe...t-docpage/
Dizin içeriğini almak için Depth Değerini 1 yazın diyor
ben Depth: 1 yazdığım halde yine Dizin bilgisini gösteriyor
Yandex Bağlantı Kodum
Nerde Hata Yapıyorum
Yardımlarınız için allah razı olsun
Uzun Zamandır Webdav Protokolu ile Yandex'e Bağlanıp Bilgi Almaya Çalışıyordum
Nihayet Bağlantı Yapabildim Ancak Klasör Bilgilerini Veriyor Dizin adı , oluşturma ve değiştirme tarihi gibi bilgilerini listeliyor
Yandex te
https://tech.yandex.com/disk/doc/dg/refe...t-docpage/
Dizin içeriğini almak için Depth Değerini 1 yazın diyor
ben Depth: 1 yazdığım halde yine Dizin bilgisini gösteriyor
Yandex Bağlantı Kodum
/*
Edit1->Text = "https://webdav.yandex.com.tr";
Edit2->Text = "yandex_kullanici_ad";
Edit2->Text = "yandex_sifre";
*/
String Jeton;
TStringStream *s, *r;
UTF8String u;
TBase64Encoding *Base64;
try
{
Base64 = new TBase64Encoding(0,"");
Jeton = Base64->Encode(Edit2->Text+":"+Edit3->Text);
Memo1->Lines->Add("Jeton : '"+ Jeton+"'");
u = "<D:propfind xmlns
=\"DAV:\">\r\n"
"<D:allprop />\r\n"
//"<D:prop>\r\n"
//"<D:creationdate />\r\n"
//"<D:getlastmodified />\r\n"
//"<D:quota-available-bytes/>\r\n"
//"<D:quota-used-bytes/>\r\n"*/
//"</D:prop>"
"</D:propfind>"; //
s = new TStringStream();
s->WriteString(u);
s->Seek(0, 0);
r = new TStringStream();
try
{
IdSSLIOHandlerSocketOpenSSL1->SSLOptions->SSLVersions << (TIdSSLVersion) ComboBox1->Text.c_str();
IdSSLIOHandlerSocketOpenSSL1->SSLOptions->Method << (TIdSSLVersion) ComboBox2->Text.c_str();
IdWebDAV1->Request->UserAgent = USERAGENT;
IdWebDAV1->Request->BasicAuthentication = true;
IdWebDAV1->Request->Username = Edit2->Text ;
IdWebDAV1->Request->Password = Edit3->Text ;
IdWebDAV1->Request->Method = "PROPFIND" ;
IdWebDAV1->Request->Accept = "*/*";
IdWebDAV1->Request->CustomHeaders->Clear();
IdWebDAV1->Request->CustomHeaders->Add("Content-Type: application/xml; charset=\"utf-8\"");
IdWebDAV1->Request->CustomHeaders->Add("Host: webdav.yandex.com.tr");
IdWebDAV1->Request->CustomHeaders->Add("Accept: */*");
IdWebDAV1->Request->CustomHeaders->Add("Depth: 1");
IdWebDAV1->Request->CustomHeaders->Add("Authorization: Basic "+Jeton);
IdWebDAV1->DAVPropFind( Edit1->Text,s,r);
Memo1->Lines->Add("---------Gelen Cevap-----------");
Memo1->Lines->Add( r->DataString);
}
catch(Exception *HATA)
{
Memo1->Lines->Add( HATA->Message);
}
}
__finally
{
Base64->Free();
s->Free();
r->Free();
}
Nerde Hata Yapıyorum
Yardımlarınız için allah razı olsun
