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

Rik33

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

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

  • Посещение

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

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

Достижения Rik33

  1. 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;
  2. Столкнулся с другой проблемой. Unidac + wwLayoutGrid , база небольшая. Запускаю на Андроиде. При прокрутке записей в wwLayoutGrid - приложение вылетает. А может и не вылетать. Закономерность не нашёл. Может кто подскажет?
  3. Так как решили вопрос? Я с таким же столкнулся
×
×
  • Создать...