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;