grantful

Thanks for pointing me in the right direction. Here is working code for anyone who may need to do the same thing uses system.json; var MainJson, Result: TJSONObject; reslultListbox: TJSONArray; begin Form2.RESTClient1.BaseURL := 'https://www.thecocktaildb.com/api/json/v1/1/search.php?s=' + Edit7.Text; Form2.RESTRequest1.Execute; Memo4.Text := Form2.RESTResponse1.JSONText; Result := TJSONObject.ParseJSONValue(Form2.RESTResponse1.Content) as TJSONObject; reslultListbox := Result.GetValue('drinks') as TJSONArray; // reslultListbox:= TJSONObject.ParseJSONValue('drinks') as TJSONArray; for var JSONValue in reslultListbox do begin ListBox1.Items.Add((JSONValue as TJSONObject).GetValue('strDrink') .ToString); end; MainJson := Result.GetValue<TJSONObject>('drinks[0]'); Edit8.Text := MainJson.GetValue<string>('strDrink'); MainJson := Result.GetValue<TJSONObject>('drinks[0]'); Memo5.Text := MainJson.GetValue<string>('strInstructions');

Thanks so much for the help i will try this.

I did go and uncheck the autosize on each tab item. I can see the change now in the ide but when i install on ios and android it still is small. Any thoughts ? Thanks for the help

Thanks Dave. I dont know how i missed that 🙂

I am trying to load a image from a sqlite database field tfdQuery sql is select camarapic from photos Procedure LoadBitmapFromBlob(Bitmap: TBitmap; Blob: TBlobField); var ms, ms2: TMemoryStream; begin ms := TMemoryStream.Create; try Blob.SaveToStream(ms); ms.Position := 0; Bitmap.LoadFromStream(ms); finally ms.Free; end; end; procedure TCustomerInfo.SpeedButton6Click(Sender: TObject); var bmp: TBitmap; begin bmp := TBitmap.Create; try //datamodule2.InsertImg.SQL:=('select camarapic form photos where cusid : 2'); LoadBitmapFromBlob(bmp, TBlobField(datamodule2.InsertImg.FieldByName('camarapic'))); Image2.Bitmap.Assign(bmp); finally bmp.Free; end; end; When i run the app the image2 just goes blank Thanks for any help.

Thanks so much for the help. It works great

I am following this tutorial https://docwiki.embarcadero.com/RADStudio/Alexandria/en/Taking_Pictures_Using_FireMonkey_Interfaces I am not sure about it saveing as a bitmap.

Thanks for the comments . I will look into to this more.

Hello all. I been working on my app for a bit. Just compiling in windows . I have been compiling to my iPhone just fine the whole time i been developing the app. I went to compile the app to my iPhone as usual and get this [PAClient Error] Error: E0776 error: exportArchive: No "teamID" specified and no team ID found in the archive I do not know the problem or how to go about figuring out. i did do some searching. i found this here For anyone that might come across this topic: I had this error recently. It was being caused by the less than optimal Version Info grid in Project Options. Somehow the CFBundleExecutable value was changed: So if you have the same error message, it might pay to check the values in the Version Info section But as far as i can tell it seems to be in order. Any help with this would be amazing . Thanks

Hey Dave thanks for all you do to help others. I found this Delete the info.plist.TemplateiOS.xml file, and the LaunchScreen.TemplateiOS folder, and rebuild. If that does not work, after building, use Project|Deployment in the Delphi main menu, and check whether there are many disabled entries. If so, use the "Revert to default" button (looks like "Undo") in the top left – Dave Nottage Feb 2, 2021 at 0:57 And this did the trick all is working now. That was so weard

Does anyone know of a free Delphi optical character recognition component ? Thanks

Thanks for all the comments and recommendations.

[PAClient Error] Error: E0776 2023-07-09 15:41:27.235 xcodebuild[22917:1144085] [MT] IDEDistribution: -[IDEDistributionLogging _createLoggingBundleAtPath:]: Created bundle at path "/var/folders/48/7bzqxl4n6z71zflpg7p07bxm0000gn/T/FlatRate_2023-07-09_15-41-27.226.xcdistributionlogs". [PAClient Error] Error: E0776 error: exportArchive: No "teamID" specified and no team ID found in the archive [PAClient Error] Error: E0776 Error Domain=IDEFoundationErrorDomain Code=1 "No "teamID" specified and no team ID found in the archive" UserInfo={NSLocalizedDescription=No "teamID" specified and no team ID found in the archive} [PAClient Error] Error: E0776 ** EXPORT FAILED **

I did a new multidevice app and put a few things in on it. I compiled it to my iphone just fine.

I hope someone can point me in the right direction. I am learning to develop for mobile. My problem is when i click in an edit box to type the phones keybord covers the editbox and i can not see what is being typed. Is there a solution to this problem ? Thanks for any help.

Thanks for your help. I will raed this info.

I am following a tutorial here https://docwiki.embarcadero.com/RADStudio/Alexandria/en/Taking_Pictures_Using_FireMonkey_Interfaces#Taking_a_Picture_with_a_Device_Camera This works good on my Iphone but not on android. Does anyone know a good tutorial with android permissions. I was looking for ant the sample for this but it uses actions. I need to to do this in code as i have 10 different images i need to put a picture in.(image1, image2, image3, etc); If i could get an example with this code that would be great. P.S I did try the mobile permissions component but it seems for android and i can not compile to ios. Thanks for any help.

Thanks for you help. I will read over this information.

I am working with an api to get some data. https://vpic.nhtsa.dot.gov/api/vehicles/decodevin/1G1BE5SM8J7207504?format=json&amp;modelyear So when i post to this and get the returned info as json i need to pull out the Results I have used the Delphi Rest Debuggr and i see the info i need when i choose the string and press apply I have copied the components to my project and when i right click the memory table and choose edit Dataset. I see the jason string with the Results How can i drill down to { "Value": "CHRYSLER", "ValueId": "477", "Variable": "Make", "VariableId": 26 }, { "Value": "CHRYSLER DE MEXICO TOLUCA", "ValueId": "1002", "Variable": "Manufacturer Name", "VariableId": 27 }, { "Value": "PT Cruiser", "ValueId": "3595", "Variable": "Model", "VariableId": 28 }, { "Value": "2003", "ValueId": "", "Variable": "Model Year", "VariableId": 29 }, Thanks for any help i have never wroked with Json before Thanks for any help.

@programmerdelphi2k Thanks for your patience and help. I will study this.

I can show the tubular data in the memorytable uJasonDataModule.RESTRequest1.Execute(); edtModel.Text := uJasonDataModule.FDMemTable1.FieldByName('Results').AsString; How can i get to the info in the results json ? { "Count": 136, "Message": "Results returned successfully. NOTE: Any missing decoded values should be interpreted as NHTSA does not have data on the specific variable. Missing value should NOT be interpreted as an indication that a feature or technology is unavailable for a vehicle.", "SearchCriteria": "VIN:1gt125e85df163635", "Results": [ { "Value": "", "ValueId": "", "Variable": "Suggested VIN", "VariableId": 142 }, { "Value": "1", "ValueId": "1", "Variable": "Error Code", "VariableId": 143 }, { "Value": "", "ValueId": "", "Variable": "Possible Values", "VariableId": 144 }, { "Value": null, "ValueId": "", "Variable": "Additional Error Text", "VariableId": 156 }, { "Value": "1 - Check Digit (9th position) does not calculate properly", "ValueId": "", "Variable": "Error Text", "VariableId": 191 }, { "Value": "1GT125E8*DF", "ValueId": "", "Variable": "Vehicle Descriptor", "VariableId": 196 }, { "Value": null, "ValueId": null, "Variable": "Destination Market", "VariableId": 10 }, { "Value": "GMC", "ValueId": "472", "Variable": "Make", "VariableId": 26 }, { "Value": "GENERAL MOTORS LLC", "ValueId": "984", "Variable": "Manufacturer Name", "VariableId": 27 }, { "Value": "Sierra", "ValueId": "1857", "Variable": "Model", "VariableId": 28 }, { "Value": "2013", "ValueId": "", "Variable": "Model Year", "VariableId": 29 }, This is what i am getting with uJasonDataModule.RESTRequest1.Execute(); edtModel.Text := uJasonDataModule.FDMemTable1.FieldByName('Results').AsString; Any help is greatly. appreciated

The mormot solution only works for windows 😞

I have changed the code to procedure TForm1.SpeedButton1Click(Sender: TObject); begin const content: RawByteString = HttpGet(url); if content <> '' then begin var dataRec: TDataRec; if RecordLoadJson(dataRec, content, TypeInfo(TDataRec)) then begin ShowMessage(dataRec.Count.ToString); ShowMessage(Length(dataRec.Results).ToString); for var i: Integer := 0 to High(dataRec.Results) do begin if dataRec.Results.Variable = 'Crash Imminent Braking (CIB)' then ShowMessage(dataRec.Results.VariableId.ToString); end; end; end; end; it seems to work

Thanks for your help. I have one compiler error i can not figure out. [dcc32 Error] MainTab.pas(124): E2026 Constant expression expected var Form3: TForm3; url: RawUtf8 = 'https://vpic.nhtsa.dot.gov/api/vehicles/decodevin/1G1BE5SM8J7207504?format=json&amp;modelyear'; content: RawByteString = HttpGet(url); <<<<<<<<<<<<<<<Here at this line is the error. Thanks for helping me with this

Thanks very much for the help. I will look at this.