Die Holländer

Last week I also needed such timeline component and I started with the basic Jedi Timeline component. It is a basic component but with a bit of programming and the use of an extra StringGrid for the right side, a ScrollBox (horizontal scroll) and extra Scrollbar (vertical scroll) I got all the functionality I needed. It has an imagelist property to display images in the timeline. delphi-jedi.org TJvTimeLine

Could you clarify what you mean by "cheapest way" and can you tell more about the cost and your environment? Their website doesn’t provide any information about pricing, which I believe could negatively impact their sales. Potential customers are discouraged when they have to contact a company just to get basic cost information. It would be helpful if they included some example use cases along with the associated costs. For example, if I already have a cloud-based database solution (e.g., MSSQL/Azure File storage/Office365) with 30 users and several Delphi applications, what would be the estimated cost of implementing a VirtualUI solution?

I'm looking forward to the full story of this project. Are you going the Delphi route (webserver, webcore, UniGui, etc..) or (Java)script API - end-points - back-end HTML CSS front-end route? Bravo ! 😎🏅🏆

What version of Delphi do you use? Go to the taskmanager and look to the Delphi IDE, keep refreshing the taskmanager and see if the memory of the Delphi IDE goes up all the time eating your entire memory.

Works very well.

Another example of a datamodule hell and query statements in a GUI form..😒

There must be something in the .DFM files where you can see if it is a specific report form, like a component class/name or a specific button name. Can't you search in your .DFM text files for such indicator? The name of the .DFM file is then the same as the .PAS file.

I found some old code to retrieve the list of a group, like "Global Address List" The code here is based on to put the addresses in a TreeView. I checked the code and it is still running OK but I noticed that I don't see the e-mail addresses anymore but instead it reports a string like: "/o=ExchangeLabs/ou=....." Maybe this is because of the exchange server configuration in my environment. see: how-to-get-email-address-from-o-exchangelabs-ou-exchange-administrative-group You have to play with it to see if you get the proper info you want. Maybe you can post the final answer here if you find the proper addresses.. Note that the code has a filter to only show two groups: If (CurGroupName='All Groups') or (CurGroupName='Global Address List') Then... //Uses Outlook2000; Procedure TMailTrans.CreateGALTreeForSendMailItem(aTreeView : TTreeView); Var pProp : PSPropValue; MP : IMAPIProp; strAddress : String; i, j, Check: Integer; myAddressList: AddressList; myAddressLists: AddressLists; myAddressEntries: AddressEntries; myAddressEntry: AddressEntry; CurNode, ChildNode, DetailNode :TTreeNode; CurGroupName : String; begin If NmSpace=NIL Then Begin OutlookApplication1.Connect; NmSpace:=OutlookApplication1.GetNamespace('MAPI'); NmSpace.Logon('', '', False, False); End; myAddressLists := IUnknown(NmSpace.AddressLists) as AddressLists; aTreeView.Items.BeginUpdate; aTreeView.Items.Clear; for i := 1 to myAddressLists.Count do begin CurGroupName:=myAddressLists.Item(i).Name; If (CurGroupName='All Groups') or (CurGroupName='Global Address List') Then Begin CurNode:=aTreeView.Items.Add(Nil,myAddressLists.Item(i).Name); CurNode.ImageIndex:=2; CurNode.SelectedIndex:=2; myAddressList := myAddressLists.Item(i); if Assigned(myAddressList.AddressEntries) then Begin myAddressEntries := myAddressList.AddressEntries; for j := 1 to myAddressEntries.Count do begin strAddress:='Unknown'; myAddressEntry := myAddressEntries.Item(j); if Assigned(myAddressEntry) then Begin if myAddressEntry.MAPIOBJECT<>NIL then Begin if Assigned(myAddressEntry.MAPIOBJECT) then Begin { Check:=IUnknown(myAddressEntry.MAPIOBJECT).QueryInterface(IMailUser,MP); If Check=0 then MP:=IUnknown(myAddressEntry.MAPIOBJECT) as IMailUser else MP:= IUnknown(myAddressEntry.MAPIOBJECT) as IDistList; if S_OK = HrGetOneProp(MP, $39FE001E, pProp) then begin strAddress:=String(pProp.Value.lpszA); MAPIFreeBuffer(pProp); end; // else strAddress:=myAddressEntry.Address; } strAddress:=myAddressEntry.Address; ChildNode:=aTreeView.Items.AddChild( CurNode, myAddressEntry.Name); ChildNode.ImageIndex:=7; ChildNode.SelectedIndex:=7; DetailNode:=aTreeView.Items.AddChild( ChildNode, strAddress); DetailNode.ImageIndex:=6; DetailNode.SelectedIndex:=6; End; End; { DetailNode:=aTreeView.Items.AddChild( ChildNode, myAddressEntry.Address); DetailNode.ImageIndex:=6; DetailNode.SelectedIndex:=6; } End; End; End; end; //Application.Processmessages; end; aTreeView.Items.EndUpdate; end;

Can't you create a complete Richtext (RichText+TabelText+RichText) during the process and add the whole RichText on the Band?

Wow.. That's quite a list of qualifications you want.. C#, .NET, ASP.NET(Blazor), Delphi, C++, JavaScript, HTML5, CSS3, SQL, Python, embedded systems development.

Maybe this is what you need.. You have to tell TidHTTP that it should return the error JSON message and not only the HTTP error code. Result:=False; idHTTP.Request.ContentType := 'application/json;odata=verbose'; //Tell the idHTTP that it should NOT ignore the (JSON) errormessage returned by the server. idHTTP.HTTPOptions := idHTTP.HTTPOptions + [hoNoProtocolErrorException, hoWantProtocolErrorContent]; //Add the message in a string var. ReceiveData := idHTTP.Put(Param, JsonToSend); if (idHTTP.ResponseCode div 100) = 2 then begin Result:=True; end else Begin //Parse/Show the message aMessage:=CreateErrorMessage(ReceiveData); End;

You only show the JSON parsing part. What do you use to perform the Put? (Like TidHTTP?)

Yes, these are basically the pages reflecting what Glenn shows in the Youtube video. As you can see almost all of the development, configuration, testing and deploying is based on Visual Studio Code (extensions) and only the "Hello world" webbroker exe is made in Delphi. I was hoping that the "Azure IDE helper plugin" will bypass the Visual Studio Code part. Another thing is that it's also difficult to go through the Azure deploying part by it's dashboard that supports now about 100 zillion Cloud possibilities, options and configurations.

Maybe there is something possible with Python4Delphi and Pika...

I really hope that Embarcadero will investigate the possibilities of using Azure with Delphi. During the session in this youtube video about Azure Cloud Development with Delphi I saw a statement (at time 40:38) : "Azure IDE helper plugin under development by Glenn Dufke" I have tried to configure an Azure function myself but the Azure Portal interface has been changed a lot and I didn't succeed. I don't know if he ever completed such a plugin but I've tried to find and ask him but didn't succeed.

I was just wondering why you use a cache list. I use a DBGrid in one of my projects and added the calculated fields as extra columns in the DBGrid and to the FieldDefs of the query. Also in my case there is a file read calculated field and I hardly see any speed difference while displaying the resultset of the databse including the calculated fields. So, I never have used a cache list and I was just wondering why you need one, but as Uwe explained that sometime you need a cache list if the process is too slow and probably if you don't use a DBGrid.

But a dataset like DBGrid or client dataset is caching the calculated field values, right?

And... why do you use a Dictionary and not the calculated field?

Just for interest.. >>Dictionary<ID, FileSize> How did you fill this Dictionary and why are you using it during the OnCalcFields and not using the extra calculated field from the resultset itself for displaying?

When creating a GUI for applications with database and business logic, using tab menus, like Ribbon component, with many buttons can lead to a lot of code in your form. Create at least objects with you database logic..

Edge also..

👍 Very nice place. Also quick bus to Amsterdam center nearby. Plenty of herring and smoked eel availble.

Is it always on specific SQL statements/queries, like the Select you showed? You can try not to lock those Selects by: 'select * from "myTable" where ..... with(NOLOCK)'; Just to see if the locking READ COMMITTED is the problem. See if the database drivers your users using are still the same.

Can you tell what your problem is?

Maybe because in design time you copied the toolbar from dmSharedImages module on your form. While pasting the toolbar on your form the IDE knows where the images are located. That's why you see on the form: Images = dmSharedImages.Images In Runtime your form has no connection to the dmSharedImages, so the images are ignored and they disappear.