17-03-2023, Saat: 16:13
Merhabalar
Yandex Disk üzerinde bulunan bazı dosyaları download ve upload etmem gerekiyor
Şimdilik download için basit bur uygulama yazmaya çalıştım fakat sürekli 401 hatası alıyorum
Acaba aşağıdaki kod ile bu işlem yapılamazmı
Teşekkürler
Yandex Disk üzerinde bulunan bazı dosyaları download ve upload etmem gerekiyor
Şimdilik download için basit bur uygulama yazmaya çalıştım fakat sürekli 401 hatası alıyorum
Acaba aşağıdaki kod ile bu işlem yapılamazmı
Teşekkürler
procedure TForm1.Button1Click(Sender: TObject); var q: TStringStream; r: TMemoryStream; s: TStream; 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; s := TStream.Create; try Memo1.Lines.Clear; IdWebDAV1.Request.Username := txUser.Text; IdWebDAV1.Request.Password := txPassword.Text; IdWebDAV1.Request.UserAgent := 'my_application/0.0.1'; IdWebDAV1.Request.ContentType := 'text/xml'; IdWebDAV1.Request.Charset := 'utf-8'; IdWebDAV1.Request.CustomHeaders.Values['Authorization'] := 'OAuth c953e33d6ec14895aa776f55145e73b5'; IdWebDAV1.Request.BasicAuthentication := True; IdWebDAV1.DAVPropPatch('https://webdav.yandex.com.tr/Test.jpg', q, r); r.Position := 0; Memo1.Lines.Text := ReadStringAsCharset(r, IdWebDAV1.Response.Charset); r.Position := 0; r.SaveToFile('C:\Sil\Test.jpg'); finally r.Free; end; finally q.Free; end; end;
Bu dünyada kendine sakladığın bilgi ahirette işine yaramaz.