VPF::Как в Delphi через OLE вызвать ф-цию из 1С

Delphist

Дата 12.2.2009, 12:43 (ссылка)

(нет голосов)

Загрузка ...

Delphist Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2145
Регистрация: 3.2.2004
Где: всегда в сети

Репутация: 2
Всего: 3

В 1С:Предприятие (7.7 и 8.0) написана функция, которую можно вызывать через OLE,
Её шабон:

Код


function SaveDataToDBF(aDate: TDate): integer;

как осуществляется вызов такой функции в Delphi2006.
Я так понимаю, зная путь где установлена 1С, сначало узнаем её версию, а затем уже
как то вызывать ее.

P.S. если можно примерчик на Delphi.

Это сообщение отредактировал(а) Delphist - 24.2.2009, 10:11

--------------------

ProcessInfo 1-ая моя программа (аналог spyxx.exe с гораздо большим функц-ом - внедрение dll в адр. простр. процесса, перехват API-функций, разбор приложения на окна мн.др).
Когда-то давным-давно использовал это...

remax

Дата 12.2.2009, 14:20 (ссылка)

(нет голосов)

Загрузка ...

Доцент

Профиль
Группа: Участник Клуба
Сообщений: 686
Регистрация: 7.4.2002
Где: Украина, Харьков

Репутация: 1
Всего: 5

Вот что-то из старых запасов. проверить не смогу - нет 1с под рукой...

Код


unit U1c;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}


uses
  ComObj, ActiveX;

var
  My1c: Variant;

function GetOrCreateObject (const ClassName: string): IDispatch;
var
  ClassID: TGUID;
  Unknown: IUnknown;
begin
  ClassID := ProgIDToClassID (ClassName);
  if Succeeded (GetActiveObject (ClassID, nil, Unknown)) then
    OleCheck (Unknown.QueryInterface (IDispatch, Result))
  else
    Result := CreateOleObject (ClassName);
end;


procedure TForm1.Button2Click(Sender: TObject);
var result:integer;
 s,s1,s2:string;
begin
  s:='test prov';
//  ShowMessage(My1c.MyTest);
  ShowMessage(My1c.глИдентификаторКонфигурации);
  s1:=My1c.глПарсить2(s,0,';');
  s2:=My1c.глПарсить2(s1,1,';');
  showmessage(s+#13#10+s1+#13#10+s2);
//  ShowMessage(My1c.глИдентификаторКонфигурации);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  My1c := GetOrCreateObject ('V77.Application');
  My1c.Initialize(My1c.RMTRade,'enterprise','');
end;

end.

--------------------

Как бы ты не старался быть хорошим и правильным человеком с принципами и уважительным отношением к другим, всегда найдется кто-то, кто бросит в тебя какашку

de_Nis

Дата 12.2.2009, 14:54 (ссылка)

(нет голосов)

Загрузка ...

Старательный

Профиль
Группа: Участник
Сообщений: 223
Регистрация: 19.10.2006
Где: Молдова

Репутация: нет
Всего: 6

На одном из сайтов в теме http://kvazar.org/showthread.php?t=27483
ищут книгу:
Автор: Сергей Попов.
Delphi и 1C:Предприятие . Программирование информационного обмена.
Один из ответов от 24.12.2008:
"Книга есть в электронном варианте у меня
пиши на адрес [email protected]"

Напиши, может, и тебе вышлют smile

А можно сюда зайти:
http://mirknig.com/knigi/programming/11811...mmirovanie.html
http://www.kodges.ru/26881-delphi-i-1c-pre...mmirovanie.html
http://ifolderlinks.ru/knigi/delphi-i-1c-predpriyatie.html

Это сообщение отредактировал(а) de_Nis - 12.2.2009, 15:06

--------------------

Несчастлив не тот, у кого ничего нет, а тот, кто ничего не хочет…

Delphist

Дата 12.2.2009, 17:33 (ссылка)

(нет голосов)

Загрузка ...

Delphist Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2145
Регистрация: 3.2.2004
Где: всегда в сети

Репутация: 2
Всего: 3

Цитата(remax @ 12.2.2009, 15:20

)

ShowMessage(My1c.глИдентификаторКонфигурации);
  s1:=My1c.глПарсить2(s,0,';');
  s2:=My1c.глПарсить2(s1,1,';');
  showmessage(s+#13#10+s1+#13#10+s2);

Спасибо, за код. Но не совсем понятно, что делают вот эти вещи:
s1:=My1c.глПарсить2(s,0,';');
s2:=My1c.глПарсить2(s1,1,';');

Поэтому, если можно более действенный пример

Добавлено через 1 минуту и 6 секунд

Цитата(de_Nis @ 12.2.2009, 15:54

)

Напиши, может, и тебе вышлют

Книгу в нете нашел, скачал. Единственное не могу найти исходники приведенных там примеров, они
вроде поставлялись на дискетке или диски к этому букварю

--------------------

remax

Дата 13.2.2009, 09:36 (ссылка)

(нет голосов)

Загрузка ...

Доцент

Профиль
Группа: Участник Клуба
Сообщений: 686
Регистрация: 7.4.2002
Где: Украина, Харьков

Репутация: 1
Всего: 5

глПарсить2 - это какая-то функция из глобального модуля. судя по всему, три входных параметра - исходная строка, номер подстроки, разделитель. возвращаемое значение - подстрока. Возможно, в вашей конфигурации ее нет. но, это не важно. важен сам принцип.

Вот посмотри ссылки
Delphi и 1С
еще Delphi и 1С

Это сообщение отредактировал(а) remax - 13.2.2009, 09:41

--------------------

Akella

Дата 13.2.2009, 09:49 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329

Delphist, для оле есть спец. раздел

Delphist

Дата 13.2.2009, 10:54 (ссылка)

(голосов:1)

Загрузка ...

Delphist Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2145
Регистрация: 3.2.2004
Где: всегда в сети

Репутация: 2
Всего: 3

Цитата(remax @ 13.2.2009, 10:36

)

Вот посмотри ссылки

Я вот не ужели ни у кого нет уже готовых наработок?

--------------------

Delphist

Дата 20.2.2009, 10:13 (ссылка)

(голосов:1)

Загрузка ...

Delphist Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2145
Регистрация: 3.2.2004
Где: всегда в сети

Репутация: 2
Всего: 3

Вопрос все еще актуален, жду ответов

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »