(FPC) никто не сталкивался с тем, что TFPHTTPClient обрезает "длинные"

Question

Delphi & Lazarus

Iluha Companets

(FPC) никто не сталкивался с тем, что TFPHTTPClient обрезает "длинные"

ответы? например, никак не могу принять 70 кило текста

#lazarus #programming #russian

0

14.08.2024

13 ответов

31 просмотр

Iluha Companets Автор вопроса

А
Может, стринги короткие?

эт какие? ) TJSONStringType = {$IFNDEF PAS2JS}UTF8String{$else}string{$ENDIF};

0

3 месяца назад

Renat Suleymanov

Нет, не сталкивался. На fthttpclient построена библиотека для телеграм ботов. Там порой очень массивные строки прилетают в виде JSON. 70 кб ни о чем. Может какие-то специфические условия работы с ним?

0

3 месяца назад

Iluha Companets Автор вопроса

Renat Suleymanov
Нет, не сталкивался. На fthttpclient построена биб...

чем из этого принимаешь? у меня ошибка с RawByteString, щас попробую в стрим Procedure Post(const URL: string; const Response: TStream); Procedure Post(const URL: string; Response : TStrings); Procedure Post(const URL: string; const LocalFileName: String); function Post(const URL: string) : RawByteString;

0

3 месяца назад

Renat Suleymanov

Iluha Companets
чем из этого принимаешь? у меня ошибка с RawByteSt...

Там разные методы API. И для отправки стримов и апдейтов от сервера и т.д. В частности для отправки команды и приема ответа сервера в т.ч.: function Post(const URL: string) : RawByteString; https://github.com/Al-Muhandis/fp-telegram/blob/64d00b29f5dc1b36886a6f5135f28efac2b80d8d/tgfclhttpclientbroker.pas#L402

0

3 месяца назад

Iluha Companets Автор вопроса

Iluha Companets
чем из этого принимаешь? у меня ошибка с RawByteSt...

Стикер

0

3 месяца назад

Renat Suleymanov

Обращаю внимание, что стрим для RequestBody нужно создавать самому, если он нужен и освобождать потом и заниливать на всякий случай

0

3 месяца назад

Iluha Companets Автор вопроса

Renat Suleymanov
Обращаю внимание, что стрим для RequestBody нужно ...

это всё делается

0

3 месяца назад

Iluha Companets Автор вопроса

Renat Suleymanov
Обращаю внимание, что стрим для RequestBody нужно ...

вот собственно кусок процедуры HttpClient:= TFPHTTPClient.Create(nil); HttpClient.AddHeader('Content-Type', 'application/json'); if BearerToken <> '' then HttpClient.AddHeader('Authorization', 'Bearer '+ BearerToken); HttpClient.RequestBody:= TRawByteStringStream.Create(body); TRY TRY Response:= HttpClient.Post(url); FINALLY HTTP_Status:= HttpClient.ResponseStatusCode; HttpClient.RequestBody.Free; HttpClient.Free; END EXCEPT on E: Exception do begin LogAddDT(lgASOUP, '(!) POST error: '+ E.Message); Exit( False ); end; END; LogAddDT(lgASOUP, 'HTTP status '+ IntToStr(HTTP_Status)); Result:= (HTTP_Status = HTTP_OK); TRY JsonData:= GetJSON(Response); EXCEPT on E: Exception do begin LogAddDT(lgASOUP, '(!) GetJSON error: '+ E.Message+ EOL+ Response + EOL); Exit( False ); end; END;

0

3 месяца назад

Renat Suleymanov

Iluha Companets
вот собственно кусок процедуры HttpClient:= TFPH...

Стикер

0

3 месяца назад

Iluha Companets Автор вопроса

Стикер

0

3 месяца назад

Renat Suleymanov

Ну, curl более функциональный. Может какие фичи fphttpclient не поддерживает или особенности работы данного сервера. Это предположение

0

3 месяца назад

Iluha Companets Автор вопроса

разобрался! сам виноват, не учёл того факта, что я на двух компах отлаживал, один с прямым подключением, а второй через порт-маппинг от AnyDesk - вот он и подвёл, зараза! короче, всё нормально теперь работает, через TFPHTTPClient

0

3 месяца назад

А · Accepted Answer

А

Может, стринги короткие?

0

3 месяца назад

169 похожих чатов

(FPC) никто не сталкивался с тем, что TFPHTTPClient обрезает "длинные"

13 ответов

Похожие вопросы