[Raegdan]

Всем добрый день.
Есть задача - сделать DNS прокси. Использую Indy 10.
Код получился такой:

Код:

procedure TForm1.IdUDPServer1UDPRead(AThread: TIdUDPListenerThread;
  AData: TBytes; ABinding: TIdSocketHandle);
var
  Buf: TBytes;
  Bufsize: word;
begin
  IdUDPClient1.SendBuffer('192.168.1.1', 53, AData);

  SetLength(Buf, IdUDPClient1.BufferSize);
  if IdUDPClient1.Binding.Readable then Bufsize:=IdUDPClient1.Binding.Receive(Buf);
  SetLength(Buf, Bufsize);

  ABinding.SendTo(ABinding.PeerIP, ABinding.PeerPort, Buf, Id_IPv4);
end;

(В данном случае 192.168.1.1 - реальный DNS на который пересылается запрос)

Код работает, но!
Как видно, пришлось сделать топорно:

сперва установить размер Buf в максимум,
потом получить в него данные (попутно получив размер данных),
а потом уже обрезать буфер до этого размера.

Связано это с тем, что я не нашёл способа узнать размер данных до выгрузки их в буфер.
Как можно причесать этот момент?

[NumLock]

в справке по TIdSocketHandle сказано:
function Recv(var ABuf; ALen: Integer; AFlags: Integer): Integer;
procedure SendTo(const AIP: string; const APort: Integer; var ABuffer; const ABufferSize: Integer);
т.е последний параметр SendTo задает размер буфера. следовательно можно получать данные Recv в буфер размером BufferSize и передавать в SendTo результат Recv. буфер при этом не трогаем.
но это на Indy 9... см. может в 10 есть перегруженый метод?

[Raegdan]

У меня функции такие:

Код:

procedure TIdSocketHandle.SendTo(const AIP: string; const APort: TIdPort; const ABuffer: TIdBytes; const AIPVersion: TIdIPVersion = ID_DEFAULT_IP_VERSION);
function TIdSocketHandle.Receive(var VBuffer: TIdBytes): Integer;

Т.е. у SendTo нет параметра размера буфера, у Receive тоже нет, но она возвращает размер.

Кстати, привет земляк Я тоже родом из Северодвинска, хоть и живу сейчас в Подмосковье