William23668

What this mean ?

Hi, In creating Web apps when I use Delphi code and when I use Python script ? for example which will build the UI (Data entry, charts, reports) and which will connect to DB ? I read that I should use Python with large amount of data because it is faster but how I can do that theoretically ? How I can connect between Delphi and Python to get or set the data I want ?

Skills are Delphi, CSS, PHP, Wordpress, C#, JavaScript, TypeScript, Reactjs, Nodejs, SQL, Project Management , Test and QA, Security , Optimization

Total years of experience are 25+ williamnageib@gmail.com

@David Schwartz Thanks I tried TMS Core but which is better unigui , TMS or IntraWeb ?

In general. For example web app to manage company business has front end and backend dashboard

Once a German company wanted to hire me but the employer want to keep the third amount of the salary with him for 5 years so he ensure that I dont leave him before 5 years. It is like slavery

Hi, Is there any AI component that can be used with Delphi for autocomplete prediction ?

yes this was the problem. but I now get this error Solved I uninstalled the app from the phone and now it open Thanks

[PAClient Error] Error: E7688 Unable to execute '"C:\Program Files\Eclipse Adoptium\jdk-11.0.15.10-hotspot\bin\java.exe" -cp "c:\program files (x86)\embarcadero\studio\22.0\bin\Android\r8-3.3.28.jar" com.android.tools.r8.D8 --release --min-api 23 --output "C:\Delphi\app1\Android64\Debug\app1.classes" @"C:\Delphi \app1\Android64\Debug\dex_list.txt"' (Error 1)

Now I am getting this [PAClient Error] Error: E7688 Unable to execute '"C:\Program Files\Eclipse Adoptium\jdk-11.0.15.10-hotspot\bin\java.exe" will try restart

[PAClient Error] Error: E7688 Unable to execute '"C:\Program Files\Java\jdk-17.0.1\bin\java.exe" -cp "c:\program files (x86)\embarcadero\studio\22.0\bin\Android\r8-3.3.28.jar" com.android.tools.r8.D8 --release --min-api 23 --output "C:\Delphi\app1\Android64\Debug\app1.classes" @"C:\Delphi Projects\app1\Android64\Debug\dex_list.txt"' (Error 1) I installed now MS openjdk but same error JAVA_HOME = C:\Program Files\Microsoft\jdk-17.0.6.10-hotspot\

Hi I have the option to show component caption on and in blank FMX project the component caption show normally but when I opened the contacts sample app I found the caption is hidden, how is that ?

already on

Hi Currently in the AddressBook sample app it display Arabic letters scrambled like ي ا ش ق So no possible way to display it correctly ?

Thanks thats a hidean site ! I installed Download (for build 46141) hope this is correct

Hi I was trying to add phone number in the address book demo like that hard coded but the number was never saved, why is that ? Contact.Phones.AddPhone('Home', '767867679678'); procedure TForm1.ActionAddContactExecute(Sender: TObject); var Contact: TAddressBookContact; eMails: TContactEmails; Photo: TBitmapSurface; begin Contact := AddressBook1.CreateContact(FDefaultSource); try try Contact.FirstName := edtFirstName.Text; Contact.LastName := edtLastName.Text; Contact.Phones.AddPhone('Home', '767867679678'); //<<<-------- if not Image1.Bitmap.Size.IsZero then begin Photo := TBitmapSurface.Create; try Photo.Assign(Image1.Bitmap); Contact.Photo := Photo; Image1.Bitmap.SetSize(0, 0); finally Photo.Free; end; end; // Add the work mail eMails := TContactEmails.Create; try eMails.AddEmail(TContactEmail.TLabelKind.Work, edtWorkMail.Text); Contact.eMails := eMails; finally eMails.Free; end; // Save a newly created contact to Address Book AddressBook1.SaveContact(Contact); except on E: EAddressBookException do ShowMessage('Cannot create the contact.' + E.Message); end; // Add the contact to the selected group, if any try if InRange(ComboBox1.ItemIndex, 0, FGroups.Count - 1) then AddressBook1.AddContactIntoGroup (FGroups.Items[ComboBox1.ItemIndex], Contact); except on E: EAddressBookException do ShowMessage('Cannot add the newly created contact to group.' + E.Message); end; ListViewContacts.BeginUpdate; try AddListViewItem(Contact); finally ListViewContacts.EndUpdate; end; TabControl1.ActiveTab := TabItemContacts; finally Contact.Free; end; // Clear the Add Contact Form ClearAddContactForm; end;

Understand now thanks

found the solution by comment this line Phones.Free;

I think all already selected. The first name and last name is added after I recieve external exception 68 error !! but no phone number

@programmerdelphi2k I tried like you said but still number was not added. Also sometimes I get stackoverflow erro and external exception 78 error procedure TForm1.ActionAddContactExecute(Sender: TObject); var Contact: TAddressBookContact; Phones: TContactPhones; eMails: TContactEmails; Photo: TBitmapSurface; begin Contact := AddressBook1.CreateContact(FDefaultSource); try try Contact.FirstName := edtFirstName.Text; Contact.LastName := edtLastName.Text; Phones := TContactPhones.Create; try Phones.AddPhone(TContactPhone.TLabelKind.Mobile, '767867679678'); Contact.Phones := Phones; finally Phones.Free; end; if not Image1.Bitmap.Size.IsZero then begin Photo := TBitmapSurface.Create; try Photo.Assign(Image1.Bitmap); Contact.Photo := Photo; Image1.Bitmap.SetSize(0, 0); finally Photo.Free; end; end; // Add the work mail eMails := TContactEmails.Create; try eMails.AddEmail(TContactEmail.TLabelKind.Work, edtWorkMail.Text); Contact.eMails := eMails; finally eMails.Free; end; // Save a newly created contact to Address Book AddressBook1.SaveContact(Contact); except on E: EAddressBookException do ShowMessage('Cannot create the contact.' + E.Message); end; // Add the contact to the selected group, if any try if InRange(ComboBox1.ItemIndex, 0, FGroups.Count - 1) then AddressBook1.AddContactIntoGroup (FGroups.Items[ComboBox1.ItemIndex], Contact); except on E: EAddressBookException do ShowMessage('Cannot add the newly created contact to group.' + E.Message); end; ListViewContacts.BeginUpdate; try AddListViewItem(Contact); finally ListViewContacts.EndUpdate; end; TabControl1.ActiveTab := TabItemContacts; finally Contact.Free; end; // Clear the Add Contact Form ClearAddContactForm; end;

This indeed solved the problem in very easy way thanks alot 😍 💐

This mean I have to draw at canvas level inside each row in TListView ? ACanvas.DrawSimpleText('"Each dream that you', 2, 25, LFont, LPaint);

Hi It is FMX app but I just want to test adding items from code in Windows so I used that code from here var LItem: TListItem; begin LItem := TListItem.Create(ListViewContacts.Items); LItem.Caption := 'new item'; I added "Commctrl" to uses clause but "Caption" is not defined, why ?

Thanks @programmerdelphi2k copy from forum and paste into Delphi also copy hidden characters but after removing them the code work