Скачать: CL | DM;

Как в делфи перевести команду 1С такого синтаксиса   Найти похожие ветки 

← →
Ragazor   (2004-09-06 13:52) [0]

Как в делфи перевести команду 1С такого синтаксиса

КартинкаМоя = Новый Картинка("1.bmp")

---

← →
hooch   (2004-09-06 13:56) [1]

круто :-) код с 1С на Delphi переводим ? :-))

MyBMP := TBitmap.Create;
MyBMP.LoadFromFile("1.bmp")

---

← →
Ragazor   (2004-09-06 14:08) [2]

не ты не понял,
мне надо чтобы это в 1с создалось

---

← →
VMcL ©   (2004-09-06 17:12) [3]

>>Ragazor  (06.09.04 13:52)

Может как в 7.7:
Ole1C.CreateObject()
?

---

← →
Ragazor   (2004-09-06 20:57) [4]

Нет. Это не то
предположительно
Ole1Clink.execute("КартинкаМоя = Новый Картинка("1.bmp")")
где Ole1Clink: Olevariant
Но вызывает ошибку - метод execute не поддерживается

---

← →
simpson ©   (2004-09-07 10:55) [5]

> Ragazor   (06.09.04 20:57) [4]
Приведи пример кода, в котором инициализируешь Ole1Clink.

---

← →
simpson ©   (2004-09-07 10:58) [6]

Кстати, не


Ole1Clink.execute


а


Ole1Clink.ExecuteBatch


, если уж так...

---

← →
Gavrila ©   (2004-09-07 14:43) [7]

Может так?
MyImg:= Ole1Clink.EvalExpr("Новый Картинка("1.bmp")")

---

← →
Ragazor   (2004-09-07 15:51) [8]

в 8 версии вроде
Ole1Clink.execute

---

← →
Ragazor   (2004-09-07 15:53) [9]

это тоже с 7.7 версии
Ole1Clink.EvalExpr("Новый Картинка("1.bmp")")
аналога в 8 не нашел.

---

← →
Ragazor   (2004-09-07 15:55) [10]

\\Приведи пример кода, в котором инициализируешь Ole1Clink

Function Connect1c(var Ole1c:Olevariant;Obj1c, Base :string):boolean;
begin
Result:=true;
       try
Ole1c:= CreateOleObject(obj1c);
Ole1c.Connect(base);
       except
       showmessage("Error connecting 1c");
       result:=false;
       end;
ResultConnect1C:=Result;
end;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.032 c