delphi Retorno incompleto Synapse

[rogersontm]

Prezados, estou tendo um retorno incompleto após dar um post utilizando synapse Delphi 10.3, alguém ja viu algo assim?
Nem em showmessage, nem em messagebox, nem passando para stringlist, nem passando para um memo criado em tempo de execução, se obtém o retorno completo.

Dia 14/02 começou isso, até então, este projeto está online e sendo utilizado todos os dias há pelo menos 1 ano e 2 meses.

Utilizamos o 360Dialog como ponte para conversar com o WhatsApp.

O retorno que era esperado:

{"contacts":[{"input":"55555555555","wa_id":"555555555555"}],"messages":[{"id":"XXXXXXXXXXXXXXXXXXXXXXXXXX"}],"meta":{"api_status":"stable","version":"2.39.1"}}

O retorno que está vindo:

{"contacts":[{"input":"55555555555","wa_id":"555555555555"}],"messages":[{"id":"

Simplesmente corta a string.

 

[datilas]

3 horas atrás, rogersontm disse:

Prezados, estou tendo um retorno incompleto após dar um post utilizando synapse Delphi 10.3, alguém ja viu algo assim?
Nem em showmessage, nem em messagebox, nem passando para stringlist, nem passando para um memo criado em tempo de execução, se obtém o retorno completo.

Dia 14/02 começou isso, até então, este projeto está online e sendo utilizado todos os dias há pelo menos 1 ano e 2 meses.

Utilizamos o 360Dialog como ponte para conversar com o WhatsApp.

O retorno que era esperado:

{"contacts":[{"input":"55555555555","wa_id":"555555555555"}],"messages":[{"id":"XXXXXXXXXXXXXXXXXXXXXXXXXX"}],"meta":{"api_status":"stable","version":"2.39.1"}}

O retorno que está vindo:

{"contacts":[{"input":"55555555555","wa_id":"555555555555"}],"messages":[{"id":"

Simplesmente corta a string.

 

tenta:

synHttpTextMsg.Document.Position := 0;
sRetornoAPIOriginal := MemoryStreamToString(synHttpTextMsg.Document);

ou

try
 //declare uma variavel:
 //ssRetorno :TStringStream;
 
 synHttpTextMsg.Document.Position := 0;
 ssRetorno := TStringStream.Create('');
 synHttpTextMsg.Document.SaveToStream(ssRetorno);
 {.}
 ssRetorno.Position := 0;
 sRetornoAPIOriginal := ssRetorno.DataString;
finally
 ssRetorno.Free;
end;

 

Editado 21 Fevereiro, 2022 por datilas

[rogersontm]

@datilas Não funcionou, no primeiro método continuou igual, corta o final da string, como antes.
E no segundo método vem em branco.

[datilas]

vc pode tentar um metodo do synautil: (ReadStrFromStream)

sRetornoAPIOriginal := String(ReadStrFromStream(synHttpTextMsg.Document, synHttpTextMsg.Document.Size));

ou

sRetornoAPIOriginal := ReadStrFromStream(synHttpTextMsg.Document, synHttpTextMsg.Document.Size);

 

[rogersontm]

@datilasFuncionaram ambos os métodos que você passou, assumi o primeiro para manter no projeto.
Muitíssimo obrigado pelo apoio.

[Renato Rubinho]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.