Обсуждение AutoIt бета-версий
- Автор темы CreatoR
- Дата начала
inververs
AutoIT Гуру
- Сообщения
- 2,135
- Репутация
- 465
Проверьте, пожалуйста, кто нибудь этот код:
на версии 3.3.13.19
У меня почему то возвращаются бинарные данные, если файл в кодировке UTF-8, это у меня такой глюк или это бета так чудит?
Код:
#include 'FileConstants.au3'
$h = FileOpen('test.txt', $FO_OVERWRITE + $FO_UTF8_NOBOM)
FileWrite($h, 'ddddddddddddd')
FileClose($h)
$h = FileOpen('test.txt', $FO_READ + $FO_UTF8_NOBOM)
$data = FileRead($h)
FileClose($h)
If IsBinary($data) Then
MsgBox(0,'','WAT?')
EndIfна версии 3.3.13.19
У меня почему то возвращаются бинарные данные, если файл в кодировке UTF-8, это у меня такой глюк или это бета так чудит?
oesoes
xor eax,eax
- Сообщения
- 171
- Репутация
- 9
3.3.12.0 - все нормально. Может там константы поменяли нечаянно? Просто такое ощущение, что у тебя в FileOpen вторым параметром 16 получается. А справка гласит, что при моде=16 файл принудительно открывается как бинарный. Проверь, чем черт не шутит эти две константы $FO_READ & $FO_UTF8_NOBOM. У меня 0 и 256.
inververs [?]
Консоль 3.3.10.2
Консоль 3.3.13.19 beta
Похоже, что бета
Код:
#include 'FileConstants.au3'
$h = FileOpen('test.txt', $FO_OVERWRITE + $FO_UTF8_NOBOM)
FileWrite($h, 'ddddddddddddd')
FileClose($h)
test(0)
test($FO_BINARY)
test($FO_UTF16_LE)
test($FO_UTF16_BE)
test($FO_UTF8)
test($FO_UTF8_NOBOM)
test($FO_UTF8_FULL)
Func test($FO)
$h = FileOpen('test.txt', $FO_READ + $FO)
$data = FileRead($h)
FileClose($h)
ConsoleWrite($data & @CRLF)
EndFunc
Код:
ddddddddddddd
0x64646464646464646464646464
??????
??????
ddddddddddddd
ddddddddddddd
ddddddddddddd
Код:
ddddddddddddd
0x64646464646464646464646464
0x6464646464646464646464
0x6464646464646464646464
0x64646464646464646464
0x64646464646464646464646464
dddddddddddddВсем доброго времени. Хочу сообщить не о баге, а о большой, на мой взгляд неточности.
Меня смутила запись в справке:
2-й скрипт TEST.au3 принимает:
Тестовым путём достиг цифры 3377
И оказывается, что передача параметров не зависит от количества, а зависит от длины общей командной строки (примерно 32663 символов, или в сумме близко к 32767), т.е массив $CmdLine[...] никак не ограничен 63-мя параметрами.
Или нет?
Добавлено:
Ещё из справки:
Может это конечно в ранних версиях был не доступен...
Меня смутила запись в справке:
Создал 2 скрипта: Из первого вызываю 2-й с параметрами:
Код:
$sParam=''
For $i=1 To 3377
$sParam&=' param'&$i
Next
$sLen=StringLen($sParam) ; 32663 символа
MsgBox(4096,"Переменная ","$sLen =>" & $sLen & "<=")
Run('"D:\TC IMAGE\Utilities\Scripting\AutoIt\AutoIt3.exe" /AutoIt3ExecuteScript "'&@ScriptDir&'\TEST.au3"'&$sParam)2-й скрипт TEST.au3 принимает:
Код:
#include <Array.au3>
_ArrayDisplay($CmdLine)Тестовым путём достиг цифры 3377
И оказывается, что передача параметров не зависит от количества, а зависит от длины общей командной строки (примерно 32663 символов, или в сумме близко к 32767), т.е массив $CmdLine[...] никак не ограничен 63-мя параметрами.
Или нет?
Добавлено:
Сообщение автоматически объединено:
Ещё из справки:
Код:
#include <Array.au3>
_ArrayDisplay($CmdLine)
$CmdLine[1]='привет'
_ArrayDisplay($CmdLine)Может это конечно в ранних версиях был не доступен...
firex
AutoIT Гуру
- Сообщения
- 943
- Репутация
- 208
joiner
Не обращай внимания, это все моя невнимательность.
Проблема кроется в другом, в новых версиях опция TCPTimeout влияет на поведение функции TCPRecv; т.е. она повесит скрипт пока не получит данные / пройдет N ms.
Что мы теперь имеем:
TCPTimeout = 0: Проблематично словить падение одной из сторон, а именно ( в моем случае ) стороны могут продолжительное время молчать. Организовывать ECHO на AutoIt( с десятками клиентов ) вручную - нет ни единого желания.
TCPTimeot > 0: Вешаем скрипт.
Конкретно я сказать не могу где именно они начудили, однако:
1) TCPRecv вешает скрипт.
2) При отключенном таймауте TCPRecv работает как прежде.
3) При любом значении TCPTimeout - TCPRecv не возвращает ошибку при падении клиента.
Раньше за 3 пункт отвечала ошибка -1, однако теперь это "Отсутствие полученных данных"( и не смотрите в справку AutoIt'а, она в этом плане недокументированна ).
Нововведения, блин. Придется писать собственную альтернативу TCP* функциям.
Не обращай внимания, это все моя невнимательность.
Проблема кроется в другом, в новых версиях опция TCPTimeout влияет на поведение функции TCPRecv; т.е. она повесит скрипт пока не получит данные / пройдет N ms.
Что мы теперь имеем:
TCPTimeout = 0: Проблематично словить падение одной из сторон, а именно ( в моем случае ) стороны могут продолжительное время молчать. Организовывать ECHO на AutoIt( с десятками клиентов ) вручную - нет ни единого желания.
TCPTimeot > 0: Вешаем скрипт.
Конкретно я сказать не могу где именно они начудили, однако:
1) TCPRecv вешает скрипт.
2) При отключенном таймауте TCPRecv работает как прежде.
3) При любом значении TCPTimeout - TCPRecv не возвращает ошибку при падении клиента.
Раньше за 3 пункт отвечала ошибка -1, однако теперь это "Отсутствие полученных данных"( и не смотрите в справку AutoIt'а, она в этом плане недокументированна ).
Нововведения, блин. Придется писать собственную альтернативу TCP* функциям.
SyDr
Сидра
- Сообщения
- 651
- Репутация
- 158
Кто-нибудь, добавьте, плиз в https://www.autoitscript.com/trac/autoit/ticket/2915 комментарий
A better example (eats memory pretty quickly):
{{{
HotKeySet("{F1}", "Quit")
Global $Map = MapEmpty()
While True
For $i = 1 To 100
$Map[$i & "test"] = MapEmpty()
For $j = 1 To 100
$Map[$i & "test"][$j & "test"] = Random() > 0.5 ? True : False
Next
Next
WEnd
Func MapEmpty()
Local $mMap[]
Return $mMap
EndFunc
Func Quit()
Exit
EndFunc
}}}
A better example (eats memory pretty quickly):
{{{
HotKeySet("{F1}", "Quit")
Global $Map = MapEmpty()
While True
For $i = 1 To 100
$Map[$i & "test"] = MapEmpty()
For $j = 1 To 100
$Map[$i & "test"][$j & "test"] = Random() > 0.5 ? True : False
Next
Next
WEnd
Func MapEmpty()
Local $mMap[]
Return $mMap
EndFunc
Func Quit()
Exit
EndFunc
}}}
