[twsocket] FW: problem with Httpcli and Tstream and Delphi 2009

[David Rodriguez Salazar]

Hello Francois,


 
I have a problem with this component ICSHttpprotocol under delphi 9, the 
problem is when I send data using post, the data is converted in the new style 
of delphi 9 (char = 2 bytes), and the data is sent corrupted, so the server 
fails. The problem is when the data is copy from Fsendstream (tstream-char) to 
FSendBuffer (Byte) in the procedure SocketDataSent. Pls, Check the code.
 
I also attached the capture and the data send to the server.
 
In the example and send "test=2" but the data is send as "t.e.s.", the dot 
means character 0.
 
 
procedure THttpCli.SocketDataSent(Sender : TObject; ErrCode : Word);
var
    Len : Integer;
begin
    if not FAllowedToSend then
        Exit;
    if Length(FSendBuffer) = 0 then
        SetLength(FSendBuffer, 8192);
{$IFDEF CLR}
    Len := FSendStream.Read(FSendBuffer, Length(FSendBuffer));
{$ELSE}
    Len := FSendStream.Read(FSendBuffer[0], Length(FSendBuffer));
{$ENDIF}
    if Len <= 0 then begin
        FAllowedToSend := FALSE;
        TriggerSendEnd;
        if FDelaySetReady then begin     { 09/26/08 ML }
          FDelaySetReady := FALSE;       { 09/26/08 ML }
          SetReady;                      { 09/26/08 ML }
        end;                             { 09/26/08 ML }
        Exit;
    end;
    if Len > 0 then begin
        FSentCount := FSentCount + Len;
{$IFDEF CLR}
        TriggerSendData(FSendBuffer, 0, Len);
        FCtrlSocket.Send(FSendBuffer, Len);
{$ELSE}
        TriggerSendData(@FSendBuffer[0], Len);
        FCtrlSocket.Send(@FSendBuffer[0], Len);
{$ENDIF}
    end;
end;

thanks in advance,

Saludos
 
David Rodriguez

                                          
_________________________________________________________________
Windows Live: Friends get your Flickr, Yelp, and Digg updates when they e-mail 
you.
http://www.microsoft.com/middleeast/windows/windowslive/see-it-in-action/social-network-basics.aspx?ocid=PID23461::T:WLMTAGL:ON:WL:en-xm:SI_SB_3:092010
--
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