|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
|||
|
|||
IdUDPClient - получение буфера
Всем добрый день.
Есть задача - сделать 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; Код работает, но! Как видно, пришлось сделать топорно: сперва установить размер Buf в максимум, потом получить в него данные (попутно получив размер данных), а потом уже обрезать буфер до этого размера. Связано это с тем, что я не нашёл способа узнать размер данных до выгрузки их в буфер. Как можно причесать этот момент? Последний раз редактировалось Raegdan, 10.08.2011 в 02:18. |
#2
|
||||
|
||||
в справке по 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 есть перегруженый метод? Пишу программы за еду. __________________ |
#3
|
|||
|
|||
У меня функции такие:
Код:
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; Кстати, привет земляк Я тоже родом из Северодвинска, хоть и живу сейчас в Подмосковье |