[mw_Kronos]

Вот такая ошибка:
First chance exception at $03AE85C4. Exception class $C000001D with message 'system exception (code 0xc000001d) at 0x03ae85c4'. Process Price.exe (11080)

Возникает при завершении процедуры ParseRequest()
Вот код:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47

type PNetProtocol = ^TNetProtocol;   TNetProtocol = record     command:integer;     data:array [0..15] of integer;     text:string[255];   end;   ...     const CMD_TEST = 6;   ...       TCPClient: TTcpClient; ...   Procedure TForm1.ParseRequest(); var ReciveProtocol:TNetProtocol;     i:integer;     Buf: PByteArray; begin           i := TCPClient.ReceiveBuf(Buf,SizeOf(ReciveProtocol));         System.Move(Buf,ReciveProtocol,SizeOf(ReciveProtocol));           case ReciveProtocol.command of           CMD_TEST:             begin               ShowMessage(ReciveProtocol.text);             end;         end;    end;   procedure TForm1.ToolButton7Click(Sender: TObject); var Protocol: TNetProtocol; begin       if TCPClient.Connect then         begin           Protocol.command := CMD_PRICE_LIST;           TCPClient.SendBuf(Protocol,SizeOf(Protocol));           ParseRequest();           TCPClient.Disconnect;         end       else         ShowNoConnectMessage(); end;

Админ: Пользуемся тегами по оформлению кода!

Пробовал оставить в процедуре только эту строку:
i := TCPClient.ReceiveBuf(Buf,SizeOf(ReciveProtocol));
эффект тот же.
Уже мозг закипает. Не пойму в чем дело. Может глянете незамутненным глазом?

[mw_Kronos]

Походу глюк среды был.
Возник другой вопрос: как для TTCPClient узнать размер поступившего по сети буфера?

[lmikle]

Походу, глюк остался.
Кто будет память в Buf выделять?

Ответ на второй вопрос - BytesReceived
Дока здесь: http://docwiki.embarcadero.com/Libra...ent_Properties