program Yandex.Balaboba;
uses
System.SysUtils,
System.Classes,
System.Json,
System.Net.HttpClient;
begin
var Payload := TStringStream.Create;
var Response := TStringStream.Create;
var JSON := TJSONObject.Create;
with THTTPClient.Create do
begin
ContentType := 'application/json';
JSON.AddPair('filter', '1');
JSON.AddPair('into', '0');
JSON.AddPair('query', 'Пошёл я как-то гулять');
Payload.WriteString(JSON.ToJSON);
Payload.Position := 0;
Post('https://zeapi.yandex.net/lab/api/yalm/text3', Payload, Response);
var ResponseJSON := TJSONObject.ParseJSONValue(Response.DataString);
Writeln(ResponseJSON.ToString);
end;
Readln;
end.
Изменение размера псевдоконсоли
Следующий сценарий показывает, как изменить размер ConPTY:
// Suppose some other async callback triggered us to resize.
// This call will update the Terminal with the size we received.
HRESULT hr = ResizePseudoConsole(hPC, {120, 30});