Search found 709 matches

by Lena
Tue Oct 06, 2020 2:36 am
Forum: Technical
Topic: [Android]BASS
Replies: 31
Views: 6067

Re: [Android]BASS

My host app: unit UnitMain; interface uses System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, System.Android.Service, FMX.Controls.Presentation, FMX.StdCtrls; type TForm1 = class(TForm) ButtonPlay: TButton; B...
by Lena
Mon Oct 05, 2020 11:26 pm
Forum: Technical
Topic: [Android]BASS
Replies: 31
Views: 6067

Re: [Android]BASS

Thank you. Are my first steps in creating a service correct? unit UnitSrvice; interface uses System.SysUtils, System.Classes, System.Android.Service, AndroidApi.JNI.GraphicsContentViewText, Androidapi.JNI.Os, bass; type TDM = class(TAndroidService) function AndroidServiceStartCommand(const Sender: T...
by Lena
Mon Oct 05, 2020 12:36 pm
Forum: Technical
Topic: [Android]BASS
Replies: 31
Views: 6067

Re: [Android]BASS

Thank You! Is it my steps correctly? 1. I create a service in it code with the launch of audio. 2. And in the application, send broadcast messages about the start or stop of playback. I have never used broadcast. Do I need to use Indy to send broadcast message? Can you show me an example of how to s...
by Lena
Mon Oct 05, 2020 4:31 am
Forum: Technical
Topic: [Android]BASS
Replies: 31
Views: 6067

Re: [Android]BASS

If I minimize my application and lock the screen on the phone, then after a couple of minutes the player stops playing. How do I make the player work in the background?
by Lena
Fri Oct 02, 2020 1:13 am
Forum: Technical
Topic: [Android]BASS
Replies: 31
Views: 6067

Re: [Android]BASS

I have uploaded new SO files. It's okay. I hear a sound. www.un4seen.com/stuff/bass-android-test.zip But I can't change the sound volume. :( smp: HSAMPLE; str: HSTREAM; implementation {$R *.fmx} procedure TForm1.Button1Click(Sender: TObject); Begin BASS_StreamFree(str); str := BASS_StreamCreateURL(P...
by Lena
Tue Sep 29, 2020 1:51 pm
Forum: Technical
Topic: [Android]BASS
Replies: 31
Views: 6067

Re: [Android]BASS

Steps: 1. Download ZIP file. 2. Open - P.R.Chernivtsi - .m3u with MCP player. Will you hear the music. In the MCP window title 91.199.194.34:8000. 3. Open - P.R.Chernivtsi - .m3u with Notepad. You will see http://91.199.194.34:8000. When I create a project for Windows+Bass, no problem. I hear music....
by Lena
Tue Sep 29, 2020 9:50 am
Forum: Technical
Topic: [Android]BASS
Replies: 31
Views: 6067

Re: [Android]BASS

str := BASS_StreamCreateURL(PChar('http://91.199.194.34:8000'), 0, BASS_UNICODE, nil, nil); ShowMessage(IntToStr(BASS_ErrorGetCode)); //ErrorCode=41 str := BASS_StreamCreateURL(Pchar('http://91.199.194.34:8000'), 0, 0, nil, nil); ShowMessage(IntToStr(BASS_ErrorGetCode)); //ErrorCode=20 No sound on ...
by Lena
Tue Sep 29, 2020 8:38 am
Forum: Technical
Topic: [Android]BASS
Replies: 31
Views: 6067

Re: [Android]BASS

Thank you. I tried your url in my test program and it plays good. In Windows platform no problem. On Android problem. //Windows void __fastcall TForm1::Button1Click(TObject *Sender) { BASS_Init(-1, 44100, BASS_DEVICE_3D, 0, NULL); str=BASS_StreamCreateURL(PAnsiChar("http://91.199.194.34:8000"), 0, 0...
by Lena
Tue Sep 29, 2020 5:05 am
Forum: Website
Topic: Thank You for the new forum!
Replies: 0
Views: 1417

Thank You for the new forum!

Thank You for the new forum!
by Lena
Tue Sep 29, 2020 3:00 am
Forum: Technical
Topic: [Android]BASS
Replies: 31
Views: 6067

Re: [Android]BASS

//ErrorCode=41 str := BASS_StreamCreateURL(M.AsAnsi('http://91.199.194.34:8000').ToPointer, 0, 0, nil, nil); //ErrorCode=20 str := BASS_StreamCreateURL(('http://91.199.194.34:8000'), 0, 0, nil, nil); //ErrorCode=20 str := BASS_StreamCreateURL(Pchar('http://91.199.194.34:8000'), 0, 0, nil, nil); //E...
by Lena
Tue Sep 29, 2020 1:42 am
Forum: Technical
Topic: [Android]BASS
Replies: 31
Views: 6067

Re: [Android]BASS

//str := BASS_StreamCreateURL(M.AsAnsi('http://91.199.194.34:8000').ToPointer, 0, 0, nil, nil); //str := BASS_StreamCreateURL(('http://91.199.194.34:8000'), 0, 0, nil, nil); //str := BASS_StreamCreateURL(Pchar('http://91.199.194.34:8000'), 0, 0, nil, nil); str := BASS_StreamCreateURL(PChar('http://...
by Lena
Tue Sep 29, 2020 12:56 am
Forum: Technical
Topic: [Android]BASS
Replies: 31
Views: 6067

[Android]BASS

Creating an Android application using BASS. 1. Download the archives for Android and Windows from the BASS site. 2. a) For Delphi 10.3.3, open the bass.pas file from the Windows archive. Instead of AnsiChar we write Byte, place PAnsiChar we write MarshaledAString. b) For C ++ Builder 10.3.3, open b...
by Lena
Tue Sep 01, 2020 10:26 pm
Forum: Technical
Topic: TMapView std::vector<TMapMarker *>
Replies: 3
Views: 1785

Re: TMapView std::vector<TMapMarker *>

Thank you very much for the detailed information!
by Lena
Tue Sep 01, 2020 10:25 pm
Forum: Technical
Topic: TIdHTTP and iphone
Replies: 5
Views: 1978

Re: TIdHTTP and iphone

Thank you very much!
by Lena
Tue Sep 01, 2020 12:58 am
Forum: Technical
Topic: TMapView std::vector<TMapMarker *>
Replies: 3
Views: 1785

Re: TMapView std::vector<TMapMarker *>

It seems to work:

Code: Select all

//Remove all markers from the map
 TMapMarker * Marker;
 int vector_size = FMarkers.size();
    for (int i = 0; i < vector_size; i++)
    {
     Marker = FMarkers[i];
     Marker->Remove();
    }
 FMarkers.clear()