mirror of
https://gitlab.com/eql/lqml.git
synced 2025-12-05 18:20:33 -08:00
review of example '.android-ssl-test'
This commit is contained in:
parent
e976c75b0e
commit
3bc114a244
3 changed files with 13 additions and 8 deletions
|
|
@ -1,10 +1,5 @@
|
|||
(in-package :app)
|
||||
|
||||
#+android
|
||||
(when (probe-file "libssl.so")
|
||||
(ffi:load-foreign-library "libcrypto.so")
|
||||
(ffi:load-foreign-library "libssl.so"))
|
||||
|
||||
(defun ini ()
|
||||
(q> |text| ui:*label*
|
||||
(first (last (multiple-value-list (drakma:http-request "https://duckduckgo.com"))))))
|
||||
|
|
|
|||
|
|
@ -2,13 +2,22 @@ import QtQuick 2.15
|
|||
import QtQuick.Controls 2.15
|
||||
|
||||
Item {
|
||||
id: main
|
||||
width: 300
|
||||
height: 500
|
||||
|
||||
Image {
|
||||
anchors.centerIn: parent
|
||||
anchors.horizontalCenterOffset: 5
|
||||
source: "https://common-lisp.net/static/imgs/lisplogo_flag2_128.png"
|
||||
}
|
||||
|
||||
Label {
|
||||
objectName: "label"
|
||||
anchors.bottom: main.bottom
|
||||
anchors.bottomMargin: 20
|
||||
anchors.horizontalCenter: main.horizontalCenter
|
||||
text: "downloading..."
|
||||
anchors.centerIn: parent
|
||||
font.pixelSize: 24
|
||||
font.bold: true
|
||||
}
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
This is here for testing SSL on android.
|
||||
This is here for testing SSL on android, both on **Lisp** and on **Qt** side.
|
||||
|
||||
After doing `make apk`, please ensure files
|
||||
```
|
||||
|
|
@ -16,4 +16,5 @@ before installing this one.
|
|||
|
||||
When running the app, it should first display "downloading...", and after a few
|
||||
seconds (if the android device is connected to the internet), it should display
|
||||
"OK".
|
||||
"OK" (Lisp side of SSL); it should also display a Lisp logo, downloaded through
|
||||
https (Qt side of SSL).
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue