xorpas

I use Tnethttpclient for send verification code

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

Best regards it work now thank you for reply mr andy

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" } ] } }

hello How can Getting dynamic content from a website through javascript using tnethttpclient from this link "http://ferkous.com/home/?q=node/5952" I need to get this audio hier "http://ferkous.com/home/sites/default/files/audio/monawa3at/tahsil-3ilm-char3i.mp3"?

Dear friends: How can write on image and save it the new in fmx android I can't found similar then txtout in fmx this code work but can't write text in specific position var ARect: TRectF; s: string; begin with Image1.Bitmap do begin Canvas.Font.Family := 'Arial'; Canvas.Fill.Color := TAlphaColorRec.Black; ARect.Top := 200; ARect.Left := 100; ARect.Width := 105; ARect.Height := 50; s := 'hellow Fmx'; Canvas.BeginScene; // canvas.textout(20,20,'hellow Fmx'); Canvas.FillText(ARect, s, false, 1, [], TTextAlign.Leading, TTextAlign.Leading); Canvas.EndScene; end; end;

Hello I need to get html with tnethttpclient from site that use a latest versions of the Transport Layer Security (TLS 1.3) this site icons8 I modify the registry but not work How can do it on windows 7 ? or if their other way to get html;

Thank you mr Thomas It work now thank's for your time

I download a latest version but the same problem Please upload a work project to test it

Thank's Mr thomas Not work for me see this image can you upload the work project to test it

Hello I would like to convert png or any image format To Ico with fmx Any Help

Hello when I try to get this link Link with this headers Host: apk-dl.com User-Agent: Mozilla/5.0 (Windows NT 6.1; Win64; x64; rv:109.0) Gecko/20100101 Firefox/109.0 Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/avif,image/webp,*/*;q=0.8 Accept-Language: fr,fr-FR;q=0.8,en-US;q=0.5,en;q=0.3 Accept-Encoding: gzip, deflate, br Connection: keep-alive Upgrade-Insecure-Requests: 1 Sec-Fetch-Dest: document Sec-Fetch-Mode: navigate Sec-Fetch-Site: none Sec-Fetch-User: ?1 Sec-GPC: 1 using tnethttpclient like this http := TNetHTTPClient.Create(nil); http.UserAgent := 'Mozilla/5.0 (Windows NT 6.1; Win64; x64; rv:108.0) Gecko/20100101 Firefox/108.0'; http.SecureProtocols := [THTTPSecureProtocol.TLS12]; http.Accept := 'text/html,application/xhtml+xml,application/xml;q=0.9,image/avif,image/webp,*/*;q=0.8'; Memo2.Text := link; http.CustomHeaders['Host:'] := 'apk-dl.com'; http.CustomHeaders['Accept-Language:'] := 'fr,fr-FR;q=0.8,en-US;q=0.5,en;q=0.3'; http.AcceptEncoding := 'gzip, deflate, br'; http.CustomHeaders['Connection:'] := 'keep-alive'; http.CustomHeaders['Upgrade-Insecure-Requests:'] := '1'; http.CustomHeaders['Sec-Fetch-Dest:'] := 'document'; http.CustomHeaders['Sec-Fetch-Mode:'] := 'navigate'; http.CustomHeaders['Sec-Fetch-Site:'] := 'none'; http.CustomHeaders['Sec-Fetch-User:'] := '?1'; http.CustomHeaders['Sec-GPC:'] := '1'; I get 400 Bad Request ,nginx/1.14.0 <html> <head><title>400 Bad Request</title></head> <body bgcolor="white"> <center><h1>400 Bad Request</h1></center> <hr><center>nginx/1.14.0</center> </body> </html> but when send it with httpliveheader to firefox I get success result How can resolve this

I think it use get option and then extract specific values like cookies then send it with post method I will test it soon

the packet sniffer not work for me because it not supported i search for other software

Thank you mr okoca for report all code thank's But I need it for fmx

hello, I need to extract a group from text But I not fammiliar with regex ,Need some one to help me with Please this is what I got and this my used pattern <li><strong>([^<]*)</strong></li>.*?</ul>.*?download-pill" href="([^"]*)">([^<]*)</a></p> text hier <hr /> <ul> <li><strong>خالد المشيقح:</strong></li> </ul> <p><a class="stealth download-pill" href="https://archive.org/download/Kitab_Tasheel_fi_Fiqh/01.mp3">شرح التسهيل 1 </a></p> <p><a class="stealth download-pill" href="https://archive.org/download/Kitab_Tasheel_fi_Fiqh/02.mp3">شرح التسهيل 2 </a></p> <p><a class="stealth download-pill" href="https://archive.org/download/Kitab_Tasheel_fi_Fiqh/03.mp3">شرح التسهيل 3</a></p> <p><a class="stealth download-pill" href="https://archive.org/download/Kitab_Tasheel_fi_Fiqh/04.mp3">شرح التسهيل 4</a></p> <p><a class="stealth download-pill" href="https://archive.org/download/Kitab_Tasheel_fi_Fiqh/05.mp3">شرح التسهيل 5 </a></p> <p><a class="stealth download-pill" href="https://archive.org/download/Kitab_Tasheel_fi_Fiqh/06.mp3">شرح التسهيل 6</a></p> <ul> <li><strong>عبدالسلام الشويعر:</strong></li> </ul> <p><a class="stealth download-pill" href="https://archive.org/download/Kitab_Tasheel_fi_Fiqh/07.mp3">شرح التسهيل 7</a></p> <p><a class="stealth download-pill" href="https://archive.org/download/Kitab_Tasheel_fi_Fiqh/08.mp3">شرح التسهيل 8 </a></p> <p><a class="stealth download-pill" href="https://archive.org/download/Kitab_Tasheel_fi_Fiqh/09.mp3">شرح التسهيل 9 </a></p> <p><a class="stealth download-pill" href="https://archive.org/download/Kitab_Tasheel_fi_Fiqh/10.mp3">شرح التسهيل 10</a></p> <p><a class="stealth download-pill" href="https://archive.org/download/Kitab_Tasheel_fi_Fiqh/11.mp3">شرح التسهيل 11 </a></p> <p><a class="stealth download-pill" href="https://archive.org/download/Kitab_Tasheel_fi_Fiqh/12.mp3">شرح التسهيل 12 </a></p> <ul> <li><strong>سامي الصقير:</strong></li> </ul> <p><a class="stealth download-pill" href="https://archive.org/download/Kitab_Tasheel_fi_Fiqh/13.mp3">شرح التسهيل 13 </a></p> <p><a class="stealth download-pill" href="https://archive.org/download/Kitab_Tasheel_fi_Fiqh/14.mp3">شرح التسهيل 14 </a></p> <p><a class="stealth download-pill" href="https://archive.org/download/Kitab_Tasheel_fi_Fiqh/15.mp3">شرح التسهيل 15</a></p> <p><a class="stealth download-pill" href="https://archive.org/download/Kitab_Tasheel_fi_Fiqh/16.mp3">شرح التسهيل 16</a></p> <p><a class="stealth download-pill" href="https://archive.org/download/Kitab_Tasheel_fi_Fiqh/17.mp3">شرح التسهيل 17 </a></p> <hr />

I resolve it . This is the pattern mybe some one need it href="([^"]*)">([^"]*)</a></p>|<strong>([^>]*):</str

I can parse it by using two pattern but need one pattern for Knew match

Thank you for replay is this a cross-platform ?

hello I want to move a rectangle using animate option need when mouse enter rectangle is move to a specific position and when mouse leave return to a first position , I have 2 rectangle one is a child I use this code when mouse enter a rectangle is move to top but when mouse leave the rectagle fix in their new place code procedure TForm2.Rectangle1MouseEnter(Sender: TObject); begin Rectangle2.AnimateFloat('Position.y', 1.0, 5, TAnimationType.InOut, TInterpolationType.Linear); Rectangle2.Position.y := Rectangle2.Height + 52; end; procedure TForm2.Rectangle1MouseLeave(Sender: TObject); begin Rectangle2.AnimateFloat('Position.y', 1.0, 5, TAnimationType.InOut, TInterpolationType.Linear); Rectangle2.Position.y := 52; end; how can do it ?

I resolve it by using athread and loop if this is a good then animate ?

???!!! Rectangle2.ClipChildren is equal True rectangle1 is inside rectangle2 text1 hittest is false and locked is true Please see my project and modify it

Thank you and I am sorry for that, The two rectangle is in form2 and when I add from the form1 i add just a rectangle 1 and two without form2 Like a first project added I create a form on vertscrollbox like this procedure Tbox.Fillbox(Name: string); var fm: TForm2; begin fm := TForm2.Create(self); fm.Rectangle1.Position.X := fm.Rectangle1.Height + 1; fm.text1.Text := name; self.AddObject(fm.Rectangle1); end;