Try with the change below. I checked with the URL you gave and it works
(Tested with Delphi only), with or without
NO_USE_OF_ADVANCED_HTTP_CLIENT_FEATURES defined.
{$IFDEF UseContentCoding}
// FContentCodingHnd.WriteBuffer(P, K);
FContentCodingHnd.WriteBuffer(@FReceiveBuffer[P], K);
// FP 09/09/06
{$ELSE}
{$IFDEF CLR}
if Assigned(FRcvdStream) then
FRcvdStream.Write(FReceiveBuffer[P], P, K); <==
CHANGE
TriggerDocData(@FReceiveBuffer[P], P, K); <==
CHANGE
{$ELSE}
if Assigned(FRcvdStream) then
FRcvdStream.WriteBuffer(FReceiveBuffer[P], K);
<== CHANGE
TriggerDocData(@FReceiveBuffer[P], K);
<== CHANGE
{$ENDIF}
{$ENDIF}
P := P + K;
end;
if FChunkRcvd >= FChunkLength then
FChunkState := httpChunkSkipDataEnd;
end;
if FChunkState = httpChunkSkipDataEnd then begin
while N > 0 do begin
// if P^ = #10 then begin
if Ord(FReceiveBuffer[P]) = 10 then begin // FP
09/09/06
if FChunkLength = 0 then
{ Last chunk is a chunk with length = 0 }
FChunkState := httpChunkDone
else
FChunkState := httpChunkGetSize;
FChunkLength := 0;
FChunkRcvd := 0;
Inc(P);
Dec(N);
break;
end;
Inc(P);
Dec(N);
end;
end;
end;
if FChunkState = httpChunkDone then begin
{$IFNDEF NO_DEBUG_LOG}
if CheckLogOptions(loProtSpecInfo) then { V1.91 } { replaces
$IFDEF DEBUG_OUTPUT }
DebugLog(loProtSpecInfo, 'httpChunkDone, end of document');
{$ENDIF}
FBodyLineCount := 0;
FNext := nil;
StateChange(httpBodyReceived);
{$IFDEF UseBandwidthControl}
if (httpoBandwidthControl in FOptions) and
Assigned(FBandwidthTimer)
then FBandwidthTimer.Enabled := FALSE;
{$ENDIF}
TriggerDocEnd;
if {(FResponseVer = '1.0') or (FRequestVer = '1.0') or }
{ SAE's modification is almost right but if you have
HTTP/1.0 }
{ not necesary must disconect after request
}
{ [rawbite 31.08.2004 Connection
}
(FCloseReq) then { SAE 01/06/04 }
FCtrlSocket.CloseDelayed
end;
end
else begin
if FBodyDataLen > 0 then begin
FRcvdCount := FRcvdCount + FBodyDataLen;
{$IFDEF UseContentCoding}
// FContentCodingHnd.WriteBuffer(FBodyData, FBodyDataLen);
FContentCodingHnd.WriteBuffer(@FReceiveBuffer[FBodyData],
FBodyDataLen); // FP 09/09/06
{$ELSE}
{$IFDEF CLR}
if Assigned(FRcvdStream) then
FRcvdStream.Write(FReceiveBuffer[FBodyData], FBodyData,
FBodyDataLen); <== CHANGE
TriggerDocData(@FReceiveBuffer[FBodyData], FBodyData,
FBodyDataLen); <== CHANGE
{$ELSE}
if Assigned(FRcvdStream) then
FRcvdStream.WriteBuffer(FReceiveBuffer[FBodyData],
FBodyDataLen); <== CHANGE
TriggerDocData(@FReceiveBuffer[FBodyData], FBodyDataLen);
<== CHANGE
{$ENDIF}
{$ENDIF}
end;
--
[EMAIL PROTECTED]
The author of the freeware multi-tier middleware MidWare
The author of the freeware Internet Component Suite (ICS)
http://www.overbyte.be
----- Original Message -----
From: "Fastream Technologies" <[EMAIL PROTECTED]>
To: "ICS support mailing" <twsocket@elists.org>
Sent: Tuesday, October 02, 2007 3:38 PM
Subject: Re: [twsocket] Bug in OverbyteICSHttpProt.pas
>I have pinpointed the problem to GetBodyNextLine:
>
> if FChunkState = httpChunkGetData then begin
> K := FChunkLength - FChunkRcvd;
> if K > N then
> K := N;
> if K > 0 then begin
> N := N - K;
> FRcvdCount := FRcvdCount + K;
> FChunkRcvd := FChunkRcvd + K;
> {$IFDEF UseContentCoding}
> // FContentCodingHnd.WriteBuffer(P, K);
> FContentCodingHnd.WriteBuffer(@FReceiveBuffer[P], K);
> // FP 09/09/06
> {$ELSE}
> {$IFDEF CLR}
> if Assigned(FRcvdStream) then
> FRcvdStream.Write(FReceiveBuffer, P, K);
> TriggerDocData(FReceiveBuffer, P, K);
> {$ELSE}
> // WHAT SHOULD THIS PART BE?? Seems to have been forgotten during
> update!!!
> if Assigned(FRcvdStream) then
> FRcvdStream.WriteBuffer(P, K);
> TriggerDocData(P, K);
> //--------END OF CODE PART
> {$ENDIF}
> {$ENDIF}
> P := P + K;
> end;
> if FChunkRcvd >= FChunkLength then
> FChunkState := httpChunkSkipDataEnd;
> end;
>
> Regards,
>
> SZ
>
> On 10/2/07, Fastream Technologies <[EMAIL PROTECTED]> wrote:
>>
>> I just found out that I had displayheadercheckbox enabled and when the
>> page could not be loaded due to bug in component code (chunked encoding),
>> the header count is 0 so there a loop gets AV:
>>
>> if DisplayHeaderCheckBox.Checked then
>> for I := 0 to HttpCli1.RcvdHeader.Count - 1 do // HERE AV!
>> Display('hdr>' + HttpCli1.RcvdHeader.Strings[I]);
>>
>> Solution: please test the page below with the component code I authored
>> with NO_USE_OF_ADVANCED_HTTP_CLIENT_FEATURES defined in project options.
>>
>> Regards,
>>
>> SZ
>>
>> On 10/2/07, Fastream Technologies <[EMAIL PROTECTED]> wrote:
>> >
>> > There must be a bug in my code as well as Francois' code when
>> > NO_USE_OF_ADVANCED_HTTP_CLIENT_FEATURES is defined and when HTTPtst
>> > demo is
>> > compiled with this component version, the below chunked encoding page
>> > raises
>> > an access violation:
>> >
>> > http://www.zaman.com.tr/webapp-tr/anasayfa.do
>> >
>> > Since I do not have delphi, and since BCB does not let me debug
>> > component code, I am unable to debug. COULD YOU PLEASE HELP?
>> >
>> > Regards,
>> >
>> > SZ
>> >
>> > On 10/2/07, Fastream Technologies <[EMAIL PROTECTED] > wrote:
>> > >
>> > > Hello All,
>> > >
>> > > I fixed the problem:
>> > > http://www.fastream.com/ics/OverbyteIcsHttpProt.pas<http://www.fastream.com/ics/>
>> > > .
>> > > Francois, please compare/check this and then include into the
>> > > package.
>> > >
>> > > Regards,
>> > >
>> > > SZ
>> > >
>> > >
>> > > On 10/1/07, Fastream Technologies <[EMAIL PROTECTED] > wrote:
>> > > >
>> > > > Francois, I think we have a communication problem! It is the
>> > > > component package that does not compile with the conditional
>> > > > definition I
>> > > > explained earlier. Here it is:
>> > > >
>> > > > {$IFDEF COMPILER5_UP}
>> > > > {$IFNDEF NO_ADVANCED_HTTP_CLIENT_FEATURES} //NEW
>> > > > {$DEFINE UseNTLMAuthentication}
>> > > > {$DEFINE UseBandwidthControl}
>> > > > {$DEFINE UseContentCoding}
>> > > > {$ENDIF} // NEW
>> > > > {$ENDIF}
>> > > >
>> > > > All you need to do, open OverbyteIcsSSLBCBPackage, then edit
>> > > > ...httpprot.pas to include the lines marked as //new and then try
>> > > > to
>> > > > compile. It is really simple.
>> > > >
>> > > > Regards,
>> > > >
>> > > > SZ
>> > > >
>> > > > On 10/1/07, Francois PIETTE <[EMAIL PROTECTED] > wrote:
>> > > > >
>> > > > > As I said yesterday, please prepare a small test program so that
>> > > > > I
>> > > > > can
>> > > > > reproduce the problem within a few minutes. Include any ICS
>> > > > > source
>> > > > > which you
>> > > > > have modified.
>> > > > >
>> > > > > --
>> > > > > [EMAIL PROTECTED]
>> > > > > The author of the freeware multi-tier middleware MidWare
>> > > > > The author of the freeware Internet Component Suite (ICS)
>> > > > > http://www.overbyte.be
>> > > > >
>> > > > > ----- Original Message -----
>> > > > > From: "Fastream Technologies" <[EMAIL PROTECTED]>
>> > > > > To: "ICS support mailing" < twsocket@elists.org>
>> > > > > Sent: Monday, October 01, 2007 3:51 AM
>> > > > > Subject: Re: [twsocket] Bug in OverbyteICSHttpProt.pas
>> > > > >
>> > > > >
>> > > > > > Also, Francois, you need to compile the Ics v6 ssl bcb package
>> > > > > _under_
>> > > > > > BCB,
>> > > > > > not delphi, then install. Plus the const in send() and sendto()
>> > > > > must be
>> > > > > > removed to have the code compile! And as Arno wrote, the icons
>> > > > > are missing
>> > > > > > as well....
>> > > > > >
>> > > > > >
>> > > > > > On 10/1/07, Fastream Technologies < [EMAIL PROTECTED]> wrote:
>> > > > > >>
>> > > > > >> Yes there is absolutely a bug with the new conditional
>> > > > > check--there is
>> > > > > >> pass of a pointer instead of a reference or something like
>> > > > > >> that
>> > > > > in
>> > > > > >> OnDocData
>> > > > > >> as Arno said.
>> > > > > >>
>> > > > > >> Best Regards,
>> > > > > >>
>> > > > > >> SZ
>> > > > > >>
>> > > > > >>
>> > > > > >> On 9/30/07, Arno Garrels < [EMAIL PROTECTED] > wrote:
>> > > > > >> >
>> > > > > >> > Arno Garrels wrote:
>> > > > > >> > > Fastream Technologies wrote:
>> > > > > >> > > Any ideas??
>> > > > > >> >
>> > > > > >> > Sorry, my green light was given too early and you are right,
>> > > > > >> > there are indeed a few small bugs in procedure
>> > > > > THttpCli.GetBodyLineNext
>> > > > > >> > when UseContentCoding is not defined in the parts dealing
>> > > > > with
>> > > > > >> > chunked encoding. Francois can you please check that again?
>> > > > > >> >
>> > > > > >> > --
>> > > > > >> > Arno Garrels [TeamICS]
>> > > > > >> > http://www.overbyte.be/eng/overbyte/teamics.html
>> > > > > >> >
>> > > > > >> >
>> > > > > >> >
>> > > > > >> > >
>> > > > > >> > > Are you using the same ICS-files that worked with BCB2006?
>> > > > > >> > > The package compiles and a new VCL-Application with a
>> > > > > THttpCli
>> > > > > >> > > dropped on the form compiles as well. Remember that you
>> > > > > >> > > and
>> > > > > >> > > I made some changes to get it working in BCB, those
>> > > > > >> > > changes
>> > > > > are
>> > > > > >> > > not yet in any other distributions.
>> > > > > >> > >
>> > > > > >> > > The only strange thing I do not understand is that all
>> > > > > icons
>> > > > > >> > > are missing in the Tool-Palette of BCB2007, anybody any
>> > > > > idea?
>> > > > > >> >
>> > > > > >> >
>> > > > > >> >
>> > > > > >> >
>> > > > > >> >
>> > > > > >> > >
>> > > > > >> > > --
>> > > > > >> > > Arno Garrels [TeamICS]
>> > > > > >> > > http://www.overbyte.be/eng/overbyte/teamics.html
>> > > > > >> > >
>> > > > > >> > >
>> > > > > >> > >
>> > > > > >> > >>
>> > > > > >> > >> THANKS.
>> > > > > >> > >>
>> > > > > >> > >> Gorkem
>> > > > > >> > >>
>> > > > > >> > >>
>> > > > > >> > >> On 9/30/07, Francois PIETTE < [EMAIL PROTECTED] >
>> > > > > wrote:
>> > > > > >> > >>>
>> > > > > >> > >>> I have no problem to compile a simple console mode
>> > > > > project with
>> > > > > >> > >>> those defines.
>> > > > > >> > >>> Please tell me what are the exact errors and where they
>> > > > > occurs.
>> > > > > >> > >>>
>> > > > > >> > >>> Contribute to the SSL Effort. Visit
>> > > > > >> > >>> http://www.overbyte.be/eng/ssl.html --
>> > > > > >> > >>> [EMAIL PROTECTED]
>> > > > > >> > >>> The author of the freeware multi-tier middleware MidWare
>> > > > > >> > >>> The author of the freeware Internet Component Suite
>> > > > > >> > >>> (ICS)
>> > > > >
>> > > > > >> > >>> http://www.overbyte.be
>> > > > > >> > >>>
>> > > > > >> > >>> ----- Original Message -----
>> > > > > >> > >>> From: "Fastream Technologies" < [EMAIL PROTECTED]>
>> > > > > >> > >>> To: "ICS support mailing" < twsocket@elists.org >
>> > > > > >> > >>> Sent: Sunday, September 30, 2007 3:20 PM
>> > > > > >> > >>> Subject: [twsocket] Bug in OverbyteICSHttpProt.pas
>> > > > > >> > >>>
>> > > > > >> > >>>
>> > > > > >> > >>>> Hello,
>> > > > > >> > >>>>
>> > > > > >> > >>>> Could somebody please try to compile this unit with the
>> > > > > defines:
>> > > > > >> > >>>>
>> > > > > >> > >>>> NOFORMS;SECURITY_WIN32;
>> > > > > >> > >>>>
>> > > > > >> > >>>> and no content-coding, no bandwidth limitation and no
>> > > > > NTLM? It
>> > > > > >> > >>>> gives strange
>> > > > > >> > >>>> pascal errors that needs fixes.
>> > > > > >> > >>>>
>> > > > > >> > >>>> BTW, to test the behavior, please modify your source
>> > > > > >> > >>>> top
>> > > > > part as,
>> > > > > >> > >>>>
>> > > > > >> > >>>> {$IFDEF COMPILER5_UP}
>> > > > > >> > >>>> {$IFNDEF NO_ADVANCED_HTTP_CLIENT_FEATURES} //NEW
>> > > > > >> > >>>> {$DEFINE UseNTLMAuthentication}
>> > > > > >> > >>>> {$DEFINE UseBandwidthControl}
>> > > > > >> > >>>> {$DEFINE UseContentCoding}
>> > > > > >> > >>>> {$ENDIF} // NEW
>> > > > > >> > >>>> {$ENDIF}
>> > > > > >> > >>>>
>> > > > > >> > >>>> I believ ethere are low-level people like us who do not
>> > > > > need these
>> > > > > >> > >>>> high-level features.
>> > > > > >> > >>>>
>> > > > > >> > >>>> SZ
>> > > > > >> > >>>> --
>> > > > > >> > >>>> 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
>> > > > > >> > >>>
>> > > > > >> > >>> --
>> > > > > >> > >>> 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
>> > > > > >> > >>>
>> > > > > >> > >>
>> > > > > >> > >>
>> > > > > >> > >>
>> > > > > >> > >> --
>> > > > > >> > >> CSA, Fastream Technologies
>> > > > > >> > >> Software IQ: Innovation & Quality
>> > > > > >> > >> www.fastream.com | Email: [EMAIL PROTECTED] | Tel:
>> > > > > +90-312-223-
>> > > > > >> > >> 2830 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://www.elists.org/mailman/listinfo/twsocket
>> > > > > >> > Visit our website at http://www.overbyte.be
>> > > > > >> >
>> > > > > >>
>> > > > > >>
>> > > > > > --
>> > > > > > 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
>> > > > >
>> > > > > --
>> > > > > 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
>> > > > >
>> > > >
>> > > >
>> > > >
>> > > >
>> > >
>> >
>>
>>
> --
> 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
--
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
