[Помогите!] Помогите в написании скрипта

[korit]

Всем привет.
Нужна помощ в написание скрипта, для изменения одного пакета на два. Вот скрипт который меняет пакет на пакет1

BEGIN
if not _gFromServ then
if StrCmp(_gBuff, HStr('Пакет')) then
begin
_gOutBuff := HStr('пакет1');
WriteLogln('Ok');
end;
END.

нужно что б вместо Пакет1 отправлялось два пакета Пакет1 и Пакет2.
Пробывал так :
BEGIN
if not _gFromServ then
if StrCmp(_gBuff, HStr('Пакет')) then
begin
_gOutBuff := HStr('пакет1');
_gOutBuff := HStr('пакет2');
WriteLogln('Ok');
end;
END.
не работает, шлёт только пакет1
так как в програмировании я не силён, прошу помощи знающих.

[артём612]

Цитата: Сообщение от korit Всем привет. Нужна помощ в написание скрипта, для изменения одного пакета на два. Вот скрипт который меняет пакет на пакет1 BEGIN if not _gFromServ then if StrCmp(_gBuff, HStr('Пакет')) then begin _gOutBuff := HStr('пакет1'); WriteLogln('Ok'); end; END. нужно что б вместо Пакет1 отправлялось два пакета Пакет1 и Пакет2. Пробывал так : BEGIN if not _gFromServ then if StrCmp(_gBuff, HStr('Пакет')) then begin _gOutBuff := HStr('пакет1'); _gOutBuff := HStr('пакет2'); WriteLogln('Ok'); end; END. не работает, шлёт только пакет1 так как в програмировании я не силён, прошу помощи знающих.

я так понимаю что _gOutBuff это буфер отсылающегося пакета....
если это так то не удевительно что будет посылать один пакет!

_gOutBuff := HStr('пакет1');
_gOutBuff := HStr('пакет2');

тут вы сначала в буфер пишите строку 'пакет1' а потом сразу же 'пакет2'


но если сделать примерно так то всё должно быть ок

BEGIN
if not _gFromServ then
if StrCmp(_gBuff, HStr('Пакет')) then
begin
_gOutBuff := HStr('пакет1');

Использование функции для посылки пакета 1

_gOutBuff := HStr('пакет2'); //а тут как я понимаю функция посылки пакета по завершению работы этой функции
WriteLogln('Ok');
end;
END.

[korit]

Может кто поделится скриптом на быструю посадку в МАУ ?
Буду очень признателен.
Можно в ПМ