VPF::Как изъять символ через Pointer указатель?

WDeveloper

Дата 31.1.2007, 20:14 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 31
Регистрация: 31.1.2007

Репутация: нет
Всего: нет

Имеется такой код приёма бинарных данных на ClientSocket:

Код


var
  FStream : TFileStream;

procedure TForm1.ClientSocket1Read(Sender: TObject;
  Socket: TCustomWinSocket);
var
  iLen: Integer;
  Bfr: Pointer;

begin

  iLen := Socket.ReceiveLength;
  GetMem( Bfr, iLen );
  try
    Socket.ReceiveBuf( Bfr^, iLen );
    FStream.Seek( 0, soFromEnd );
    FStream.Write( Bfr^, iLen );
  finally
    FreeMem( Bfr );
  end;

end;

Там мы через ReceiveBuf получаем указатель Bfr на данные и тут же помещаем их в конец текущего файлового потока.
Подскажите пожалуйста, каким образом можно посмотреть какие в этом массиве 2ой и 3ий символ?
Другими словами как можно сделать возможное что-то типа:

Код

ShowMessage ( Bfr^[1] + Bfr^[2] );

Спасибо!

W4FhLF

Дата 31.1.2007, 20:40 (ссылка)

(нет голосов)

Загрузка ...

found myself

Профиль
Группа: Участник Клуба
Сообщений: 2831
Регистрация: 2.12.2006

Репутация: 6
Всего: 121

Код


ShowMessage(IntToStr(  byte(pointer(dword(Bfr)+2)^)  ));

--------------------

"Бог умер" © Ницше
"Ницше умер" © Бог

WDeveloper

Дата 31.1.2007, 22:31 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 31
Регистрация: 31.1.2007

Репутация: нет
Всего: нет

Вот ещё решение нашёл:

Код

ShowMessage ( Char ( ( PChar( Bfr ) + I )^ ) );

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »