[PESTS]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34

program Project1;   {$APPTYPE CONSOLE}   uses   SysUtils,   System.Net,   System.IO,   System.Text;   var Request: System.Net.WebRequest;     Response: System.Net.WebResponse;     ReceiveStream: System.IO.Stream;     ReadStream: System.IO.StreamReader;     Encoding: System.Text.Encoding;       Buf: string;     Bytes: array of byte; begin   Bytes:=System.Text.Encoding.UTF8.GetBytes('type=1');   Request:=System.Net.WebRequest.CreateDefault(                                            Uri.Create('http://127.0.0.1/1.php'));   Request.Method:='POST';   Request.ContentLength:=Length(Bytes);   Response:=Request.GetResponse;   ReceiveStream:=Response.GetResponseStream;     Encoding:=System.Text.Encoding.GetEncoding('cp1251');     ReadStream:=System.IO.StreamReader(ReceiveStream, Encoding);   ...   readln;   end.

Делал точно как говорит MSDN
но в строчке

Код:

1	ReadStream:=System.IO.StreamReader(ReceiveStream, Encoding);

У них там всё нормално проходит.
Короче помогите чё дальше то делать"!"\\

Именно нужно на реализовать на .Net

[PESTS]

Ай в пиписку(((((
Вот короче сам разобрался

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32

{$Region '***Сраница просмотра баланса**'}   URL:='http://stat1.ufanet.ru/bgbilling/webexecuter?'+                                              'action=ShowBalance&mid=contract';     Post_Q:=System.Text.Encoding.UTF8.GetBytes('user='+Login+'&pswd='+Pwd);    Request:=HttpWebRequest(System.Net.HttpWebRequest.CreateDefault(Uri.Create(URL)));   Request.Method:='POST';   Request.ContentType:='application/x-www-form-urlencoded';   try     Request.GetRequestStream.Write(Post_Q,0,Length(Post_Q));     Request.GetRequestStream.Close;     Response:=Request.GetResponse;     ReceiveStream:=Response.GetResponseStream;     N:=0;     Buf:='';     SetLength(Buf_Bytes,1024);     N:=ReceiveStream.Read(Buf_Bytes, 0, Length(Buf_Bytes));     while (N>0) do     begin       N:=ReceiveStream.Read(Buf_Bytes, 0, Length(Buf_Bytes));       Buf:=Buf+System.Text.Encoding.Default.GetString(Buf_Bytes);         end;     ReceiveStream.Close;     System.Console.WriteLine(Buf);   except     on E: WebException do     begin       System.Console.WriteLine(E.Message);       readln;       exit;     end;   end;   {$EndRegion}