ChrisChuah

what is your email? u can send it to me chuahyen at yahoo dot com

what is your email so that u can show me what u have?

thank you very much.. tee chart looks a bit basic and doesn't have those title which i wanted. Not sure if tee chart can do customisation or not I will try TMS but their title bar only has 2 layers instead of 3 layers Thought there will be others maybe ActiveX Gantt Chart that is similar

Hi Kees Actually i need a component and not a software. What i can see from the website is a project management application. the other not net url brings me to a login page instead. Maybe you can show the FMX component? regards chris

I would like to enquire if there is any Gantt chart or visual component is able to provide such view whereby the top title is 3 layer showing the date, followed by hour followed by interval of 20 minutes Also for each group e.g. T1-Island 3 Row E, it will show the number of task that is under each 20 minutes block At 07:00 to 07:20, it will have a task [9] in brown which is actually a total of all the task below 6 x SQ761 and 3 x 8M360 regards chris

Hi Remy Thank you for your guidance.

Hi Remy I think i got it. I need to create an instance of the TThriftHashSetImpl but the variable is an Interface itself var hashset : IThriftHashSet<TProduct_info_type>; product_info : IProduct_info; begin hashset := TThriftHashSetImpl<TProduct_info_type>.create; hashset.add(TProduct_Info_type.terminal_packaged_part_number); hashset.add(TProduct_info_type.terminal_packaged_serial_number); product_info := product_get_info(hashset); end; Another question: How can i free or release these instances that i have created? Wont there be any memory leak? regards chris

Hi Remy the function function product_get_info(const info_type: IThriftHashSet<TProduct_info_type>): IProduct_info; requires a parameter which is an Interface of IThriftHashSet<TProduct_info_type> TProduct_info_type = ( terminal_packaged_part_number = 0, terminal_packaged_serial_number = 1, terminal_packaged_comm_name = 2, sensor_packaged_part_number = 3, sensor_packaged_serial_number = 4, specific_part_number = 5, license_identifier = 6, license_name = 7, mac_address_ethernet = 8, mac_address_wifi = 9, mac_address_3g_modem = 10, RFID_board_type = 11, terminal_cie_part_number = 12, travel_totem_serial_number = 13, travel_totem_product_number = 14 ); and this IThriftHashSet has a class like this ======== Start ======= IThriftHashSet<T> = interface(IThriftContainer) ['{733E2B57-C374-4359-BBD5-2B9CD8DF737C}'] function GetEnumerator: TEnumerator<T>; function GetCount: Integer; property Count: Integer read GetCount; function Add( const item: T) : Boolean; procedure Clear; function Contains( const item: T): Boolean; function Remove( const item: T): Boolean; end; // compatibility IHashSet<T> = interface( IThriftHashSet<T>) ['{C3CF557F-21D9-4524-B899-D3145B0389BB}'] end deprecated 'use IThriftHashSet<T>'; {$WARN SYMBOL_DEPRECATED OFF} TThriftHashSetImpl<T> = class( TInterfacedObject, IHashSet<T>, IThriftHashSet<T>, IThriftContainer, ISupportsToString) {$WARN SYMBOL_DEPRECATED DEFAULT} strict private FDictionary : TDictionary<T,Byte>; // there is no THashSet<T> in older Delphi versions strict protected function GetEnumerator: TEnumerator<T>; function GetCount: Integer; property Count: Integer read GetCount; function Add( const item: T) : Boolean; procedure Clear; function Contains( const item: T): Boolean; function Remove( const item: T): Boolean; public constructor Create( const aCapacity: Integer = 0); overload; constructor Create( const aCapacity: Integer; const aComparer : IEqualityComparer<T>); overload; destructor Destroy; override; function ToString : string; override; end; ====== End ===== How can i call this function product_get_info?? How to pass a IThriftHashSet into this function as parameter? The only thing i can see is to use the TThriftHashSetImpl<T> constructor to create After which, i cannot use the Add function as it is strict protected. Is there a example or sample which i can read on how to pass interface as parameters to functions for Delphi? please advise regards chris

Hi Currently, i am having problem with using Interfaces in Delphi I need to call this function function product_get_info(const info_type: IThriftHashSet<TProduct_info_type>): IProduct_info; However, the parameters and return result are interfaces ====== Start IThriftHashSet ====== // compatibility IHashSet<T> = interface( IThriftHashSet<T>) ['{C3CF557F-21D9-4524-B899-D3145B0389BB}'] end deprecated 'use IThriftHashSet<T>'; {$WARN SYMBOL_DEPRECATED OFF} TThriftHashSetImpl<T> = class( TInterfacedObject, IHashSet<T>, IThriftHashSet<T>, IThriftContainer, ISupportsToString) {$WARN SYMBOL_DEPRECATED DEFAULT} strict private FDictionary : TDictionary<T,Byte>; // there is no THashSet<T> in older Delphi versions strict protected function GetEnumerator: TEnumerator<T>; function GetCount: Integer; property Count: Integer read GetCount; function Add( const item: T) : Boolean; procedure Clear; function Contains( const item: T): Boolean; function Remove( const item: T): Boolean; public constructor Create( const aCapacity: Integer = 0); overload; constructor Create( const aCapacity: Integer; const aComparer : IEqualityComparer<T>); overload; destructor Destroy; override; function ToString : string; override; end; ===== End IThriftHashSet ==== === Start IProduct_Info ==== IProduct_info = interface(IBase) ['{F9E8E7FC-6023-48F0-940E-4B2EBC9A2258}'] function GetTerminal_packaged_part_number_UTF8: System.UnicodeString; procedure SetTerminal_packaged_part_number_UTF8( const Value: System.UnicodeString); function GetTerminal_packaged_serial_number_UTF8: System.UnicodeString; ... ... end; TProduct_infoImpl = class(TInterfacedObject, IBase, ISupportsToString, IProduct_info) private FTerminal_packaged_part_number_UTF8: System.UnicodeString; FTerminal_packaged_serial_number_UTF8: System.UnicodeString; ... ... end ==== End IProduct_info ==== When i create a variable hashset = TThriftHashSetImpl<TProduct_info_type>.create; I could not call hashset.add(TProduct_info_type) Also how do i handle the return result IProduct_info? Should i also call product_info := TProduct_infoImpl.create?? Please help as i am not used to calling interfaces in Delphi regards chris

thank you. will try it out on the 12.1 community edition. have to get those files from github

how do i load the JEDI package into IDE? open the pkg, compile and install from there?

I just installed 12.1 community edition and try to install JEDI Visual Componnent Library 2023.11 It gave me an error that i must install jcl first. When i tried to uninstall it, it said that the jvclInstall.exe is missing. I downloaded jvcl from github and try to install locally, then it showed that this version of the product does not support command line compiling. aborting How can i install JEDI component into the 12.1 community edition via getit. Now, i removed the JEDI Component library and JEDI Visual component library from the CategoryRepository directory. GetIt now showed the install button and when i click on it, it state that JEDI is already installed. sigh.. anyone can advise on this?

hi So sorry that my search is quite limited. the search for OpenCV libraries is that it uses .Net or VC++ libraries and that will always lead me to windows. Cant find any fmx libraries for OpenCV. can guide me on where i can find resources where i can use OpenCV for Android and IOS using delphi?

hi thank you very much. However, i wish to develop the application on iphone or android. Hence, when using the iphone or android phone, i would want to use the camera function to capture the number of rectangular objects shown on the camera Any idea on how to do this? regards chris

Hi Is there a component whereby i can feed in an image file and it will scan the image for rectangle objects and returns a list of rectangles? please advise Best Regards chris