Android API

[plusplus]

Is there any Android API pascal translation for camera, phone book, etc ... using Android Native SDK?

[Leledumbo]

The FPC JVM backend port with Android target has them.

[felipemdc]

Is there any Android API pascal translation for camera, phone book, etc ... using Android Native SDK?

To start with: How are you writing your application? Is it a Pascal shared object?

"Android Native SDK" is a confusing term. Android has 2 sets of APIs: NDK and SDK

Supposing you are talking about the NDK, all translations I have so far are here:

http://svn.freepascal.org/cgi-bin/viewvc.cgi/trunk/lcl/interfaces/customdrawn/android/?root=lazarus

But that does not include camera nor phone book.  I think that camera only came in a very recent NDK, if at all, and likely phone book is not in the NDK at all. I am targeting Android 2.2+ so I don't have the latest NDK APIs, but I am not sure if those are really that useful anyway.

For SDK APIs, which are the vast majority in Android, you can access all of them either directly from JNI, which works very nicely for simple method calls, but often Android APIs require some wierd syntax, creating classes on the fly and adding methods to handle things on the fly, implementing interfaces, etc ... so if you are facing problematic syntax then you can create a Java method which does the service and you call it via JNI, like this:

http://svn.freepascal.org/cgi-bin/viewvc.cgi/trunk/lcl/interfaces/customdrawn/customdrawnwslazdeviceapis.pas?view=markup&root=lazarus

http://svn.freepascal.org/cgi-bin/viewvc.cgi/trunk/examples/androidlcl/android/src/com/pascal/lcltest/LCLActivity.java?view=markup&root=lazarus

In some places I could have done the direct JNI method, but when I wrote those I didn't jet know how how to call methods in parameters in JNI, but now I already mastered that, so in the future the LCL will likely see more direct calls.

[plusplus]

@felipemdc as I always say, you the man.

another question, I am using LCL Android but I can make the form black, how can I make the from background black?

---

found it, you can change it in common_draw

[plusplus]

pascal side I have

Code: [Select]


procedure TCDWidgetSet.LazDeviceAPIs_OpenUrl(url: string);
var
  lJavaString: jstring;
  lStr: String;
begin
  lStr := url;
  lJavaString :=javaEnvRef^^.NewStringUTF(javaEnvRef, PChar(lStr));
  javaEnvRef^^.SetObjectField(javaEnvRef, javaActivityObject, JavaField_lcltext, lJavaString);
  javaEnvRef^^.CallVoidMethod(javaEnvRef, javaActivityObject, javaMethod_LCLDoOpenUrl);
end;

and on the java side I have

Code: [Select]

public void LCLDoOpenUrl(String url)
{
  Intent browserIntent = new Intent(Intent.ACTION_VIEW, Uri.parse(url));
  startActivity(browserIntent);
}

when I make the call, the app exits without any warning, what am I doing wrong here?

---

Solved, had forgotten to assign and initialize the Java Method

[felipemdc]

Hello,

Maybe if you implementing those things you could send over patches and get merged into the official trunk? =)

But first update your subversion, it looks like you got inspired by an older svn revision but now the design is a bit different. I added a new class to centralize those misc device calls called TCDLazDeviceAPI in unit customdrawnwslazdeviceapis.pas instead of putting in LCLIntf as before. LCLIntf is getting too messy.

PS: Also the code showed a bug. It puts the string into a field but the java side expects it in a parameter. You have to use CallVoidMethodA instead of CallVoidMethod to pass parameters. Search for it in lcl/interfaces/customdrawn there are some places where I used CallVoidMethodA

[plusplus]

I will submit some API code as soon I figure out how to retrieve and read a String Field from java to pascal.

do you know how?

for example I have a String Field lTXTCallerID and it calls a native void method. now on the native side I need to get the Field lTXTCallerID and convet it to pascal string.

This is the only thing I am stuck, when I figure that out, I will create a complete API for camera, contacts, etc... and send it to you so you can integrate it.

[felipemdc]

for example I have a String Field lTXTCallerID and it calls a native void method. now on the native side I need to get the Field lTXTCallerID and convet it to pascal string.

Use GetObjectField to the the field, since jstring is an object and use GetStringUTFChars to get a UTF-8 PChar:

      GetObjectField:function(Env:PJNIEnv;Obj:JObject;FieldID:JFieldID):JObject;{$ifdef mswindows}stdcall;{$else}cdecl;{$endif}
      GetStringUTFChars:function(Env:PJNIEnv;Str:JString;var IsCopy:JBoolean):pchar;{$ifdef mswindows}stdcall;{$else}cdecl;{$endif}
      ReleaseStringUTFChars:procedure(Env:PJNIEnv;Str:JString;const Chars:pchar);{$ifdef mswindows}stdcall;{$else}cdecl;{$endif}

I used it at some point in LCL-CustomDrawn but now it isn't used anymore... and I don't know in which revision it was nor in which file... but I used that and it worked.

This is the only thing I am stuck, when I figure that out, I will create a complete API for camera, contacts, etc... and send it to you so you can integrate it.

It would be good to see some partial code to know if you are writing it in a good way. A way which can be integrated immediately without changes ... otherwise we will have a problem later on to change everything to the expected architecture. I prefer implementing all such APIs in the unit customdrawnwslazdeviceapis.pas And make objects in the unit lazdeviceapis which expose the functionality via the LCL. As opposed to LCLIntf functions.

[plusplus]

GetStringUTFChars is actually the point where I am stuck

this dose not work?

Code: [Select]

procedure Java_AFX_Trigger(); cdecl;
var
  eo: jobject;
  eb: jboolean;
  e: string;
  str: TStringList;
begin
  eb := 1;
  eo := javaEnvRef^^.GetObjectField(javaEnvRef, eo, java_EventVar);
  e := javaEnvRef^^.GetStringUTFChars(javaEnvRef, eo, eb); //<- HERE IT BREAKS
  if e = 'TEST' then
  begin
    Log('TEST IT WORKS MAN :) <br>');
  end;
end;

ans sure I will do the changes in those units

[felipemdc]

This code gets the field registered as java_EventVar from object eo, which is an uninitialized variable:

  eo := javaEnvRef^^.GetObjectField(javaEnvRef, eo, java_EventVar);

[plusplus]

I have it initialized, and added it to the Java Side. This is just a test, I am doing all my test in a different project

So it is initialized, and on the Java Side I assign 'TEST' and make a api call to Call_AFX_Trigger;

very simple, I need to be able to read strings otherwise most of the API can not be used because filenames and servicenames need to set and java part should trigger tell the LCL to retrieve the value to complete the event.

all tests are OK except for reading a string part, and I have not found a other method, except maybe writing to file and reading from file but that would be just stupid.

[felipemdc]

I will take a look tomorrow.

[felipemdc]

I had to change the jni.pas header and passed nil for isCopy. I don't know if this was your problem. Check these revisions which added code which read strings from Java and create new strings:

http://svn.freepascal.org/cgi-bin/viewvc.cgi?view=rev&root=lazarus&revision=35291

http://svn.freepascal.org/cgi-bin/viewvc.cgi?view=rev&root=lazarus&revision=35293

And this file in general:

http://svn.freepascal.org/cgi-bin/viewvc.cgi/trunk/lcl/interfaces/customdrawn/customdrawnwslazdeviceapis.pas?view=markup&root=lazarus&pathrev=35293

Also note there how I managed to do everything in Pascal, without Java. I think it might be a better way for simple stuff like just getting a service and calling a method from it, checkout the Vibrate method that I wrote. And leave Java for more complex syntax like building interfaces, overriding methods, etc.

[plusplus]

yes that worked thx, now I have a other mind bugle. I created a very simple app with custom draw, set all permissions. Samsung Galaxy works just fine but on a phone it crashes (very fast), do you have any idea why. its not even logging something.

I am suspecting that the so file is not accepted, shouldn't the generated so be transparent?

[felipemdc]

Samsung Galaxy works just fine but on a phone it crashes (very fast), do you have any idea why. its not even logging something.

Could you rephrase that? I cannot understand this sentense. You are saying that it doesn't work on Samsung Galaxy or that it works there and not in another phone? And please be more specific about the model, I know "Samsung Galaxy S", Samsung Galaxy Y", "Samsung Galaxy 5", "Samsung Galaxy Pro", etc, etc, which are all very different phones. There is no such thing as only "Samsung Galaxy" without a 3rd identifier.

How are you installing the APK? Installing the APK goes fine?

Here I tested on a lot of phones and all worked: HTC Wildfire, Sony Erricson Xperia Mini, Nexus One, Alcatel