TLHTTPClient does not receive Content-Size header
lazarus / 38-Networking and Web Programming

----------------------------------------------------------------------
tentaculat · 2014-12-02 21:49

Hi, all!

Has coded small app to collect data from wikimapia map API, all is
going fine, but sometimes app hangs - doesn't call DoneInput procedure
because ASocket.Parameters[hpContentLength] is empty.

Code: [Select](skipped)
    LHTTPClnt: TLHTTPClientComponent;    
(skipped)
var
  Tmp    : string; 
(skipped)
procedure TForm_Main.LHTTPClntDoneInput(ASocket: TLHTTPClientSocket);
var (skipped)
begin
  LHTTPClnt.Disconnect;
//  Mem_Log.Lines.Add ('Done input');
  If Collecting then begin
    i := pos('<debug>',Tmp);
    if i>0 then begin
      Mem_Log.Lines.Add('---------------------------------------');
      Mem_Log.Lines.Add('ERROR:
'+copy(Tmp,i,pos('</debug>',Tmp)-i+1));
    end else begin
(skipped)
    end;
  end else begin
    Mem_Log.Lines.Add(Tmp);
  end;
  GotData := True;
  Mem_Log.Clear;
end;    

function TForm_Main.LHTTPClntInput(ASocket: TLHTTPClientSocket;
ABuffer: pchar;
  ASize: integer): integer;
begin
   Tmr_Idle.Enabled:=False;
   Tmp := Tmp+copy(ABuffer,1,ASize);
   Result := ASize;
//   MyLogWrite(IntToStr(HTTPStatusCodes[ASocket.ResponseStatus])+'
'+ASocket.ResponseReason);
//   MyLogWrite(IntToStr(ASize)+'/'+IntToStr(Length(Tmp))+'/'+ASocket.
Parameters[hpContentLength]);
end;  

procedure TForm_Main.Btn_CollectByRectClick(Sender: TObject);
var (skipped)
begin
(skipped)
           LHTTPClnt.SendRequest;
           While (not GotData) and Collecting do
Application.ProcessMessages;
(skipped)
end;      
Any advices? What am i doing wrong?

----------------------------------------------------------------------
tentaculat · 2014-12-02 21:52

Oh, forgot about:
Lazarus 1.2.6, lNet 0.6.5
OS: lUbuntu 14.04.1