TClientSocket в потоке

[BlackOmen]

Здравствуйте! Никак не получается осуществить функционирование TClientSocket в потоке, он создаётся, но не чего не делает((
У кого - нибудь есть примерчик создания данного компонента в потоке, причём реально рабочий?

[BOBAH13]

лучше реализуйте в потоке WinSock. Меньше проблем будет, чем компонент юзать, который и так сам юзает еще поток

[BlackOmen]

Так вот юзал уже WinSock))) не приходит ответ от сервера и всё тут((
попробывал на TClientSocket всё заработало ... в принципе TClientSocket это почти и есть WinSock.
Так что есть идеи/примеры?

[BOBAH13]

Значит не правильно написали обработку очереди на WinSock. А так сидеть гадать и за вас писать все с нуля, чет нет желания

[BlackOmen]

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

Значит не правильно написали обработку очереди на WinSock. А так сидеть гадать и за вас писать все с нуля, чет нет желания

Вот именно, за меня не надо ничего писать! Ну вот тогда :
Возпользовшись Винсоском пишу
send(Clisock, Omessage, length(Omessage), 0),
где Omessage = 'GET http://XXX.XX/xxx.php ... HTTP/1.0'#10#10 - обыкновенный HTTP запрос.
Приём ответа производится:
recv(Clisock, Imessage, length(Imessage), 0), - никаких флагов не указывал. Вот сдесь ждётся ответ и так и недожидается ....

Пишу аналогично на ТКлиентсокет - всё работает, о какой очереди вы говорите?

[BOBAH13]

Как я понял, Omessage: String ? тогда ваши действия send, recv неверны ( в какой то степени ). Я бы сделал так

send{recv}(Clisock, Pointer(Omessage)^, Length(Omessage), 0);

Думаю так верно, всегда сам так пишу, если приходиться.

[BlackOmen]

Хоть я так уже и делал, всё равно спасибо за помощб ...

[BOBAH13]

ну вот на быструю руку накидал надработку над send... там вообщет побольше кода можете найти и в сети

procedure Send(s: TSocket; var Buf; Count: Integer);
var
  i, n: Integer;
begin
  i := 0;
  while (i < Count) do
  begin
    n := Send(s, Pointer(Integer(@Buf) + i)^, Count - i);
    if (n = SOCKET_ERROR) then Break;
    inc(i, n);
  end;
end;

Попробуйте так отправлять

[BlackOmen]

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

Как я понял, Omessage: String ? тогда ваши действия send, recv неверны ( в какой то степени ). Я бы сделал так

send{recv}(Clisock, Pointer(Omessage)^, Length(Omessage), 0);

Думаю так верно, всегда сам так пишу, если приходиться.

Ошибку понял! Я должен был организовать приёмный массив, именно массив а не строку .....

 
var Imessage:array[0..1000] of char;
....................................
recv(Clisock, Imessage, length(Imessage), 0);