[NekitoSSSS]

начал углубляться в сетевое программирование, и спуститься с Indy до WinSock
как пример для изучения хочу сделать софтину, которая будет авторизовываться на сайте (методом post. куки приходят, так что их тоже надо сохранять, и отправлять при последующих запросах... )
и брать кое какие данные... (парсить страницу это не проблема )
с GET знаком, с POST - не очень, т.к. пока что не получается правильно сформировывать данные для отправки и распарсивать принятые данные...

кто чем может помочь в изучении??!!
к поисковикам не посылать, слишком уж это для вас обыденно просто...

[NekitoSSSS]

особенно интересуют неблокирующие сокеты, а так же информация о том как отправлять, принимать и в цикле ожидать данные с сервера.
подскажите пожалуйста кто что знает((

p.s. все мы когда-то были нубами((

[NumLock]

ну если в цикле ожидать ответ сервера, то сокет должен быть блокируемым, имхо
пример автризации на одном форуме :

PHP код:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  clientsocket: TClientSocket;
  request: String;
  request_data: String;
  savetickcount: Cardinal;
  c: Char;
  response: String;

  username: String;
  password: String;

begin

  username:='**********';
  password:='**********';

  clientsocket:=TClientSocket.Create(Self);
  try
    clientsocket.ClientType:=ctBlocking;
    clientsocket.Port:=80;
    clientsocket.Host:='forum29.ru';
    clientsocket.Open;
    try
      //  post данные
      request_data:='vb_login_username='+username+'&vb_login_password='+password+'&cookieuser=1&s=&securitytoken=guest&do=login&vb_login_md5password=&vb_login_md5password_utf=';
      //  готовим post запрос
      request:='';
      request:=request+'POST /login.php?do=login HTTP/1.1'+#13#10;
      request:=request+'Host: forum29.ru'+#13#10;
      request:=request+'Connection: close'+#13#10;
      request:=request+'Proxy-Connection: close'+#13#10;
      request:=request+'User-Agent: Mozilla/4.0'+#13#10;
      request:=request+'Content-Type: application/x-www-form-urlencoded'+#13#10;
      request:=request+'Content-Length: '+IntToStr(Length(request_data))+#13#10;
      request:=request+#13#10;
      //  отсылаем серверу
      clientsocket.Socket.SendText(request);
      clientsocket.Socket.SendText(request_data);
      //  то что послали серверу
      Memo1.Lines.Add(request);
      Memo1.Lines.Add(request_data);
      Memo1.Lines.Add('--');
      //  теперь читаем его ответ
      //  читаем заголовок ответа
      //  1 мин таймаут
      savetickcount:=GetTickCount;
      response:='';
      while clientsocket.Socket.Connected and (GetTickCount-savetickcount<60000) do
      begin
        if clientsocket.Socket.ReceiveLength>0 then
        begin
          clientsocket.Socket.ReceiveBuf(c, 1);
          response:=response+c;
          if (Length(response)>=4) and (Copy(response, Length(response)-3, 4)=#13#10#13#10) then Break;
        end else Sleep(10);
      end;
      //  вот заголовок
      //  чтобы собрать куки обрабатываем строки с Set-Cookie
      //  response можно засунуть в отдельный TStrings, чтобы удобней было его парсить
      Memo1.Lines.Add(response);
      Memo1.Lines.Add('--');
      //  читаем страницу
      //  т.к. этот сервер передает чанками
      //  Transfer-Encoding: chunked
      //  ждем ответа макс 10 сек
      //  либо "руками" обрабатываем чанки и выходим когда все принято
      //  но это уже совсем другая история
      //  конечно проще когда есть Content-Length в заголовке, имхо
      savetickcount:=GetTickCount;
      response:='';
      while clientsocket.Socket.Connected and (GetTickCount-savetickcount<10000) do
      begin
        if clientsocket.Socket.ReceiveLength>0 then
        begin
          clientsocket.Socket.ReceiveBuf(c, 1);
          response:=response+c;
        end;
      end;
      //  вот страница
      Memo1.Lines.Add(response);
      Memo1.Lines.Add('--');
    finally
      clientsocket.Close;
    end;
  finally
    clientsocket.Free;
  end;
end;

end. 


[NumLock]

PHP код:

request_data:='vb_login_username='+username+'&vb_login_password='+password+'&cookieuser=1&s=&securitytoken=guest&do=login&vb_login_md5password=&vb_login_md5password_utf='; 


взято с формы авторизации на форуме

[NekitoSSSS]

эЭЭ чувак, ты похоже немного перепутал! мне нужна инфа про WinSock а не про TClientSocket (TClientSocket`Ы увеличивают размер проги на десятки килобайт, а мне нужно чисто на апи, чтоб прога весила не больше 60кб ... )
ну впринципе и за это спс)))

[NumLock]

упс. подумал, что основной вопрос все-таки про POST, поэтому и выдал как проще. если никто не ответит выдам на выходных на голом Windows Sockets 2 (постараюсь) сейчас лень