Tot999 Опубликовано 10 октября, 2015 Поделиться Опубликовано 10 октября, 2015 После перехода с XE7 на RAD 10 при выполнении след. процедуры возникает исключение, изображенное на скрине, что необходимо обновить/починить? procedure ServerPatchDriveFile; var Folder : TJSONObject ; FolderDest, itemmm : TJSONObject ; parents: TJSONArray ; begin form2.RESTResponseDataSetAdapter1.AutoUpdate := false; form2.RESTRequest1.Params.Clear; form2.RESTRequest1.ClearBody; form2.RESTClient1.AutoCreateParams:=false; form2.RESTClient1.Accept:= ''; form2.RESTClient1.ContentType:= ''; form2.RESTRequest1.Method:= rmPATCH; Form2.RESTClient1.BaseURL:='https://www.googleapis.com/drive/v2/files/{FileId}'; form2.RESTRequest1.Resource := ''; form2.RESTRequest1.Params.AddUrlSegment('fileId', UntitledId); Parents:= TJSONArray.Create; itemmm := TJSONObject.Create; itemmm.AddPair(TJSONPair.Create('id', form2.EditIdFOlder.Text)); Parents.AddElement((itemmm)); Folder:= TJSONObject.create; Folder.AddPair(TJSONPair.Create('title', 'Myfile')); Folder.AddPair(TJSONPair.Create('parents', Parents)); form2.RESTRequest1.AddBody(Folder); try form2.RESTRequest1.Execute; except on e: Exception do begin ShowMessage(e.Message);//Show Exception end; end; Folder.free; Application.ProcessMessages; end; Цитата Ссылка на комментарий
0 master webs Опубликовано 17 октября, 2015 Поделиться Опубликовано 17 октября, 2015 (изменено) на картинке же все написано ) form2.RESTRequest1.Method:= rmPATCH; // недоступный метод я так понял вам нужно использовать GET Изменено 17 октября, 2015 пользователем master webs Цитата Ссылка на комментарий
0 Tot999 Опубликовано 19 октября, 2015 Автор Поделиться Опубликовано 19 октября, 2015 (изменено) Да, "Get", безусловно работает, но для переименования файла на гугл диске нужно использовать метод "Patch" (это Google Api Drive + REST). Насколько понял, по изучению сторонних форумов, данная ошибка будет возникать на Android KitKat и не будет на Android Lollipop, связано это с java библиотеками. При компиляции под windows, данная процедура работает исправно. В общем-то откатился обратно на XE7, но если кто знает, как решить, буду благодарен. Изменено 19 октября, 2015 пользователем Tot999 Цитата Ссылка на комментарий
Вопрос
Tot999
После перехода с XE7 на RAD 10 при выполнении след. процедуры возникает исключение, изображенное на скрине, что необходимо обновить/починить?
Ссылка на комментарий
2 ответа на этот вопрос
Рекомендуемые сообщения
Присоединяйтесь к обсуждению
Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.