P2Kapi, Вопросы Поделиться Опции

[Gulik17]

У меня Delphi просит P2KAPI.dcu, мож кто кинет?

[motoprogger]

Gulik17,
Этот файл для разных версий Delphi будет разный, лучше так сделать:
1) Скопировать p2kapi.pas в папку с проектом
2) Добавить p2kapi.pas в проект (Project -> Add file или как там)
И всё, после добавления p2kapi в uses проблем не должно быть.

[n0wheremany]

1) Скопировать p2kapi.pas в папку с проектом
2) Добавить p2kapi.pas в проект (Project -> Add file или как там)

1. Либо скопировать либо добавить в проект.
2. Добавить в uses

[B3nNa]

Hi,

I'm trying to use P2k_SendCMD in Vb.Net, but when i try to execute code, i get this error:

Object reference not set to an instance of an object.

i declared the function in this way:

CODE

    Public Declare Function P2K_SendCMD Lib "p2kapi3.dll" (ByVal Cmd As Int32, ByVal SendBuff As Byte(), ByVal SendSize As Int32, ByVal RecvBuff As Byte(), ByVal RecvSize As Int32) As Integer

and that's the code:

CODE

                P2K_Init(0)
                Threading.Thread.Sleep(1500)
                Dim Send(10000), Recv(10000) As Byte
                Dim SendSize, RecvSize As Int32
                Send(0) = &HFF
                Send(1) = &HFF
                SendSize = 2
                Try
                    P2K_SendCMD(&H39, Send, SendSize, Recv, RecvSize)
                Catch ex As Exception
                End Try

can anyone help me?
thanks in advance,
B3nNa

[Ailinor]

Что-то V3re (не разлоченная) некоректно работает с библиотекой. Кто-то сталкивался с этой проблемой? Из-за чего это может быть?

[VlzRu]

А в чем разница между функциями Flash_WriteData и Flash_Bin? Насколько успел разобраться, первая просто отправляет в порт данные, переданные ей в параметрах, при этом не понятно, по какому адресу будут зашиты отправленные байты? Вторая отсылает через SendCmd команду "BIN", и переданный ей буфер, при этом сказано, что перед ее[Flash_Bin] вызовом необходимо передать в тело(или точнее загрузчик?) адрес начала записываемой области (Flash_Addr). Т.е. существуют две функции, выполняющие одно и то же? Или я не прав?

[n0wheremany]

Flash_WriteData

Ф-ия отправляет не форматированные данные телефону. Не знаешь не лезь.

Flash_Bin

Ф-ия отправляет форматированные даные телефону на адрес отправленный ф-ей Flash_Addr до этого.

Ф-ия Flash_WriteData только для людей, знающий как ей пользоваться.

[VlzRu]

Спасибо за ответ. Еще вопрос, не сочтите за наглость.
Чтобы записать данные в некоторую область памяти, нужно ее предварительно стереть. Правильно? Значит нужно чтобы начальный и конечный адреса этой области были забиты в лоадер? Т.е. алгоритм такой:
1. Инициализация библиотеки, телефона.
2. Запись лоадера с необходимыми адресами памяти.
3. Команда "ERASE" -> в телефон.
4. Вызываем в цикле Flash_Bin, переправляем всю прошивку в тело.
5. Радуемся. :-)

Так?

[n0wheremany]

1. Инициализация библиотеки, телефона.
2. Запись лоадера с необходимыми адресами памяти.
3. Команда "ERASE" -> в телефон.
4. Вызываем в цикле Flash_Bin, переправляем всю прошивку в тело.
5. Радуемся. :-)

Чтото в этом роде.

ЗЫ - не знаешь не лезь.

[VlzRu]

Охота стать знающим...

[Osta]

ЗЫ - не знаешь не лезь.

n0wheremany :-) к людям относимся помягше , на мир смотрим пошишре , верно ?

[DmT]

VlzRu,
держи две функции для стирания/прошивания, пока беды не случилось:

Код

procedure TForm1.Erase;
var
    Size: Cardinal;
    OutData:array[0..1023] of Char;
    Res:Cardinal;
    StartTime,PointTime:Cardinal;
begin
    StartTime:=GetTickCount;
    Label1.Caption:='Erasing flash memory';
    Label1.Update;
    Size:=SizeOf(OutData);
    ProgBar.Max:=1000;
    Res:=Flash_SendCmd('ERASE',nil,0,OutData,Size,100);
    while Res<>0 do
    begin
        PointTime:=(GetTickCount-StartTime) mod 2000;
        if PointTime>=1000 then PointTime:=2000-PointTime;
        ProgBar.Position:=PointTime;
        Size:=SizeOf(OutData);
        Res:=Flash_ReadData(OutData,Size,20);
        Application.ProcessMessages;
    end;
end;

function TForm1.Flash(FName: string; Base: Cardinal):integer;
var
    F:file of Byte;
    FSize,Size:Cardinal;
    FlashAddr,FlashOff:Cardinal;
    InData:array[0..$ff] of Byte;
begin
result:=0;
    Label1.Caption:='Flashing Phone';
    Label1.Update;
    ProgBar.Position:=0;
    AssignFile(F,FName);
    Reset(F);
    FlashAddr:=Base;
    FlashOff:=0;
    FSize:=FileSize(F);
    ProgBar.Max:=FSize;
    repeat
        BlockRead(F,InData,$100,Size);
        result:=result+Flash_Addr(FlashAddr);
        result:=result+Flash_Bin(InData,Size);
        Inc(FlashAddr,$100);
        Inc(FlashOff,$100);
        ProgBar.Position:=FlashOff;
        Application.ProcessMessages;
    until FlashOff>=FSize;
end;

[n0wheremany]

Osta

Верно конечно... Но будет как у меня более 1,5 года лежащий 398 с пробитой флэшкой... Благо умный человек позаботился ))

procedure TForm1.Erase;

Надо читать ответ, а не просто возможные байты... ибо ERR тоже ответ. И весьма плохой.

Зы DmT, разве у тебя Flash_ReadData не стопорит прогу? до ответа?

[motoprogger]

n0wheremany,
У Flash_ReadData (и Flash_WriteData) последний параметр - таймаут в миллисекундах. И у Flash_SendCmd, кстати, тоже

[VlzRu]

Огромное спасибо n0wheremany и DmT ! Теперь я все понял.

[VlzRu]

Хотя нет... не все :-)
Что, в теории, делает команда JUMP? судя по https://forum.motofan.ru/index.php?showforum=143 Flash&backup'у отправлять ее нужно после засылки лоадера, или это зависит от чего-то? На какой адрес нужно прыгать? На адрес, в котором начинается лоадер? (JUMP для Motorola == JMP для asm) ?

[motoprogger]

VlzRu,
Для телефонов на платформе LTE нужно:

Добавлено позже (26.6.2008, 2:49):
VlzRu,
Для телефонов на платформе LTE нужно:
1) Записать лоадер по адресу 0x03fd0000
2) JUMP на 0x03fd0010
3) Если намерен что-то прошивать - стирание памяти (адреса вбиваются в лоадер)
4) Прошивание/чтение (для чтения лоадер должен это поддерживать)
5) Опционально выключение или перезапуск телефона

[DmT]

JUMP для Motorola == JMP для asm

JUMP это команда лоадера
А jmp это команда ассемблера для x86
На асемблере для ARM эта команда BX

Сообщение отредактировал DmT - 26.6.2008, 20:58

[motoprogger]

На асемблере для ARM эта команда B

Уж если на то пошло, то BX. B умеет переходить только по фиксированному адресу, а BX - по адресу в регистре.

[david768]

Я чайник...Как установить скины???

[AlexKooper]

david768, Модификация Е398