ResonseCode 200 auswerten

[Hobbycoder]

Der Responsecode kommt vom Server und löst bei dir keine Exception aus.

Delphi-Quellcode:

procedure TForm1.HTTP1Click(Sender: TObject);
var
lParamList : TStringList;
     iCode : Integer;
begin
 lParamList := TStringList.Create;
 lParamList.Add('HTTP/1.1');
 try
   try
    idHTTP2.Response.Clear;
    idHTTP2.Post(shost+'/gateway_pocsag_alpha.php?line=1164001;9', lParamList);
    ShowMessage(IntToStr(idHTTP2.ResponseCode)); //oder ShowMessage(idHTTP2.ResponseCode.ToString);
   except
     on E: Exception do
       ShowMessage(E.Message);
   end;
 finally
   lParamList.Free;
 end;
end;