

Kas Ob.
Members-
Content Count
556 -
Joined
-
Last visited
-
Days Won
10
Everything posted by Kas Ob.
-
That will not work, your finally is missing a try before hand and an end afterward.
-
Don't know about Peganza Expert, i have an old expired Peganza Analyzer, but if the Expert have 1/5 of the Analyzer features, then it is x10 time than anything else, i mean anything and all, it should be part of the IDE decades ago.
-
AcceptSecurityContext (Negotiate) not working
Kas Ob. replied to stijnsanders's topic in Windows API
I suggest/request to add a new download package at http://yoy.be/xxm/download.html , just one binary xxmHttpDev (or xxmHttp) but with full working demos, working out of the box, no interaction needed, something to show the functionality without any setup or tweak. User or potential users need to see the power of running web server effect in one single click (with xxm features), and the portability of paths and the whole setup, it is important. -
Please Lars, help me put this sentence in stage https://en.wikipedia.org/wiki/Five_stages_of_grief
-
AcceptSecurityContext (Negotiate) not working
Kas Ob. replied to stijnsanders's topic in Windows API
I can find words to explain how much i hate ORM, for me it is a pile of hot stuff.. , ORM for me doesn't bring anything useful except unneeded complexity, more code to maintain and break with changes forcing to rebuild the everything and huge dependency on the unknown, uncontrolled and movable parts being data to find them selves as objects in running code. When it comes to HTTP, mostly i use RTC, don't know if you are familiar with it or with its powerful scripting engine, it is just brilliant, the the script it provide bring the PHP syntax ("<? $max(a:10, b:20) ?>") to Pascal, as simple as PHP can generate pages, the RTC scripting generate web pages but with Pascal and Delphi code, here an example But i am always open to know more and find better tooling, and somehow xxm is catching my intrigue, because we can do the same to generate web pages. So even till now can't run the demos, i see it is close enough syntax to copy and paste, and judging by the design and it might be comparable in speed to RTC and might be lighter on memory than RTC, still missing many features in RTC though, like the right way to handle exceptions, and can't find how xxm handle exception and where are they being raised, although RTC scripting is limited and lacking many important features. 1) Web.xxmp is ASCII file and on newer Delphi the xxmproject tries to open it as Unicode so it fail. 2) Still can't manage to run the demos , the paths are not clear for what goes where ? 3) CompilerVersion is in few places, the value is definitely not 30 or should be way more, i suggest to leave but put a comment line in these places to be changed, may be someone here can help in this case THeapStream=class(TMemoryStream) private FHeap:THandle; protected {$IF CompilerVersion<30} function Realloc(var NewCapacity: LongInt): Pointer; override; {$ELSE} function Realloc(var NewCapacity: NativeInt): Pointer; override; {$IFEND} for me stand alone and IIS module are the same importance. Thank you for your work. -
How to read DNS TXT record contents?
Kas Ob. replied to TurboMagic's topic in ICS - Internet Component Suite
Do the same for A (IPv4) or AAAA (IPv6) https://en.wikipedia.org/wiki/List_of_DNS_record_types -
@Pafcouti I don't understand the question too. Delphi Detours is powerful tool, but can't perform system wide hook, if that what are you asking form, to hook all applications running on the system. To have global hook aka system wide, then either the OS with an API SetWindowsHookEx will do it, or you need an OS driver, yes there is many of these and even User Mode driver might work to some point, such driver is used and its behavior is allowed by Windows DDK to build many things like Antivirus softwares, or SysInternals ProcMon .... Anyway DDetours will not help in system wide hook if that is the question, and i don't recall, any library will do that, and if there is one which was in the past but with many red flags as it is was shady and closed source, and highly not recommended. SetWindowsHookEx is OS API and provide many hooks, there is many demos/examples on the internet with Delphi. If that is not answering your question, then please refine the question and help us understand, if your code is raising exception then post here the smallest demo you can do with the exception, so someone here might help with it.
-
I didn't know about such Chinese Horoscope. Thank you ! So is FireMonkey from there too ? Edit: adding this It might be helpful for marketing to choose Chinese city name, like the famous Wuhan .
-
Are we talking about Chinese zodiac years ? Monkey, Ox, Rooster, Dragon, Pig.... That will open +1.5 billion client market.
-
Are you sure BitBlt doesn't work, because if you did not create compatible DC you will not be able to get correct pixels. from https://learn.microsoft.com/en-us/windows/win32/api/wingdi/nf-wingdi-bitblt BitBlt returns an error if the source and destination device contexts represent different devices. To transfer data between DCs for different devices, convert the memory bitmap to a DIB by calling GetDIBits. To display the DIB to the second device, call SetDIBits or StretchDIBits. though it does not always will fail it might be white or just black. But have you tried this https://learn.microsoft.com/en-us/windows/win32/gdi/capturing-an-image CreateCompatibleBitmap should solve most of your problem, i guess !
-
Or 13.7 for naturalized effect !
-
Design of client/server application
Kas Ob. replied to FreeDelphiPascal's topic in Network, Cloud and Web
Mostly irrelevant to your case, either an approaches, library, protocol, component ... has such functionality out of the box or not, but you are developer and can add such mechanism. Like above, wither the ..... (above mentioned) have such mechanism or you have to implement it, it is way easier to choose the one with already have these functionality, but yet implementing these are not rocket science, because even when the library provide authorization and locking you still as developer have to put that part and almost every single one will have an event like to adjust or override. In my opinion yes WebDav is the best out of the box, i have my own WebDav, i built it with SecureBlackBox it is using RTC as TCP socket server, working brilliantly, on my Android i use different software (From FDroid and Google Play like https://play.google.com/store/apps/details?id=com.lonelycatgames.Xplore this explorer i am using since Nokia 80 8GB and many other apps that support WebDav) to perform browsing and backup my files etc, because WebDav is a standard. One more important thing, stay away from FTP and FTPS, they are pain in the back and not faster, just slower. On other hand SFTP is also viable option for you, SFTP is SSH based, does support locking, but there is a and extension for WbDav https://datatracker.ietf.org/doc/html/rfc3253 this one in particular is adding full file versioning, which is just what you need, i don't have in my expired SSB, also don't know where to find one for you, also my server is checking for User Agent if it is not specific one then it is WebDav and if it is specific one it will be forwarded to RTC Server (socketless) here i added RTC full blown HTTP server with support to Portal for remote controlling the whole PC while i have HTTP server for different.... well these things and modules in RTC are hard to explain but in short you can have many services and functionality without adding a single line of code just add the unit and you will have chat messenger or all RTC demos. Also here is few SFTP libraries for Delphi that can help you start, do you know of this https://www.nsoftware.com/sftpdrive/ and its price, it is simply what doctors recommend too, mount an remote SFTP directory as a drive on Windows ! Another solution is just convert your single user application to multi user using RTC, which is also brilliant, and will take you few hours or may be days to get know the library, but once you did, you will be able to implement anything with few lines, its remote procedures are most powerful you ever imagine, while threading is talking care of and you don't need to waste a second on it, so i suggest to get know it, also there is RTC Portal which does have remove file sharing, and will really serve you well as how to do things in very fast manner. As Anders explained, and i repeated, many of these fine tuned functionality is up to you and you have to put these, like custom locking or ... all the locks can be timeout, all connection can be limited to speed or time, Kas is taking hell of time writing post then disconnect him for now, let others write to the thread, when he is done, he will post, if the server see a conflict then rename the file/thread in way like being forked then notify the users or someone to solve the conflict, Lars will come and start yelling, deleting ,threatening to ban, oh boy .. Lars will do Lars. Anyway, hope that helps. -
AcceptSecurityContext (Negotiate) not working
Kas Ob. replied to stijnsanders's topic in Windows API
I asked a friend to confirm if Hyper-V hosted Windows Server can create a domain and fully control an AD, he indeed confirmed it, also it is possible with not activated server that will serve and run for 6 months, sound great. My problem is in the middle of joining my Windows 10 Pro to that AD, my Windows also the freaking portable Chrome went crazy, and started to ask me to confirm the user password, anyway this is for heads up. Away from that, tried to play with xmm by build it, there is few things to point 1) Doesn't compile on XE8, CompilerVersion in THeapStream is wrong changing it to <30, did the job for XE8. 2) The projectgroup missing few projects. 3) xxmProjects is missing xxmConvertXML and xxmConvert2, not to be found in the repo. 4) What on earth the json file that is needed everywhere and where to get working one, there is no mention to how and what it should contain, i guess xxmProject should built one, so i downloaded the binary package, but can't figure what to put in it as minimum as possible. -
AcceptSecurityContext (Negotiate) not working
Kas Ob. replied to stijnsanders's topic in Windows API
Question : Have you tried with ASC_REQ_ALLOW_MISSING_BINDINGS ? And with a combination with SECURITY_NATIVE_DREP or SECURITY_NETWORK_DREP and most perplexing for me this ASC_REQ_DELEGATE -
Delphi CE application accesses unknown IPs
Kas Ob. replied to everybyte's topic in Network, Cloud and Web
This might means your trusted root store is outdated, or there is missing trusted CA from Microsoft. But i just downloaded the latest SysMon and CA is still valid till 2026, while it is 2011 issue. I think your have more troubles than what you think, the security policy on your Windows 11 is in dire need to reset to default. -
How about the Debugger and Compiler Helper dcc64xxxN.dll being build by MinGW GCC, doesn't that deserve an award too.
-
https://english.stackexchange.com/questions/107785/is-there-a-clean-version-of-no-sht-sherlock I am really sorry, i just couldn't resist Hope it make you smile
-
Sure, but i don't think they can fix this for one single situation like addition without fixing or rethinking the register allocator, at least that what i hope for, after all nothing stopping them from doing anything.
-
The thing is.. it is the same line so this window if optimized or just checked for one thing and one only, switching the register and see if the an instruction can be omitted, it will have some impactable performance everywhere, also in x64 which it does nice lea code because three registers involved, but fail in many different places when like that simple integer addition if one register is already used, like when the addition is in the middle of code.
-
That i agree on, as i started to steer the topic away, and i am sorry. for integers, yes for integers and their family. ps : tested and known to fail to do so in Delphi's up to Seattle . I am in no place to ask this, so sorry too. but if you want to research and confirm it, then please, it might help the performance in few (thousands) places. Code to reproduce this piece of gem with optimization on of course, we need the best code, only the best function AddAB(A, B: Integer): Integer; begin Result := A + B; end; function AddBA(A, B: Integer): Integer; begin Result := B + A; end; procedure TForm10.FormCreate(Sender: TObject); begin AddAB(10, 5); AddBA(12, 8); end; And the assembly Again sorry @Stefan Glienke but that one of many that really boil my blood and it is almost everywhere.
-
@Stefan Glienke Please research this and report it. for integers, yes for integers and their family. ps : tested and known to fail to do so in Delphi's up to Seattle .
-
No, you are wrong here, sorry, we love Delphi and we love the Language and the IDE, but ( talking for myself)i don't trust Embarcadero to make it better, based on history and experience. No saying this is less than any other cases, but me to would love to see it better and better for each and every cases, the thing is the compiler in big part is still belong to early 90s from TP7, asking for this is like asking plastic car toys to build spaceship to go to space as they already understand something about motion. It is big, the compiler is so outdated, that will need huge adjustment to produce such code right, break and continue the current Delphi compiler know the breaking point before hand, with goto and the need to enter the finally and exit it without losing all the content of CPU register and variables, is again like the example above with plastic car toys, (used cars example because Uwe love those) @balabuev and don't get me wrong i agree 100% it is doable, but for me it is not priority. I would love if the Embarcadero Delphi compiler could generate good code for A+B like B+A, which IS NOT capable to do in 2023!
-
AcceptSecurityContext (Negotiate) not working
Kas Ob. replied to stijnsanders's topic in Windows API
Me too ! Going away from Google search, it is becoming useless more and more by the day. Setting up full test-environment is the highly recommended as i think and also as i remember it is pain in the back, to ask a specific or not very specific questions to someone who have no idea what you are looking for, also here kicks in the terminology to create bigger mess in communications. ps: I have close enough experience with domain problem, it was the need to remotely access hyper-v manager without domain and without RDP, found few sources and tried them all, all failed, i tried all combination with policies mentioned but no success, then there was a software and i can't remember its name, alas, searching the net also didn't help me recall, the trial version of it did allow me to control and manage the hyper-v services remotely without domain and without any special setup on my PC or on the server, my only regret now that i didn't dig deep into it and its traffic, all what it did need is user and password with server IP. -
Delphi CE application accesses unknown IPs
Kas Ob. replied to everybyte's topic in Network, Cloud and Web
Just to clear few things here, 1) All binaries that runs on Windows will go through some sort of security check, although it can be disabled or adjusted by policy editor or registry but it is not recommended. 2) All Signed files (binaries or not like cab or msi..) with certificates that have CRL (Certificate Revocation List) extension will and must be checked against the provided URL in that CRL, unless it is disabled by policy, this check happen with intervals defined and provided by the CRL server and the OS will remember to check again when you run or access that file, CRL extension is not the only one that cause such checking online but there is also the OCSP, and there is other extensions and services but less popular. 3) These checks and connections appears from the EXE but they are coming from OS DLL loaded forcibly by the OS into the memory. 4) If a file not signed it will not check for any certificates of course, but here will kick the installed security software if it is Windows Defender or else, every single one of them have an option/setting to send samples for unknown software (singed or not) to there servers for deep analysis, some of these are enabled by default, as mentioned above it could be Microsoft Defender that issuing such connections, yet and it is important find IPs to Akamai or Microsoft doesn't mean it is Windows service, it could be an 3rd party software that using Azure or Akamai CDN .... 5) almost every application will crash on these sandboxes in VirusTotal, and as these Sandboxes with Windows on default settings or may be aggressive security settings, will generate WER report and will try to send it to Microsoft, hence these extra connections. So back to regedit.exe, it is signed and that sandbox most likely will revert to its default with each run, and each time will try to update its Root or at least the CA store, on other hand regedit have GUI and most likely will crash too and generate a report and use the WER, as evidently reported. -
I played with these beautiful demos, watched them on WireShark and the whole package is very very impressive. congratulations ! Suggestions : 1) The only thing is missing here is WebDav ( http://www.webdav.org/specs/ ), RFC 4918 namely, the other extensions could be added later, it will add out of the box support for many Cloud Storage like DropBox. 2) The lack of OpenSSL from Standard and Professional Editions is quite a deal, rendering the selection of these editions a lot less favorable, and almost useless for mobile devices. 3) The price of Basic in comparison with Full Source also makes little sense (at least to me) as the Basic is half price but with half period of support/update and without the source, you might consider make the Full with source available for half period, instead of the Basic, just suggestion, i know it is not my place, but sounding my opinion.