Ian Branch

Is this possible? Regards & TIA, Ian

Interesting. I just repeated the download/build process, I had done it twice before with the result as reported above, this time all is good. Download and build, no issues. The errors I were getting when exiting Delphi have also seem to have disappeared. Fingers crossed. 😉

Rev 4079 D11.3.1: On download: Restored 'GExperts\ExternalSource\OmniXML.pas' Skipped 'GExperts\Source\Grep\GX_GrepInstantGrep.pas' -- Node remains in conflict Checked out revision 4079. On Build: GExpertsRS110.dpr(258): error F1026: File not found: '..\..\Source\Grep\GX_GrepInstantGrep.pas' [D:\GExperts\Projects\DelphiXx110Alexandria\GExpertsRS110.dproj] Done Building Project "D:\GExperts\Projects\DelphiXx110Alexandria\GExpertsRS110.dproj" (rebuild target(s)) -- FAILED. Build FAILED. "D:\GExperts\Projects\DelphiXx110Alexandria\GExpertsRS110.dproj" (rebuild target) (1) -> (_PasCoreCompile target) -> GExpertsRS110.dpr(258): error F1026: File not found: '..\..\Source\Grep\GX_GrepInstantGrep.pas' [D:\GExperts\Projects\DelphiXx110Alexandria\GExpertsRS110.dproj] 0 Warning(s) 1 Error(s)

Unless I'm missing something, isn't the filename going to be the one open/in view att? Thus IMO the filename is redundant. Just have the line # in the left column.

It is under the Grep Menu.

Hi Thomas, I have just had a play with this functionality. Agree with ULIK on the filename, although I am not sure how you would re-jig it. Possibly retaining the row divider, without the filename, but putting the line # in a column on the left. Like a two column String Grid?? Ian

Yup. Running that, then the Project build worked. Ian

Issue at build - Rev. 4065 D11.3 ..\..\images\GXIcons.rc : error : Error Could not open input file D:\GExperts\Projects\DelphiXx110Alexandria\VCL.RC [D:\GExperts\Projects\DelphiXx110Alexandria\GExper tsRS110.dproj] Done Building Project "D:\GExperts\Projects\DelphiXx110Alexandria\GExpertsRS110.dproj" (rebuild target(s)) -- FAILED. Build FAILED. "D:\GExperts\Projects\DelphiXx110Alexandria\GExpertsRS110.dproj" (rebuild target) (1) -> (BrccCompile target) -> ..\..\images\GXIcons.rc : error : Error Could not open input file D:\GExperts\Projects\DelphiXx110Alexandria\VCL.RC [D:\GExperts\Projects\DelphiXx110Alexandria\GExp ertsRS110.dproj] 0 Warning(s) 1 Error(s)

Hi Team, Win 11, D11, 4k monitor. Delphi is started as /highdpi:unaware. I know this is something I am going to have to deal with more and more. :-( I have a form that during design time is 1462 wide, ClientWidth of 1449. When I Compile or Build it the form collapses on screen to ClientWidth 1132. :-( BorderStyle is bsDialog. Scaled is OFF. The Manifest has DPI Awareness set to None. The Apps are to run on old Win 7 PCs. I can stop it collapsing by setting a MinWidth Constraint for the form but I shouldn't need to. Or do I? What am I missing in my form setup please? Or it is what it is? Regards & TIA, Ian

And we are better off for it. Thank you.

I was/am asking gkobler..

Hi, Will you be doing one for D12?? Regards, Ian

Is there a way to export a thread/conversation. In a couple of cases there are conversations I would really like to sit back with a piece of paper, read & digest the content over a noce red wine rather than staring at a computer screen. 😉 Regards & TIA, Ian

It would seem Addictive Software, the makers of the Addict spell checker, are no more. 😞 What does one do now for spell checking in Apps that run on Win 7? Ian

Hi Team, Is it just me that can't log into the Quality Portal?? It keeps asking for my Username, even though it is there and is the same one I have used for years... Whuuuppp!!! Suddenly it works... Ian

Hi Uwe, D11.3, latest MMX. If I have this code in my type declaration: {code} .... procedure FormShow(Sender: TObject); procedure IndexOrdChange(Sender: TObject); private const iWidth = 920; end; implementation '''' {code} The function changes it to this: {code} .... procedure FormShow(Sender: TObject); procedure IndexOrdChange(Sender: TObject); private const <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< const iWidth = 920; end; implementation '''' {code} Which of course causes an error. If I have this: {code} .... procedure FormShow(Sender: TObject); {$IFDEF MyTest} procedure IndexOrdChange(Sender: TObject); {$ENDIF} private const iWidth = 920; end; implementation '''' {code} It removes the $IFDEF/$ENDIF block totally. Regards, Ian

Hi Team, My Customer has asked me if I can add SMS sending to his Apps. In support he has sent me a document from Vodafone, he is a repairer for Vodafone, with the following information. I know absolutely nothing about REST and/or its usage in/with Delphi. Could I prevail on someone to create a small delphi unit that incorporates whatever is necessary to send an sms? It would be very much appreciated. Regards & TIA, Ian

Any chance of providing the link? Or a copy of your working example? Regards & TIA, Ian

CRACKED IT!!!! As Patrick suggested, put the Json request into the Custom body. It didn't work for me the first time as I suspect I had the Json constructed wrong, and I still had Parameters in the RESTRequest. All sorted now. Now to actually create the App. 🙂 My thanks to all that contributed to my first foray into REST. Appreciated. Regards, Ian

This was the doc they supplied me. SMS Gateway API Specifications v2.0.pdf

Hi Patrick, You mean put this: "{"username": "email@mail.com", "secret":"password","shortcode":pacificbulksms","msisdn":"6798688008","message":"Hello James..."}" into the Custom body? With the correct values of course. 😉 I just tried that, same result. Ian

Hi Uwe, What should this parameter be? All the parameters basically look like this: Ian

Hi Uwe, It is set in the RESTRequest component. Ian

Correction! I thought it had been successful in the Debugger but I was looking in the wrong place. 😞 Still an Empty Request error. This is the Debugger Request Tab: This is the Parameters Tab, with key info changed: 😉 You will note the 'Response' says 200:OK..... But the Tabular Data Tab says it was an error. I spoke to the Phone owner and he hasn't received any messages. I'm confused. Ian

Hi Patrick, When I put the Parameters into the REST Debugger, it says it is successful. When I have the parameters in the RESTRequest and right-click|Run, it is successful. But, If I leave The Client and Request exactly the same and inthe Delphi App do RESTRequest1.Execute, it fails. 😞 procedure TForm12.btnComponentsClick(Sender: TObject); var obj, code, data: TJSONObject; sCode, url: string; begin // // Call the REST API and handle the response RESTRequest1.Execute; // ShowMessage('Status Code = ' + RESTResponse1.StatusCode.ToString); obj := RESTResponse1.JSONValue as TJSONObject; scode := obj.Values['code'].Value; data := obj.Values['data'] as TJSONObject; url := data.Values['text'].Value; ShowMessage('Code = ' + scode + sLineBreak + 'Text = ' + url); end; Returning 'Status Code = 200' for the first ShowMessage, and 'Code = 302 Text = Empty Request.....' for the second showmessage. 😞 Regards, Ian