ertank
Members-
Content Count
233 -
Joined
-
Last visited
Community Reputation
21 ExcellentTechnical Information
-
Delphi-Version
Delphi 11 Alexandria
Recent Profile Visitors
The recent visitors block is disabled and is not being shown to other users.
-
Hello, This is a Windows Server 2022 where MARS is running on as a Windows service. There is no nginx or similar application between, so MARS Windows service is directly accessed. Not a heavy server at all. It is less than 10 simultaneous users at most and on average there is a single client accessing the server. I do not have any access to the server and I am not given any. It is reported that MARS Windows service is responding ECONNRESET error after random days of usage. Sometimes it is a month sometimes it is 10 days. There are application log files. They all seem fine. Last request is served then service is shutdown and restarted. There is no errors or request not completed according to logs. Once it happens it is the same error if MARS Windows service is tested to be used from localhost. I never had any problem with MARS. I have similar installations on Windows Server 2019/2022 with more simultaneous users which are running for years. My internet searches didn't help me much. Any help is appreciated. Thanks & Regards, Ertan
-
ICS Beta V9.2 and OpenSSL 3.3.0
ertank replied to Angus Robertson's topic in ICS - Internet Component Suite
Hi, Those not needing to embed OpenSSL libraries, will it be enough to comment out {$DEFINE OpenSSL_Resource_Files} in OverbyteIcsDefs.inc? Thanks. -
I am using UniDAC and there is TUniConnection.Options.KeepDesignConnected parameter. I expect MyDAC to have a similar parameter. I didn't understand why this is a problem since you have a single database and necessary columns added in it.
-
Is this a different server than http://svn.overbyte.be:8443/svn/
-
I don't use MySQL. But, I would use same letter case as the table column name. I would double check that design-time and run-time actually uses the same server, database, table Edit: Reading your problem again, it feels you added a column in TMyTable but not in your database table.
-
How to make "dynamic initialization" procedure
ertank replied to Tommi Prami's topic in RTL and Delphi Object Pascal
I am not sure if below approach is suitable for you. type FieldList = TArray<TField>; PFieldList = ^FieldList; procedure FindAllFields(DataSet: TDataSet; Fields: PFieldList; const FieldNames: TArray<string>; const RaiseExceptionForMissingFields: Boolean = True); var I: Integer; begin Assert(Length(Fields^) = Length(FieldNames), 'Fields count <> FieldNames count!'); for I := Low(Fields^) to High(Fields^) do begin Fields^[I] := DataSet.FindField(FieldNames[I]); if (Fields^[I] = nil) and RaiseExceptionForMissingFields then raise Exception.Create('Missing field dataset "' + FieldNames[I] + '"'); end; end; procedure TForm1.Button1Click(Sender: TObject); var LFieldList: FieldList; begin SetLength(LFieldList, 4); // Below will raise an exception because of the last empty field name and RaiseExceptionForMissingFields=True FindAllFields(VirtualTable1, @LFieldList, ['a', 'b', 'c', '']); //... end; This would require you to remember Indexes for your fieldnames. Not very convenient if you are to have a lot of fields and do different calculations or such with them. -
Check out MadExcept. It can check for frozen main thread and auto restart.
-
The GetIt server is back online - With the 12.0 Patch 1
ertank replied to Lars Fosdal's topic in General Help
license.embarcadero.com gives error in the installer. -
The GetIt server is back online - With the 12.0 Patch 1
ertank replied to Lars Fosdal's topic in General Help
For me license servers are still down. -
I own a commercial license and used SAX parsing in OXml. You might want to check out https://github.com/ashumkin/OXML This is an old version. Though license allows you to use it in commercial applications under certain conditions and it might work for you.
-
As per documentation TStringHelper.ToUpper uses locale specific case conversion. As per documentation UpperCase or SameText uses 7-bit ASCII conversion. Only letters between 'a' and 'z' are converted to uppercase. Since you are using ToUpper, uppercase of 'This' in Turkish locale is 'THİS' (upper case I letter with dot at top). Moreover, lower case for 'THIS' in Turkish locale is 'thıs' (small caps i letter without dot at top). I cannot remember off my mind right now but there are other languages where some characters small and upper cases do not follow ASCII type of conversion.
-
Hi, I did find a solution but I cannot remember what was it now. You can try updating libraries to defaults
- 3 replies
-
- delphi 10.4.2
- android 5.1.1
-
(and 1 more)
Tagged with:
-
Using suggested modification and unit compiles. I will see if it works once I receive working username and password. Thank you.
-
Hello, I am using Delphi 11.3. Using the stock WSDL Importer tool and https://pb.diyalogo.com.tr/PostboxService.svc URL produce below remarks in the unit which does not compile // Cannot unwrap: // - More than one strictly out element was found I would like to learn if it is possible to generate unit usable with Delphi. If yes, how can I do that? Any help is appreciated. Thanks & Regards, Ertan
-
Even if I make it identical C# enum with Delphi enum, There is still one byte difference in total struct vs record comparison. I check even the last item offset in C# struct matches to Delphi and this last item size also matches on both C# and Delphi. It must be that C# has one byte more at the very bottom of its struct. @FPiette advise to add it at the end of Delphi record as a dummy variable and I can do that. I wonder if I absolutely need it? If I do need it, I wonder if there is another way of handling that in newer Delphi versions like a compiler directive {$MINENUMSIZE 4}? Thanks.