TCP клиент в Axapta

[Dolter]

Подскажите, плз, как реализовать
Лучше всего кусок кода :-)
Есть компонента на .NET, но как ее использовать не знаю... Использую ее в 1С...

[DSPIC]

см. пример
\Classes\Global\str2IntOk

[Dolter]

Zitat:

Zitat von DSPIC

см. пример
\Classes\Global\str2IntOk

эээ??? и что там такого???

[DSPIC]

То ли вопроса не понял, то ли шутку не оценил
Там используется "компонента" regex, а точнее .net класс Regex:
http://msdn.microsoft.com/en-us/libr...ons.regex.aspx

[ZVV]

Zitat:

Zitat von DSPIC

То ли вопроса не понял, то ли шутку не оценил
Там используется "компонента" regex, а точнее .net класс Regex:
http://msdn.microsoft.com/en-us/libr...ons.regex.aspx

Думаю всё гораздо проще.
Просто нужно было уточнить, что смотреть нужно на 4-ке, а то в 3-ке код этого метода совсем другой.

4:

static boolean str2IntOk(str 100 _str)
{
    boolean retval;
    InteropPermission permission;
    System.Text.RegularExpressions.Regex re;
    ;

    permission = new InteropPermission(InteropKind::ClrInterop);
    permission.assert();

    // BP deviation documented
    re = new System.Text.RegularExpressions.Regex('^\\s*[+\\-]?\\s*[0-9]+\\s*$');

    //return ClrInterop::getAnyTypeForObject(re.IsMatch(_str));

    // BP deviation documented
    retval = CLRInterop::getAnyTypeForObject(re.IsMatch(_str));

    return retval;
}

3:

static boolean str2IntOk(str 100 _str)
{
    return (! strnFind(_str, '0123456789', 1, 999));
}

[Dolter]

Zitat:

Zitat von DSPIC

Там используется "компонента" regex, а точнее .net класс Regex

static boolean str2IntOk(str 100 _str)
{
    return (! strnFind(_str, '0123456789', 1, 999));
}

сори, но не вижу :-(

[Dolter]

Zitat:

Zitat von ZVV

Просто нужно было уточнить, что смотреть нужно на 4-ке, а то в 3-ке код этого метода совсем другой.

Ага! Так вот где собака порылась! :-) Спасибо, сейчас попробую

[Dolter]

Не... тугодум я... не могу понять как сделать такое:

("AddIn.TCP");
TCP =  ("AddIn.TCP");
Port = 6700;
IP = TCP.GetIPAddress();
TCP.Send(IP, Port, "22Сообщение");

Это код из 1С... как тоже самое сделать в Аксапте?

[Eldar9x]

Если у вас тройка, то так легко как в четверке сборки использовать не получится. Заюзайте Regasm.exe - Assembly Registration Tool. Потом можно будет использовать сборку через COM

[DSPIC]

com = new COM('{XXXXXX-XXXX-XXXX-XXXXXX}');
или
com = new COM('AddIn.TCP');

?

[Dolter]

Zitat:

Zitat von Eldar9x

Если у вас тройка, то так легко как в четверке сборки использовать не получится. Заюзайте Regasm.exe - Assembly Registration Tool. Потом можно будет использовать сборку через COM

Я подключаю в 1С только для того, чтобы в дальнейшем отлавливать события компоненты... в принципе Send работает и без подключения, т.е. Regasm.exe уже задействован...
но я все равно никак не могу понять как его "запустить, чтобы взлетело" :-(

[Dolter]

Zitat:

Zitat von DSPIC

com = new COM('{XXXXXX-XXXX-XXXX-XXXXXX}');
или
com = new COM('AddIn.TCP');
?

static void testJob(Args _args)
{
    com = new COM('AddIn.TCP');
    com.send('172.17.7.161', 6700, '22Сообщение');
}

говорит про синтаксическую ошибку...

[DSPIC]

Zitat:

COM myCom = new COM('AddIn.TCP');
;

myCom .send('172.17.7.161', 6700, '22Сообщение');

а так?

[Dolter]

Zitat:

Zitat von DSPIC

а так?

А так говорит, что объект не был правильно зарегестрирован... хотя одинэска его "поднимает"...

[Raven Melancholic]

А этот AddIn.TCP случайно не по технологии "внешних компонет" 1С сделан? Там же вроде не совсем автономные COM объекты.

[Dolter]

Zitat:

Zitat von Raven Melancholic

А этот AddIn.TCP случайно не по технологии "внешних компонет" 1С сделан? Там же вроде не совсем автономные COM объекты.

По технологии, но обладает всеми признаками автономности :-)
Написан на VB.NET, зареген regasm-ом... сейчас попробу. написать без использования "одинэсовских" вставок...

[Dolter]

Ниччего не получается... а есть еще какие-либо методы отправки сообщения на порт??

[Raven Melancholic]

В точкаNet работв с сокетами собрана в сборке System.Net.Sockets. Попробуй поискать примеры на VB.NET этой сборки. Из VB в аксаптовский код уже будет несложно изменить (в DAX4)

[Dolter]

Zitat:

Zitat von Raven Melancholic

Из VB в аксаптовский код уже будет несложно изменить (в DAX4)

у меня тройка... :-(

[Dolter]

А вот как можно такое в тройке сделать (с использованием того же MSWinsock.Winsock)

dim    winsock

dim bConnected
    bConnected=false

sub winsock_Connect
    bConnected=true
end sub

Set winsock=WScript.CreateObject("MSWinsock.Winsock")
WScript.ConnectObject winsock,"winsock_"
winsock.Connect "172.17.7.161", 6700

do while not (bConnected)
    WScript.Sleep 100
Loop

winsock.SendData "12"