Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Delphi .NET
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 10.06.2009, 19:48
Аватар для PESTS
PESTS PESTS вне форума
Новичок
 
Регистрация: 04.05.2008
Сообщения: 54
Репутация: 11
По умолчанию Выполнить POST запрос

Код:
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
но в строчке
Код:
ReadStream:=System.IO.StreamReader(ReceiveStream, Encoding);
У них там всё нормално проходит.
Короче помогите чё дальше то делать"!"\\

Именно нужно на реализовать на .Net
__________________
Маленький мальчик пришёл на систопку
Линукс отстой крикнул он громко
Долго пинали мёртвое тело
Не кто вступился, били за дело
Ответить с цитированием
  #2  
Старый 11.06.2009, 21:01
Аватар для PESTS
PESTS PESTS вне форума
Новичок
 
Регистрация: 04.05.2008
Сообщения: 54
Репутация: 11
По умолчанию

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


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 02:10.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter