limelect

simple search https://github.com/michalgw/mphexeditor

I have been using TMPHexEditor, TMPHexEditorEx for ages

Found on my disk microsecnd timer.zip

Not mine VeryFastTimer.zip Enjoy

D10.2.3 I had old SKIA components on the pallet. here started the problem. I compiled the new one and tried to install it. Error installing. I was left with component TAB EMPTY. So I thought to revert to my OLD BPL (ON MY BACKUP) now I have an error installing. I thought maybe the empty tab was the problem So I deleted it from the REGISTRY. After deleting all SKIA (2 places) I opened Delphi and the SKIA empty tab returned in the registry too. Any idea how to go about fixing this problem? Installing new AND deleting the empty tab P.S SKIA is not on the component list

@Anders Melander No I did not try as my basic problem was solved (installing skia) But left with an answer for knowledge of where the pallet tab names came from if not from the registry? If you did not load any components the names are written somewhere.

@Anders Melander Sorry if i miss understood all I said is that the tab name does not come from the registry (as I thought) but from somewhere else (which I do not know) P.S see my last answer no bpl in bpl dir and no component loaded

@vfbb In my case skia bpl was not in the BPL directory as I deleted them and not in any path. I think the answer can come from people that design the IDE.

@PeterBelow @Anders Melander You did not understand my knowledge problem. What I wrote is: Skia TAB was empty, the registry was empty from skia name Delphi did not load any components (skia) and STILL, the tab (skia) was on the pallet. and was rewritten to registery !!!!!!!!! upon opening the Delphi IDE. IT HAS NOTHING TO DO WITH THE COMPONENT ITSELF BUT WITH THE IDE the tab names are taken from another place, not the registry as I thought I have built some applications from the fact that the TABs name are in the registry

Thank you for your help (too many). I used the Skia4Delphi_4.1.0_Setup.exe and things are OK From this experience, I am left with bad knowledge. I thought. that components TABs are written in the registry. They are not. Does anyone know where are they written? In a DB?

@esegece For Both applications, I tested writing the word >>>>> help see what happens. on the site https://chat.openai.com/chat I get the answer Of course! How can I help you today? This is what I get Q: help A: ers/esm/inherits.js"); /* harmony import */ var _babel_runtime_helpers_esm_possibleConstructorReturn__WEBPACK_IMPORTED_MODULE_3__ = __webpack_require__(/*! @babel/runtime/helpers/esm/possibleConstructorReturn */ "./node_modules/@babel/runtime/helpers/esm/possibleConstructorReturn.js"); /* harmony import */ var _babel_runtime_helpers_esm_getPrototypeOf__WEBPACK_IMPORTED_MODULE_4__ = __webpack_require__(/*! @babel/runtime/helpers/esm/getPrototypeOf */ "./node_modules/@babel/runtime/helpers/esm/getPrototypeOf.js"); /* harmony import */ var react__WEBPACK_IMPORTED_MODULE_5__ = __webpack_require__(/*! react */ "./node_modules/react/index.js"); /* harmony import */ var react__WEBPACK_IMPORTED_MODULE_5___default = /*#__PURE__*/__webpack_require__.n(react__WEBPACK_IMPORTED_MODULE_5__); /* harmony import */ var _components_Layout__WEBPACK_IMPORTED_MODULE_6__ = __webpack_require__(/*! ../components/Layout */ "./components/Layout.js"); /* harmony import */ var _components_Header__WEBPACK_IMPORTED_MODULE_7__ = __webpack_require__(/*! ../components/Header */ "./components/Header.js"); /* harmony import */ var _components_Content__WEBPACK_IMPORTED_MODULE_8__ = __webpack_require__(/*! ../components/Content */ "./components/Content.js"); /* harmony import */ var _components_Footer__WEBPACK_IMPORTED_MODULE_9__ = __webpack_require__(/*! ../components/Footer */ "./components/Footer.js"); var _jsxFileName = "/Users/muhsinsutanto/Documents/practice/react_practice/hello-next/pages/index.js"; var __jsx = react__WEBPACK_IMPORTED_MODULE_5___default.a.createElement; function _createSuper(Derived) { var hasNativeReflectConstruct = _isNativeReflectConstruct(); return function _createSuperInternal() { var Super = Object(_babel_runtime_helpers_esm_getPrototypeOf__WEBPACK_IMPORTED_MODULE_4__["default"])(Derived), result; if (hasNativeReflectConstruct) { var NewTarget = Object(_babel_runtime_helpers_esm_getPrototypeOf__WEBPACK_IMPORTED_MODULE_4__["default"])(this).constructor; result = Reflect.construct(Super, arguments, NewTarget); } else { result = Super.apply(this, arguments); } return Object(_babel_runtime_helpers_esm_possibleConstructorReturn__WEBPACK_IMPORTED_MODULE_3__["default"])(this, result); }; } function _isNativeReflectConstruct() { if (typeof Reflect === "undefined" || !Reflect.construct) return false; if (Reflect.construct.sham) return false; if (typeof Proxy === "function") return true; try { Date.prototype.toString.call(Reflect.construct(Date, [], function () {})); return true; } catch (e) { return false; } } var Index = /*#__PURE__*/function (_React$Component) { Object(_babel_runtime_helpers_esm_inherits__WEBPACK_IMPORTED_MODULE_2__["default"])(Index, _React$Component); var _super = _createSuper(Index); function Index() { Object(_babel_runtime_helpers_esm_classCallCheck__WEBPACK_IMPORTED_MODULE_0__["default"])(this, Index); return _super.apply(this, arguments); } Object(_babel_runtime_helpers_esm_createClass__WEBPACK_IMPORTED_MODULE_1__["default"])(Index, [{ key: "render", value: function render() { return __jsx(_components_Layout__WEBPACK_IMPORTED_MODULE_6__["default"], { __self: this, __source: { fileName: _jsxFileName, lineNumber: 11, columnNumber: 7 } }, __jsx(_components_Header__WEBPACK_IMPORTED_MODULE_7__["default"], { __self: this, __source: { fileName: _jsxFileName, lineNumber: 12, columnNumber: 9 } }), __jsx(_components_Content__WEBPACK_IMPORTED_MODULE_8__["default"], { __self: this, __source: { fileName: _jsxFileName, lineNumber: 13, columnNumber: 9 } }), __jsx(_components_Footer__WEBPACK_IMPORTED_MODULE_9__["default"], { __self: this, __source: { fileName: _jsxFileName, lineNumber: 14, columnNumber: 9 } })); } }]); return Index; }(react__WEBPACK_IMPORTED_MODULE_5___default.a.Component); /* harmony default export */ __webpack_exports__["default"] = (Index); /***/ }) }) //# sourceMappingURL=index.js.f9f9f9f9f9f9f9f9f9f.hot-update.js.map ----

Tested it needs 2 ssl DLL's found them on HeidiSQL-project

fpiette / DelphiChatGPT https://github.com/fpiette/DelphiChatGPT

@Gary If you do not find what to do then Maybe you can debug how TStyleManager.StyleNames loads style names. If you find put it here

@Gary sorry never gave it a thought I have it in 2 places

@Gary For my 10.2.3 it is C:\Program Files (x86)\Embarcadero\Studio\19.0\Redist\styles did you try searching your computer for *.vsf ?

At the time I used https://torry.net/authorsmore.php?id=152 mdMailSlot I used it with great success sending and receiving messages between 3 computers. It was on D6 but I think it will work with the newer Delphi.

Try this for free https://github.com/e-delphi/VCL2FMX/

After so many years of successful Delphi, I almost give up on my free program. After out of memory I made a new test program and this is what I came up with 1. NO PROBLEM with SQL. 2. I use SQLite for the database. 3. I have a large database. 4. leaving only one large record in the database, NO PROBLEM. Record size 61094574. 5. USING the whole database reading into string s := FDMemTable1.FieldByName('Description').AsString; make out of memory error. BUT 6. This same instruction works when the table is ONLY this one record. This large record 7. Now for my solution that does not do much. I thought if I free most of the database the program memory will decrease.So I use the memory table to load 1 record 8. i := FDQuery4.FieldByName('SectionsId').AsInteger; ProjectsFDTable.Filtered := False; ProjectsFDTable.Filter := 'FilesIndex=' + IntToStr(i); ProjectsFDTable.Filtered := True; FDMemTable1.CloneCursor(ProjectsFDTable); <<< I load the memory database with 1!!!! record. // FDMemTable1.RecordCount << made sure memory has something >>>>>>>>> I close and free all my tables to be left with 1 record in memory. ProjectsFDTable.Close; FilesFDTable1.Close; FDConnection1.Close;<< even the connection ProjectsFDTable.Free; FilesFDTable1.Free; FDConnection1.Free; s := FDMemTable1.FieldByName('Description').AsString;<<<< memory error. P.S the above software give me 5 filtered record Using 4 of them does not make any error only the large one. I doubt that anyone can help since it is not a database problem but a Delphi PROGRAM problem. Once I use a database the program memory is large and unmanageable. Unless someone else thinks differently. Luckily I do not make money out of this program so I keep searching for solutions for knowledge only. I think I will move to a different DATABASE as it is my only option. Or give the user an option to make a new database when it reaches a certain size. One thing adding records does not have any problems. I wrote this for the benefit of you the developer to know what is going on with my SQLite database.

OK everybody first THANKS LASTLY, I hope no one is angry at me. And this made memory almost still I added a ValidateDB. from the Internet function ValidateDB : String; var goodsqlitedb : Boolean; FDPhysSQLiteDriverLink2 : TFDPhysSQLiteDriverLink; FDSQLiteValidate2 : TFDSQLiteValidate; FDPhysDriverService : TFDPhysDriverService; FDSQLiteSec2 : TFDSQLiteSecurity; begin Result := 'Undefined'; try goodsqlitedb:=true; Form1.ListBox1.Items.Clear; //FDSqliteConn.Open; FDPhysSQLiteDriverLink2:=TFDPhysSQLiteDriverLink.Create(nil); FDSQLiteValidate2:=TFDSQLiteValidate.Create(nil); FDPhysDriverService:=TFDPhysDriverService.Create(nil); FDSQLiteSec2:=TFDSQLiteSecurity.Create(nil); FDSQLiteSec2.DriverLink := FDPhysSQLiteDriverLink2; FDSQLiteValidate2.DriverLink:=FDPhysSQLiteDriverLink2; //FDSQLiteValidate2.OnProgress(FDPhysDriverService,DBMessage); // "with" is evil, so omit it // with FDSQLiteValidate2 do begin updatelog( 'To Start the Validation'); FDSQLiteValidate2.Database := 'Applications.db'; FDSQLiteValidate2.Analyze; updatelog('Database To be Analyzed'); if not FDSQLiteValidate2.CheckOnly then Result:= '1' //Database has problems else Result:= '0'; //Database is good //end; except on E: Exception do begin updatelog( 'Database Exception='+E.Message); Result:= '2'; //Database is Corrupt goodsqlitedb := False; //raise; end; end; try FDPhysSQLiteDriverLink2.Destroy; FDSQLiteValidate2.Destroy; FDPhysDriverService.Destroy; FDSQLiteSec2.Destroy; finally updatelog( 'Drivers destroyed'); end; end; Now, memory stays almost the same while searching. One problem my special record now takes almost 5!! minutes to load.

@Dalija Prasnikar what bugs me is that my form creat does nothing except for open DB and show it in the grid. However, I also read my text file on my server for version notification and this should not take almost no memory. I will keep checking Thanks

@Dalija Prasnikar thanks

@Dalija Prasnikar see in one of my answers I even free all used components DB and link nothing helped. Once the program reaches max memory nothing helps But if I use 2 programs just for testing see above it works. Even on the same DB

@Anders Melander I answered that way of thinking. Your proposal is too basic

Crazy as it sounds I executed my main program Then concurrent I executed my TEST program which it does read this record into richedit. Well, both programs are in memory and it worked on my test program. However, twice the DB as I did not want a lock condition. Just to check the loading of the record