ктонить такое делал?
есть пример?

Делал.
Какие трудности возникли?

ну по существу..

в обычном приложении есть событие:
   procedure OnStatusChange(Sender: TObject; aEvent: longint; aExtendedErrorCode: Longint; const aMessage: string);

я добавил IConnectorEvents - OnStatusChange в интерфес, в этом событии ShowMessage.. но оно ни разу не вызывается.
т.е. вызовы функций кома работают из 1С, но никаких окон не всплывает.

собственно как вообще делается события и как они обрабатываются?

и вообще есть описание 1CIts/EXE/VNCOMP82/doc/ExtCompT.htm

но толи я его не понимаю толи я не так делаю..
я делаю как в http://devtrainingforum.v8.1c.ru/forum/thread.jsp?id=539119
но в описании:
Модальные диалоги создаются самой компонентой, но при их создании необходимо в качестве родительского окна указать окно, возвращаемое методом GetAppMainFrame для того, чтобы диалог не воспринимался операционной системой как отдельная задача с кнопкой на полосе задач

как это вызвать из компоненты?
чтото непонятно это все.

Кинь проект на [email protected]

ушло

Половины pas файлов нету, нету примера в 1С, непонятно, кто должен вызывать OnStatusChange(), квик, dll, или 1С.
Бида.

ща объясню..
есть dll для работы с терминалом.. при ее инициализации мы указываем callback функцию для обработки событий (стр 112 в QConnector.pas), после этого события вызывают функцию OnStatusChange.

так вот чтото они при использовании Com объекта не работают.. т.е. непонятно, может такое вообще невозможно реализовать ((

Пишушуюся DLL -ка - это прокладка между 1С и dll-терминалом?

Как call-back прописываешь?

Ибо есть хитрость:
Delphi. Методы объектов как то по другому хранятся в памяти?

Пост 11 в ветке (10) объясняет эту хитрость.

ну.. вызов-то все равно должен происходить? даже если там все подпорчено, то и брекпоинт должен сработать и выдать сообщение должно, может и с запорченным текстом но окошко-то должно показаться?

и еще. а эту твою ситуацию разными директивами нельзя поправить? а-ля StdCall и типо того.

накопал кое что.. возможно у меня не вызывается CreateHandle от TWinControl..
собственно два вопроса: почему и как здалать чтоб он вызвался?

(12) Вызов и не должен вызываться, если ты адрес функции неправильно указываешь.

(14) Если он указывает адрес объектной функции то вызов должен произойти, просто при этом в регистре EAX вроде не будет значения Self, что может привести краху если будет обращения к полям объект.
(0) Посмотри http://1c.proclub.ru/modules/mydownloads/personal.php?cid=115&lid=2019
там есть примеры работы с окнами. В том числе и Исходник ВК которая загружает Объект Автоматизации поддерживающий ITypeInfo и выполняет все его свойства и методы через IlanguageExtender сам им пользуюсь уже лет 10. В том числе и для СОМ на C#.

не.. у меня есть часть кода которая делает callback.. там в начале:

// =============================================================================
procedure ConnectionStatusCallback(nConnectionEvent   : LongInt;
                                  nExtendedErrorCode : LongInt;
                                  lpcstrInfoMessage  : LPCSTR); stdcall;
var
 Itm : PReplyQueueItem;
begin
 if Assigned(ReplyQueue) and (ComponentHandle <> 0) then
 begin


Но условие не проходит и вызова нет..
ReplyQueue вроде как создается, а вот ComponentHandle это


       procedure   CreateHandle; override;
....

procedure .CreateHandle;
begin
 inherited;
 ComponentHandle := Handle;
end;

этот CreateHandle наследуется от TWinControl..
вызова этой процедуры почемуто не происходит...

вот щас копаю почему...

слушай, вот есть у меня функция у кома, а как показать какоенибудь окно? создавать его програмно на winapi? или как то форму можно сделать как в обычном проекте?

Специально посмотрел исходники и демо
там в
procedure TAddinTypeInfo.InitFrom1C(const pCon: IDispatch);
Var wnd: HWND;
   pExtWndsSupport:IExtWndsSupport;
begin
    If Not Assigned(pConn) Then
    Begin
    pConn := pCon;
    PEvent := nil;
    IDispatch(pCon).QueryInterface(IAsyncEvent,PEvent);
    pExtWndsSupport := nil;
    IDispatch(pCon).QueryInterface(IExtWndsSupport,pExtWndsSupport);
    If Assigned(pExtWndsSupport) Then
    Begin
    pExtWndsSupport.GetAppMainFrame(wnd);
    Application.Handle := wnd;
    pExtWndsSupport.GetAppMDIFrame(ChildWnd);
    end;
    end;
end;

Form2:=TForm1.CreateParented(ChildWnd);

(18) не чтото у меня ничго подобного даже близко.... (((

Это 7 ка. Но что то подобное должно быть и в DelphiXE2. Даже в C# можно присваивать хэндлы окон.

решил зайти с другой стороны.. за транслирую пример кома для С#..

незнаю, может ветку новую создать?

вобщем добавляю интерфейс
interface IPropertyProfile : IPropertyBag

но у меня нет нигде IPropertyBag

т.е. как бы есть в VB но хз то или нет
http://my.jetscreenshot.com/5394/20120504-5amz-39kb.jpg

public interface IPropertyBag


Name: System.Windows.Forms.UnsafeNativeMethods+IPropertyBag
Assembly: System.Windows.Forms, Version=4.0.0.0

написал набросок чтоб понятно было, что разработка в delphi отличается от примеров от 1С.
http://qeos.ru/?page=COM_napisannyi_na_DelphiXE2_dlya_1C&nav=1

пока пробую перевести пример с ИТС на дельфю.

Смотри v8: А как 1С хранит числа в памяти?
При передаче через ком, число переводится в Double

Так у тебя даже не Double а Single
А есть Decimal?

(24) ты погоди пока статьи писать. тем, кто имеет понятие, это читать смешно, а тем кто не понимает, это читать вредно.

Попробуй TDecimal он
Тип данных OLE Automation Тип данных Delphi  Примечание
Decimal                   TDecimal           96-битное десятичное число

(27) вот так все время и рубится.. типо вы все г.вно, а я один умный.
взял бы да помог.

+(27) какой мануал? КАКОЙ?

Помогаю. Сначала выясни что такое интерфейс и что такое реализация интерфейса. Потом читай документрацию от 1С (на диске ИТС есть).  Найди в гугле статьи по написанию внешних компонент. Потом приходи задавать вопросы.

facepalm