Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Мультимедиа в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 20.04.2009, 19:23   #1
Sitnic
Новичок
Джуниор
 
Регистрация: 20.04.2009
Сообщений: 1
По умолчанию Как поюзать ClentSocket из консольного приложения?

Консольное приложение. К нему привязан 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.
Пробую делать все тоже самое в ГУИ - все работает. Все коннектится, все в шоколаде.
А в консоли - хрен. Где кривые руки?
Sitnic вне форума Ответить с цитированием
Старый 20.04.2009, 20:09   #2
Пепел Феникса
Старожил
 
Аватар для Пепел Феникса
 
Регистрация: 28.01.2009
Сообщений: 21,000
По умолчанию

какое название класса?
TDataModule?
так значит должно быть так DataModule1:=TDataModule.Create
Хорошо поставленный вопрос это уже половина ответа. | Каков вопрос, таков ответ.
Программа делает то что написал программист, а не то что он хотел.
Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите.
Пепел Феникса вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Оформление консольного окна. Smitt64 Visual C++ 3 11.03.2011 16:14
Закрытие консольного приложения по ENTER в C++ Сергей089 Помощь студентам 4 02.03.2009 21:17
Скорость Server/ClentSocket delphin100 Работа с сетью в Delphi 9 08.05.2008 13:51
Перехват вывода консольного приложения Роман Радер Общие вопросы Delphi 0 12.02.2007 18:40