Re[5]: Передача Variant
От: catherine Украина  
Дата: 11.02.04 11:45
Оценка:
Здравствуйте, 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;
 
Подождите ...
Wait...
Пока на собственное сообщение не было ответов, его можно удалить.