TClientSocket ответ от сервера

[JRcoker]

Возможно ли зделать что-то что бы TClientSocket быстрее получал ответ от http сервера?..

[BOBAH13]

Создать свой сервер и клиент на своем ПК без сети.

[JRcoker]

Ну это понятно...
Но мне нужно подкличится не к своему серверу...Я натыкался на программу через TClientSocket получает ответ быстрее чем его получаю я...Хотя сервер один и тодже...

[BOBAH13]

Какой сервер ? Что вы используите ? Как вы подключаитесь ?

[JRcoker]

сервер mail.ru
подключаюсь так

procedure TForm2.MySocket1Write(Sender: TObject; Socket: TCustomWinSocket);
begin
Socket.SendText('GET / HTTP/1.1'+#10+
          'Host: mail.ru'+#10+
          'User-Agent: Opera 9.51'+#10
          +#10);
          while MySocket1.Active=true do Application.ProcessMessages;
end;


procedure TForm2.SendClick(Sender: TObject);
begin
MySocket1.Open;
MySocket1.Close;
end;

в обциях клиента прописываю адрес и порт...

как-то так....

[BOBAH13]

А зачем это ?

while MySocket1.Active=true do Application.ProcessMessages;

Ерунда какая то Почему нельзя сделать так... создать сокет - TThread, потом поставить в FreeOnTerminate и послать буфер в send ? Я воообще не пойму смысла вашего кода

[s.Creator]

procedure TForm2.SendClick(Sender: TObject);
begin
    if MySocket1.Connect then
    begin
      MySocket1.SendText('GET / HTTP/1.1'+#10+
          'Host: mail.ru'+#10+
          'User-Agent: Opera 9.51'+#10
          +#10);

      if MySocket1.WaitForData(30000) then
        begin
          MySocket1.ReceiveText...............................
        end;   
    end;


end;

[JRcoker]

s.Creator ошибок куча...И чем это может ускорить ответ от сервера?..

[Квэнди]

А кто сказал что это должно было ускорить работу ?
вопрос был

Возможно ли зделать что-то что бы TClientSocket быстрее получал ответ от http сервера?..

ответ вам дан выше.

[JRcoker]

Ерунда какая то Почему нельзя сделать так... создать сокет - TThread, потом поставить в FreeOnTerminate и послать буфер в send ? Я воообще не пойму смысла вашего кода

я не знаю как пользоваться TThread...
Всё-таки вопрос в силе как быстрее получить ответ от сервера?..
У меня был сокет(без исходника) и он получал ответ почти мгновенно...