MotoFan.Ru — всё для Motorola

Найден критичный баг

При чтении, записи демка работает не корректно.

Все разобрался с твоей демкой.

Вот так должна выглядеть обработчик нажатия кнопки WriteSeem.

Код

procedure TForm1.Button5Click(Sender: TObject);
var item     : TMotoP2KModemItem;
    Buff     : TSeemBuff;
    i1,i2,x  : integer;
begin
if (ListBox1.ItemIndex<0) and (ListBox1.ItemIndex>=ListBox1.Count) then exit;
item := MotoP2KMode1.DeviceList.Items[ListBox1.ItemIndex];
if item=nil then exit;
Form1.Caption := 'P2K Seem - запись информации';
//
FillChar(Buff,SeemBufSize,0);
X := 0;
// Было
//   for i1:=1 to StringGrid1.ColCount-1 do
//      for i2:=1 to StringGrid1.RowCount-1 do begin
// Стало
  for i2:=1 to StringGrid1.RowCount-1 do
   for i1:=1 to StringGrid1.ColCount-1 do  begin
   Buff[x] := HexToInt(StringGrid1.Cells[i1,i2]);
   inc(x);
  end;
item.SeemWrite(HexToInt(Edit1.Text),
                HexToInt(Edit2.Text),
                0,X-1,Buff);
Form1.Caption := 'P2K Seem';
end;

Процедура ViewStringGrid должна быть такой

Код

procedure TForm1.ViewStringGrid(Buff:TSeemBuff; Size:integer);
var i,C,R,MC,MR:integer;
S:string;
begin
if size<=0 then exit;
StringGrid1.FixedCols := 1;
StringGrid1.FixedRows := 1;
// Было
// for i:=1 to (Size div 18) do begin
// Стало
for i:=1 to (Size div 16) do begin
  S := INTToHex(i-1,2);
  StringGrid1.Cells[i,0] := S;
  StringGrid1.Cells[0,i] := S+'0';
end;
C := 0;
R := 0;
MC:= 0;
MR:= 0;
// Было
// for i:=0 to Size do begin
// Стало
for i:=0 to Size-1 do begin
  if (i Mod 16)=0 then begin
   INC®;
   C := 1;
  end else
   INC©;
  if @Buff=nil then
   S := ''
  else
   S := IntToHex(Buff[i],2);
  StringGrid1.Cells[C,R] := S;
  if C>MC then MC := C;
  if R>MR then MR := R;
end;
StringGrid1.ColCount := MC+1;
StringGrid1.RowCount := MR+1;
end;

После выше указанных исправлений все работает 100%...

Спасибо V360.
В новой версии всё поправлено...

ты мне скинул бету с 1 условием, но....
там не написан хелп по компонентах, я так понял, что он совсем не менялся оч долго
и поентому я не могу пользоваться компонентами, имхо не могу понять как называються процидуры и ф-и, кроме того проект можно полностью удалять и делать новый.....

и вот еще: демки не полностью адаптированые под компоненты 3.1, например процедура switch
какие у нее параметры??? для перехода из АТ в Р2К такой: mdtP2K, из АТ в USB - mdtUSB, а из USB в АТ какая?? и из Р2К в АТ какая??

Цитата

там не написан хелп по компонентах, я так понял, что он совсем не менялся оч долго

Эт.. Естеств... Эт ж бета

Цитата

и вот еще: демки не полностью адаптированые под компоненты 3.1, например процедура switch
какие у нее параметры??? для перехода из АТ в Р2К такой: mdtP2K, из АТ в USB - mdtUSB, а из USB в АТ какая?? и из Р2К в АТ какая??

Точно такие же... mdtAT... Мог бы догадаться...

уже догадался

а вот в debug у компонентов сообщения являються типом word....
так какие сообщения в тексте отвечяют цыфрам, можеш выложить??

Цитата

так какие сообщения в тексте отвечяют цыфрам, можеш выложить??

Там модуль есть... MotoLang... И демку посмотри... Там же не цифры...

Мото ленг не работает, вот ошыбка:

Код

[Error] Unit1.pas(13): Unsatisfied forward or external declaration: 'TForm1.MotoGetError'

в демках тоже баги (очевидно, что они не полностью адаптированые), имхо при подключении девайса (нажатие кнопки Open) выбивает ошибку (рисунок прикреплен), а при закрытии пишет в лог: [I]

Нажмите для просмотра прикрепленного файла

а можно копировать файлы во время, когда фото-камера инициализированая??

Добавлено пожже

нашел баг в версии 3.1
режим - Р2К, баг состоит в том, что невозмодно получить версию ПДС
оно тупо ее не получяет... в демках смотрел - точно тоже....
в старых версиях такого бага не наблюдалось

Анонс Только для опытных пользователей.

Долгожданное обновление:

Обновлена MotoVCL версия до 2.3.0 Alpha.

* Кратко об обновлениях: Добавлена возможность получать Debug строку на разных языках
* Добавлен LibUSB драйвер для Flash режима
* Увеличина многократно скорость работы с Flash режимом подробнее
* Исправлены найденные баги
* Добавлена поддержка новых версий Delphi

Пока это Альфа версия. В последующем LibUSB будет интегрирована во все режимы. Скорее всего будет убрана событие ObDebug. Ещё разные мелочи...

Подробнее

Ребят. привет.. помогите... подскажите кодик чтобы в режиме АТмоде можно было загрузить все СМС сообщения с телефона в прогу. и отображал старый(прочитанные) и новые смс по разному...

поищи програмку easyport. там все очень удобно - выбираеш команду - она делает и все показывает в ЛОГе...

то есть благодаря ей.. я найду множество ответов для написания своей проги?

Цитата

то есть благодаря ей.. я найду множество ответов для написания своей проги?

Это пример. Чтобы ответы получить найди ФАК по АТ командам телефонов. Благо они почти все одинаковы.

Привет. Пишу сейчас синхронизацию с Outlook-ом (медленные и глючные Motorola Phone Tools ну совсем не устраивают, вдобавок, хочу добавить дополнительные фичи, как-то синхронизация фоток контактов), столкнулся с такой проблемой. Иногда, при загрузке картинок в P2K режиме из телефона, функция DownloadFile "подвисает". Экспериментировал с размером буфера, от 1000 до 4000 (рекомендованное значение) - без разницы. Да, после этого что-то явно нарушается в фирмвари телефона, остальные программы тоже не могут читать файлы, помогает только перезагрузка.

Отличие моего кода от кода демки только в том, что я передаю размер файла равный 0 (я не читаю для скорости каталоги, и, соответственно, не знаю реальный размер файлов). Как я понял из форума, этот размер нужен только для функции прогресса. Собственно, вопрос такой: в чем могут быть "тапки" (есть еще подозрение на вероятный "глюк" кабеля)? Есть-ли возможность при неудаче передать исполнение другому thread-у?

P.S. Еще такой вопрос: как средствами MotoVCL определить наличие драйвера P2K?

Цитата(sens.boston @ Сегодня, 20:55)

Собственно, вопрос такой: в чем могут быть "тапки" (есть еще подозрение на вероятный "глюк" кабеля)?

Траблы с таймаутами... Надо их настраивать... Также возможно есть баги в коде.. Но я не нашёл...

Цитата(sens.boston @ Сегодня, 20:55)

Еще такой вопрос: как средствами MotoVCL определить наличие драйвера P2K?

Нет. Изначально задумана как однопоточная.

Если тел не определяется - следовательно дров нет.

Цитата(sens.boston @ Сегодня, 20:55)

Есть-ли возможность при неудаче передать исполнение другому thread-у?

Может, есть смысл дать возможность передавать значение таймаута? И вылетать с false если тайм-аут исек (попытавшись предварительно закрыть файл)?

P.S. Да, еще: ловил mem leaks с помощью Denomo (http://www.kbasm.com/denomo.html ), давало лики на MotoVCL

P.P.S. Есть еще такое предложение: настраивать параметры USB модема на оптимальные в MotoVCL.

Цитата(sens.boston @ Сегодня, 5:05)

Может, есть смысл дать возможность передавать значение таймаута?

Он и так передаётся... Есть значение TaimOut, тока вот не помню - в этой версии публичен ли он.

Цитата(sens.boston @ Сегодня, 5:05)

P.P.S. Есть еще такое предложение: настраивать параметры USB модема на оптимальные в MotoVCL.

Для этого ведь есть p2ksys