Ай в пиписку(((((
Вот короче сам разобрался
Код:
{$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}
__________________
Маленький мальчик пришёл на систопку
Линукс отстой крикнул он громко
Долго пинали мёртвое тело
Не кто вступился, били за дело
|