ClientSocket и ServerSocket.

[Vaigard]

В общем, в процессе изучения "Программирование в Delphi глазами хакера" Фленова, а пытался написать своего трояна. Не работает. Переписал программу из книги слово в слово. Пишет ошибку о асинхронизации сокета - 10060, рабоать не хочет ни в какую. И следующая глава, передача файлов по сети, тоже преподнесла такой же сюрприз. Зато внутри компьютера файл копируется в паку с клиентом Почему могут не работать компоненты ClientSocket и ServerSocket? Заранее спасибо

[ArtGrek]

залеи проект, надо вспомнить как все работает

[Vaigard]

Вот он. Это отправка файлов.

[Vaigard]

И троянский конь

[Vaigard]

Товарищи, неужели никто не может мне помочь?

[ArtGrek]

просматривал твои проги
у Sockets очен зависимыи друг от друга диалог, ты видимо ток начал с ними работать
вот их диалог при подключении:

Server Listen
Client Lookup
Server GetSocket
Client Connecting
Server ClientConnect
Server Accept
Client Connect

если надумаеш автаризовываца с паролем нужно всю процедурю вписывать в етот диалог, ето все их события, если не заметил

теперь что касаеца WRITE and READ

//T - ето наш пакет даных, в его структуре надо учитывать то что ты будеш посылать и принимать в обе стороны
type
  SEND_FMT = record
    cmd : DWORD;
    param: integer;
end;

var
  T: Send_Fmt;

procedure TForm1.ServerSocket1ClientWrite(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  ServerSocket1.Socket.Connections[0].SendBuf(T, SizeOf(T));
end;

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  ServerSocket1.Socket.Connections[0].ReceiveBuf(T, SizeOf(T));
  //обрабатываем принятую информацию
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  T.cmd := StrToInt(Edit1.Text);
  T.param := 5;
  // вызываем событие  Write
  ServerSocket1.Socket.Connections[0].OnSocketEvent(ServerSocket1.Socket.NewInstance,ServerSocket1.Socket.Connections[0], seWrite);
end;

//для клиента аналогично

если ты послас с однои стороны что то, то событие READ на другои стороне происходит автоматически
его не надо вызывать, твоя ошибка вроди в неверном Wrte <-> Read


P.S. с Sockets я самоучка, так что имеи ввиду, но на практике мои сервак полностью рабочии

[Vaigard]

Я с сокетами не самоучка, а полный ламер Знаю о них только то, что прочитад у Фленова Буду разбираться Спасибо большое

[Stilet]

Обсуждение вирмейкерства наказуемо.
P.S. в следующий раз обоим горчичник влеплю.