На главную Наши проекты:
Журнал   ·   Discuz!ML   ·   Wiki   ·   DRKB   ·   Помощь проекту
ПРАВИЛА FAQ Помощь Участники Календарь Избранное RSS
msm.ru
Коротко о разделе:
Здесь разрешается создавать темы, относящиеся к любому языку программирования, для которого не существует раздела на форуме (например, Lisp, Tcl/Tk, FORTRAN и т.д.). Если раздел для нужного Вам языка есть, большая просьба создавать тему в нем.
Вопросы, связанные с JScript, Perl, PHP обсуждаются в разделе WWW Masters.

Обратите внимание:
1. Прежде чем задать вопрос, воспользуйтесь поиском. Возможно, Ваш вопрос уже обсуждали.
2. Если Ваш вопрос связан с конкретным языком программирования, обязательно укажите название языка в имени темы.
3. Постарайтесь давать темам информативные названия. Темы с названиями типа "Помогите, горю" будут удалены.
4. Помните, чем грамотней будет задан Ваш вопрос, тем больше будет у Вас шансов получить на него ответ. Как правильно задавать вопросы
5. Ипользуйте тег [ code ] ...текст программы... [ /code ] для выделения текста программы.

Просьбы выполнить какую-либо работу за автора в этом разделе не обсуждаются. Темы с подобными просьбами будут перемещены или удалены. Для заказов у нас существуют специальные разделы: Разовые заказы и подработка, ПОМОЩЬ СТУДЕНТАМ.

Если кто не понял (а такие есть) — чтобы за вас решали ваши задачки, идите на другие ресурсы.

Полезные ссылки:
Есть. ;)
Наши Исходники | GPSS (en), GPSS (ru) (!) | Common Lisp | Tcl/Tk | Haskell | Lua
Модераторы: B.V.
  
> Ссылка на справочник в 1С в Lazarus , Lazaus, FreePascal
    Здравствуйте.
    Возникла необходимость работать с 1С из Lazarus. Из Дельфи не хочется. "На коленке" запись поля работает так:
    ExpandedWrap disabled
          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.
      Нашёл решение. Через TVarData присваивать VDispatch.
      0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)
      0 пользователей:


      Рейтинг@Mail.ru
      [ Script execution time: 0,0228 ]   [ 15 queries used ]   [ Generated: 29.03.24, 05:10 GMT ]