[chargeable] MSMySQL - Yet another MySQL-Library (but a FAST one :-))

MarcoRome said:

You can...
But already if you put your password / user / etc. in Process_Global and compile in obfuscated mode also if you have ( reverse ) source in java you have this result:

B4X:

public class main
  extends Activity
  implements B4AActivity
{
  public static boolean _v7 = false;
  public static String _vv2;
  public static String _vv3;
  public static String _vv4;
  public static String _vv5;
  static boolean afterFirstLayout = false;
  public static final boolean fullScreen = false;
  public static final boolean includeTitle = true;
  static boolean isFirst = true;
  public static main mostCurrent;
  public static WeakReference<Activity> previousOne;
  public static BA processBA;
  private static boolean processGlobalsRun = false;
  public Common __c = null;
  ActivityWrapper _activity;
  public ButtonWrapper _button1 = null;
  public Map _v0 = null;
  public UltimateListViewWrapper _v6 = null;
  public MySQL _vv1 = null;
  BA activityBA;
  BALayout layout;
  ArrayList<B4AMenuItem> menuItems;
  private Boolean onKeySubExist = null;
  private Boolean onKeyUpSubExist = null;

  static
  {
    _vv2 = "";
    _vv5 = "";
    _vv4 = "";
    _vv3 = "";
  }

  public static String _activity_create(boolean paramBoolean)
    throws Exception
  {
    mostCurrent._activity.LoadLayout("Main", mostCurrent.activityBA);
    _v5();
    if (paramBoolean)
    {
      mostCurrent._v6.Initialize(mostCurrent.activityBA, (byte)0, 0, "", "ULV");
      UltimateListViewWrapper localUltimateListViewWrapper1 = mostCurrent._v6;
      BA localBA = mostCurrent.activityBA;
      UltimateListViewWrapper localUltimateListViewWrapper2 = mostCurrent._v6;
      localUltimateListViewWrapper1.SetStyle(localBA, (byte)3);
      _v7 = true;
      mostCurrent._v0.Initialize();
    }
    mostCurrent._vv1.Initialize(processBA, "MySQL", _vv2, _vv3, _vv4, _vv5);
    return "";
  }
.....

Click to expand...

aidymp said:

so does it still stand that you shouldn't use this in released apps?

Click to expand...

aidymp said:

if so cant you encrypt the password or similar?

Click to expand...

aidymp said:

Hi MarcoRome,

So if I define the server, database, username and password in Process_Global and obfuscate the details are hidden if they decompile??

Thanks

Aidy

Click to expand...

I know nothing is impossible, but would they have to be very determined, or is it an easy task?

Click to expand...

would it be fair to say, that using a combination of this library and PHP - using two or more databases, one containing basic app details nothing confidential and one with customer details accessed through PHP be safer??

Click to expand...

aidymp said:

So using the PHP solution can people just look at your php file and get the database info anyway??

Click to expand...

aidymp said:

but would they have to be very determined, or is it an easy task?

Click to expand...

aidymp said:

would it be fair to say, that using a combination of this library and PHP - using two or more databases, one containing basic app details nothing confidential and one with customer details accessed through PHP be safer??

Click to expand...

DonManfred said:

No. php is much more save. @Erel RDC is, i personally think, the best solution but sadly i´m not allowed to run a rdc on our server. So i needed to find another solution. It started with using php and ended in coding the MySQL Libraries.

It depends on their professionalism i think. FOR ME it would be no problem.

probably, yes.

You also can consider to create the server part with b4j. No pw needed in your app. The b4j app is doing the query to the database and sending the results back to your app.

Click to expand...

didasoft de colombia said:

This library works for b4i

Click to expand...

aklisiewicz said:

OK, I have donated to this library already once but it was about 2 years ago.

Click to expand...

aklisiewicz said:

Do I need to pay everytime I download this LIB ?

Click to expand...

DonManfred said:

Really? Then you have paid for it two years before it was released.

DonManfred, Jan 22, 2015 <--- Releasedate of this Library


No. When you have registered you got an email from me with downloadlink. The link in this email is still available.

Click to expand...

aklisiewicz said:

OK, perhaps I have confused this LIB with another one. I have not used B4A for a while....
are there any example Apps that I can run to see your lib in action ?
Arthur

Click to expand...

aklisiewicz said:

are there any example Apps that I can run to see your lib in action ?

Click to expand...

Sub Globals
    'These global variables will be redeclared each time the activity is created.
    'These variables can only be accessed from this module.
  Dim db As MySQL
    Private lv1 As ListView
    Private lv2 As ListView
End Sub

Sub Activity_Create(FirstTime As Boolean)
    'Do not forget to load the layout file created with the visual designer. For example:
    Activity.LoadLayout("Main")
    '             Event  Database Host          Username   Password           Databasename
    'db.Initialize("sql","host.com","dbuser","dbpassword","database")
   
    ' Manfred
    db.Initialize("MySQL","host","user","pw","db")

End Sub
Sub Activity_Resume
    Log("Activity_Resume()")
    lv1.Clear
    lv1.AddSingleLine2("Categories","Categories")
    lv1.AddSingleLine2("Employees","Employees")
   
    'Dim batch As List   
    'batch.Initialize
    For i=1 To 10
        'batch.Add("INSERT INTO b4alog SET log_value='Test"&i&"', log_time="&DateTime.Now&";")
    Next   
    'db.ExecuteBatchASync(batch,"")
    'db.ExecuteASync("INSERT INTO b4alog SET log_value='only one query', log_time="&DateTime.Now&";")   
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub

Sub MySQL_ExecResult(meta As Map)
    Log(meta)   
End Sub
Sub MySQL_Status(Connected As Boolean, ReConnecting As Boolean, RetriesLeft As Int)
    Log($"MySQL_Status(${Connected},${ReConnecting},${RetriesLeft})"$)
End Sub

Sub MySQL_BatchResult(batch As Map)
    Log("MySQL_BatchResult()")
    Log("Time: "&batch.Get("ms")&"ms")
    Log("Size: "&batch.Get("size"))
    Dim res As List
    res.Initialize2(Regex.Split(",",batch.Get("results")))
    Log("Results: "&res.Size)
    For i=0 To res.Size-1
        Log(i&"="&res.Get(i))
    Next   

    ' (MyMap) {ms=316, size=10, results=(ArrayList) [1, 1, 1, 1, 1, 1]}
    Log(batch)   
End Sub
Sub MySQL_QueryResult2(data As List, meta As Map)
    'Dim m As Map = meta
    Log("MySQL_QueryResult2(Columns "&meta.get("ColumnCount") _
    &", Records "&meta.Get("RecordCount")&","&meta.Get("ms")&"ms)")
    Log("Records: "&data.Size)
    For i=0 To data.Size-1
        Log(data.Get(i))
    Next   
End Sub

Sub MySQL_QueryResult(data As List, meta As Map)
    'MySQL_QueryResult2((MyMap) {ColumnCount=3, RecordCount=5, ms=32})
    Log("MySQL_QueryResult(Columns "&meta.get("ColumnCount")&", Records " _
    &meta.Get("RecordCount")&","&meta.Get("ms")&"ms,"&meta.Get("TaskID"))
    ToastMessageShow("MySQL retrieved "&meta.Get("RecordCount")&" records in "&meta.Get("ms")&"ms",True)
    lv2.Clear
    For i=0 To data.Size-1
        If meta.Get("TaskID") = "Categories" Then
            Dim cur As Map = data.Get(i)
            Dim bmp As Bitmap
            Dim In1 As InputStream
          Dim buffer() As Byte           
            buffer = cur.Get("Picture")
            In1.InitializeFromBytesArray(buffer,0,buffer.Length)
            bmp.Initialize2(In1)           
            lv2.AddTwoLinesAndBitmap(cur.Get("Description"),cur.Get("CategoryName"),bmp)
            'Log("r:"&data.Get(i))
        Else If meta.Get("TaskID") = "Employees" Then
            Dim cur As Map = data.Get(i)
            Dim bmp As Bitmap
            Dim In1 As InputStream
          Dim buffer() As Byte           
            buffer = cur.Get("Photo")
            In1.InitializeFromBytesArray(buffer,0,buffer.Length)
            bmp.Initialize2(In1)           
            lv2.AddTwoLinesAndBitmap(cur.Get("FirstName")&" "&cur.Get("LastName"),cur.Get("Title"),bmp)
            'Log("r:"&data.Get(i))
        Else
            'Log("r:"&data.Get(i))
        End If
    Next   
End Sub
Sub MySQL_ListTables(tables As List, ms As Long)
    Log("MySQL_ListTables("&ms&"ms)")
    For i=0 To tables.Size-1
        'Log("Table "&tables.Get(i))
    Next
End Sub

Sub lv1_ItemClick (Position As Int, Value As Object)
    Dim t As String = Value
    db.QueryASync("select * from "&t&";",t)
End Sub