Выделение малых фрагментов памяти в dll

[Антон Ю.Б.]

Коллеги. Не подскажет ли кто - в какую сторону можно посмотреть. Есть вот такой код (delphi XE) работы с AT-модемом.

var TempS:string;

procedure GetModemResponse(var Res: PString; var ResLen: Integer);
begin
  TempS:=ModemWork.GetModemResponse;
  TempS:=Trim(TempS);
  ResLen:=Length(TempS);
  if ResLen>0
  then
    begin
      GetMem(Res, ResLen*2);
      try
        Res^:=TempS;
      except on E: Exception do
        begin
          AppendToLog('Error on get string "'+TempS+'" '+IntToStr(Reslen)+' '+IntTostr(Integer(@TempS[1]))+' '+E.Message);
          FreeMem(Res, ResLen*2);
          ResLen:=0;
        end;
      end;
    end;
end;

procedure LibFreeMem(var Res: PString; ResLen: Integer);
begin
  if ResLen>0
  then FreeMem(Res, ResLen*2);
end;

Вполне себе работает, кроме случаев, когда ответы модема короткие - символов до 6.В этом случае в логе:

14:29:35: Error on get string "OK" 2 141533220 Access violation at address 07C59E98 in module 'ATModem.dll'. Read of address 432B5439
14:29:36: Error on get string "OK" 2 141533268 Access violation at address 07C59E98 in module 'ATModem.dll'. Read of address 432B5439
14:29:37: Error on get string "OK" 2 141533292 Access violation at address 07C59E98 in module 'ATModem.dll'. Read of address 432B5439
14:29:38: Error on get string "OK" 2 141533316 Access violation at address 07C59E98 in module 'ATModem.dll'. Read of address 432B5439
14:29:39: Error on get string "OK" 2 141533340 Access violation at address 07C59E98 in module 'ATModem.dll'. Read of address 432B5439
14:29:40: Error on get string "OK" 2 141533364 Access violation at address 07C59E98 in module 'ATModem.dll'. Read of address 432B5439
14:29:42: Error on get string "OK" 2 141533388 Access violation at address 07C59E98 in module 'ATModem.dll'. Read of address 432B5439
14:29:43: Error on get string "OK" 2 141533412 Access violation at address 07C59E98 in module 'ATModem.dll'. Read of address 432B5439
14:29:44: Error on get string "OK" 2 141533436 Access violation at address 07C59E98 in module 'ATModem.dll'. Read of address 432B5439
14:29:45: Error on get string "OK" 2 141533460 Access violation at address 07C59E98 in module 'ATModem.dll'. Read of address 432B5439
14:29:46: Error on get string "OK" 2 141533484 Access violation at address 07C59E98 in module 'ATModem.dll'. Read of address 432B5439
14:29:47: Error on get string "OK" 2 141533508 Access violation at address 07C59E98 in module 'ATModem.dll'. Read of address 432B5439

Может какие-то свойства проекта выставить надо, директивы компилятора?

[Человек_Борща]

Ошибка здесь:

     GetMem(Res, ResLen*2);

Для UNICODE да и вообще, надо так: Length('строка') * SizeOf(Char)

И для FreeMem не надо явно указывать размер высвобождаемой памяти, он сам это делает.

[Slym]

Это лихо вы PString пользуете, думаете не String и в DLL проканает?
TempS - тип какой? string?
если да то что для вас такое string? указатель на массив символов? - нет нет и нет... это указатель на структуру типа StrRec для удобства значение смещено на SizeOf(StrRec) чтоб сразу полезные данные шли
в 7дельфе строка это
StrRec = packed record
refCnt: Longint;
length: Longint;
end;
в вашей реализации псевдо строки этого нет что при выполнении Res^:=TempS; все ломает

[Антон Ю.Б.]

Сообщение от Человек_Борща

Для UNICODE да и вообще, надо так: Length('строка') * SizeOf(Char)

Не помогает такой вариант. Все по прежнему.

[Slym]

function GetModemResponse(var Buffer; BufferSize: DWORD): DWORD;
var TempS:string;
begin
  TempS:=ModemWork.GetModemResponse;
  TempS:=Trim(TempS);
  if BufferSize=0 then
    result:=Length(TempS)
  else
    StrPLCopy(@Buffer,TempS,BufferSize);
end;

использование

var s:string;
begin
SetLength(s,GetModemResponse(nil,0));
SetLength(s,GetModemResponse(s[0],Length(s)));

[Человек_Борща]

а ещё выкинуть STRING из проекты и использовать PChar или WideString или же использовать STRING и таскать с собой SHAREMEM

[Stilet]

а ещё выкинуть STRING

Как вариант попробовать TStringStream

[Антон Ю.Б.]

Slym, у меня тогда несколько уточняющих вопросов и замечаний:
1) Где указан запрет на работу со строчными ссылочными типами таким образом? p:=^.. (ну хранится указанная Вами структура с отрицательным смещением от адреса переменной и данных, ну разная эта структура для юникода и анси. И что? Язык и логика работы с указателями вроде в этом смысле остаются прежними).
2) Эта проблема была и в доюникодовом d2007 (первоначально библиотека писалась под ним).
3) Проблема есть только для строк размером 2-6 (примерно) символов, она ни одного раза не проявилась на строках большей длины, а длина там бывает на порядок-два больше.

[Slym]

Сообщение от Антон Ю.Б.

Slym, у меня тогда несколько уточняющих вопросов и замечаний:
1) Где указан запрет на работу со строчными ссылочными типами таким образом? p:=^.. (ну хранится указанная Вами структура с отрицательным смещением от адреса переменной и данных, ну разная эта структура для юникода и анси. И что? Язык и логика работы с указателями вроде в этом смысле остаются прежними).

library Project1;

{ Important note about DLL memory management: ShareMem must be the
  first unit in your library's USES clause AND your project's (select
  Project-View Source) USES clause if your DLL exports any procedures or
  functions that pass strings as parameters or function results. This
  applies to all strings passed to and from your DLL--even those that
  are nested in records and classes. ShareMem is the interface unit to
  the BORLNDMM.DLL shared memory manager, which must be deployed along
  with your DLL. To avoid using BORLNDMM.DLL, pass string information
  using PChar or ShortString parameters. }

PString^:=string - не тупо копирование ссылки Pointer(PChar(x))^:=PChar(y) а вызов compiller magic LStrCat и кучу других системных процедур по работе со строками - и все эти процедуры ориентированы найти поля StrRec - которые ты не создал и даже не выделил под них память

Сообщение от Антон Ю.Б.

2) Эта проблема была и в доюникодовом d2007 (первоначально библиотека писалась под ним).

Структура перед указателем на массив символов в строке была всегда (в D1 была?), и грабля эта должна везде сработать

Сообщение от Антон Ю.Б.

3) Проблема есть только для строк размером 2-6 (примерно) символов, она ни одного раза не проявилась на строках большей длины, а длина там бывает на порядок-два больше.

работа со строкой без заголовка вызывает доступ/перезапись памяти там где должна быть структура StrRec а в той памяти может хранится чтонибудь важное как поле длинны строки
[память]
строка1строка2
операция со строка2 приведет к порче строка1, т.к. по месту должны быть поля RefCount и Length
[память]
0010007строка2

или же авто освобождение compiller magic строки строка2
вызовет FreeMem ока1 - байт (поле Length) что гораздо больше 7 байт
или не вызовет вовсе т.к. RefCount 0стр - больше 0

[Slym]

у тебя работает этот код?

procedure TForm1.Button1Click(Sender: TObject);
var S1,S2:PString;
begin
  GetMem(S1,8*SizeOf(Char));
  GetMem(S2,16*SizeOf(Char));
  S1^:='01234567';
  s2^:=S1^+'76543210';
  Caption:=S2^;
  FreeMem(S2,16*SizeOf(Char));
  FreeMem(S1,8*SizeOf(Char));
end;

как не странно стоит поменять гетмемы местами и вдруг работает