Указатели от теории к практике

[crossmark]

Здравствуйте!

Вопрос у меня вот в чем.
Как то не приходилось работать с указателями. Почитав материал вроде все понятно. Получить адрес, разыменовать указатель. Но вот на практике, что-то не то. Или потому что нет самой практики в этой теме.
К примеру вот такая запись:

type
  TMass = array of byte;
  PMass = ^TMass;
End;

Я так это понял. Объявил тип: TMass массив байтов. Потом объявил PMass который является указателем на Tmass.
Это верно?

Я создаю класс - поток. Стандартный Tthread. TClientReadWriteData = class(TThread)

type
  TMass = array of byte;
  PMass = ^TMass;
  TClientReadWriteData = class(TThread)
  private
	bf: PMass;  //- объявил буфер котрый является указателем на Tmass
bf_size: integer;

Это верно?

Выделяю память

constructor TClientReadWriteData.Create;
begin
inherited Create(true);
bf_size:=32768;
//new(bf); // я делал сначала так
//SetLength(bf^, bf_size*sizeof(byte));  // так как это динамический массив. Выделил память
//указателю, потом память под массив

  GetMem(bf, bf_size*sizeof(byte));	// потом сделал так
end;

Мне вот интересна запись в комментарии. Что такое bf. new(bf); Создается переменная указатель. По какому то адресу. Потом SetLength(bf^,….) по этому адресу будет находится адрес массива… Так?
А вот GetMem – сразу выделил память для bf

Далее процедура потока.

procedure TClientReadWriteData.Execute;
var s: string;
begin
s:= string(pointer(bf));	// проверяю для себя
end;

Вот что заметил. Когда выделял bf через New и SetLength, то переменная s получала значения несколько (примерно около 10) мусорных символов, а вот когда через GetMem то было много мусорных символов.

procedure TClientReadWriteData.Execute;
var s: string;
begin
//s:= string(pointer(bf));	// проверяю для себя
sz:= recv(_ClientSocket, bf^, bf_size, 0);
s:= string(pointer(bf));
 s:= string(@bf);
end;

Теперь s получает значение которые прочитал сокет. Опять же. Если через New что там не вся строка. А несколько символов. Если Через GetMem – то тут будет вся строка + после нее мусор. (но этот мусор понятен).
Очень интересна строчка s:= string(@bf); тут вся строка – но вначале несколько символов мусора.

Потом идет чтение и запись. Фрагмент кода

procedure TClientReadWriteData.Execute;
var s: string;
begin
sz:= recv(_ClientSocket, bf^, bf_size, 0);
//код
While true do
Begin
	_size := recv(_ClientSocket, bf^, bf_size, 0);
	//код
send(_ServerSocket, bf^, _size, 0);
End;
end;

В какой то момент в каком то потоке получается не существующий адрес.
Может прокси нормально отработать. Загрузить страницу – одну – две. А может на первой странице вылетит ошибка Access Violation.
Я много раз просматривал и вот что когда для bf выделяется память на номера 118…-120..-130.. все работает, а вот когда на 400… то ошибка.
И что странно выпадает не при первом чтение (до цикла while) а вот уже в самом цикле while.

В чем может быть ошибка? не правильно использую указатели?
Подскажите как правильно должно быть.

[Stilet]

Сделай bf локальной для TClientReadWriteData.Execute

[crossmark]

Сообщение от Stilet

Сделай bf локальной для TClientReadWriteData.Execute

делал в самом начале локальной

[Serge_Bliznykov]

"смешались в кучу кони, люди.." // эпиграф

а что, никого не смущает, что

 TMass = array of byte;

TMass - это УКАЗАТЕЛЬ ?!!

и чтобы работать с динамическим массивом, нужно выделять память с помощью SetLength ?!

я бы сделал так:

  bf_size:=32768;
  new(bf); // я делал сначала так
  SetLength(bf^, bf_size);  // так как это динамический массив. Выделил память указателю, потом память под массив

... 
   recv(_ClientSocket, bf^[0], bf_size, 0);

но зачем Вам УКАЗАТЕЛЬ, который указывает на УКАЗАТЕЛЬ, мне лично совсем не понятно!

[Stilet]

Где у Вас в коде SetLength ?!

Автор вроде упомянул что делает это.
Или делал?

[Serge_Bliznykov]

Сообщение от Stilet

Автор вроде упомянул что делает это.
Или делал?

угу. судя по комментариям делал. но ему это чем-то не понравилось.
И тогда пошли танцы/пляски...

[SQLPowerUser]

crossmark,
на всякий случай - хорошая статья, держу у себя в закладках http://www.transl-gunsmoker.ru/2009/09/blog-post.html

[Serge_Bliznykov]

SQLPowerUser, отличная статья!!!


кстати, не знаю, обратил автор темы внимание или нет, но я подчеркну цитату из своего поста:

 recv(_ClientSocket, bf^[0], bf_size, 0);

[crossmark]

большое спасибо