Как поюзать ClientSocket из консольного приложения?

← →
Sitnic (2009-04-20 19:32) [0]

Консольное приложение. К нему привязан DataModule. На нем размещаю Clientsocket.

program Project2; {$APPTYPE CONSOLE} uses SysUtils, Unit2_1 in "Unit2_1.pas" {DataModule1: TDataModule}; begin { TODO -oUser -cConsole Main : Insert code here } DataModule1:=TDataModule1.Create(nil); // Создаем объект. Все путем создается. DataModule1.ClientSocket1.Port:=5190; DataModule1.ClientSocket1.Host:="MyServer.com"; // Заполняем свойства. //Тоже все в порядке. Все заполняется, все отображается DataModule1.ClientSocket1.Open; // пробуем коннектится. // Тут он чего-то такое делает. видать пробует зацепиться. // И опять кажет свойство ClientSocket1.active = false. // Не вяжется. end.

Пробую делать все тоже самое в ГУИ - все работает. Все коннектится, все в шоколаде.
А в консоли - хрен. Где кривые руки?

← →
Rouse_ © (2009-04-20 19:34) [1]

Давно уже не работал с этой оберткой, но помниться ему окно нужно было... Хотя, посомтри что в OnError он говорит?

← →
Сергей М. © (2009-04-20 19:34) [2]

> Где кривые руки?

Как это где ? У тебя, разумеется)

Кстати, ТОТ ЖЕ самый код и в гуёвом приложении покажет то же самое.

← →
Sitnic (2009-04-20 19:44) [3]

> Кстати, ТОТ ЖЕ самый код и в гуёвом приложении покажет то
> же самое.

Говорю же - в ГУИ все коннектица но 100% и мгновенно.

>Хотя, посомтри что в OnError он говорит?
Он ничего в Еггог не говорит. Он просто не вяжется. Работает в смысле безошибочности все распрекрасно.

← →
Сергей М. © (2009-04-20 19:47) [4]

> Говорю же

Ну тогда тряси бубен, коль слушать не желаешь.

← →
Sitnic (2009-04-20 19:51) [5]

>Ну тогда тряси бубен, коль слушать не желаешь.

Да как же тебя услышишь, коль ты неиче не говоришь...

← →
Сергей М. © (2009-04-20 20:19) [6]

> Sitnic (20.04.09 19:51) [5]

"Мгновенно" - это когда при выполнении нижеследующего кода

ClientSocket1.Open; if ClientSocket1.Active then ShowMessage("Мгновенно");

в любом приложении (хоть гуёвого, хоть .... вого) ты увидишь выделенное жирным слово)

← →
FireMan_Alexey © (2009-04-20 20:42) [7]

А где ты обрабатываешь оконные сообщения?
ClientSocket он вообще-то по умолчанию на окнах сидит...
там Пикать и диспатчить надо... :)

← →
Сергей М. © (2009-04-20 21:23) [8]

> FireMan_Alexey © (20.04.09 20:42) [7]
>
> А где ты обрабатываешь оконные сообщения?

Он их нигде не обрабатывает.
Ему "nb cfvst окна в этих cfvs[ компонентах - что барану те самые ворота)
Равно как и (и начиная с) значения св-ва ClientType)

← →
Сергей М. © (2009-04-20 21:25) [9]

> Ему "nb cfvst окна в этих cfvs[ компонентах - что барану
> те самые ворота)

Ему эти самые окна в этих самых

← →
FireMan_Alexey © (2009-04-20 22:00) [10]

Афтор) загляни сюда ... http://www.delphimaster.ru/articles/console.html

← →
Sitnic (2009-04-21 05:29) [12]

> Ему эти самые окна в этих самых

Фсе казлы, один Сергей М. дартаньян.
Что ж, и такое бывает.

поставь сокету режим тредблокинг и никаких окон ненадо

Как поюзать ClientSocket из консольного приложения? Найти похожие ветки