Как в делфи перевести команду 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С такого синтаксиса Найти похожие ветки