Using LazToApk

[Thaddy]

Same thing as before. GPS for compiler/platform/binary paths not invented yet. Plz check location from maps, i.e. check what you have done fits.

[DelphiFreak]

Open laztoapk in lazarus IDE and Debug! DetectInstalledNDKPlatforms

[DelphiFreak]

Did you debug and find out what's wrong? If so please let me know.

[typo]

Not yet. I made the big mistake of uninstalling LazToApk and am still reinstalling it.

I got the project from SourceForge, but it seems to be not up to date.

[DelphiFreak]

Hello typo,

the sources at sourceforge.net are the latest sources. Why do you think it's not the correct source?

[typo]

I see at least 1 error on DetectInstalledNDKPlatforms: Pos never returns -1. Maybe it should be 0.

Code: [Select]

function TfrmApkManager.DetectInstalledNDKPlatforms: TStringList;
var
i:integer;
_pos:integer;
_temp:string;
_tempList:TStringList;
begin
  result:=TStringList.create;
  result:=FindAllFiles(FAndroidNDK,'libc.so');
  if result.count=0 then begin
    MessageDlg(format('No files with name <libc.so> found in NDK-path <%s>. Did you install the android NDK and setup the correct NDK-Path?',[FAndroidNDK]),mtWarning, [mbOK], 0);
    exit;
  end;
  _tempList:=TStringList.create;
  try
    _tempList.Duplicates:=dupIgnore;
    _tempList.sorted:=true;
    for i:=0 to result.count-1 do begin
      _pos:=pos('platforms\android-',result[i]);
      if _pos=-1 then continue;         //<<<<<<<<<<<
      _temp:=result[i];
      delete(_temp,1,_pos+17);
      _pos:=pos(PathDelim,_temp);
      _temp:=copy(_temp,1,_pos-1);
      _tempList.add(_temp);
    end;
    result.assign(_tempList);
  finally
    _tempList.free;
  end;
end;           

I think the error I have found is related to this, the folders shown in the list is all but from "platforms\android" folder, instead of the contrary. Maybe the only dirs which should be in this list are "platforms\android" and their subdirs.

[DelphiFreak]

You are right Should be =0.
I will check if this error might be around somewhere else in the code and the update at sourceforge.
 

[typo]

Also, maybe this function can be simplified, at least because FindAllFiles has an overloaded one on which you can set a StringList as a parameter, avoiding memory leak.

Code: [Select]

procedure FindAllFiles(AList: TStrings; const SearchPath: String;
  SearchMask: String = ''; SearchSubDirs: Boolean = True; DirAttr: Word = faDirectory); overload;       

So you could write:

Code: [Select]

FindAllFiles(Result, ...

You should not create Result StringList because it is already created in FindAllFiles function.

Another issue I see is in the line:

Code: [Select]

delete(_temp,1,_pos+17);
Of course you refer to the string 'platforms\android-', which has in fact 18 chars. Use Length('platforms\android-').

[DelphiFreak]

Ok, fixed and checked in the sources to sourceforge.net
But this was probably not the troublemaker for your problem. So if you could debug and find out I would be very glad.

Need to sleep now. Will be back tomorrow.

[typo]

Thanks for your work.

[typo]

Now I can debug the project, but my error has desapeared because you have changed it a bit.

[DelphiFreak]

Hello,

sorry I don't understand.
The fix about _pos=-1 did solve your problem?

Can you build now an app?

Regards,
Sam

[typo]

No.

On Step 4 an error occurs. The file does not exist.

[DelphiFreak]

But you wrote that the error has disappeared.
So you have now another problem ?

If so, then please give some information about the problem or debug it yourself.

[DelphiFreak]

Ok, please close lazarus and laztoapk.
Then delete the file laztoapk.ini.
Start laztoapk again.

It will try to rebuild lazarus.

Hope this helps.