Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 08.01.2010, 16:46   #11
fize
Форумчанин
 
Регистрация: 24.11.2009
Сообщений: 155
По умолчанию

Код:
[Error] Unit1.pas(350): Assignment to FOR-Loop variable 'j'
[Error] Unit1.pas(350): Assignment to FOR-Loop variable 'j'
[Error] Unit1.pas(351): '(' expected but ':=' found
[Error] Unit1.pas(351): Statement expected, but expression of type 'Integer' found
[Error] Unit1.pas(352): '(' expected but ')' found
[Error] Unit1.pas(353): ')' expected but 'END' found
[Error] Unit1.pas(19): Unsatisfied forward or external declaration: 'TForm1.HexToInt'
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'
и выделяет эту строку-
For j:= 0 to 31 Do Begin
функцию добавил
fize вне форума Ответить с цитированием
Старый 08.01.2010, 16:54   #12
raxp
Старожил
 
Регистрация: 29.09.2009
Сообщений: 9,713
По умолчанию

...если немножно почитать, что вам пишет компилятор, то в for j:= 0 to length(s) div 2 -1 do begin вместо j использовать еще переменную, скажем z/
Разработки и научно-технические публикации :: Видеоблог :: Твиттер
Radar systems engineer & Software developer of industrial automation
raxp вне форума Ответить с цитированием
Старый 08.01.2010, 17:03   #13
fize
Форумчанин
 
Регистрация: 24.11.2009
Сообщений: 155
По умолчанию

короче это вообще не то.
fize вне форума Ответить с цитированием
Старый 08.01.2010, 17:09   #14
raxp
Старожил
 
Регистрация: 29.09.2009
Сообщений: 9,713
По умолчанию

думаем, думаем...
Код:
procedure TForm1.Button1Click(Sender: TObject); - что за самодеятельность? сказано внутри загрузчика основной процедуры
var
t,s:string;
j,z,i:integer;
begin
...
 s:= '4C1D1D1F020D98';
 for z:= 0 to length(s) div 2 -1 do begin 
  //////////////////////////////////////////////
  FT_Out_Buffer[0]:= hextoint('$'+copy(s, z*2+1, 2));
  RW(1, $20, $7D0);
  t := '';
  For j:= 0 to 31 Do Begin
   i:= ord(FT_In_Buffer[j]);
   t:= t + Char(i);
  end;
  ListBox1.Items.Add(t)
 end;
end;
...
...и еще, где вы взяли этот набор - 4C1D1D1F020D98 ?


upd
-------

Цитата:
хоть так хоть так все равно не так.
отсылает 00 почемуто. но это ладно. даже если он начнет отсылать то что нужно но по 2 символа а от этого толку не будет
...на вопрос ответ вы не дали
Разработки и научно-технические публикации :: Видеоблог :: Твиттер
Radar systems engineer & Software developer of industrial automation

Последний раз редактировалось raxp; 08.01.2010 в 17:38.
raxp вне форума Ответить с цитированием
Старый 08.01.2010, 17:23   #15
fize
Форумчанин
 
Регистрация: 24.11.2009
Сообщений: 155
По умолчанию

Код:
Found Only 1 FTDI Device Connected
Device Description : UFS3 SarasSoft
Serial Number Detected : хххх
Trying To Connect Default Device Serial : ххххх
Opening Connection... 
Connect Ok!
Initializing Connection...
Initalizing Success!
Booting UFSx MCU Atmel ATMega8L
RX : 
TX : 3F
RX : 62CF
Boot Ok!
TX : 54
RX : FBB74E
Text : ы·N
TX : 56
RX : 554678426F6F742056322E3220286329205361726173536F667420323030332E
Text : UFxBoot V2.2 (c) SarasSoft 2003. Id: 62 CF 
TX : 53
RX : CC2EE8
Text : М.и
TX : 41
RX : 5546535F5553422056322E3820286329205361726173536F667420323030372E
Text : UFS_USB V2.8 (c) SarasSoft 2007. S/n: ххххх
TX : 00
RX : 3F
Text : ?FS
TX : 00
RX : 3F
Text : ?FS
TX : 00
RX : 3F
Text : ?FS
TX : 00
RX : 3F
Text : ?FS
TX : 00
RX : 3F
Text : ?FS
TX : 00
RX : 3F
Text : ?FS
TX : 00
RX : 3F
Text : ?FS
хоть так хоть так все равно не так.
отсылает 00 почемуто. но это ладно. даже если он начнет отсылать то что нужно но по 2 символа а от этого толку не будет
fize вне форума Ответить с цитированием
Старый 08.01.2010, 17:35   #16
fize
Форумчанин
 
Регистрация: 24.11.2009
Сообщений: 155
По умолчанию

Цитата:
...и еще, где вы взяли этот набор - 4C1D1D1F020D98 ?
все там же на черном-
Цитата:
Connect Ok!
Initializing Connection...
Initalizing Success!
===============================
Tx: 3F
Rx(Str): bÏ
Rx(Hex): 62CF
===============================
Tx: 54
Rx(Str): OÑà
Rx(Hex): 4FD1E0
===============================
Tx: 56
Rx(Str): UFxBoot V2.2 (c) SarasSoft 2003.
Rx(Hex): 554678426F6F742056322E3220286329205 361726173536F66 7420323030332E
===============================
Tx: 53
Rx(Str): Ì.È
Rx(Hex): CC2EC8
===============================
Tx: 41
Rx(Str): UFS_USB V2.8 (c) SarasSoft 2007.
Rx(Hex): 5546535F5553422056322E3820286329205 361726173536F66 7420323030372E
Boot ok
===============================
Reading Ask
Tx: 4C1D1D1F020D98
Rx(Str): >
Rx(Hex): 3E
===============================
Tx: 4210
Rx(Str):
Rx(Hex):
===============================
Tx: 58
Rx(Str): Z
Rx(Hex): 5A
===============================
Tx: 32
Rx(Str): r
Rx(Hex): 72
===============================
Tx: 6801
Rx(Str): r
Rx(Hex): 72
===============================
Tx: 67
Rx(Str): r
Rx(Hex): 72
===============================
Tx: 62FB01A
Rx(Str): ÿÿr
Rx(Hex): FFFF72
===============================
Tx: 6E0F
Rx(Str): ¦À èí ¥¯¤’ÈŠ•V˜)¤e[~X,6ŸWÌ<Lùçƒè=›Q+ «^JÛ'*iF & ! " 2 S € u]Q’,±÷˜Í²Ð–Bq éïô¿ªS“!|¦±wUü> òŠ!Χ±��ÿµr
Rx(Hex): 00A6C00C010501171007011302010012150 1E8ED00A5AFA492 C88A9511569829A4655B7E19581415012C0 5369F57CC3C4CF9 E783E83D9B512B00000000150901AB5E4AD B27A06946011500 000000010000022600010006000C1921010 022000205000000 023202050000000353121500178002100C7 55D51922CB1F798 CD16B2D096427113020000141100E9EFF4B FAA5393217CA6B1 7755FC3E14150900F28A211FCEA7B19D8FF FB572
Ask ok
===============================
Tx: 78
Rx(Str): >
Rx(Hex): 3E
===============================
Tx: 4210
Rx(Str):
Rx(Hex):
===============================
Tx: 32
Rx(Str): r
Rx(Hex): 72
===============================
Tx: 6800
Rx(Str): r
Rx(Hex): 72
===============================
Tx: 67
Rx(Str): r
Rx(Hex): 72
===============================
Tx: 6801
Rx(Str): r
Rx(Hex): 72
===============================
Tx: 66
Rx(Str):
Rx(Hex):
===============================
Tx: A5
Rx(Str): Ã
Rx(Hex): C3
Fbus ok
===============================
Tx: 555555555555
Rx(Str):
Rx(Hex):
===============================
Tx: 1E00101B000C00060107000100000000014 10E56
Rx(Str): A356963014300809B[A
Rx(Hex): 00014114001033353639363330313433303 03830390001425B 41
imeiok
fize вне форума Ответить с цитированием
Старый 08.01.2010, 18:19   #17
fize
Форумчанин
 
Регистрация: 24.11.2009
Сообщений: 155
По умолчанию

идей нету?
fize вне форума Ответить с цитированием
Старый 08.01.2010, 19:20   #18
raxp
Старожил
 
Регистрация: 29.09.2009
Сообщений: 9,713
По умолчанию

по-поводу? ваш код взят полностью с GSM форума... своего ничего не написали, а то что добавили взято наугад... значит нужно обратиться к первоисточникам, почитать книжки, выяснить что такое UFS, с чем его едят и протоколы обмена, и подходит-ли вообще данный метод работы.
Разработки и научно-технические публикации :: Видеоблог :: Твиттер
Radar systems engineer & Software developer of industrial automation
raxp вне форума Ответить с цитированием
Старый 09.01.2010, 17:45   #19
fize
Форумчанин
 
Регистрация: 24.11.2009
Сообщений: 155
По умолчанию

решение найдено.
fize вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
C# нужна помощь... Маринка777 Помощь студентам 0 29.11.2009 21:31
нужна помощь! s20 Общие вопросы C/C++ 0 19.10.2009 00:13
Очень нужна помощь c матрицами, макросами в Excel. Заранее благодарен(поверьте, очень-очень нужна помощь) Farridjan Помощь студентам 1 03.07.2009 12:24
Очень нужна помощь с написанием программы... срочно(буду благодарен за помощь) 5Paladin5 Помощь студентам 3 02.07.2009 09:12