Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=421007&view=findpost&p=3842826 Mon, 14 Dec 2020 10:47:27 +0000 Ссылка на справочник в 1С в Lazarus https://forum.sources.ru/index.php?showtopic=421007&view=findpost&p=3842826 faska13 Прочие языки программирования https://forum.sources.ru/index.php?showtopic=421007&view=findpost&p=3842808 Sun, 13 Dec 2020 11:32:53 +0000 Ссылка на справочник в 1С в Lazarus https://forum.sources.ru/index.php?showtopic=421007&view=findpost&p=3842808 Возникла необходимость работать с 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;
Имя поля поступает уже в WideString(Utf8ToAnsi()). Всё хорошо, кроме как если надо записать поле с ссылкой. Например, "Организация". Тип OleVariant - varDispatch. При записи ругается. Вероятно надо использовать DISPATCH_PROPERTYPUTREF. Но в этом случае ругается на неверное число параметров. Знает кто как правильно писать ссылки?
P.S. Исходную ссылку получаю похожим образом через DISPATCH_METHOD.]]> faska13 Прочие языки программирования