Pointer to string
			 
			 
			
		
		
		
		Добрый день. 
Возникла необходимость поддержки старого кода. Сам я на Delphi не писал, поэтому все сложно: 
 
Имеется компонент Comm32. У него есть событие 
ReceiveData(Sender: TObject; Buffer: Pointer; BufferLength: Word). 
Далее var RecivedStr: string и RecivedStr:=PChar(Buffer), после анализируем что пришло на com-порт 
 
Изменился опрашиваемый прибор и теперь, в ответе от прибора присутствует нулевой символ. Как я понимаю, при загрузке его в RecivedStr строка заканчивается и в ней остается только то, что было до нулевого символа, все остальное отбрасывается. 
Т.е. по порту пришло: 
Read data (COM4) 40 03 06 00 00 08 12 00 00 bf 43 (@........їC), а в RecivedStr только первые 3 символа. 
 
Как правильно прочитать Buffer? Спасибо! 
		
	
		
		
		
		
		
	
		
		
	
	
	 |