Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- IdHTTP1:= TIdHttp.Create(Application);
- IdHTTP1.ConnectTimeout:= 10000;
- IdHTTP1.Request.Clear;
- IdHTTP1.Request.BasicAuthentication:= true;
- IdHTTP1.Request.Username := Username;
- IdHTTP1.Request.Password := Password;
- try
- IdHTTP1.Get(PbxURL); **//this should STOP here and wait for answer don't?**
- HttpCode:= IdHTTP1.ResponseCode;
- except
- on E: EIdHTTPProtocolException do
- HttpCode := IdHTTP1.ResponseCode;
- end;
- if HttpCode=200 then
- Memo1.Lines.Append('Valid Get!');
Add Comment
Please, Sign In to add comment