

xorpas
Members-
Content Count
79 -
Joined
-
Last visited
Community Reputation
4 NeutralRecent Profile Visitors
The recent visitors block is disabled and is not being shown to other users.
-
Does my PC have a virus?
-
I have a problem ,when i click on the edit of rest debugger the keyboard is showing ,the same as when create app in delphi with edit the controltype is styled by default , when clicked on the edit the keyboard runing but when change the default to (platform) the edit not run the virtual keyboard , i think that the problem is in the unit fmx.control for that i change the default controltype for show platform as default that can appears instead of styled but also not work picture
-
how can create a round picture from bitmap i check this code from chatgpt but not work it save the image as it procedure SaveRoundedImage(SourceImage: TBitmap; SavePath: string); var RoundedImage: TBitmap; RoundedRect: TRectF; begin // Create a new bitmap for the rounded image RoundedImage := TBitmap.Create; try RoundedImage.SetSize(round(SourceImage.Width), round(SourceImage.Height)); // Clear the bitmap (transparent background) RoundedImage.Clear(TAlphaColors.Null); // Create a rounded rectangle RoundedRect := TRectF.Create(0, 0, RoundedImage.Width, RoundedImage.Height); RoundedRect.Inflate(-0, -0); // Draw the rounded image onto the new bitmap RoundedImage.Canvas.BeginScene; try RoundedImage.Canvas.Fill.Color := TAlphaColors.White; // Fill with white background RoundedImage.Canvas.DrawRect(TRectF.Create(10, 10, 200, 270), 30, 60, AllCorners, 100, TCornerType.ctRound); RoundedImage.Canvas.DrawBitmap(SourceImage, TRectF.Create(0, 0, SourceImage.Width, SourceImage.Height), TRectF.Create(0, 0, RoundedImage.Width, RoundedImage.Height), 1.0, True); finally RoundedImage.Canvas.EndScene; end; // Save the rounded image to a file RoundedImage.SaveToFile(SavePath); finally RoundedImage.Free; end; end;
-
Httpclient. Get(format('https://www.googleapis.com/identitytoolkit/v3/relyingparty/sendVerificationCode?key=%s',[FIREBASE_API_KEY])). Contenentasstring
-
issue with phone send verification code to firebase
xorpas replied to xorpas's topic in Databases
I can't found an example that can test it. I don't need to use sdk only tnethttpclient. Have you a basic example? -
issue with phone send verification code to firebase
xorpas replied to xorpas's topic in Databases
Thank you Mr Remy I check it soon -
I have an issue with firebase send phone verification code format('https://www.googleapis.com/identitytoolkit/v3/relyingparty/sendVerificationCode?key=%s',[FIREBASE_API_KEY]) i think it need a captcha or a token get this error { "error": { "code": 400, "message": "MISSING_REQ_TYPE", "errors": [ { "message": "MISSING_REQ_TYPE", "domain": "global", "reason": "invalid" } ] } }
-
I use Tnethttpclient for send verification code
-
Best regards it work now thank you for reply mr andy
-
i have an issu with FireDac it store Arabic characters as question marks (???) code create database at runtime is var SQL: string; FConnection: TFDConnection; begin FConnection := TFDConnection.Create(nil); FConnection.DriverName := 'SQLite'; FConnection.Params.Add('OpenMode=CreateUTF8'); FConnection.Params.Add('CharacterSet=UTF8'); FConnection.Params.Database := DB; FConnection.Open; SQL := 'CREATE TABLE Contact (ID INTEGER PRIMARY KEY AUTOINCREMENT, Name TEXT, Phone TEXT, Img BLOB)'; FConnection.Open; FConnection.ExecSQL(SQL); FConnection.Close; and insert is Connection := TFDConnection.Create(nil); Connection.DriverName := 'SQLite'; Connection.Params.Database := DB; Connection.Params.Add('OpenMode=CreateUTF8'); Connection.Params.Add('CharacterSet=UTF8'); Connection.Open; Query := TFDQuery.Create(nil); Query.Connection := Connection; begin Query.SQL.Text := 'INSERT INTO Contact (Name, Phone, Img) VALUES (:Name, :Phone, :Img)'; if Param[0] = '' then exit; if Param[1] = '' then exit; begin Query.ParamByName('Name').AsString := (Param[0]); Query.ParamByName('Phone').AsString := Param[1]; stream := TMemoryStream.Create; if Param[2] = 'nil' then begin end else begin stream.LoadFromFile(Param[2]); Query.ParamByName('Img').LoadFromStream(stream, ftBlob); end; Query.ExecSQL; stream.Free; end; end; help to solve this issue
-
any help please
-
I resolve it by add code international at first of phone number but still not work get this error { "error": { "code": 400, "message": "MISSING_REQ_TYPE", "errors": [ { "message": "MISSING_REQ_TYPE", "domain": "global", "reason": "invalid" } ] } }