Перейти к содержанию
Fire Monkey от А до Я

Rik33

Пользователи
  • Постов

    6
  • Зарегистрирован

  • Посещение

Посетители профиля

Блок последних пользователей отключён и не показывается другим пользователям.

Достижения Rik33

  1. Откотил дату на один день назад - при публикации пишет - "Целевой уровень API для вашего приложения – 29. Чтобы обеспечить необходимую производительность и безопасность, целевой уровень API должен быть не ниже 30. Измените целевой уровень API для приложения так, чтобы он стал не ниже 30."
  2. Здравствуйте. Помогите ктонить с точным новым мануалом публикации aab.(Delphi 10.4). Создал keystore,скомпилировал - получил пакет aab. На сайте разработчиков взнос оплатил - пытаюсь загрузить - пишет - "Сертификат, использованный для подписи APK-файла или набора Android App Bundle, ещё не действителен. Укажите действительный сертификат." Первый раз публикую, не сочтите за тупицу
  3. Уже писал пост, тогда никто не ответил. FDMemTable + wwLayoutGrid , база небольшая. Запускаю на Андроиде. При прокрутке записей в wwLayoutGrid - приложение вылетает. А может и не вылетать. Закономерность не нашёл. Может кто подскажет? В событиях ничего не обрабатываю - простая форма с полями. Если прокручиваю таблицу вниз - ещё нормально, как только вверх к первой записи - приложение вылетает.
  4. Rik33

    IdHTTP post запрос IdHTTPServer

    Помогите разобраться с post запросом. Не разу не писал web-сервис. Накидал 2 простецких проекта - один отправляет post запрос, второй соответственно его обрабатывает и возвращает результат - текст из Memo поля. Результат - текст возвращается в непонятной кодировке.вот куски кода ....1. (клиент) DelphiВыделить код 1 2 3 4 5 6 7 8 9 10 11 12 13 var PostData: TStringStream; ResponseBody: string; Json: String; begin Json := '{"report": "X"}'; PostData := TStringStream.Create(Utf8Encode(Json)); IdHTTP1.Request.ContentType := 'application/json'; IdHTTP1.Request.Accept := 'application/json'; IdHTTP1.Request.CharSet := 'utf-8'; ResponseBody:=IdHTTP1.Post('http://localhost:8080/goods',PostData); Memo1.Text:=ResponseBody; end; 2.(Сервер) DelphiВыделить код 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 var Stream : TStream; S : string; X, Obj: ISuperObject; J,ch: Integer; JsonToSend: TStringStream; begin If ARequestInfo.CommandType = hcPOST then begin if ARequestInfo.URI=('/goods') then begin Stream := ARequestInfo.PostStream; if Assigned(Stream) then begin JsonToSend:=TstringStream.Create; JsonToSend.WriteString(Memo3.Text); JsonToSend.Encoding.Unicode; AResponseInfo.ContentStream:=JsonToSend; end else begin Memo1.Lines.Add('result_Error'); AResponseInfo.ContentText := 'result_Error'; end; end;
  5. Столкнулся с другой проблемой. Unidac + wwLayoutGrid , база небольшая. Запускаю на Андроиде. При прокрутке записей в wwLayoutGrid - приложение вылетает. А может и не вылетать. Закономерность не нашёл. Может кто подскажет?
  6. Так как решили вопрос? Я с таким же столкнулся
×
×
  • Создать...