Michael Collier

29 minutes ago, Lars Fosdal said:

Which version of Delphi?

32 minutes ago, Lars Fosdal said:

Any IDE plugins or designtime data-aware components?

No IDE Plugins & just TForm and TMemo

Slightly different message this time..

[20F73ABE]{designide280.bpl} DeskForm.UnlockIDEDrawing (Line 289, "DeskForm.pas" + 9) + $9
[216A947A]{WelcomePageIDE280.bpl} Welcomepage.Listview.TWPPluginListView.DoOnItemClick + $3A
[50CCEB49]{vcl280.bpl  } Vcl.Controls.TWinControl.WMChar (Line 11737, "Vcl.Controls.pas" + 7) + $6
[50CC7CCA]{vcl280.bpl  } Vcl.Controls.TControl.WndProc (Line 7544, "Vcl.Controls.pas" + 91) + $6
[5006076C]{rtl280.bpl  } System.TMonitor.Destroy (Line 19558, "System.pas" + 0) + $0
[50064774]{rtl280.bpl  } System.@FinalizeRecord (Line 32815, "System.pas" + 76) + $2
[50DCDE51]{vcl280.bpl  } Vcl.Themes.TStyleManager.GetStyle (Line 5789, "Vcl.Themes.pas" + 7) + $D
[50061544]{rtl280.bpl  } System.@TryFinallyExit (Line 23404, "System.pas" + 8) + $0
[50DCDF3F]{vcl280.bpl  } Vcl.Themes.TStyleManager.GetStyle (Line 5800, "Vcl.Themes.pas" + 18) + $1E
[50CC97AE]{vcl280.bpl  } Vcl.Controls.TControl.GetStyleName (Line 8578, "Vcl.Controls.pas" + 5) + $7
[50EF0AA3]{vcl280.bpl  } Vcl.Styles.TCustomStyle.SourceLoaded (Line 3315, "Vcl.Styles.pas" + 1) + $13
[500602C7]{rtl280.bpl  } System.TObject.Dispatch (Line 18874, "System.pas" + 11) + $0
[50DD1DB9]{vcl280.bpl  } Vcl.Themes.TStyleHook.WndProc (Line 7684, "Vcl.Themes.pas" + 38) + $6
[50DD1F90]{vcl280.bpl  } Vcl.Themes.TMouseTrackControlStyleHook.WndProc (Line 7784, "Vcl.Themes.pas" + 0) + $0
[50E13C70]{vcl280.bpl  } Vcl.Forms.TScrollingStyleHook.WndProc (Line 14791, "Vcl.Forms.pas" + 0) + $0
[50DD15DE]{vcl280.bpl  } Vcl.Themes.TStyleHook.HandleMessage (Line 7389, "Vcl.Themes.pas" + 20) + $6
[50EF128E]{vcl280.bpl  } Vcl.Styles.TStyleEngine.HandleMessage (Line 3603, "Vcl.Styles.pas" + 22) + $B
[50DCE070]{vcl280.bpl  } Vcl.Themes.TStyleManager.HandleMessage (Line 5858, "Vcl.Themes.pas" + 11) + $11
[50CCAE2F]{vcl280.bpl  } Vcl.Controls.TWinControl.DoHandleStyleMessage (Line 9408, "Vcl.Controls.pas" + 0) + $F
[50CCCDBD]{vcl280.bpl  } Vcl.Controls.TWinControl.WndProc (Line 10579, "Vcl.Controls.pas" + 170) + $6
[017F3247]{vclwinx280.bpl} Vcl.ControlList.TCustomControlList.WndProc (Line 1392, "Vcl.ControlList.pas" + 18) + $4
[50CCC338]{vcl280.bpl  } Vcl.Controls.TWinControl.MainWndProc (Line 10267, "Vcl.Controls.pas" + 3) + $6
[50174200]{rtl280.bpl  } System.Classes.StdWndProc (Line 18318, "System.Classes.pas" + 8) + $0
[50E0D68F]{vcl280.bpl  } Vcl.Forms.TApplication.ProcessMessage (Line 11317, "Vcl.Forms.pas" + 23) + $1
[50E0D6D2]{vcl280.bpl  } Vcl.Forms.TApplication.HandleMessage (Line 11347, "Vcl.Forms.pas" + 1) + $4
[50E0DA11]{vcl280.bpl  } Vcl.Forms.TApplication.Run (Line 11486, "Vcl.Forms.pas" + 27) + $3
[004F6F82]{bds.exe     } bds.bds (Line 227, "" + 16) + $2

Thanks Dave, I was thinking of port forwarding, great I'll give it a go..

I've been given an IPhone7 to evaluate RAD Studio 11 with (I'm developing on Windows64 machine)..

1) PAServer is required, but I can't install that on the IPhone can I - it has to go onto a MAC computer - correct (I just want to be sure)?

2) I have a MacBook Air available, but it's not here at the moment, but I can have PAServer installed on it and connect remotely- correct?

Sorry for asking what might be obvious, wiki still down

https://docwiki.embarcadero.com/RADStudio/Sydney/en/PAServer,_the_Platform_Assistant_Server_Application

Sorry! This site is experiencing technical difficulties.
Try waiting a few minutes and reloading.

(Cannot access the database)

Thanks, 

Mike

Hello, I get an Access Violation when opening my Project Group from Welcome Page, I believe I hit Return Key on my project group (rather than mouse click, but not sure). I can still carry on compiling etc.

[216A947A]{WelcomePageIDE280.bpl} Welcomepage.Listview.TWPPluginListView.DoOnItemClick + $3A
[50CCEB49]{vcl280.bpl  } Vcl.Controls.TWinControl.WMChar (Line 11737, "Vcl.Controls.pas" + 7) + $6
[50CC7CCA]{vcl280.bpl  } Vcl.Controls.TControl.WndProc (Line 7544, "Vcl.Controls.pas" + 91) + $6
[5006076C]{rtl280.bpl  } System.TMonitor.Destroy (Line 19558, "System.pas" + 0) + $0
[50064774]{rtl280.bpl  } System.@FinalizeRecord (Line 32815, "System.pas" + 76) + $2
[50DCDE51]{vcl280.bpl  } Vcl.Themes.TStyleManager.GetStyle (Line 5789, "Vcl.Themes.pas" + 7) + $D
[50061544]{rtl280.bpl  } System.@TryFinallyExit (Line 23404, "System.pas" + 8) + $0
[50DCDF3F]{vcl280.bpl  } Vcl.Themes.TStyleManager.GetStyle (Line 5800, "Vcl.Themes.pas" + 18) + $1E
[50CC97AE]{vcl280.bpl  } Vcl.Controls.TControl.GetStyleName (Line 8578, "Vcl.Controls.pas" + 5) + $7
[50EF0AA3]{vcl280.bpl  } Vcl.Styles.TCustomStyle.SourceLoaded (Line 3315, "Vcl.Styles.pas" + 1) + $13
[500602C7]{rtl280.bpl  } System.TObject.Dispatch (Line 18874, "System.pas" + 11) + $0
[50DD1DB9]{vcl280.bpl  } Vcl.Themes.TStyleHook.WndProc (Line 7684, "Vcl.Themes.pas" + 38) + $6
[50DD1F90]{vcl280.bpl  } Vcl.Themes.TMouseTrackControlStyleHook.WndProc (Line 7784, "Vcl.Themes.pas" + 0) + $0
[50E13C70]{vcl280.bpl  } Vcl.Forms.TScrollingStyleHook.WndProc (Line 14791, "Vcl.Forms.pas" + 0) + $0
[50DD15DE]{vcl280.bpl  } Vcl.Themes.TStyleHook.HandleMessage (Line 7389, "Vcl.Themes.pas" + 20) + $6
[50EF128E]{vcl280.bpl  } Vcl.Styles.TStyleEngine.HandleMessage (Line 3603, "Vcl.Styles.pas" + 22) + $B
[50DCE070]{vcl280.bpl  } Vcl.Themes.TStyleManager.HandleMessage (Line 5858, "Vcl.Themes.pas" + 11) + $11
[50CCAE2F]{vcl280.bpl  } Vcl.Controls.TWinControl.DoHandleStyleMessage (Line 9408, "Vcl.Controls.pas" + 0) + $F
[50CCCDBD]{vcl280.bpl  } Vcl.Controls.TWinControl.WndProc (Line 10579, "Vcl.Controls.pas" + 170) + $6
[00B23247]{vclwinx280.bpl} Vcl.ControlList.TCustomControlList.WndProc (Line 1392, "Vcl.ControlList.pas" + 18) + $4
[50CCC338]{vcl280.bpl  } Vcl.Controls.TWinControl.MainWndProc (Line 10267, "Vcl.Controls.pas" + 3) + $6
[50174200]{rtl280.bpl  } System.Classes.StdWndProc (Line 18318, "System.Classes.pas" + 8) + $0
[50E0D68F]{vcl280.bpl  } Vcl.Forms.TApplication.ProcessMessage (Line 11317, "Vcl.Forms.pas" + 23) + $1
[50E0D6D2]{vcl280.bpl  } Vcl.Forms.TApplication.HandleMessage (Line 11347, "Vcl.Forms.pas" + 1) + $4
[50E0DA11]{vcl280.bpl  } Vcl.Forms.TApplication.Run (Line 11486, "Vcl.Forms.pas" + 27) + $3
[004F6F82]{bds.exe     } bds.bds (Line 227, "" + 16) + $2

Thanks Dave,

Looking at the SO thread it mentions overriding onPermissionRequest (I guess in Android Studio) but I'm not sure what Delphi 11 equivalent is?

I downloaded the WebBrowserFileChooser project, I'm working my way through the code, looking at TWebChromeClientManager etc, is this related to working with onPermissionRequest ?

From my own experiments I have figured out that the audio is giving me the problem, (I can get video working now 🙂 ). I found others with same problem and more references to onPermissionRequest .

I have uploaded a simple HTML test page for opening a camera & microphone and reporting any errors in a textbox.

https://iotleaf.co.uk/test/browser/mic/

If anyone tries opening the test page with their own installation of Embarcadero WebBrowser demo..

C:\Users\Public\Documents\Embarcadero\Studio\22.0\Samples\Object Pascal\Mobile Snippets\WebBrowser

They will see the problem..

I modified my copy of the WebBrowser project AndroidManifest.template.xml file to include audio and camera, thus..

<%uses-permission%>
    <uses-permission android:name="android.permission.RECORD_AUDIO" />
    <uses-permission android:name="android.permission.CAMERA" />

So I'm getting closer, I think I just need to figure the onPermissionRequest part? 

Thanks Dave, I'll ask the shop for details when they open tomorrow . If it turns out to be the second edition should I forget it, or would that be ok as long as they have managed to install iOS 15 on it (I followed links you gave and found mention of the second edition having version 13 as its default but can support 15 https://en.wikipedia.org/wiki/IPhone_SE_(2nd_generation)#Software)?

Hello,

My local second hand phone shop has an IPhone SE for £99.00 GDB, and I was wondering if this would be a suitable platform for testing RAD Studio 11?

If not, no problem, I would be provided with a more expensive phone, but I'd like to save my colleague some money.

Buying cheap second hand Android phones/tablets has worked great for me in the past, but I'm not a user of Apple phones - so don't know what is appropriate.

(I just need a phone with ability to access camera and uploading images to server).

So is IPhone SE ok for testing RAD Studio 11, or can you suggest a minimum requirement?

Thanks,

Mike

Hello,

I have a javascript based webpage that allows me to open my USB camera, but when I open the webpage via Delphi RAD TWebBrowser component it doesn't work (testing on Android phone).

I wasn't surprised because when I hosted this webpage in an <iframe> as part of a simple web based application I needed to "turn on" certain security features i.e. allow="camera" etc

So I'm guessing I need to do similar for TWebBrowser but can't find how to do that? 

I tried modifying the security configuration for the app on my Android phone (allow camera access), but still didn't work.

Is there another setting - either a property/function of TWebBrowser - or maybe there are security settings I need to configure for the application from within RAD before compiling?

Thanks in advance,

Mike

Hello,

I'm evaluating latest version of Delphi RAD for possible iOS/android phone application.

I'd like to be able to use a phone camera (iOS and Android) to take photos (maybe 1 per second) and upload to my server.

So..

1). I found sample project "accessCameraApp"  - my first question is.. would this be the component to use for my photo capture? - or should I be using something different?

2) I found internet references to indy components (I have used this in the past), but they are not installed on my component palette (no problem though I guess I can install later), but I did find TNetHTTPClient and TNetHTTPRequest, I was wondering which I should use (indy/TNetHTTPClient or maybe synapse if it is available?) for posting photo frames to my server? (i.e. a php page that saves photo(s) in database BLOB field).

Any help to point me in the right direction would be great, it's more about the selection of components that I would need, I have plenty of Object Pascal experience, and I do a lot of camera work using javascript. It's just that the latest set of Delphi tools are new to me.

Thanks in advance,

Mike