hi all ICS gurus ;)
i've installed latest ICS beta version from Overbyte website.
i've changed nothing to my code and now, using a THttpCli, it triggers an error
though before it wasn't.
Here's what i'm doing :
First i create a THttpCli and do the following assignments :
FHttpLayer := THttpCli.Create(nil);
FHttpLayer.RequestVer := '1.1';
FHttpLayer.OnTrace := Self.ProcHttpTrace;
FHttpLayer.OnSocketError := Self.ProcHttpSocketError;
FHttpLayer.OnRequestDone := Self.ProcHttpRequestDone;
FHttpLayer.OnSessionConnected := Self.ProcHttpSessionConnected;
FHttpLayer.OnSessionClosed := Self.ProcHttpSessionClosed;
FHttpLayer.OnHeaderData := Self.ProcHttpHeaderData;
FHttpLayer.OnCommand := Self.ProcHttpCommand;
FHttpLayer.OnHeaderBegin := Self.ProcHttpHeaderBegin;
FHttpLayer.OnHeaderEnd := Self.ProcHttpHeaderEnd;
FHttpLayer.OnRequestHeaderBegin := Self.ProcHttpRequestHeaderBegin;
FHttpLayer.OnRequestHeaderEnd := Self.ProcHttpRequestHeaderEnd;
FHttpLayer.OnDocBegin := Self.ProcHttpDocBegin;
FHttpLayer.OnDocData := Self.ProcHttpDocData;
FHttpLayer.OnDocEnd := Self.ProcHttpDocEnd;
FHttpLayer.OnSendBegin := Self.ProcHttpSendBegin;
FHttpLayer.OnSendData := Self.ProcHttpSendData;
FHttpLayer.OnSendEnd := Self.ProcHttpSendEnd;
FHttpLayer.OnStateChange := Self.ProcHttpStateChange;
FHttpLayer.OnLocationChange := Self.ProcHttpLocationChange;
FHttpLayer.OnCookie := Self.ProcHttpCookie;
FHttpLayer.OnDataPush := Self.ProcHttpDataPush;
FHttpLayer.OnDataPush2 := Self.ProcHttpDataPush2;
FHttpLayer.OnSocksConnected := Self.ProcHttpSocksConnected;
FHttpLayer.OnSocksAuthState := Self.ProcHttpSocksAuthState;
FHttpLayer.OnSocksError := Self.ProcHttpSocksError;
FHttpLayer.OnBeforeHeaderSend := Self.ProcHttpBeforeHeaderSend;
(it's just the first time it hurts and your eyes are crying ;) )
Then i cuild all my HttpRequest with the correct URL, etc... and do :
FHttpLayer.PostASync;
And, this is the strangest part, i have the ProcHttpSocketError which is
triggered, due to an exception which is in WSocket :
procedure TCustomSocksWSocket.SetSocksLevel(newValue : String);
begin
if State <> wsClosed then begin
RaiseException('Can''t change socks level if not closed');
Exit;
end;
if (newValue <> '4') and (newValue <> '5') and
(newValue <> '4A') and (newValue <> '4a') then begin
*This one is triggered* --> RaiseException('Invalid socks level. Must
be 4, 4A or 5.');
Exit;
end;
FSocksLevel := UpperCase(newValue);
end;
And, effectively, the NewValue is '', as i don't need it....
Any clue someone ?
--
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
