Здравствуйте, Shtirliz, Вы писали:
Все — получилось — спасибо огромное за советы.
Оказывается, дело было в неверной передаче Variant в метод
Теперь работает следующим образом:
ASP-скрипт
Dim Buffer
Dim CountBytes
Dim Filler
CountBytes = Request.TotalBytes
Buffer = Request.BinaryRead(CountBytes)
Set Filler = Server.CreateObject("ComDBFiller.DBFiller")
Filler.FillDBFromBuf Buffer, CountBytes
Delphi-код:
if (VarIsArray(Buffer)) then
begin
SetLength(BufArray, Count);
DynArrayFromVariant(Pointer(BufArray), Buffer, TypeInfo(TBArray));
Stream.Clear;
Stream.SetSize(Count);
CopyMemory(inStream.Memory, BufArray, Count);
end;