Соккеты

[Fiery Fox]

И так. Работаю с соккетами и пишу небольшую программку.
Функционал в исходинках
Есть проблема - при текущих настройках выводит соккет эррор, хотя вроде бы настроено нормально.
Айпи в исходнике подставите, так как я свой для сохранности убрал)
Где сервер, где клиент написано
Просмотрите пожалуйста, где ошибаюсь.

--
http://www.uafile.com/file/18895/miniprj-rar.html
вот архив.
сюда прикрепить не смог, на народ не заливается изза маленького размера
если надо - перезалью.

[ArtGrek]

а в чем именно проблема?

[Fiery Fox]

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

а в чем именно проблема?

Когда стоят при билде порты как сейчас, то просто не хочет передавать сообщения. Самые обычные (MSG{сообщение}). Если клиент отключается, на сервере выдает

Asynchronous socket error 10061

Если везде ставить одинаковые порты, то тоже их не передает.
Не понимаю где я наломал.

[ArtGrek]

значит цлиент не нашел сервер
вот попробуите

[Fiery Fox]

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

[ArtGrek]

при создании у тебя едиты пустые, а потом создание формы больше не происходит
надеюсь понимаеш к чему ето

procedure TForm2.FormCreate(Sender: TObject);
begin
cs.Host:=edit1.Text; //Наш хост, тобиш ип который вы будете вписывать в edit1
cs.port:=123; //Указываем порт в нашем случае инфа будет передоваться через 123 порт
serversocket1.port:=1234;//Назначаем порт
serversocket1.active:=true//начинаем слушать порт
end;

и здесь тоже

procedure TForm2.FormCreate(Sender: TObject);
begin
cs1.Host:='(*!!тут ваш айпи!!*)';
cs1.port:=1234; //Указываем порт в нашем случае инфа будет передоваться через 123 порт
cs1.Active:=true;
Application.ShowMainForm:=false; // Запрещаем показ главной формы
ShowWindow(application.Handle,SW_HIDE); // Прячем приложение
serversocket1.port:=123;//Назначаем порт
serversocket1.active:=true//начинаем слушать порт
end;

ЗЫ. просто скопирывал чужои текст, в сокетах если не поимеш как все работает, ничего стоюшего не зделаеш

[Fiery Fox]

Спасибо)
Я сразу и не заметил
перенес это на кнопку и заработало.
Единственная проблема - модемы(?) там где меняется один из айпишников.

GetLocalIP+' '+tmp+' '+GetSystemComputerName

там где в первом и втором случае передаются разные айпишники

192.168.х.х х.128.ххх.ххх
255.255.255.255
хххх-ПК

например.
но я думаю, тут уже ничего не сделать :\

[Fiery Fox]

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

и здесь тоже

procedure TForm2.FormCreate(Sender: TObject);
begin
cs1.Host:='(*!!тут ваш айпи!!*)';
cs1.port:=1234; //Указываем порт в нашем случае инфа будет передоваться через 123 порт
cs1.Active:=true;
Application.ShowMainForm:=false; // Запрещаем показ главной формы
ShowWindow(application.Handle,SW_HIDE); // Прячем приложение
serversocket1.port:=123;//Назначаем порт
serversocket1.active:=true//начинаем слушать порт
end;

ЗЫ. просто скопирывал чужои текст, в сокетах если не поимеш как все работает, ничего стоюшего не зделаеш

тут я комментарий добавил с айпи сам, что бы свой уже не палить + порты у меня вроде бы нормально выставлены. то к ним комментарии уже были скопированы из источников.)

[ArtGrek]

не понял в чем шас проблема?

[Fiery Fox]

Та уже практически не в чем.
Все работет)
Разве что если, как я понял, роутер, то не подключается)