ЛЮДИ ПОМОГИТЕ В Delphi

[Bill]

:( Такая проблема, пытаюсь сам сделать на Delphi свой сервер по принцыву тоя на основе Socket-ов и функией SendText чтобы посылать команы серверу...
Но вот проблема вылитает ошибка соединения и ошибка передачи или приёма команды. Чедалеть подскажите...

[PEPSICOLA]

Постарайся подробнее объяснить... Ip было прописано или надо вводить в поле? Вообще кинь код.

И я не понял, он не соединяется или не отправляет команды? Или ты не знаешь что именно?

Вообщем у меня такая же трабла была... Я где то нашел хороший FAQ на тему создания соединений в delphi... Щас если сайт вспомню напишу. Там ещё примеров куча бы ла

[Morph]

Дай сорс посомтрю помогу чем нить думаю.
Тока не понял ты посылаешь команды серверы чтоли и он при определнной команде должен выполнять что нибудь да?

[gadjet]

Через какой порт работаешь?

[Bill]

Пишу отельно сервак, порт оптономный выбрал сам port=2581 и после запускю сервер, он работает, на соединение отвечает и дает произвести connect, но как только отправляю ему какую либо команду вот что получается:
---
От сервера :
Asinchronous Socket Error 10053.
---

--
От клиента:
Windows Soxket Error :Запрос на отправку или получение данных ( When sending
on a dategrem socket using a sendto call) no addres wes suppied (10057), no API 'recv'.
---

Вот такая загогулина...

[KEZ]

Asinchronous Socket Error 10053.


Вообще 10053 - по WINERROR.H - WSAECONNABORTED (WSABASEERR+53)
Что означает, как я понял, что соединение было сброшено ещё до установки, например неправильно отреагировал сервер на фрейм SYN, или чтото подобное.
Скорее всего - у тебя это происходит из-за того что супер классные делфи-кодеры из компании Borland в своих классах Socket намутили чтото с асинхронными неблокирующими сокетами, возможно не использована select(). Используй обычный интерфейс WinSocket и у тебя все будет нормально (ну насчет в делфи незнаю, но по нормальному все должно быть ок))

А вообще, мастерите на делфи! У вас тоже такие же офигенные программы будут)
хаха

[Bill]

Ну вот простейший пример:

...Form1.Create...
begin
ServerSocket1.port:=...;
ServerSocket1.Action:=true;
end;
...ServerSocket1.ClientRead...
begin
if serverSocket1.Socket.ReciveText='...' then
...;

Что в простейшем сервере нетак?????

И слиент к серваку тоже простейший:
...form1.Button1.click...
begin
ClientSocket1.host...
clientSocket1.addres...
ClientSocket1.Action:=treu;
end;

...form1.Button2.click...
ClisentSocket1.Socket.SandText:='...';

и что тут нетак???

[gadjet]

Может у тебя фаер порт закрывает?

[Bill]

Нет я пробовал его просто намертво отрубать... и всеравно нефига, что телать незна.

НО ФАКТ НЕЧЕГО НЕРАБОТАЕТ!!

[gadjet]

Запусти обе проги (клиент и сервер) на своем компе и укажи Ip 127.0.0.1 и проверь. Если будет та же ошибка, значит у тебя че-то с кодом

[Morph]

Да бывают такие траблы в дельфи сам лично сталкивался и не раз.
Как то помню чо от мутил и этой фени больше не было, но щас убей не помню.

[Bill]

Спасибо попробуем...

[Bill]

[B]Сделал как посоветовали, и получил результат...
как я уже писал рание только Socket Error 10061...

Есть мысли или идеи...

уменя пока нет....

вот нашел статью про подобный случай, перечитайте и сажите могу ли я этим воспользоватся???? Вот статья : http://www.forum.antichat.ru/thread15440.html

[KEZ]

Нелюблю когда мои посты нехрена не замечают... Зачем вообще что-то на форуме писать?
Описал уже миллион раз из-за чего это и что надо делать... нет... все прошло незамеченым

[Raider]

Скорее всего - у тебя это происходит из-за того что супер классные делфи-кодеры из компании Borland в своих классах Socket намутили чтото с асинхронными неблокирующими сокетами, возможно не использована select(). Используй обычный интерфейс WinSocket и у тебя все будет нормально (ну насчет в делфи незнаю, но по нормальному все должно быть ок))

Delphi кодеры тут не причём, просто Bill наверно перевёл свой сокет в блокирующий режим ...

2 Bill: Убедись что ClientType у TClientSocket'а == ctNonBlocking.
-

вот нашел статью про подобный случай, перечитайте и сажите могу ли я этим воспользоватся???? Вот статья : http://www.forum.antichat.ru/thread15440.html

Там есть ссылка на прогу которая работает как раз с этими сокетами, проверь будет ли она рабоать у тебя, еслс нет, то хз в чём трабла ...

[KEZ]

Да, намутили, что называется там разработчики... Неужели не проще взять ОБЫЧНЫЕ Windows-сокеты ?
Чем ставить у каких-то псевдо-надуманых объектов типа

TClientSocket

какие-то надуманые левые свойства, когда в реальности этим и не пахнет?

[Raider]

Delphi кодеры тут не причём, просто Bill наверно перевёл свой сокет в блокирующий режим ...

2 Bill: Убедись что ClientType у TClientSocket'а == ctNonBlocking.

Прошу прощенья тут я был не прав.
-
Да, намутили, что называется там разработчики... Неужели не проще взять ОБЫЧНЫЕ Windows-сокеты ?
Чем ставить у каких-то псевдо-надуманых объектов типа

какие-то надуманые левые свойства, когда в реальности этим и не пахнет?
Как видишь намутил здесь пока только Я ) Поэтому вопрос по поводу левого св-ва сам собой отпадает, а вообще согласен что обычные Windows сокеты использовать проще.