![](https://en.delphipraxis.net/uploads/set_resources_2/84c1e40ea0e759e3f1505eb1788ddf3c_pattern.png)
![](https://en.delphipraxis.net/uploads/monthly_2022_10/L_member_10265.png)
Linuxuser1234
-
Content Count
65 -
Joined
-
Last visited
Posts posted by Linuxuser1234
-
-
-
procedure TForm7.KnobClick(Sender: TObject); begin //Knob property RotationAngle: Single read GetRotationAngle write SetRotationAngle; end;
@Rollo62 this causes Expected END but received Property
-
-
also this MediaPlayer1.FileName := 'https://radio.weatherusa.net/NWR/KEC61_2.mp3.myext'; shows unsupported media type
-
When i use this code
MediaPlayer1.FileName := 'https://radio.weatherusa.net/NWR/KEC61_2.mp3'; MediaPlayer1.Play;
my app wont close after i close out of my weather radio popup window what is causing this issue
-
-
-
I would like my sphere to act as a canvas so i can draw lines images etc over a bitmap image of the earth how can i accomplish this
-
and yes i have check the stackoverflow answers from the link that you sent and i still get the same result MediaPlayer1.FileName := 'https://radio.weatherusa.net/NWR/KEC61_2.mp3';
-
@Remy Lebeau i dont hear any audio and after i close the popup window i cant close out of my main application like i have to go to task manager and close it from there but the main app doesn't freeze or anything i can still open my popup windows
procedure TForm7.Button1Click(Sender: TObject); //This Button Connects to weatherusa radio server and change //a few labels caption begin Label2.Text := '162.550 MHz'; Label6.Text := 'Status: Connected'; Label5.Text := 'KEC61'; //default Wx radio Station Label7.Text := 'AL'; //default state Label8.Text := 'Mobile'; Button1.Text := 'Click to disconnect from weatherusa.net'; MediaPlayer1.FileName := 'https://radio.weatherusa.net/NWR/KEC61_2.mp3'; MediaPlayer1.Play;
-
@Remy Lebeau i wrote this idhttp how would i use this procedure when i click on a button i have tried override but that wouldn't work
procedure TForm7.IdHTTP1Authorization(Sender: TObject; Authentication: TIdAuthentication; var Handled: Boolean); var get_url: string; resp: TmemoryStream; begin // connect to weatherusa get_url := 'https://radio.weatherusa.net/NWR/KEC61_2.mp3'; resp := TMemoryStream.Create; idHTTP1.Get(get_url+'v', resp); end;
-
in delphi i made a popup window that looks like a weather radio and i would like to stream audio from a website url using idHTTP and then streaming the audio from that website using Tmediaplayer component
i cant find any working examples anyone have any suggestions on how i can connect to a website and stream audio from a mediaplayer on button click
-
-
-
-
-
@vfbb ok so i added that to my dbr project file so in my unit7 file how would i apply that font to TLabel2
-
@Sherlock i commeted each line to see what throws the error all of these lines shows the error under the 2nd then begin
//L:=TLine(TLayout(F).Children[0]); //R:=TRoundRect(L.Children[0]); //P:=TLayout(F).AbsoluteToLocal(T.Location); //P.X:=R.Position.X; //P.Y:=P.Y - 10 - R.Height * 0.5; //R.Position.Point:=P;
-
here is the full unit file code
unit Unit7; interface uses System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.Objects, FMX.Controls.Presentation, FMX.StdCtrls, FMX.ListBox, FMX.Effects, FMX.Edit, FMX.ComboEdit, FMX.Media, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP, IdMessage, IdAttachment, IdAuthentication; type TForm7 = class(TForm) ArcDial1: TArcDial; Rectangle1: TRectangle; Label1: TLabel; Label2: TLabel; Label4: TLabel; Label5: TLabel; ShadowEffect1: TShadowEffect; ComboEdit1: TComboEdit; Image1: TImage; Button1: TButton; Image2: TImage; Label3: TLabel; Button2: TButton; Image3: TImage; Image4: TImage; RoundRect1: TRoundRect; Line1: TLine; Rectangle2: TRectangle; Rectangle3: TRectangle; GlowEffect1: TGlowEffect; Label6: TLabel; MediaPlayer1: TMediaPlayer; IdHTTP1: TIdHTTP; Label7: TLabel; Label8: TLabel; RoundRect2: TRoundRect; Label9: TLabel; procedure Button1Click(Sender: TObject); procedure IdHTTP1Authorization(Sender: TObject; Authentication: TIdAuthentication; var Handled: Boolean); private { Private declarations } public { Public declarations } end; var Form7: TForm7; implementation {$R *.fmx} procedure TForm7.Button1Click(Sender: TObject); //This Button Connects to weatherusa radio server and change //a few labels caption begin Label2.Text := '162.550 MHz'; Label6.Text := 'Status: Connected'; Label5.Text := 'KEC61'; //default Wx radio Station Label7.Text := 'AL'; //default state Label8.Text := 'Mobile'; Button1.Text := 'Click to disconnect from weatherusa.net'; end; procedure TForm7.IdHTTP1Authorization(Sender: TObject; Authentication: TIdAuthentication; var Handled: Boolean); begin // connect to weatherusa end; initialization TSkTypefaceManager.RegisterTypeface('C:\Boltgui\Popups\Font\DSEG14ClassicMini-Bold.ttf'); end.
-
@vfbb i also get a undeclared identifier errors
initialization TSkTypefaceManager.RegisterTypeface('C:\Boltgui\Popups\Font\DSEG14ClassicMini-Bold.ttf'); end.
-
-
@vfbb with skia4delphi can i also use that library to make a text rendering engine where i want to have a 2d troundrect with a shadow on to my viewport 3d to display wind data/temperature data and have the text change color based on the temp or wind data is that possible with skia4delphi
-
-
How to rotate a RoundRect on click
in FMX
Posted · Edited by Linuxuser1234
@Rollo62 also how would i change a tlabel text based on what angle the knob is set to for example if the angle is at 15deg
the tlabel would display another text and i do know how to set the text just not sure how to set the text based off the knob angle