Em 24.10.2014 09:54, silvioprog escreveu:
> On Fri, Oct 24, 2014 at 8:41 AM, Michael Van Canneyt <mich...@freepascal.org>wrote: > >> On Fri, 24 Oct 2014, Philippe wrote: >> >>> Using basically HTTPClient.Get, I did not find time out configuration with fphttpclient. Did I missed it? >> >> it does not exist yet. >> >>> If not, is there a way to implement it ? Using thread? >> >> that would be one way. > > You could implement the timeout directly in the internal FSocket in TFPHttpClient(*). I implemented that using "GetTick"[1] and "TTimeVal"[2]: > > Just suggestions! =) > > (*) E.g: > > TFPCustomHTTPSocket = class(TInetSocket) // implementing the timout > .. > > TFPCustomHTTPClient = Class(TComponent) > private > ... > FSocket : TFPCustomHTTPSocket; // using TFPCustomHTTPSocket instead of TInetSocket directly because TFPCustomHTTPSocket implements the timeout > > [1] - https://github.com/silvioprog/tcpipcomp/blob/master/src/tcpipbase.pas#L105 [1] > > [2] - https://github.com/silvioprog/tcpipcomp/blob/master/src/tcpipclient.pas#L130 [2] > -- > Silvio Clécio > My public projects - github.com/silvioprog [3] > Thanks ... may be a bit complicated for me now ... I keep it for later! _______________________________________________ fpc-pascal maillist - fpc-pascal@lists.freepascal.org http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal [4] > Links: ------ [1] https://github.com/silvioprog/tcpipcomp/blob/master/src/tcpipbase.pas#L105 [2] https://github.com/silvioprog/tcpipcomp/blob/master/src/tcpipclient.pas#L130 [3] http://github.com/silvioprog [4] http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal
_______________________________________________ fpc-pascal maillist - fpc-pascal@lists.freepascal.org http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal
