Вверх ↑
Этот топик читают: Гость
Гость
Ответов: 17029
Рейтинг: 0
#1: 2008-03-01 21:28:10 правка | ЛС | профиль | цитата


Редактировалось 1 раз(а), последний 2017-03-03 14:38:48
карма: 0

0
Ответов: 2059
Рейтинг: 28
#2: 2008-03-01 21:37:29 ЛС | профиль | цитата
Приведи пример своей схемы
карма: 1

0
Гость
Ответов: 17029
Рейтинг: 0
#3: 2008-03-01 22:16:17 правка | ЛС | профиль | цитата


Редактировалось 1 раз(а), последний 2017-03-03 14:38:48
карма: 0

0
Гость
Ответов: 17029
Рейтинг: 0
#4: 2008-03-01 22:21:01 правка | ЛС | профиль | цитата


Редактировалось 1 раз(а), последний 2017-03-03 14:38:48
карма: 0

0
Разработчик
Ответов: 26163
Рейтинг: 2127
#5: 2008-03-01 23:42:54 ЛС | профиль | цитата
А вот так правильно переводит



Add(MainForm,15333245,196,448)
{
Left=20
Top=105
Width=587
Height=301
Caption="Конвертер HEX в ASCII"
}
Add(Label,6000716,462,441)
{
Left=290
Top=20
Width=34
Height=17
Caption="ASCII "
}
Add(Label,6000598,413,441)
{
Left=65
Top=20
Width=26
Height=17
Caption="HEX"
}
Add(Memo,11374495,434,518)
{
Left=195
Top=45
Width=190
Height=220
}
Add(Button,8348517,196,518)
{
Left=130
Top=5
Width=130
Caption="Конвертировать"
link(onClick,12483886:doEvent1,[])
}
Add(Stream2Hex,3237261,371,518)
{
Mode=3
Point(Position)
link(onResult,11374495:doAdd,[])
}
Add(Memo,2355001,315,441)
{
Left=5
Top=45
Width=185
Height=220
Strings=#12:414243444546|
}
Add(Memo,2957196,553,595)
{
Left=390
Top=45
Width=185
Height=220
}
Add(Label,11173008,364,441)
{
Left=480
Top=20
Width=26
Height=17
Caption="HEX"
}
Add(Stream2Hex,14561658,490,595)
{
Mode=2
Point(Position)
link(onResult,2957196:doAdd,[])
}
Add(Hub,12483886,252,518)
{
link(onEvent1,3364711:doReplace,[])
link(onEvent2,13977867:doReplace,[(299,531)(299,601)])
}
Add(Replace,3364711,315,518)
{
SubStr="1310"
link(onReplace,3237261:doConvert,[])
link(Str,2355001:Text,[])
}
Add(Replace,13977867,434,595)
{
SubStr="1310"
link(onReplace,14561658:doConvert,[])
link(Str,11374495:Text,[])
}

карма: 22

0
Гость
Ответов: 17029
Рейтинг: 0
#6: 2008-03-01 23:56:30 правка | ЛС | профиль | цитата


Редактировалось 1 раз(а), последний 2017-03-03 14:38:49
карма: 0

0
Гость
Ответов: 17029
Рейтинг: 0
#7: 2008-03-02 00:09:44 правка | ЛС | профиль | цитата


Редактировалось 1 раз(а), последний 2017-03-03 14:38:49
карма: 0

0
Разработчик
Ответов: 26163
Рейтинг: 2127
#8: 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] [398]
Ответов: 9906
Рейтинг: 351
#9: 2008-03-02 08:00:43 ЛС | профиль | цитата
Глубокоуважаемый anonymous, ознакомтесь пожалуйста с правилами
Обмен файлами
Почему-то не отвечают
Потому-что в следующий раз, вместо игр с угадайками - просто удалю тему, и все

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

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

У него регистровое соглашение для "внутренних" ф-й отличается от дельфячего, оказывается
Пофиксил
карма: 9

0
Гость
Ответов: 17029
Рейтинг: 0
#10: 2008-03-02 08:32:24 правка | ЛС | профиль | цитата


Редактировалось 1 раз(а), последний 2017-03-03 14:38:49
карма: 0

0
Гость
Ответов: 17029
Рейтинг: 0
#11: 2008-03-02 08:43:29 правка | ЛС | профиль | цитата


Редактировалось 1 раз(а), последний 2017-03-03 14:38:51
карма: 0

0
Ответов: 9906
Рейтинг: 351
#12: 2008-03-02 10:27:37 ЛС | профиль | цитата
Глубокоуважаемый anonymous, еще раз
Если Вы хотите сказать нечто осмысленное, то делайте это, пожалуйста, на языке понятным для остальных.
anonymous писал(а):
я нашол тока ARM,FlatAsm,fasm.WEB,PocketPC,FPC.И все из них конвертируют из ASCII в HEX т с ошибками...

Либо доказательства, не требующие "угадаловок" - в студию, либо считаем Ваш пост флудом, со всеми вытекающими из этого последствиями

Уж извините, но у нас выработалась аллергия на такой треп с грамматическими ошибками от анонимов
P.S. Ваши сведения про FPC уже устарели
карма: 9

0
Разработчик
Ответов: 26163
Рейтинг: 2127
#13: 2008-03-02 14:14:33 ЛС | профиль | цитата
Galkov писал(а):
У него регистровое соглашение для "внутренних" ф-й отличается от дельфячего, оказывается
Да, я с этим уже сталкивался. И что-то этих самых "оказывается" у FPC накопилось уже пруд-пруди
карма: 22

0
Ответов: 9906
Рейтинг: 351
#14: 2008-03-02 14:23:39 ЛС | профиль | цитата
Впрочем, и "внутренние" ф-ии, это какой-то полный отстой по эффективности, употребляемый по недомыслию...
В данном случае - мною...
карма: 9

0
14
Сообщение
...
Прикрепленные файлы
(файлы не залиты)