Ok. I made it "IQRP". It seems to work with functions being called but
despite the server consuming 90% CPU (dual core), the performance is still
at 20 connections/sec! This is far lower than hw accelarators. Any idea?
On Mon, Feb 16, 2009 at 3:44 PM, Arno Garrels <arno.garr...@gmx.de> wrote:
> Fastream Technologies wrote:
> > Where is Ssl_Session_ID_Context defined in ICSv6?? Can't find it!
>
> It is an arbitrary custom string defined as a const in demo.
> You can have multiple of those strings associated with different
> resources.
>
> --
> Arno Garrels
>
> >
> > On Mon, Feb 16, 2009 at 12:57 PM, Arno Garrels <arno.garr...@gmx.de>
> > wrote:
> >
> >> You have to use FMyExternalSslSessionCache->GetSvrSession() and
> >> FMyExternalSslSessionCache->CacheSvrSession()!
> >> It is also required to set the SslContest.SslSessionCacheModes
> >> properly:
> >>
> >>
> [sslSESS_CACHE_SERVER,sslSESS_CACHE_NO_INTERNAL_LOOKUP,sslSESS_CACHE_NO_INTERNAL_STORE]
> >>
> >> Delphi code:
> >>
> >> {* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
> >> * * * *}
> >> procedure TSslWebServForm.SslHttpServer1SslSetSessionIDContext(
> >> Sender : TObject;
> >> var SessionIDContext : String);
> >> begin
> >> { Tell Openssl a Session_ID_Context.
> >> }
> >> { Openssl uses this data to tag a session before it's cached.
> >> }
> >> { It's an arbitrary custom string
> >> }
> >> SessionIDContext := Ssl_Session_ID_Context;
> >> end;
> >>
> >>
> >> {* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
> >> * * * *}
> >> procedure TSslWebServForm.SslHttpServer1SslSvrGetSession(
> >> Sender : TObject;
> >> var SslSession : Pointer;
> >> SessId : Pointer;
> >> Idlen : Integer;
> >> var IncRefCount : Boolean);
> >> var
> >> LookupKey : string;
> >> begin
> >> SetLength(LookupKey, IDLen);
> >> Move(SessId^, Pointer(LookupKey)^, IDLen);
> >> SslSession := SslAvlSessionCache1.GetSvrSession(LookupKey +
> >>
> >>
> >> Ssl_Session_ID_Context, IncRefCount);
> >> end;
> >>
> >>
> >> {* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
> >> * * * *}
> >> procedure TSslWebServForm.SslHttpServer1SslSvrNewSession(
> >> Sender : TObject;
> >> SslSession,
> >> SessId : Pointer;
> >> Idlen : Integer;
> >> var AddToInternalCache : Boolean);
> >> var
> >> LookupKey : string;
> >> begin
> >> SetLength(LookupKey, IDLen);
> >> Move(SessId^, Pointer(LookupKey)^, IDLen);
> >> SslAvlSessionCache1.CacheSvrSession(SslSession,
> >> LookupKey +
> >> Ssl_Session_ID_Context,
> >> AddToInternalCache); if DisplaySslInfoCheckBox.Checked then
> >> Display('[' + FormatDateTime('HH:NN:SS', Now) + ' ' +
> >> TWSocket(Sender).GetPeerAddr + '] New SSL session
> >> created and ' +
> >> 'cached in external cache class.');
> >> end;
> >>
> >>
> >> {* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
> >> * * * *}
> >>
> >> --
> >> Arno Garrels
> >>
> >> --
> >> To unsubscribe or change your settings for TWSocket mailing list
> >> please goto http://lists.elists.org/cgi-bin/mailman/listinfo/twsocket
> >> Visit our website at http://www.overbyte.be
> >>
> >
> >
> >
> > --
> > Gorkem Ates
> > Fastream Technologies
> > Software IQ: Innovation & Quality
> > www.fastream.com | Email: supp...@fastream.com | Tel:
> > +90-312-223-2830 | MSN: g_a...@hotmail.com
> > Join IQWF Server Yahoo group at
> > http://groups.yahoo.com/group/IQWFServer Join IQ Reverse Proxy Yahoo
> > group at http://groups.yahoo.com/group/IQReverseProxy
> --
> To unsubscribe or change your settings for TWSocket mailing list
> please goto http://lists.elists.org/cgi-bin/mailman/listinfo/twsocket
> Visit our website at http://www.overbyte.be
>
--
Gorkem Ates
Fastream Technologies
Software IQ: Innovation & Quality
www.fastream.com | Email: supp...@fastream.com | Tel: +90-312-223-2830 |
MSN: g_a...@hotmail.com
Join IQWF Server Yahoo group at http://groups.yahoo.com/group/IQWFServer
Join IQ Reverse Proxy Yahoo group at
http://groups.yahoo.com/group/IQReverseProxy
--
To unsubscribe or change your settings for TWSocket mailing list
please goto http://lists.elists.org/cgi-bin/mailman/listinfo/twsocket
Visit our website at http://www.overbyte.be
