Передача Variant
От: Аноним  
Дата: 09.02.04 15:33
Оценка:
Привет всем!

Есть такой ASP скрипт:

dim myVar
dim filler
myVar = Request.BinaryRead(Request.TotalBytes)
Set filler = Server.CreateObject('ComDBFiller')
filler.FillDBFromBuf myVar, Request.TotalBytes


класс ComDBFiller — мой COM-класс, написанный на Delphi
метод ComDBFiller.FillDBFromBuf определен так:

procedure FillDBFromBuf(var Buffer: OleVariant; Count: Integer); safecall;


Вопрос по реализации метода FillDBFromBuf:
КАК запихнуть данные из Buffer в TMemoryStream???
Варианты:

Stream.Write(Buffer, Count); // не работает - запихиваются совсем другие данные


Большая просьба помочь, кто знает.
 
Подождите ...
Wait...
Пока на собственное сообщение не было ответов, его можно удалить.