TCP клиент в Axapta

[Dolter]

я понял... задача нерешаема...

[Raven Melancholic]

Zitat:

Zitat von Dolter

я понял... задача нерешаема...

Дума, что просто либо никто не решал, либо кто решал пока не заглядывал на форум.
Вообще, если есть COM объект, то в трешке можно спокойно дергать его. Иногда бывает трудно подобрать тип параметров. А еще, мне кажется, что обеспечить CallBack не получится.
Если бы не проблема с CallBack, то в нижеприведенном примере можно было бы использовать MSWinsock.Winsock (правда видимо это что-то не входящее в Windows XP). Можно было бы даже без использования WScript. Но в примере есть обратный вызов (точнее реакция на событие).
Еще думаю, можно воспользоваться WINApi (если не ошибаюсь, то все в библиотеках ws2_32.dll и wsock32.dll), но я не системщик, помочь не смогу в API.

[DSPIC]

1. Находим у себя или качаем файл MSWINSCK.OCX (это родной, от Microsoft)
2. Регим его: regsvr32.exe MSWINSCK.OCX
3. "Лицензируем" с помощью файла MSWINSCK.reg
4. Создаем в АОТ, например, 2 формы: SCKSender, SCKReceiver, добавляем в обе зарегиный ActiveX, програмим как нам нужно.

В аттачменте найдете все необходимое. Я застрял на этапе соединения: оба "видят" друг-друга, но Receiver придуривается, и не принимает входящее соединение от Sender'a. Уж нету сил разбираться. Думаю - это уже дело техники...

[Dolter]

Zitat:

Zitat von DSPIC

1. Находим у себя или качаем файл MSWINSCK.OCX (это родной, от Microsoft)
2. Регим его: regsvr32.exe MSWINSCK.OCX
3. "Лицензируем" с помощью файла MSWINSCK.reg
4. Создаем в АОТ, например, 2 формы: SCKSender, SCKReceiver, добавляем в обе зарегиный ActiveX, програмим как нам нужно.

В аттачменте найдете все необходимое. Я застрял на этапе соединения: оба "видят" друг-друга, но Receiver придуривается, и не принимает входящее соединение от Sender'a. Уж нету сил разбираться. Думаю - это уже дело техники...

Да, про WinSock все верно - это уже сделано
а вот импортировать не получилось... говорит, что неверный формат файла экспорт...

[DSPIC]

мда, забыл что у Вас 3-ка. Проект делался в 4-ке. Попробуйте этот

[Dolter]

ругается, что нет верной лицензионной информации под эктив-икс... :-(

[Dolter]

Причем тот же самый объект в ВБС создается и отрабатывает...

[Dolter]

УРА! заработало! переввел Эктив в форме, т.е. удалил и выбрал наново и заработало!
:-))

[Dolter]

А вот еще вопрос...
Форма тозаработала, но никак не могу понять как сделать следующее:
На форме журнала накладных размещаю кнопку - форма вызывается...
а как сделать чтобы сразу строку сообщения в этой форме сформировать, законнектиться и сообщение отправить? причем строка должна содержать ИД таблицы и ИД записи журнала...

[DSPIC]

Если я правильно Вас понял, то вкратце так:
1. Сделать форму невидимой (свойство visible на дизайне)
2. По нажатию на кнопку вж урнале, вызывается невидимая форма, ловите там нужные параметры из element.args().
3. В методе run() после super() делаете что нужно, и вызываете element.close();

[Dolter]

Zitat:

Zitat von DSPIC

2. По нажатию на кнопку вж урнале, вызывается невидимая форма, ловите там нужные параметры из element.args().

с первым и последним вроде понятно... и со второй частью второго тоже понятно...
мне не понятно как туда передать эти парамтеры

[DSPIC]

Поищите, почитайте - как передаются параметры между формами.

[DocSerzh]

Zitat:

Zitat von Dolter

с первым и последним вроде понятно... и со второй частью второго тоже понятно...
мне не понятно как туда передать эти парамтеры

Dolter, привет... Встречались на кубани...

Нашел решение?

[Dolter]

Народ... расскажите пошагово, плз... мучаюсь, мучаюсь, но свой одинэсовский подход никак победить не могу :-(
есть форма сендера, на которой есть текст и 2 кнопки... мне необходимо, находясь в некой форме таблице (например CustTable) открыть эту форму по кнопке, причем так, чтобы в текст попало "CustTable;0123456789", где 0123456789 - это RecID и выполнить методы лежащие под теми двумя кнопками (соединиться и отправить месседж)...

[Eldar9x]

На ините вашей формы:

    FormRun fr;

    super();


    if (this.args())
        fr = this.args().caller();

    if (fr)
        staticText.text(strfmt("CustTable;%1", fr.dataSource(1).cursor().RecId));

[_scorp_]

Zitat:

Zitat von Eldar9x

На ините вашей формы

О LinkActive тоже нужно позаботиться

[DSPIC]

2 Eldar9x: Как-то слишком лабораторно

Прикрепил пример на основе 2х форм.

[Dolter]

Zitat:

Zitat von Eldar9x

На ините вашей формы:

    FormRun fr;

    super();


    if (this.args())
        fr = this.args().caller();

    if (fr)
        [I]staticText.text(strfmt("CustTable;%1", fr.dataSource(1).cursor().RecId));[/I]

"Таблица не содержит это поле"

>>> СОРИ! staticText(!) переименовал уже :-)

[Dolter]

    if (fr)
        sendStrCtrl.text(strfmt("%1;%2", fr.dataSource(1).name(), fr.dataSource(1).cursor().RecId));

так красивше получилось, т.к. из разных таблиц вызываться будет :-)

[DSPIC]

Zitat:

fr.dataSource(1).name()

1. Имя датасорса может отличаться от имени таблицы, данные которой он предоставляет
2. Почему именно 1й а не 2й ?

Ну если из разных, то вкратце так

common  record;
record = element.args().record();
sendStrCtrl.text(strfmt("%1;%2", tableid2name(record.tableId), record.RecId));