CGI / fphttpclient a bug
lazarus / 38-Networking and Web Programming

----------------------------------------------------------------------
cpalx · 2020-04-29 14:43

I have a cgi web program, it reads a post method,
I have a client desktop program , send data from fphttpclient

i send fom desktop program a variable with 1000 characters, but the
cgi reads only  362 character(~)

I use:
1. Lazarus 2.08 ( for windows and client program)
2. Lazarus 2-06 ( for Linux and cgi program)
both on 64 bits

Client Code

Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i  httpBody:=
TStringList.Create;  jsonObject:= TJSONObject.Create; 
jsonObject.Add(fnFormatType, 'json');  jsonObject.Add(fnToken,
Token);  jsonObject.Add(fnDebug, '0');  httpBody.Values['Header']:=
jsonObject.AsJSON;  FreeAndNil(jsonObject);  jsonObject:=
TJSONObject.Create;  jsonObject.Add(fnScript, sql); 
jsonObject.Add(fnCodUser, '0008');  httpBody.Values['Info']:=
jsonObject.AsJSON;  FreeAndNil(jsonObject);           try            
Response:= httpClient.FormPost( Host2 , httpBody);           finally 
           httpBody.Free;           end;     
Server code

Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i Handle:=
true;aresponse.Content:= Arequest.ContentFields.Values[ 'Info' ]

----------------------------------------------------------------------
john horst · 2020-04-29 21:34

I don't know if you are expecting the json 'HEADER' field to be read
as part of your 1000 chars in the Body...

Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i header :=
Arequest.ContentFields.Values[ 'Header' ]info :=
Arequest.ContentFields.Values[ 'Info' ]

----------------------------------------------------------------------
egsuh · 2020-05-04 01:37

I don't know about JSON, and haven't tried httpclient. But following
codes should work.

Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i // client
sidefunction TClient.SendString(s: string):boolean;  var    dstrm:
TStringStream;begin    dstrm := TStringStream.Create(s);   
dstrm.position := 0;     Result :=
HttpPostBinary('http://yourCGI/ShowText', dstrm);    dstrm.Free; end;
  // Server Sideprocedure TwmDC1.ShowTextRequest (Sender: TObject;
ARequest: TRequest;   AResponse: TResponse; var Handled:
Boolean);begin    AResponse.Content := ARequest.Content;   Handled :=
True; end;