ResonseCode 200 auswerten

[lucy]

hallo,
was mache ich hier falsch?
ich möchte gerne überprüfen ob der Webserver die Daten erhalten hat (ok200).

bekomme als Showmessage immer diesen Code angezeigt : 24114160

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);
   except
     on E: EIdHTTPProtocolException do
        iCode := idHTTP2.ResponseCode;
   end;
     Showmessage(IntToStr(iCode));
    finally
     lParamList.Free;
 end;
end;

[TomyN]

iCode ist nur bei einer Exception definiert.

[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;

[Der schöne Günther]

Du solltest mal auf die Delphi-Warnmeldungen achten, da steht auch genau drin, dass die Variable nicht definiert ist und du trotzdem den Wert ausliest.