Windows Sockets / Сокеты / RAW Sockets

[bwwebm]

Никак не могу разобраться, а в том числе и понять что именно нужно применять. Для начала постановка задачи: есть сервер и приложение, сервер удаленный, а приложение находится на локальной машине. Исходников нет, но известно что приложение и клиент обмениваются пакетами. Необходимо параллельно получать в свою программу то, что шлет сервер - клиенту в чистом виде. Известно что сервер устанавливает с клиентом соединение типа STREAM и шлет непрерывно пакеты фиксированного размера? или почти непрерывно.

Вот, в общем то полноценный кусок кода, которым я пытаюсь запаралелить соединение:

...
uses ScktComp, winsock;

type RRecvData = record
  Socket: TSocket;
  buf: array [0..254] of Char;
  buf_size: Integer;
  recv_len: Integer;
  th_id: Cardinal;
  th_handle: Integer;
  th_stop: Boolean;
  hook: Boolean;
end;
PRecvData = ^RRecvData;

var
  hParalell: TSocket;
  paralell_recv: RRecvData;
  WSA: WSAData;

procedure recv_data(wParam: Pointer);
var
Addr_in: sockaddr_in;
Addr_size: Integer;
begin
  if wParam = nil then
    EndThread(0);
  FillChar(Addr_in,SizeOf(sockaddr_in),0);
  Addr_in.sin_family:= AF_INET;
  Addr_in.sin_addr.s_addr := inet_addr(PChar('0.0.0.0'));
  Addr_in.sin_port := HToNS(0);
  Addr_size:=SizeOf(Addr_in);
  repeat
      PRecvData(wParam)^.recv_len:=recvfrom(PRecvData(wParam)^.Socket, PRecvData(wParam)^.buf, PRecvData(wParam)^.buf_size, 0, Addr_in, Addr_size)
  until (PRecvData(wParam)^.th_stop) OR (PRecvData(wParam)^.recv_len <> SizeOf(PRecvData(wParam)^.buf));
  EndThread(1);
end;

procedure make_paralell;
var
  Addr_in: sockaddr_in;
  Addr_size: Integer;
  bOptAddr: Bool;
begin
  WSAStartup($202, WSA);
//замена SOCK_STREAM на SOCK_RAW - возмоно?
  hParalell:=socket(AF_INET, SOCK_STREAM, IPPROTO_TCP);
  if hParalell= SOCKET_ERROR then begin
    Exit;
  end;

  bOptAddr:=True;
  if setsockopt(hParalell, SOL_SOCKET, SO_REUSEADDR, @bOptAddr, SizeOf(Bool)) <> 0 then begin
    ShowMessage('opt error');
    Exit;
  end;

  FillChar(Addr_in,SizeOf(sockaddr_in),0);
  Addr_in.sin_family:= AF_INET;
  Addr_in.sin_addr.s_addr := inet_addr(PChar('127.0.0.1'));
  //Порт может меняться, ввел для примера
  Addr_in.sin_port := HToNS(25471);
  Addr_size:=SizeOf(Addr_in);

  if bind(hParalell, Addr_in, Addr_size) = SOCKET_ERROR then begin
    closesocket(hSocket);
    Exit;
  end;

  paralell_recv.Socket:=hParalell;
  paralell_recv.buf_size:=SizeOf(paralell_recv.buf);
  paralell_recv.th_stop:=False;
  paralell_recv.hook:=True;
  sock_recv.th_handle:=BeginThread(nil, 0, @recv_data, PRecvData(@paralell_recv), 0, paralell_recv.th_id);
end;

[profi]

Могу ошибаться, но по моему в Windows поддержка RAW-сокетов сделанно не полноценно, так что прийдется использовать: IPPROTO_TCP или IPPROTO_UDP.

[bwwebm]

Сообщение от profi

Могу ошибаться, но по моему в Windows поддержка RAW-сокетов сделанно не полноценно, так что прийдется использовать: IPPROTO_TCP или IPPROTO_UDP.

Ошибаетесь, вот как инициализировать RAW сокет:

const
  SIO_RCVALL = $98000001;
  WSA_VER = $202;
...
function TIPHandler.Init: Integer;
begin
  Result:=WSAStartup(WSA_VER, WSA);
  if Result <> NOERROR then
    Exit;
  hSocket:=socket(AF_INET, SOCK_RAW, IPPROTO_IP);
  if hSocket = INVALID_SOCKET then begin
    Close; //метод класса TIPHandler, закрывающий соединение
    Exit;
  end;
  FillChar(Addr_in, SizeOf(sockaddr_in), 0);
  Addr_in.sin_family:= AF_INET;
  Addr_in.sin_addr.s_addr := inet_addr(SocketHost);
  if bind(hSocket, Addr_in, SizeOf(sockaddr_in)) <> 0 then begin
    Close;
    Exit;
  end;
  Switch:=1;
  //Переход в неразборчивый режим
  if ioctlsocket(hSocket, SIO_RCVALL, Switch) <> 0 then begin
    Close;
    Exit;
  end;
  Result:=hSocket;
end;

[raxp]

type RRecvData = record
  Socket: TSocket;
  buf: array [0..254] of Char;
  buf_size: Integer;
  recv_len: Integer;
  th_id: Cardinal;
  th_handle: Integer;
  th_stop: Boolean;
  hook: Boolean;
end;

если неизвестна структура пакетов, то откуда это вы взяли?

[bwwebm]

Эта запись не имеет отношения к чтению пакета, просто для удобства написал когда начинал разбираться.