uses
ComObj,Windows,Messages,SysUtils,Classes,Graphics,Controls, Forms,Dialogs,ExtCtrls, StdCtrls;
procedure TForm1.Button1Click(Sender: TObject);
Var
ResOpen : integer;
begin
Ole1C := CreateOleObject('V77.Application');
ResOpen:=Ole1C.Initialize(Ole1C.RMTrade, Edit2.Text, '');
end;
Delphi -> Bilder
Есть приложение на Delphi , которое открывает программу 1С для работы. Но в чём вопрос :
Не получается перевести код с Delphi на Bilder
Код Delphi:
Всё работает
Код Bilder'а:
Может в самом коде всё правильно а я какуюто библиотеку не подключил ?
Не получается перевести код с Delphi на Bilder
Код Delphi:
Код:
Всё работает
Код Bilder'а:
Код:
#include <vcl.h>
#pragma hdrstop
#include "comobj.hpp"
#include "ComCtrls.hpp"
#include "StdCtrls.hpp"
#include "variant.hpp"
#include[list=1]
#include[list=1]
void __fastcall TForm1::Button1Click(TObject *Sender)
{
int ResOpen;
//Ole1C = Unassigned();
Ole1C = CreateOleObject(Edit1->Text);
ResOpen = Ole1C.Initialize(Ole1C->RMTrade, Edit1->Text, "");
}
#pragma hdrstop
#include "comobj.hpp"
#include "ComCtrls.hpp"
#include "StdCtrls.hpp"
#include "variant.hpp"
#include[list=1]
#include[list=1]
void __fastcall TForm1::Button1Click(TObject *Sender)
{
int ResOpen;
//Ole1C = Unassigned();
Ole1C = CreateOleObject(Edit1->Text);
ResOpen = Ole1C.Initialize(Ole1C->RMTrade, Edit1->Text, "");
}
Может в самом коде всё правильно а я какуюто библиотеку не подключил ?
Цитата:
Originally posted by koss
Есть приложение на Delphi , которое открывает программу 1С для работы. Но в чём вопрос :
Не получается перевести код с Delphi на Bilder
Код Delphi:
uses
ComObj,Windows,Messages,SysUtils,Classes,Graphics,Controls, Forms,Dialogs,ExtCtrls, StdCtrls;
procedure TForm1.Button1Click(Sender: TObject);
Var
ResOpen : integer;
begin
Ole1C := CreateOleObject('V77.Application');
ResOpen:=Ole1C.Initialize(Ole1C.RMTrade, Edit2.Text, '');
end;
Всё работает
Код Bilder'а:
#include <vcl.h>
#pragma hdrstop
#include "comobj.hpp"
#include "ComCtrls.hpp"
#include "StdCtrls.hpp"
#include "variant.hpp"
#include[list=1]
#include[list=1]
void __fastcall TForm1::Button1Click(TObject *Sender)
{
int ResOpen;
//Ole1C = Unassigned();
Ole1C = CreateOleObject(Edit1->Text);
ResOpen = Ole1C.Initialize(Ole1C->RMTrade, Edit1->Text, "");
}
Может в самом коде всё правильно а я какуюто библиотеку не подключил ?
Есть приложение на Delphi , которое открывает программу 1С для работы. Но в чём вопрос :
Не получается перевести код с Delphi на Bilder
Код Delphi:
uses
ComObj,Windows,Messages,SysUtils,Classes,Graphics,Controls, Forms,Dialogs,ExtCtrls, StdCtrls;
procedure TForm1.Button1Click(Sender: TObject);
Var
ResOpen : integer;
begin
Ole1C := CreateOleObject('V77.Application');
ResOpen:=Ole1C.Initialize(Ole1C.RMTrade, Edit2.Text, '');
end;
Всё работает
Код Bilder'а:
#include <vcl.h>
#pragma hdrstop
#include "comobj.hpp"
#include "ComCtrls.hpp"
#include "StdCtrls.hpp"
#include "variant.hpp"
#include[list=1]
#include[list=1]
void __fastcall TForm1::Button1Click(TObject *Sender)
{
int ResOpen;
//Ole1C = Unassigned();
Ole1C = CreateOleObject(Edit1->Text);
ResOpen = Ole1C.Initialize(Ole1C->RMTrade, Edit1->Text, "");
}
Может в самом коде всё правильно а я какуюто библиотеку не подключил ?
попробуй перед CreateOleObject добавить
CoInitialize(NULL);
Цитата:
Originally posted by bas
попробуй перед CreateOleObject добавить
CoInitialize(NULL);
попробуй перед CreateOleObject добавить
CoInitialize(NULL);
Добавлял , но всё равно не работает .
На
ResOpen = Ole1C.Initialize(Ole1C->RMTrade, Edit1->Text, "");
ошибку выводит.
При Ole1C.+ctrl+пробел даже в списке похожего нету.
Цитата:
Originally posted by koss
Добавлял , но всё равно не работает .
На
ResOpen = Ole1C.Initialize(Ole1C->RMTrade, Edit1->Text, "");
ошибку выводит.
При Ole1C.+ctrl+пробел даже в списке похожего нету.
Добавлял , но всё равно не работает .
На
ResOpen = Ole1C.Initialize(Ole1C->RMTrade, Edit1->Text, "");
ошибку выводит.
При Ole1C.+ctrl+пробел даже в списке похожего нету.
Код:
Variant Serv,Trade;
Serv = CreateOleObject("V77M.Application");
Trade = Serv.OlePropertyGet("RMTrade");
if ( VarType(Trade) == varDispatch )
{
return;
}
Serv.Exec(Function("Initialize") << Trade << "" << "" );
Serv = CreateOleObject("V77M.Application");
Trade = Serv.OlePropertyGet("RMTrade");
if ( VarType(Trade) == varDispatch )
{
return;
}
Serv.Exec(Function("Initialize") << Trade << "" << "" );
Спасиб. заработало.
а вот снова в дельфи
Открывает справочник
Ав билдере снова невыходит
на OleFizLica=Serv.CreateObject("Справочник.Сотрудники");ошибается
Где можно взять информацию о работе с данными методами.
Код:
OleFizLica := Unassigned;
if not VarIsEmpty(Ole1C) then begin
OleFizLica:=Ole1C.CreateObject('Справочник.Сотрудники');
if not VarIsEmpty(Ole1C) then begin
OleFizLica:=Ole1C.CreateObject('Справочник.Сотрудники');
Открывает справочник
Ав билдере снова невыходит
Код:
OleFizLica = Unassigned;
if (!VarIsEmpty(Serv))
{
OleFizLica=Serv.CreateObject("Справочник.Сотрудники");
}
if (!VarIsEmpty(Serv))
{
OleFizLica=Serv.CreateObject("Справочник.Сотрудники");
}
на OleFizLica=Serv.CreateObject("Справочник.Сотрудники");ошибается
Где можно взять информацию о работе с данными методами.
Код:
Spr = Serv.Exec(Function("EvalExpr")
<<"СоздатьОбъект(\"Справочник.ТМЦ\")");
<<"СоздатьОбъект(\"Справочник.ТМЦ\")");
Во вторых - мне абсолютно пх, ошибается у табя там что либо или нет. Взрослые мальчики обычно понимают, что деда Мороза уже нет, как нет на форуме и телепатов. Если в коде возникает ошибка, не достаточно констатации данного факта. Об этом написано и в правилах топика (т.е. ты их не читал), об этом повторяется по сто тысяч раз. Понятно, что не будь ошибки ты бы не спрашивал - но как кто должен догадаться, что у тебя там за ошибки?
Код на делфи я удалил, справедливо полагая - информационнрой нагрузки он не несет - а если надо что бы кто либо переделал его за тебя - помещай в раздел "Студенты"