Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Интернет и сети
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 16.05.2012, 19:52
RIBB RIBB вне форума
Прохожий
 
Регистрация: 16.05.2012
Сообщения: 10
Репутация: 10
Злость Помогите с Сокетами

Здравствуйте, не могли бы помочь, проблема следующая:
на i.p. 172.0.0.1 приходят данные, необходимо принять их в любое поле (memo, edit,...) как я понимаю делается это clientsoket ом, не могли бы код примерный подкинуть
Ответить с цитированием
  #2  
Старый 16.05.2012, 20:25
Аватар для cotseec
cotseec cotseec вне форума
Активный
 
Регистрация: 16.07.2008
Сообщения: 353
Версия Delphi: D7,TDE06,RAD09
Репутация: 1443
По умолчанию

Великий и могучий прием и отправка
Ответить с цитированием
  #3  
Старый 16.05.2012, 21:04
RIBB RIBB вне форума
Прохожий
 
Регистрация: 16.05.2012
Сообщения: 10
Репутация: 10
По умолчанию

читал, искал, пробовал, не получается...
Ответить с цитированием
  #4  
Старый 16.05.2012, 21:27
RIBB RIBB вне форума
Прохожий
 
Регистрация: 16.05.2012
Сообщения: 10
Репутация: 10
По умолчанию

прием и отправка[/quote] там отправка, мне надо чисто прием
Ответить с цитированием
  #5  
Старый 16.05.2012, 21:43
Аватар для cotseec
cotseec cotseec вне форума
Активный
 
Регистрация: 16.07.2008
Сообщения: 353
Версия Delphi: D7,TDE06,RAD09
Репутация: 1443
По умолчанию

Цитата:
Сообщение от RIBB
прием и отправка там отправка, мне надо чисто прием

идем по ссылке, среди прочего находим
Код:
.....procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
      Socket: TCustomWinSocket);
    begin
      {От клиента получено сообщение - выводим его в Memo1}
      Memo2.Lines.Insert(0,'Message received from client');
      Memo1.Lines.Insert(0,'> '+Socket.ReceiveText);
    end;.....
спрашиваем у гугла, он отвечает
Цитата:
OnClientRead - возникает, когда клиент передал серверу какие-либо данные. Доступ к этим данным можно получить через передаваемый параметр Socket: TCustomWinSocket;
по ходу дела тут еще и прием продемонстрирован
по аналогии TClientSocket - чтение и отправка

т.к.
Цитата:
на i.p. 172.0.0.1 приходят данные, необходимо принять их в любое поле (memo, edit,...)
похоже на ваш вариант, пробуйте, когда что-то конкретно получаться не будет - вопросы и примеры кода с описанием неполучающегося
Ответить с цитированием
  #6  
Старый 16.05.2012, 22:02
RIBB RIBB вне форума
Прохожий
 
Регистрация: 16.05.2012
Сообщения: 10
Репутация: 10
По умолчанию

немного поясню, имеется собранное устр-во (омметр) на базе мк, через юсб шлет данные на локальный ip (temp файл запускает отправку) необходимо вывести результат на экран, т.е. сервером является мк и OnClientRead не к месту ибо в ответ ему ничего слать не надо
Ответить с цитированием
  #7  
Старый 16.05.2012, 22:35
Аватар для cotseec
cotseec cotseec вне форума
Активный
 
Регистрация: 16.07.2008
Сообщения: 353
Версия Delphi: D7,TDE06,RAD09
Репутация: 1443
По умолчанию

Цитата:
через юсб шлет данные на локальный ip (temp файл запускает отправку)
какой интерфейс: Ethernet, USB или RS-232(UART)?
Вложения
Тип файла: zip Socket.zip (1.3 Кбайт, 4 просмотров)
Ответить с цитированием
  #8  
Старый 16.05.2012, 23:10
RIBB RIBB вне форума
Прохожий
 
Регистрация: 16.05.2012
Сообщения: 10
Репутация: 10
По умолчанию

через usb.
Ответить с цитированием
  #9  
Старый 16.05.2012, 23:16
RIBB RIBB вне форума
Прохожий
 
Регистрация: 16.05.2012
Сообщения: 10
Репутация: 10
По умолчанию

достал прогу из архива попробовал, реакции 0 после тычек 30 по button ам выдал ошибку asynhronous socket error 10061
Ответить с цитированием
  #10  
Старый 17.05.2012, 07:46
Аватар для cotseec
cotseec cotseec вне форума
Активный
 
Регистрация: 16.07.2008
Сообщения: 353
Версия Delphi: D7,TDE06,RAD09
Репутация: 1443
По умолчанию

необходимо в примере изменить порт и адрес к которому подключаешься (адрес устройства с которого все это приходит и порт, на который оно вещает данные)
Цитата:
через usb.
точно необходимы сокеты и ethernet???
Ответить с цитированием
  #11  
Старый 17.05.2012, 08:24
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
По умолчанию

Цитата:
Сообщение от RIBB
через usb.
чувствую без CreateFile('\\.\COM*') не обойтись, а сокеты не нужны. в диспетчере устройств какой девайс появляется при подключении гаджета?
__________________
Пишу программы за еду.
__________________
Ответить с цитированием
  #12  
Старый 17.05.2012, 18:23
Аватар для cotseec
cotseec cotseec вне форума
Активный
 
Регистрация: 16.07.2008
Сообщения: 353
Версия Delphi: D7,TDE06,RAD09
Репутация: 1443
По умолчанию

если ТС просит сокеты, так что же ему их не дать
на расстоянии, не видя девайс, приходится исходить из слов, с другой стороны если usb, то это либо "чистый" usb либо RS-232 (через UART), конечно Ethernet возможен, но настолько это будет специфично.....

как писал NumLock выше - сравни в диспетчере устройств устройства до подключения девайса и после его подключения (может появится какое-то хитрое устройство) - от сюда и пляши
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 20:07.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter