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

[skay88]

Sorry gentlemen, but i have a question. (sorry i am not speak Russian)

you knows, what i have to do to load P2KAPI.dll in VISUAL BASIC ?

thanks

[Vscz]

Вот что сказал skay88

Извините господа, но у меня вопрос. (извиняйте что не по РУССКИ)

Кто знает,что мне нужно для загрузки  P2KAPI.dll в VISUAL BASIC ?

Пасиба

For skay88
Read this theam and sorry for my English :)
Look 10 page, it must help You.
Mabi it is:
Public Declare Function P2KInit Lib "p2kapi.dll" (ByVal P2K_Init As Integer) As Integer
Or
Private Declare Function P2KInit Lib "p2kapi.dll" (ByVal P2K_Init As Integer) As Integer
But I dont know about (ByVal P2K_Init As Integer)

Для Всех / For All
PS Не надо смеятся над моим ангицким, у меня по нему "3"
PPS Помогите люди проблемма с загрузкой файлов из телефона, а точнее с их отображением в листе.
Наконец перешёл на Делфи( bigsmile; Ценю RepStudio bigsmile; )

[skay88]

Vscz Thanks man but i have a new problem with the function File_List check it:

In module:

Public Declare Function File_Count Lib "c:\p2k.dll" () As Integer
Public Type Slista
rsize As Long
ratr As Long
filename As String
End Type
Public Declare Function File_List Lib "c:\p2k.dll" ( Archi As Slista, LCount As Integer) As Long

In Form

Private Sub Command4_Click()
Dim ListAr As Integer
Dim FileL As Long
Dim Info() As lista
ListAr = File_Count
ReDim info(1 To ListAr)
FileL = File_List(Info(0), ListAr)
End Sub

The Problem is when i compiled and pressed the command4 the program Shutdown.

[Vscz]

Skay88, sorry but I can't help you. I do't know.
Look 10 page and book about API.

Товарищь MOTOROKR указываю на ошибку

Private Declare Function P2K_Init Lib "p2kapi" (ByVal P2K_Init As Integer) As Integer
Private Declare Function P2K_GetStatus Lib "p2kapi" () As Boolean
Private Sub Command1_Click()
P2K_Init (0)
If P2K_GetStatus() = True Then Form1.BackColor = RGB(0, 255, 0)
If P2K_GetStatus() = False Then Form1.BackColor = RGB(255, 0, 0)
End Sub

Ты заранее указываешь программе нет мобилы
туда нужно впихнуть ссылку на функцию или процедуру.

[ivan219]

Здравствузте.

Помогите зделать прогу с одной фунуцией надо чтоб телефон можно было перезагружать Motorola C650
мне это нужно чтоб самому на кнопки недовить ато когда телефон долго лежит от откл. от GPRS и чтоб его вернуть надо выкл. потом снова вкл. телефон вот я и подумал если зделать прогу чтоб прекаждой загрузки ОС мобильник перезагружался работаю на Делфи7.

[ivan219]

Ну что??? Нежели не кто неможет мне помоч???

[ZeatooL]

ivan219,

Код

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls, ImgList, ExtCtrls;

type
TForm1 = class(TForm)
Button1: TButton;

procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
function P2K_Init(p:pointer): Integer; stdcall;external 'p2kapi.DLL';
function P2K_Restart(): Integer; stdcall;external 'p2kapi.DLL';




implementation

{$R *.dfm}

procedure zzz;
begin
P2K_Restart;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
P2K_Init(@zzz);

end;

end.

[ivan219]

Большое спасибо работае!!!!!!!!!!!!!!!!!

[Moto_E398]

У меня есть м-а-а-а-ленький вопросик к Vilko, если конечно ты согласен на него ответить? Ну не Менделеев же, чтобы функции для работы с телефоном во сне приснились, с чего начинал, дай пару ссылок на ресурсы, можно и басурманские, а то сам что-то не могу нарыть, наверное не так ставлю вопрос , а за прогу твою респект тебе clap;applo , заранее спасибо и, как идея, могли бы создать совместный проект (могу тоже поучаствовать - графика-фигафика, скины и прочее) и обьединить все свои проекты в один большой и очень классный)) (кстати на басурманских сайтах юзают "рамлдр" по полной).

[ivan219]

Вопрос может укого есть исходники на эту библиотеку p2kapi.DLL

[Random]

Moto_E398,

Я конечно не Vilko, но что он сделал - это плоды мониторинга портов при работае штатных Мотороловских программ, а никак не чтения какаих-нибудь сайтов.

ivan219,

Их уже выкладывали, поищи в этой теме.

[ivan219]

Я все 15 постов перерыл там толко готовая DLL есть а мне исходники нужны хотя может я прогледел, если знаеш где дай ссылку.

[dwALX]

ivan219,
плохо смотрел значит :)
помотри мой пост на 13 странице... (а так же и на 12).. там я выкладывал обновление p2kapi. В архиве есть и исходники.

Хотя, на вот сразу ссылку на вложение: P2KAPI выложенное на 13 странице

Сообщение отредактировал dwALX - 14.1.2006, 0:13

[Vscz]

Люди я снова перечитал эту темку.
Определённо надо делать факу, с исходниками, а это глупо,
так как программы получатся одинаковыми.

Вопрос
А по AT командам можна подобную библиотеку ?

[ZuHeL]

Народ помогите построить File_List древовидно. Если можно подробнее.
Пишу В 7 Делфе.
Заранее Благодарен.

[dwALX]

В этой версии я еще добавил 3 функции:
Mode_SwitchToP2k(StatusProc)
переключает телефон из AT режима в P2K
если не была вызвана P2K_Init, то она вызывается с параметром StatusProc, в других
случаях этот параметр не используется
(функция ничего не возвращает)

Mode_SwitchToAT()
переключает телефон из P2K режима в AT
(функция ничего не возвращает)

SetCOMPort(lpstr com)
ручный выбор com порта. вызывать до P2K_Init и Mode_SwitchToP2k, а так
же после Mode_SwitchToAT()

[mmlevin]

А можно ли через p2kapi.dll узнать время создания файла и/или последнего доступа к файлу? Если нет, может, кто знает, как это сделать вручную через протокол P2K?

[Synergy]

Помогите через p2kapi получить инфу о свободном месте дисков /а/ и /с/... Не получается....

[dwALX]

mmlevin, никак не узнаешь

Synergy,
int FreeSpace = File_GetFreeSpace("/c/");
и все :)

File_GetFreeSpace(lpstr disk)
Возвращает размер свободного места на диске
lpstr disk - имя диска, например: "/c/"

[dwALX]

Новая версия P2KAPI
Добавлено переключение в P2K режим из режима "Карта памяти". (спасибо blackbox'у)
а так же функция void P2K_Suspend(void) - переводит телефон в спящий режим.

[n0wheremany]

А можно ли через p2kapi.dll узнать время создания файла и/или последнего доступа к файлу? Если нет, может, кто знает, как это сделать вручную через протокол P2K?

Это физически невозможно!!! Ну не даёт P2K режим данные об времени и тп. Всё что есть то и выложено!

[Serg c650]

Объясните на форуме пожалуйста ещё раз как сделать что бы программа определяла свободное место, модель телефона, и как сделать считывание файлов применительно к Delphi. А то у меня только перезагрузка и состояние(подключён/не подключён) работает.

Или пишите на mail: shaldinsergey@mail.ru

[Synergy]

И еще один маленький вопрос: как юзая p2kapi создать папку \c\mobile\skins\testskin\ ???

[dwALX]

Synergy, а доки совсем не читаем?

File_CreateDir(lpstr DirName, dword Attribute);
     создает новую директорию

     lpstr DirName - указатель на строку с именем директории
     byte Attribute - новый Атибут для создаваемой директории
       атрибут - это комбинация 3х битов:
       bit0 - readonly
       bit1 - hidden
       bit2 - system
     Возвращает всегда 0 (кроме случая с неверными аргументами, тогда -1). Пока так. 

File_CreateDir("/c/mobile/skins/testskin",0);

[Synergy]

так я так и пробовал, а он не создает...

[dwALX]

Synergy,
выложи код.

И еще один маленький вопрос: как юзая p2kapi создать папку \c\mobile\skins\testskin\ ???

т.к. в вопросе ошибка или опечатка (вместо "/" используется "\"). может и в коде такая же.

[Synergy]

Понял ... вроблема была действительно в / и \... Спасибо...

[n0wheremany]

Я пишу на Delphi 7.

МотоВкл

А если ты хочешьименно через P2KApi.dll то
Совсен народ обленился... Читать надо полностью всю тему а не только посл сообщения....

Как использовать File_List и как узнать имя диска?

Здесь список файловfunction

А вообще можешь посмотреть исходники Здесь

[Voffka]

Объясните пожалуйста ошибку при регистрации этой библиотеки, а так же как её избежать.
Я делаю так...:
в той же директории где находится регистрируемая библиотека создаю bat-файл (test.bat), в который помещаю код:

@echo off
regsvr32 p2kapi2.dll
echo Control p2kapi2.dll registered!
pause

далее запускаю файл (test.bat). выходит dos окошко и сообщение об успешной регистрации регистрируемой библиотеки. Так я регистрирую любой файл, который нужно зарегистрировать. Но при регистрации p2kapi2.dll (а так же ранних её версий), вместо окошка об успешной регистрации выдаётся сообщение:
p2kapi2.dll was loaded? but the DllRegistersServer entry point was not found.
DllRegisterServer may not be exported, or a corrupt version of p2kapi2.dll may be in memory. Consider using PView to detect and remove it.

я думал, что библиотека загружена и находится в работе, поэтому выходит ошибка, НО попробовав зарегистрировать библиотеку на виртуальной машине получил такое же сообщение, А ТАМ этой библиотеки не было и нет. (ОС: WIN2000pro, на вирт. машине. тоже)

[max.wiz]

Хммм, давно не был на форуме... народ чё-то совсем "прогрессивный" остался ((

Voffka,
Вообще-то библиотеки, как правило, не регистрируют как COM/ActiveX-компоненты. Это обычная библиотека, а не COM-овская - её не надо регистрировать.

OFFTOP... раньше спрашивали "в каком симе лежит такая-то настройка", теперь "как зарегить (зачем?) библиотеку"... грустно....

[Synergy]

Кто-нибудь из Delphi программеров, помогите:

юзая p2kapi2 у меня не получается скачать файл с телефона.

[n0wheremany]

Ищи. В темах и проги с сырсами есть. Гдео в начале есть.

[Synergy]

Какой компилятор требуется для компиляции исходников этого p2kapi?

[max.wiz]

Какой компилятор требуется для компиляции исходников этого p2kapi

Не компилятор, а ассемблер.
Исходники не заточены под конкретный макро-ассемблер (респект кодерам), посему ассемблить можешь либо в Turbo Assembler (aka TASM, Borland'овский продукт), либо в Macro Assembler (aka MASM, Micro$oft'ская софтинка).

Процесс создания проги:
1) Ассемблирование - "проход" ассмеблером исходников и генерация OBJ-файла(ов);
2) Линковка - сборка объектных модулей в исполняемый модуль (EXE или DLL).

P.S.
http://bash.org.ru/quote.php?num=1844

[Synergy]

Не компилятор, а ассемблер.
Исходники не заточены под конкретный макро-ассемблер (респект кодерам), посему ассемблить можешь либо в Turbo Assembler (aka TASM, Borland'овский продукт), либо в Macro Assembler (aka MASM, Micro$oft'ская софтинка).

Процесс создания проги:
1) Ассемблирование - "проход" ассмеблером исходников и генерация OBJ-файла(ов);
2) Линковка - сборка объектных модулей в исполняемый модуль (EXE или DLL).

P.S.
http://bash.org.ru/quote.php?num=1844

Спасиб!

[SANYO_K]

Вызываю в VB6 P2K_Init и при возврате и после завершения программы и возврате в режим Design получаю вылет из VB...
Подозреваю что это из-за того что при запуске прграммы в vb6 код компилируется в промежуточный а не непосредственно в exe как например в VB.NET или VC++ и тд ..
Стоит ли отказываться от идеи написания P2K программы в VB и переходить на VB.NET ???

[max.wiz]

off_topic; В .Net код не компилируется в ехе (Delphi .Net / C# / VB.Net) ;)

[Vovan_mail]

:( Народ в техтовом мануале вроде как ошибка -> Mode_SwitchToP2k(StatusProc), а надо вроде как
Mode_SwitchToP2K(StatusProc) и почему не внести в манул как пример экспорта для Delphi следующее:
unction P2K_Init(p:pointer): Integer; stdcall;external 'p2kapi2.DLL';
function P2K_Restart: Integer; stdcall;external 'p2kapi2.DLL';
function P2K_GetStatus: Integer; stdcall;external 'p2kapi2.DLL';
function File_Count: Integer; stdcall;external 'p2kapi2.DLL';
function File_VolInfo(var Data: array of Byte): Integer; stdcall;external 'p2kapi2.DLL';
function Seem_Read(SeemNo, RecordNo, StartOffset, Bytes: Integer; var Data): Integer; stdcall; external 'p2kapi2.dll';
function File_List(var Buf; Count: Longword): Integer; stdcall; external 'p2kapi2.dll';
function File_Delete(FileName:String): Integer; stdcall; external 'p2kapi2.dll';
и остальное. Так как у тех кто только начинает, возникает много вопросов.
И вот ещё
Mode_SwitchToP2k(StatusProc)
переключает телефон из AT режима в P2K
если не была вызвана P2K_Init, то она вызывается с параметром StatusProc, в других
случаях этот параметр не используется
(функция ничего не возвращает) как вообще это понять?
Хотя у меня рулит так:
procedure Mode_SwitchToAT; stdcall;external 'p2kapi2.DLL';
procedure Mode_SwitchToP2K(StatusProc:pointer); external 'p2kapi2.DLL';
И так как правильно? Ведь процедура это же не функция.

[max.wiz]

если не была вызвана P2K_Init, то она вызывается с параметром StatusProc, в других
случаях этот параметр не используется
(функция ничего не возвращает) как вообще это понять?

То что ты можешь объявить функцию как "function ...(...): Integer;", но возвращаемое значение будет неопределено, поэтому можно объявить её как процедуру "procedure ...(...);" для краткости :)
... причина такого синтаксиса в том, что фунция возвращающая Integer (32-bit) вернёт результат в регистре EAX. Остальные "приблуды" аналогичны подобному же объявлению процедуры, НО ессесно с теми же параметрами (порядок и типы параметров), именем процедуры, и т.п. (stdcall и т.п.).
При объявлении как процедура, caller просто не будет "ожидать" результата в EAX (которого там и нету)... =)

Хотя у меня рулит так:
procedure Mode_SwitchToAT; stdcall;external 'p2kapi2.DLL';
procedure Mode_SwitchToP2K(StatusProc:pointer); external 'p2kapi2.DLL';
И так как правильно? Ведь процедура это же не функция.

В общем то правильно и сделал :)
stdcall можно для Mode_SwitchToAT() опустить, т.к. параметров для процедуры не передаётся.

[Vovan_mail]

function ...(...): Integer;,

:) Мне то понятно. Я это к тому написал что: на днях получаю письмо от одного англицки язычного человека, почему-то блин выбор пал на меня. Я мама писал в школе с 3 ошибками, а тут ещё англицкий. Ну ладно с горем попалам челу обьяснил что и куда и блин как. Мне тот чел прислал кучу вопросов: что возврощатеся, и тому подобное. Вопрос был также почему не работает Mode_SwitchToP2k(StatusProc), он взял это из txt мануала, но там ошибка блин должна быть К большая.Вот челы и мучаются с этим богатством.