Jump to content

xorpas

Members
  • Content Count

    90
  • Joined

  • Last visited

Everything posted by xorpas

  1. xorpas

    Problem in edit1 android Delphi 12

    I have a problem in Delphi 12 Version 29.0.51961.7529 in the edit , I can write text in it from windows but not in android
  2. xorpas

    Problem in edit1 android Delphi 12

    Yes the problem is when I add the rtlfixer , is their a similar way to resolve it This is best unit hier FMXPersianPatch but not work with latest delphi can you see it maybe you can take it support latest delphi
  3. xorpas

    Problem in edit1 android Delphi 12

    Yes it work perfetcly I think when I install rtlfixer maybe because delphi not supported rtl
  4. I use alcinoe player work fine on emulator but in real device only sound and no image with the strange text in the corner How to solve this?
  5. xorpas

    strange text in the corner videoplayer

    up
  6. Hello friends, please help. I am using Alcinoe's video player on delphi 12 it compile with no error but when app is run it show error access violation at address 04DB31CD ACCESSING ADRESS 00000000 I added all the exoplayer .jar files.
  7. thank's for replay mr remy when the app is run before the main form showing the error happen this is my project with all jar lib mybe the problem is in the manifest 4.rar
  8. xorpas

    DRM video player

    compile in delphi 12 but not work why?
  9. I use exoplayer jar to play mp4 using alcino when run apk I get this error Project1.apk raised exception class EJNI with message 'Java type JExoPlayer_Builder could not be found'. i add 4 jar files exoplayer-core.jar, exoplayer-dash.jar, exoplayer-hls.jar , exoplayer-ui.jar , how reolve it ?
  10. delphi 12 android 32 componnent hier https://github.com/MagicFoundation/Alcinoe and my project project.rar
  11. 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
  12. xorpas

    Rest debugger run visual keyboard when click on edit

    Does my PC have a virus?
  13. xorpas

    create a round 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;
  14. xorpas

    create a round picture

    ops
  15. hey i have an issue with firebase send verification code format('https://www.googleapis.com/identitytoolkit/v3/relyingparty/sendVerificationCode?key=%s',[FIREBASE_API_KEY]) the respense is { "error": { "code": 400, "message": "MISSING_CLIENT_IDENTIFIER", "errors": [ { "message": "MISSING_CLIENT_IDENTIFIER", "domain": "global", "reason": "invalid" } ] } } i can not found CLIENT_IDENTIFIER in firebase project setting
  16. xorpas

    issue with firebase send verification code

    Httpclient. Get(format('https://www.googleapis.com/identitytoolkit/v3/relyingparty/sendVerificationCode?key=%s',[FIREBASE_API_KEY])). Contenentasstring
  17. 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" } ] } }
  18. I can't found an example that can test it. I don't need to use sdk only tnethttpclient. Have you a basic example?
  19. xorpas

    issue with firebase send verification code

    I use Tnethttpclient for send verification code
  20. 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
  21. Best regards it work now thank you for reply mr andy
  22. xorpas

    issue with firebase send verification code

    any help please
×