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;