Приветствую всех обитателей делфимастера!
Есть такой кодес, и есть вопрос как избавиться от SetLength в нем.

       if NeedDataSize <= 0 then
       begin
         SetLength(IntermediateBuffer, 8192);   // например тут
         ContentLength := 0;
         NeedDataSize := 0;
         BytesRead := 0;
         ....тут часть кодеса....
             SetLength(Buff, ContentLength + BytesRead);
             Move(IntermediateBuffer[0], Buff[ContentLength], BytesRead);
             Inc(ContentLength, BytesRead);
           end
           else
           begin
             NeedDataSize := ContentLength;
             Break;
           end;
       end;

пробовал так:
IntermediateBuffer  := VirtualAlloc(Nil, 8192, MEM_COMMIT or MEM_RESERVE, PAGE_EXECUTE_READWRITE);
но вылетает AV
0040403F   .  F0:FF42 F8    LOCK INC DWORD PTR DS:[EDX-8]            ;  LOCK prefix

а почему именно от setlength, а не от move, например, или inc?

> а почему именно от setlength, а не от move, например, или
> inc?

с этим всё понятно, а вот полез в
procedure       _LStrSetLength{ var str: AnsiString; newLength: Integer};
type
 PStrRec = ^StrRec;
 StrRec = packed record
   refCnt: Longint;
   length: Longint;
 end;

const
 skew = SizeOf(StrRec);
 rOff = SizeOf(StrRec); { refCnt offset }
 overHead = SizeOf(StrRec) + 1;
asm
       { ->    EAX     Pointer to str  }
       {       EDX new length  }

       PUSH    EBX
       PUSH    ESI
       PUSH    EDI
       MOV     EBX,EAX
       MOV     ESI,EDX
       XOR     EDI,EDI

       TEST    EDX,EDX
       JLE     @@setString

       MOV     EAX,[EBX]
       TEST    EAX,EAX
       JE      @@copyString

       CMP     [EAX-skew].StrRec.refCnt,1
       JNE     @@copyString

       SUB     EAX,rOff
       ADD     EDX,rOff+1
       PUSH    EAX
       MOV     EAX,ESP
       CALL    _ReallocMem
       POP     EAX
       ADD     EAX,rOff
       MOV     [EBX],EAX
       MOV     [EAX-skew].StrRec.length,ESI
       MOV     BYTE PTR [EAX+ESI],0
       JMP     @@exit

@@copyString:
       MOV     EAX,EDX
       CALL    _NewAnsiString
       MOV     EDI,EAX

       MOV     EAX,[EBX]
       TEST    EAX,EAX
       JE      @@setString

       MOV     EDX,EDI
       MOV     ECX,[EAX-skew].StrRec.length
       CMP     ECX,ESI
       JL      @@moveString
       MOV     ECX,ESI

@@moveString:
       CALL    Move

@@setString:
       MOV     EAX,EBX
       CALL    _LStrClr
       MOV     [EBX],EDI

@@exit:
       POP     EDI
       POP     ESI
       POP     EBX
end;
и стало совсем не понятно, поэтому хочу заменить более ясным кодом...

Тогда надо сначала отказаться от типа Sttring.

Германн ©

> Тогда надо сначала отказаться от типа Sttring.

как вы можете предложить решить вопрос с SetLength?
Желательно винапишками

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

Короче - без твоего варианта кода тут никак.

вот код. собсно в двух местах, где SetLength, я и хочу заменить на VirtualAlloc, но что-то не отрабатывает...

> mobility ©   (26.04.13 23:50) [4]
>
> Германн ©
>
> > Тогда надо сначала отказаться от типа Sttring.
>
> как вы можете предложить решить вопрос с SetLength?
> Желательно винапишками
>

Я уже сказал
> сначала отказаться от типа Sttring

И заодно и от динмассивов. Тогда SetLength точно не понадобится. Но я не знаю твою задачу и не пониманию твои проблемы.
Розыч вроде знает, Розыч поможет.

Да и VirtualAlloc я никогда не использовал. Старый добрый GetMem меня всегда устраивал полностью. :)

что такое IntermediateBuffer ?

имхо странное желание...

Автор пытается переделать мой пример: http://rouse.drkb.ru/network.php#proxyload


> mobility ©   (27.04.13 01:27) [6]


Смотри, ты выделяешь память под динмассив:




и работаешь с ним как с массивом:




А это не верно, IntermediateBuffer в данном случае должен быть объявлен как Pointer (хотя-бы) и работать с ним в данном случае нужно через разименование:

IntermediateBuffer и Buff теперь объявленны как Pointer
От SetLength избавился, но теперь качается только первые ~819-~1091 байт (до этого все было норм)

Это лишнее:




достаточно просто:




Проблема здесь:




Во первых ты получаешь мемлик, теряя предыдущий Buff из-за повтоного выделения памяти.
Во вторых здесь нужно реалоцировать память, а не перевыделять.
В третьих нужно писать по правильному оффсету реалоцированной памяти.

> реалоцировать память, а не перевыделять.

Вот, блин, сказал :)))
Привильный вариант:

> Привильный вариант:

Кошмар, да что-ж такое-то? :)

Что-то я совсем запутался... как сделать чтобы буфер не перезаписывался и не было утечки?

Тэксь, давай для начала определимся - а для чего тебе вообще это нужно?
Ибо с реализацией у тебя кавардак, а чего ты в итоге хочешь добиться мне не понятно...

хочу переписать Ваш код чисто на виньапишках.
задача хранить буфер скачиваемого файла только в переменной (без промежуточной записи в файл и ен используя MemoryStream's), для последующих операций над ней.

Хорошо, допустим.
Тогда по пунктам:



Это выделение памяти, его нужно использовать только один раз при инициализации буфера приемника.

Читай справку, по использемым тобой функциям:
http://msdn.microsoft.com/en-us/library/windows/desktop/aa366887(v=vs.85).aspx

Но выделить нужно сразу столько, сколько потребуется.

Если ты планируешь расширять буфер памяти, можно использовать механизм кучи, который базируется на том-же VirtualAlloc

А именно HeapAlloc
http://msdn.microsoft.com/en-us/library/windows/desktop/aa366597(v=vs.85).aspx

и реаллокация через HeapReAlloc
http://msdn.microsoft.com/en-us/library/windows/desktop/aa366704(v=vs.85).aspx

далее, при работе с буфером учитывай тот момент, что у тебя есть только его база (адрес аллоцированной памяти) а для модификации тебе нужно использовать некий курсор - это переменная, посредством которой указывается точный оффсет от базы в который производится запись (или чтение).

При записи в буфер частями, ты должен на каждой итерации цикла инкрементировать значения курсора на размер предыдущей части данных и производить запись в буфер, ориентируясь на значение курсоа.