[Delphi]/[Pascal] Задай вопрос, получи ответ

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.

Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.

⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.

#11

29.03.2009, 12:20

gLuk!

Познающий

Регистрация: 28.03.2009

Сообщений: 30

Провел на форуме:
453605

Репутация: 1

Вот собсно начал изучать WinSock в делфях. Вроде все сделал опираясь на готовые примеры.
Код:

Код:

program winsock;
{$APPTYPE CONSOLE}
uses
  sysutils, winsock, windows;
const
  port = 1221;
var
  D:WSAData;
  S:TSocket;
  A:sockaddr_in;
  sendbuf:String;
  ip:string;
begin
sendbuf:='Hello world!!!';
writeln('IP:');
Readln(ip);
if WSAStartup(makeword(1,1),D)<>0 then
begin
  writeln('error..');
  exit;
end;
  S:=socket(AF_INET,SOCK_STREAM,IPPROTO_TCP);
  A.sin_family:=AF_INET;
  A.sin_addr.S_addr:=inet_addr(pchar(ip));
  if S=INVALID_SOCKET then writeln('Socket error.');
  A.sin_port:=htons(port);
  if connect(S,A,sizeof(TSockAddr))=0 then
      Writeln('Connect!!!!');
  Send(S,sendbuf,Length(sendbuf),0);
WSACleanup;
readln; readln;
end.

Сервер сделал с помощью компонента TServerSocket.
Коннект к серваку идет, а сообщение не приходит. В чем может быть проблема?

Последний раз редактировалось gLuk!; 29.03.2009 в 12:29..