[twsocket] D2009 and HttpClient

[wayne forrest]

Hello,

I am getting some Chinese again, if I cast it to AnsiString, I do not see
that data that I am expecting:
( I presume it is either something that I am not doing or it is a bug)


Here is my code:

var
 lData: TStringStream;
 lDataOut : TMemoryStream;
 lResultPage: string;
 I : Integer;
begin
  lDataOut := TMemoryStream.Create;
  lData :=  TStringStream.Create();
  //A post request would use lDataout to post data to server
  lDataOut.Seek(0, soFromBeginning);
  httpcli1.SendStream := lDataOut;
  httpcli1.RcvdStream := lData;

  HttpCli1.URL := Edit1.Text;
  HttpCli1.URL := HttpCli1.URL +'?MESSAGE=HELLO';
  HttpCli1.Get;

  lResultPage := lData.DataString;
  Memo1.Lines.Add(lResultPage);

  for I := 0 to HttpCli1.RcvdHeader.Count - 1 do begin
      Memo1.Lines.Add((AnsiString(HttpCli1.RcvdHeader[I])));
  end;

  lDataOut.Free;
  lData.Free;
-- 
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