Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Сети > WinSock напрямую

Автор: [EViL] 21.3.2005, 19:25

Я пишу программу для удалённого администрирования рабочих станций.
Мне хочется достичь наименьшего размера за счёт использования чистого WinAPI.
Сервер программы будет использовать протокол Telnet для передачи данных.
Открываю порт:

Код


procedure OpenPort(Port: integer); // Открытие порта
var
  sin: SockAddr_In;
  mWSAData: TWSAData;
begin
  if WSAStartUp(257, mWSAData) = 0 then begin
    S:=Socket(2, 1, 0);
    if s <> Integer(not(0)) then begin
      sin.sin_family:=2;
      sin.sin_addr.s_addr:=$00000000;
      sin.sin_port:=htons(Port);
      WSAAsyncSelect(S, Form1.Handle, $0400 + 100, $08 + $01 + $20);
      Bind(S, sin, SizeOf(sin));
      Listen(S, 5);
    end;
  end;
end;

Вопрос: как проверить наличие новых данных, как получить данные, как отправить данные?
smile

Автор: Akella 22.3.2005, 12:22

Смотри в общих вопрос - арсенал форумистов.
Я выложил архив, там есть пример работы с сокетами.

Автор: [EViL] 22.3.2005, 18:37

Скачаю - посмотрю.
Спасибо.
Добавлено @ 18:46
За клиент, конечно, спасибо... но мне нужен был пример создания простейшего Telnet-сервера сервера средствами WinSock.

Автор: Akella 30.3.2005, 12:19

http://sources.codenet.ru/
Добавлено @ 12:23
http://www.codenet.ru/mail/?n=9
Добавлено @ 12:26
http://programming.finta.ru/?grp=5&grp_sec=52&sec=29