Вверх ↑
Разработчик
Ответов: 26163
Рейтинг: 2127
#1: 2008-03-02 03:56:52 ЛС | профиль | цитата
Гость, покажи, где у меня в скриншоте 70707070707070707070707070707



------------ Дoбавленo:


Гость писал(а):
Тема назывектя: Не получается написать конвертер из ASCII в HEX !!!!
Я прекрасно вижу, как называется тема. Если ты правильно передашь символьную последовательность, то все сконвертиться нормально, что и показано на скриншоте (на нем видно все то, что ты описал в своем посте и нет там никаких 70707070707070707070707070707).

Вот другая схема с чистым конвертором ASCII в HEX



Add(MainForm,15333245,469,371)
{
Left=20
Top=105
Width=406
Height=336
Caption="Конвертер HEX в ASCII"
}
Add(Label,6000716,567,315)
{
Left=55
Top=20
Width=34
Height=17
Caption="ASCII "
}
Add(Stream2Hex,14561658,595,469)
{
Mode=2
Point(Position)
link(onResult,2957196:doAdd,[])
}
Add(Memo,11374495,539,392)
{
Left=10
Top=65
Width=190
Height=220
Strings=#8:t4t5Ы|
}
Add(Button,8348517,469,469)
{
Left=130
Top=5
Width=130
Caption="Конвертировать"
link(onClick,13977867:doReplace,[])
}
Add(Replace,13977867,539,469)
{
SubStr="1310"
link(onReplace,14561658:doConvert,[])
link(Str,11374495:Text,[])
}
Add(Edit,7762035,469,420)
{
Left=205
Top=40
Width=185
Text="74053474033511DB"
}
Add(Memo,2957196,658,469)
{
Left=205
Top=65
Width=185
Height=220
}
Add(Label,11173008,469,315)
{
Left=290
Top=20
Width=26
Height=17
Caption="HEX"
}



------------ Дoбавленo:


Так бы сразу и сказал, что компилил под FPC, а то я догадываться должен. Поставь компилятор Delphi (взять можно по ссылке Делфи 4) и попробуй с ним (у меня-то работает). Это безобразие под FPC обязательно будет исправлено, но не в этой версии.

------------ Дoбавленo:


P.S. Опять этот FPC себя показывает не с лучшей стороны -- ассемблерный код ему, понимаете, не нравиться
карма: 22

0
файлы: 1hex_ascii_001.png [7.2KB] [397]