Форум: "Начинающим";
Текущий архив: 2009.06.07;
Скачать: [xml.tar.bz2];

Вниз

Как поюзать 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]

> Сергей М. ©   [8]

я аж улыбнулся! :) (оффтоп)

---

← →
FireMan_Alexey ©   (2009-04-20 22:07) [11]

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

---

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

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


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

---

← →
Slym ©   (2009-04-21 09:22) [13]

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

---

← →
Сергей М. ©   (2009-04-21 09:24) [14]

> Slym ©   (21.04.09 09:22) [13]


У него клиент, а не сервер)

---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2009.06.07;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.47 MB
Время: 0.004 c