Arno Garrels a écrit :
> Guillaume MAISON wrote:
>> In that case, the property SocksLevel should be initialized at the
>> component creation with a value. Which is not the case in the
>> source code... As i've not changed my code...
>
> Strange I don't have that problem. It is assigned default value '5'
> in both V5 and V6 see WSocket.pas and OverbyteIcsWSocket.
>
> procedure TCustomSocksWSocket.AssignDefaultValue;
> begin
> inherited AssignDefaultValue;
> ...
> FSocksLevel := '5';
>
> Arno
Well, the problem comes from HttpProt (1768) in the THttpCli.DoBeforeConnect
procedure.
procedure THttpCli.DoBeforeConnect;
begin
FCtrlSocket.Addr := FDnsResult;
FCtrlSocket.LocalAddr := FLocalAddr; {bb}
FCtrlSocket.Port := FPort;
FCtrlSocket.Proto := 'tcp';
FCtrlSocket.SocksServer := FSocksServer; *<-- Here where
THttpCli.FSocksServer is set by default to ''*
FCtrlSocket.SocksLevel := FSocksLevel;
FCtrlSocket.SocksPort := FSocksPort;
FCtrlSocket.SocksUsercode := FSocksUsercode;
FCtrlSocket.SocksPassword := FSocksPassword;
FCtrlSocket.SocksAuthentication := FSocksAuthentication;
end;
Is it a bug ? Is it a plane ? no, it's superman ;)
--
Guillaume MAISON - [EMAIL PROTECTED]
83, Cours Victor Hugo
47000 AGEN
Tél : 05 53 87 91 48 - Fax : 05 53 68 73 50
e-mail : [EMAIL PROTECTED] - Web : http://nauteus.com
--
To unsubscribe or change your settings for TWSocket mailing list
please goto http://www.elists.org/mailman/listinfo/twsocket
Visit our website at http://www.overbyte.be
