Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
||
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[54.196.248.93] |
|
Сообщ.
#1
,
|
|
|
Здравствуйте.
Возникла необходимость работать с 1С из Lazarus. Из Дельфи не хочется. "На коленке" запись поля работает так: procedure lcw(const Source: OleVariant; const PropertyName: String; const Value; const DataType: Integer); var Desc: TCallDesc; begin Desc.CallType := DISPATCH_PROPERTYPUT; Desc.ArgCount := 1; Desc.NamedArgCount := 0; Desc.ArgTypes[0] := DataType; StrPCopy(@DescArgTyes[1], UTF8ToWinCP(ProperyName)); VarDispProc(nil, Source, @Desc, @Value); end; P.S. Исходную ссылку получаю похожим образом через DISPATCH_METHOD. |
Сообщ.
#2
,
|
|
|
Нашёл решение. Через TVarData присваивать VDispatch.
|