VPF::IRC и winsock - Форум программистов

dfs-

Дата 26.7.2005, 01:56 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

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

Доброго времени суток, уважаемые. Помогите, пожалуйста передать на IRC сервер параметры
USER, NICK и послать PRIVMSG, с помощью winsock. Ниже я привел свой код, который коннектится к серваку, но не передает нужные строки, подскажите, пожалуйста в чем у меня может быть ошибка.
Телнетом получается все...

Код


var
wsadata : TWSAData;
  sin: TSockAddrIn;
  sock: TSocket;
  I : Integer;
   B,A,C,P:pchar;
  log:array[0..1024] of char;
  log2:array[0..5000] of char;
  log3:array[0..1024] of char;

const MyComp = '207.44.229.131';

begin

  WSAStartUp(257, wsadata);               //инициализируем
  sock:=socket(AF_INET,SOCK_STREAM,IPPROTO_TCP);
  sin.sin_family := AF_INET;
  sin.sin_port := htons(6667); 
  sin.sin_addr.S_addr:=d_addr(MyComp);
  FillChar(sin.Sin_Zero,SizeOf(sin.Sin_Zero),0);
  connect(sock,sin,sizeof(sin)); //коннектимся
  sleep(2000);
  recv(sock,log3,Length(log3)+1,0);
  WriteLn(log3);
  B:=('USER guest tolmoon tolsun :Ronnie Reagan'+ #13#10); 
  for i:=1 to length(B) do
  begin
  if send(sock,B[i],1,0) = SOCKET_ERROR then Break; //отправляем
  end;
  A:=('NICK test' + #13#10);
  for i:=1 to Length(A) do
  begin
  if send(sock,A[i],1,0)= SOCKET_ERROR then Break; //отправляем
   end;
  sleep(3000);
  // log2:='';
  //sleep(5000);
  //recv(sock,log2,Length(log2)+1,0);
  //WriteLn(log2);
  C:=('PRIVMSG dfs- :www' + #13#10);
  for i:=1 to Length(C) do
  begin
  if send(sock,C[i],1,0)=SOCKET_ERROR then Break; //отправляем
  end;
  recv(sock,log,Length(log)+1,0);
  WriteLn(log);
  sleep(3000);
  WSACleanup;
end.

Это сообщение отредактировал(а) dfs- - 26.7.2005, 02:07

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