OFF: 1С - это годная вещь. Вы даже не знаете насколько.

Ночи доброй.

Давненько тем не заводил, некогда. Но напишу.

Часто слышу упреки в адрес 1С, как платформы, особенно в ветках по 8.3.6 :-)
Но, думаю, народ даже не подозревает, какой объем крови, пота и соплей Программистов фильтрует 1С-ка, защищая и оберегая их. Я и сам раньше не подозревал, но некоторые попытки написать некоторую систему на другом ЯП мне еще немного открыли глаза.

Берегите 1С, это ваши спокойные нервы :-)

Ну и просто, задачка, съевшая мне мозг на один вечер (их на самом деле много было). Умеющим и имеющим Дельфи - велком.

procedure Test();
var
inData,outData:OleVariant;
DataSize:Integer;
RawData:Array of byte;
outDataAsString:string;
begin
inData:='Текстовая строка';
DataSize:=Length(inData)*2+2; //2 байта на символ + 2 байта на 2 "нулевых" символа в конце
Setlength(RawData,DataSize);
CopyMemory(@RawData[0],TVarData(inData).VOleStr,DataSize);

GetMem(TVarData(outData).VOleStr,DataSize);
CopyMemory(TVarData(outData).VOleStr,@RawData[0],DataSize);
TVarData(outData).VType:=varOleStr;
outDataAsString:=String(outData);
end;

Необходимо избавится от access violation и объяснить, что и почему пошло не так. Смысл задачи - "сериализация"/"десериализация" OleVariant.

(5) Я уже решил.

(12) Это всего лишь структура, с которой delphi прозрачно работает.

Ну, граждане, кто осилит (2) ?

(21) Сперва добейся.

(28) чего?

(29) Нет, валится на строке

outDataAsString:=String(outData);

(32) И?

(33) GetMem не имеет ограничений.
(33) "который не может быть преобразован в строку" - все можно "преобразовать" в строку.

p.s. Запустите кто-нибудь Дельфи, это вас позабавит.

(37) Ты застрял в 90-х.

(40) 16 байт.

(44) Вылетает. Но так делать нельзя.

(43) В C++ проблема будет точно такая -же. Скорее всего.

(48) Гадание не поможет. Только отладчик.

(51) Ура. Опыт?

Собственно, пример я привел к тому, что BSTR строки хранят свою длину в 4 байтах до указателя, и слава яйцам, что 1С ограждает нас от таких знаний.

Самое забавное, что Дельфи в отладчике ориентируется на C++ строку и нормально ее показывает.

(56) Передай OleVariant по сети, говорили они. Это удобно, в нем все есть, говорили они...

Я сделал так:

      if TVarData(currentElement^.Data).VType = varOleStr then
      begin // В переменной - строка, ее храним отдельно
        datasize := sizeof(Integer); // Длина строки
        CopyMemory(@DataLength, position, datasize);
        position := ptr(THandle(position) + datasize);
        datasize := DataLength * 2;
        GetMem(DataPointer, datasize + 6);
        CopyMemory(DataPointer, @datasize, 4); // Длина строки для WideString
        DataPointer := ptr(THandle(DataPointer) + 4);
        datasize := datasize + 2;
        CopyMemory(DataPointer, position, datasize); // Длина строки для WideString
        TVarData(currentElement^.Data).VOleStr := DataPointer;
        position := ptr(THandle(position) + datasize);
      end;

(58) Это мне поток eureka скажет, пока не до этого.

поток -> потом

(62) Дельфи, когда будет убивать переменную currentElement^.Data - должна ее почистить.

Нигде, кстати, не нашел, что WideString работает со строкой, как с BSTR строкой.

Вот, кстати,
http://www.delphibasics.ru/WideString.php

путают WideString (BSTR) и AnsiString (String от Delphi)

(65) Счаст проверим.

(67) Че ему знать, он видит OleVariant в которой есть указатель на BSTR строку. Должен ее почистить.

(69) Понятно.

(69) У BSTR есть 2 нулевых байта в конце?

Да, утекло 38 байт.

procedure Test();
var
inData,outData:OleVariant;
DataSize:Integer;
RawData:Array of byte;
outDataAsString:string;
DataPointer:Pointer;
begin
inData:='Текстовая строка';
DataSize:=Length(inData)*2+2; //2 байта на символ + 2 байта на 2 "нулевых" символа в конце
Setlength(RawData,DataSize);
CopyMemory(@RawData[0],TVarData(inData).VOleStr,DataSize);

GetMem(DataPointer,DataSize+4);
CopyMemory(DataPointer,@DataSize,4);
DataPointer:=ptr(THandle(DataPointer)+4);

CopyMemory(DataPointer,@RawData[0],DataSize);
TVarData(outData).VType:=varOleStr;
TVarData(outData).VOleStr:=DataPointer;
outDataAsString:=String(outData);
end;

Ладно, спасибо большое про "Для WideString память выделяется с виндовой кучи SysAllocStringLen"

Чувствую, сношался бы с этим.

(75) И вот хрен где это найдешь.

(77) Точно?

(77) Все таки 2 байта:
http://s020.radikal.ru/i701/1508/95/ef561f5791d5.png

(82) неа.

Сделай String(@RawData[0]) и увидишь

Я вижу это не потому что там нулевой символ, а потому что Дельфи привело это к типовой структуре String.

type
PStrRec = ^StrRec;
StrRec = packed record // Заголовок строки 8 байт
  refCnt: Longint; // 4 байта – счетчик ссылок
  length: Longint; // 4 байта – длина строки
end;

Но String считает длину строки в символах, а BSTR в байтам, в получается, что Дельфи получило строку в 2 раза больше (префикс BSTR попал в поле length) и выползло за пределы строки.

(84) гхм..

"Не могу узреть под таким углом"

Все, я окончательно затупил.
В 4 байтах перед @RawData[0] вообще содержится мусор, и на него не ориентируется WideString(@RawData[0]), раз показывает "приемлимую" строку, так?

Значит WideString(@RawData[0]) идет до нулевых символов, так?
Она останавливается, когда встречает 2 нулевых байта, и предыдущий нулевой включает в значущую строку?

Ладно, сколько там у вас по Североамериканско-Восточному? 18:17? Пора домой. А мне - спать.