Модераторы: Snowy, Poseidon, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Проблема с sockets во free pascal 
:(
    Опции темы
MozgZombi
Дата 9.2.2015, 18:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 58
Регистрация: 9.1.2011
Где: Екатеринбург

Репутация: нет
Всего: нет



Пытаюсь написать два простых приложения сервер\клиент с помощью юнита sockets на free pascal. При запуске сервера, он ждёт подключения, когда я запускаю клиент, который должен посылать сообщение "test", оба окна закрываются. Перед завершением программы пробовал писать readln();, чтобы проверить, что выводят программы перед выходом, оказалось, что ничего не выводят. 

Вот код сервера:
Код

program serv;

uses
Sockets, crt;

var
S: longint;
SAddr, FromName: TInetSockAddr;
Sin, Sout: text;
Buffer: string[255];

begin
S:=fpSocket(AF_INET, SOCK_STREAM, PF_UNSPEC);
SAddr.sin_family:=AF_INET;
SAddr.sin_port:=shorthosttonet(5000);
//SAddr.sin_addr:=StrToHostaddr('127.0.0.1');
fpbind(S, @SAddr, sizeof(saddr));
fplisten(S, 1);
accept(S, FromName, Sin, Sout);
Reset(Sin);
Rewrite(sout);
Flush(sout);
readln(sin, buffer);
writeln(buffer);
end.



Вот клиент:

Код

program clnt;

uses
sockets, crt;

var
SAddr: TInetSockAddr;
S: longint;
msg: string[255];

begin
S:=fpsocket(AF_INET, SOCK_STREAM, PF_UNSPEC);
SAddr.sin_family:=AF_INET;
SAddr.sin_port:=shorthosttonet(5000);
SAddr.sin_addr:=strtonetaddr('127.0.0.1');
fpconnect(s, @saddr, sizeof(saddr));
msg:='test';
fpsend(s, @msg, sizeof(msg), 1);
end.


Разобраться самому было очень трудно, так как опирался только на документацию, в которой лишь был пример приёма сервром сообщения.
PM MAIL Skype   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Сети"
Snowy
Poseidon
MetalFan

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делится вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Snowy, Poseidon, MetalFan.

 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Сети | Следующая тема »


 




[ Время генерации скрипта: 0.0792 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.