1С, Activex и Delphi: Доступ к элементу "Картинка".

[minister2007]

Помогите разобраться:

Создал на Delphi-7 ActiveX. Поместил его в 1Cv8 на форму.
Из модуля формы 1Сv8 вызываю мною созданный в ActiveX метод:

ЭлементыФормы.ЭлементУправления1.InfoPicture(ЭлементыФормы.ПолеКартинки1.Картинк
а.ПолучитьДвоичныеДанные());

В Delphi метод объявил так:

procedure InfoPicture(vParam :Variant);

Мне надо обратиться к графическому содержимому Картинки (а'ля Canvas).

Тип по i := VarType(vBin); получается - varDispatch - "Ссылка на Automation-объект (интерфейсный указатель IDispatch)".

Мои попытки преобразовать Variant к типу TBitmap не увенчались успехом.
Не знаю как к нему, этому vParam, подступиться. Кто подскажет?

 

[minister2007]

Продвинулся так:
в 1С добавил предварительную сериализацию. Получилось вот что:

// Сериализация объекта: выгрузка объекта в XML строку
ЗаписьXML = Новый ЗаписьXML;
ЗаписьXML.УстановитьСтроку();
ЗаписатьXML(ЗаписьXML,ЭлементыФормы.ОбъектИзображение.Картинка.ПолучитьДвоичныеД
анные());

ЭлементыФормы.лементУправления1.InfoPicture(ЗаписьXML.Закрыть());Далее в Delphi:

Декодирую входные данные с помощью своей функции:

ImageData := decodeBase64(vParam); // array of Byte;Теперь у меня в переменной - байт-массив Картинки. Проверял - вылитый BMP-файл.

Теперь уперся, как обратиться к этой переменной, чтобы вытащить из нее Canvas или привести к типу TBitmap.

Кто подскажет, как загрузить BMP-файл из переменной?

 

[zubr]

Передавай в переменной хендл канваса или битмапа.
Затем, к примеру, делаешь так:

var
Canvas:TCanvas;

Canvas:=TCanvas.Create;
Canvas.Handle:=HandleFromActivX;

Ну или имея хендл битмапа делаешь BitBlt.