Как правильно заменить строку

[WennY]

Есть такой код:

  var
    RetLen: Integer;
    P: PChar;
  ...
  Result := TMemoryStream.Create;
  P := GetMemory(256);
  RetLen := FSocket.ReceiveBuf(P^, 256);

  while RetLen > 0 do
   begin
    P := PChar ( StringReplace(P, 'gzip,deflate', ' ', [rfIgnoreCase] ) );
    P := PChar ( StringReplace(P, '1.1', '1.0', [rfIgnoreCase] ) );
    Result.Write(P^, RetLen);
    RetLen := FSocket.ReceiveBuf(P^, 256);
   end;
  P := '';
  FreeMemory(P);
  Result.Position := 0;

Стоит задача подменить пару строк в переменной P. Лезу внаглую стринг реплейсом, естественно стоит мат на весь компилятор, acces violation'ы вылетают на строке FreeMemory(P) и на самих реплейсах. Подскажите пожалуйста, как корректно реплейснуть строку в моем случае Спасибо

[Прик]

Потому как непонятно что такое FSocket, а так же чего в коде делает цикл, то проверка была проведена в таком виде (D7 & D2010):

  P := GetMemory(256);
//  RetLen := FSocket.ReceiveBuf(P^, 256);
  P := '1.1';
//  while RetLen > 0 do begin
    P := PChar ( StringReplace(P, 'gzip,deflate', ' ', [rfIgnoreCase] ) );
    P := PChar ( StringReplace(P, '1.1', '1.0', [rfIgnoreCase] ) );
//    Result.Write(P^, RetLen);
//    RetLen := FSocket.ReceiveBuf(P^, 256);
//   end;
  P := '';
  FreeMemory(P);

Ошибок не было. Замена состоялась.

[WennY]

FSocket: TCustomWinSocket;
Замнена то нормально проходит, но в процессе начинаются вылеты...
Вот полный кусок:

function THTTPProxyTransport.Receive(WaitForInput: Boolean;
  Context: Integer): TMemoryStream;
var
 RetLen: Integer;
 P: PChar;
 FDSet: TFDSet;
 TimeVal: PTimeVal;
 RetVal: Integer;
begin
  Result := nil;
  TimeVal := nil;
  FD_ZERO(FDSet);
  FD_SET(FSocket.SocketHandle, FDSet);
  if not WaitForInput then
  begin
    New(TimeVal);
    TimeVal.tv_sec := 0;
    TimeVal.tv_usec := 1;
  end;
  RetVal := select(0, @FDSet, nil, nil, TimeVal);
  if Assigned(TimeVal) then
    FreeMem(TimeVal);
  if RetVal = SOCKET_ERROR then
    raise Exception.Create(SysErrorMessage(WSAGetLastError));
  if (RetVal = 0) then Exit;

  Result := TMemoryStream.Create;

  {
  P := GetMemory(99999999);

  RetLen := FSocket.ReceiveBuf(P^, 200000);

  P := PChar(StringReplace(P, 'Accept-Encoding: gzip,deflate', 'Accept-Encoding: ', [rfIgnoreCase]));
  P := PChar(StringReplace(P, '1.1', '1.0', [rfIgnoreCase]));
  }

  {
  Result.Write(P^, StrLen(P));
  FSocket.ReceiveBuf(P^, StrLen(P));
  }

  P := GetMemory(256);
  RetLen := FSocket.ReceiveBuf(P^, 256);

  while RetLen > 0 do
   begin
    P := StringReplace(P^, 'gzip,deflate', ' ', [rfIgnoreCase] ) ;
    P := PChar ( StringReplace(P^, '1.1', '1.0', [rfIgnoreCase] ) );
    Result.Write(P^, RetLen);
    RetLen := FSocket.ReceiveBuf(P^, 256);
   end;
  P := '';

  Result.Position := 0;
end;

[artemavd]

Обрабатывай ошибку через try...except или try...finally. В среде разработки будет ошибка при замене появляться. При запуске exe из папки - нет.

[WennY]

Да, ошибки нет.. Прога просто вылетает Я явно чет не так делаю, там переполнение буфера, но как правильно влезть, убрать нужные строки и выйти - не знаю.. Надеюсь, что все же получу ответ..

[evg_m]

P := GetMemory(256);

получили память (буфер)

 P :=Pchar( StringReplace(P^, 'gzip,deflate', ' ', [rfIgnoreCase] ) );

получили ДРУГУЮ память
или что тоже самое по работе памяти, но нагляднее для примера

P := PChar('какая то строка');

ЧТО мы будем освобождать здесь

FreeMemory(P);

освобождаем то, что не выделяли
вот и AV и все что угодно

var
  rs: string;

rs:=StringReplace(P,...);
rs:=stringreplace(rs, ...);

wrire(Pchar(rs),...);

var
  P, P000: Pchar;

P000:=GetMEmory;// цель сохранить начальный указатель на память в целости и сохранности
P:=P000;
....
// здесь работаем с P
....
FreeMEmory(P000); //освобождем изначально выделенный буфер