socket прием/чтение

[kroks]

Привет всем. Я написал прогу, которая запрашивает интернет страницу, не пользуясь инди. Фишка в том, что на сервере я вижу, что запросы приходили..... Однако сама прога мне ничего не выдает, никакого ответа сервера

unit socket;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ScktComp, StdCtrls;

type
  TForm2 = class(TForm)
    ClientSocket1: TClientSocket;
    Memo1: TMemo;
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Memo2: TMemo;
    procedure Button1Click(Sender: TObject);
    procedure ClientSocket1Connect(Sender: TObject; Socket: TCustomWinSocket);
    procedure FormCreate(Sender: TObject);
    procedure reading(Sender: TObject; Socket: TCustomWinSocket);
    procedure ClientSocket1Connecting(Sender: TObject;
      Socket: TCustomWinSocket);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;
  csend: string;



implementation

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
begin
cSend := 'POST http://***/index.php HTTP/2.0' + chr(13) + chr(10);

cSend := cSend + 'Referer: **' + chr(13) + chr(10);

cSend := cSend + 'User-Agent: Kroks_PRGMA/0.1' + chr(13) + chr(10);

cSend := cSend + 'Connection: Keep-Alive' + chr(13) + chr(10);

cSend := cSend + 'Host: www.****.ru:80' + chr(13) + chr(10);

cSend := cSend + 'Content-type: application/x-www-form-urlencoded' + chr(13) + chr(10);

cSend := cSend + 'Content-length:8000' + chr(13) + chr(10);

cSend := cSend + 'Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, */*' +

   chr(13) + chr(10) + chr(13) + chr(10);

cSend := cSend + 'from=' + edit1.Text + ' &fromemail=';
memo2.Text:=cSend;

clientsocket1.Socket.SendText(csend);


//clientsocket1.Socket.SendBuf(cSend,200);

 memo1.Text:=memo1.Text+'....';




end;


procedure TForm2.ClientSocket1Connect(Sender: TObject;
  Socket: TCustomWinSocket);
begin

 memo1.Text:=memo1.Text+'-';

end;



procedure TForm2.ClientSocket1Connecting(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  memo1.Text:=memo1.Text+'?';
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
//clientsocket1.Active := True;
memo1.Clear;
 clientsocket1.Open;
end;

procedure TForm2.reading(Sender: TObject; Socket: TCustomWinSocket);
begin
memo1.Text:=memo1.Text+'!';
memo1.Lines.Add(Socket.ReceiveText());
end;

end.

[Stilet]

ClientSocket1: TClientSocket;

А де ServerSocket?
Клиент насколько я знаю принимать не будет. только отправит пост.
И чем INDI не угодило? Там есть HTTP компоненты, вполне нормальные.

[kroks]

Сообщение от Stilet

А де ServerSocket?
Клиент насколько я знаю принимать не будет. только отправит пост.
И чем INDI не угодило? Там есть HTTP компоненты, вполне нормальные.

Не ну клиент то должен принять ответ..... От сервера

[Maks1978]

Есть сайт:
http://www.sources.ru/delphi/delphi_network.shtml
Раздел:
Sockets, TClientSocket & TServerSocket
Вопрос:
Как получить страницу с вебсервера при помощи TClientSocket и поместить её в строковую переменную
- там может быть есть интересующая для тебя информация