Форум программистов
 
Регистрация на форуме тут, о проблемах пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль

Купить рекламу на форуме 15-35 тыс рублей в месяц

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

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

           Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
           И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - https://clck.ru/fCqwP

Ответ
 
Опции темы Поиск в этой теме
Старый 23.04.2010, 16:29   #1
iGlass
Пользователь
 
Регистрация: 10.09.2009
Сообщений: 25
Восклицание Winsock Client & Server [Проблемы и решения]

Всем доброго времени суток!
Помогите пожалуйста...
Задача у меня очень проста нужно сделать клиент серверное приложение
из Клиента отправляем любой текст и сервер сохраняет его в файл..
Вот я тут наваял немного, но не знаю правильно или нет...

Код сервера.
Код:
var
WSA:WSAData;
hSocket:TSocket;
hAddr:TSockAddrIn;
hPort:Word;
buffer:Integer;
buffer_recv:array[0..10000] of Char;
begin
  WSAStartup($202,WSA);
    hAddr.sin_family:=AF_INET;
    hAddr.sin_port:=htons(hPort);
    hAddr.sin_addr.S_addr:=INADDR_ANY;
     socket(AF_INET,SOCK_STREAM,IPPROTO_TCP);
      bind(hSocket,hAddr,buffer);
      recv(hSocket,buffer_recv,buffer,0);
      closesocket(hSocket);
      WSACleanup();
end;
Помогите кто чем может очень буду рад!
iGlass вне форума Ответить с цитированием
Ответ

           Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
           Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

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

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Client-Server на 500+ пользователей. Mixasik Работа с сетью в Delphi 8 22.08.2008 12:01
Помогите разобраться с client-server fLytarget Работа с сетью в Delphi 2 11.08.2008 16:00
Client и Server Роман Радер Работа с сетью в Delphi 11 10.07.2008 15:24
Client - Server Socket событие OnError One.Love Работа с сетью в Delphi 10 04.03.2008 09:39
Citrix ISA Client на Windows 2003 Server Рустам Софт 1 21.08.2007 22:47