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 при выполнении след. процедуры возникает исключение, изображенное на скрине, что необходимо обновить/починить?
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;2 ответа на этот вопрос
Рекомендуемые сообщения
Присоединяйтесь к обсуждению
Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.