El 23/02/18 a les 19:34, Dimitrios Chr. Ioannidis via fpc-pascal ha escrit:
Hi,
Στις 23/2/2018 8:24 μμ, ο Luca Olivetti έγραψε:
El 23/02/18 a les 18:51, Dimitrios Chr. Ioannidis via fpc-pascal ha
escrit:
copy the ssockets.pp from <fpc sources>\packages\fcl-net\src dir
to your project dir and add the following line
SetIOTimeout(FIOTimeout);
to Procedure TInetSocket.Connect; like this
fphttpclient already does that before calling connect and it doesn't
work.
emm it doesn't do that ...
yes, it does (in procedure TFPCustomHTTPClient.ConnectToServer)
FSocket:=TInetSocket.Create(AHost,APort,G);
try
if FIOTimeout<>0 then
FSocket.IOTimeout:=FIOTimeout; <-----
FSocket.Connect;
except
FreeAndNil(FSocket);
Raise;
end;
Bye
--
Luca
_______________________________________________
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal
